Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TLog.N20081Click(Sender: TObject);
- begin
- DM.ADOQuery1.SQL.Clear;
- DM.ADOQuery1.SQL.Add('SELECT * FROM brut WHERE datager BETWEEN #01/01/2008# AND #31/12/2008# and LEN(TRIM(pass)) > 0 and FL_Sale = false and AUCTHION = false and SMI_BAN = false');
- DM.ADOQuery1.Active:=True;
- Log.Caption:='Всего: '+inttostr(dm.ADOQuery1.RecordCount);
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement