БД На аксесе, мне нужно знать например какие нарушения совершили сотрудники от 12.12.04 по 13.04.05, неполучается это сдела и вывести например в мемо помогите вот код по которому я работаю могу дать исходник парни выручайте
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | procedure TForm1 . Button1Click(Sender: TObject);
var
f: string ;
b: string ;
i: integer ;
begin
f:=Edit1 . Text;
b:=Edit2 . Text;
i:=Datamodule2 . ADOTable1 . RecordCount;
DataModule2 . ADOTable1 . First;
while i> 0 do
begin
i:=i- 1 ;
if
(DataModule2 . ADOTable1DSDesigner??.AsString>f)
and (DataModule2 . ADOTable1DSDesigner??.AsString<b)
then
??
DataModule2 . ADOTable1 . Next;
end ;
end ;
|