Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function IsBanned:Boolean;
- var
- tmpIntBan: Integer;
- begin
- StartWorkWithDB();
- Form1.query.SQL.Text:='select ban from users where id = :id;';
- Form1.query.ParamByName('id').AsInteger:=MyLogin;
- BDWork();
- tmpIntBan := Form1.query.FieldByName('ban').AsInteger;
- EndWorkWithDB();
- if (tmpIntBan = 1) then Result := True
- else Result := False;
- end;
- function LastLoginNotToday:boolean;
- var
- tmpInt: Integer;
- begin
- Form1.query.SQL.Text:='select (select date_format((current_date),''%'+'m''))-(select date_format((select time_start from time_used where user_id = :id),''%'+'m''))+(select date_format((current_date),''%'+'d''))-(select date_format((select time_start from time_used where user_id = :id),''%'+'d'')) as yn;';
- Form1.query.ParamByName('id').AsInteger:=MyLogin;
- BDWork();
- tmpInt:= Form1.query.FieldByName('yn').AsInteger;
- EndWorkWithDB();
- if (tmpInt > 0 ) then Result := True
- else
- Result := False;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement