Innokenty
Сообщений: 54
Оценки: 0
Присоединился: 2010-08-30 08:28:09.060000
|
БД На аксесе, мне нужно знать например какие нарушения совершили сотрудники от 12.12.04 по 13.04.05, неполучается это сдела и вывести например в мемо помогите вот код по которому я работаю могу дать исходник парни выручайте примерный код: Код: 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; не использую ADoQuery,я исходник залил может кто нить поможет.. там есть форма вот на нее вывест нужно туда мемо добавлю а дбэдит удалю мне главное чтобы диапазон работал.. выручайте _http://zalil.ru/30003517 ну или так обьясните я сам попробую.. Спасибо
|