[aqula]

Привет друзья.
Хочу чтоб Edit чистился при успешном завершении запросов. Но почему то пропадает результирующее множество из дбгрида когда я его чищю. Короче вот код из него будет яснее. Игрался с exit не помогло либо выборка либо чистый эдит

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

procedure TBarcodeForm.Edit1Change(Sender: TObject); var Query:string; Date:string; Flag:bool; begin if (Edit1.Text='') and (Str='') then  begin   BarcodeForm.ADOQuery1.SQL.Clear;   BarcodeForm.ADOQuery1.SQL.Add('SELECT * FROM works');   BarcodeForm.ADOQuery1.Open;   label9.Caption:= countrec + IntToStr(BarcodeForm.Adoquery1.RecordCount);    end else begin   BarcodeForm.ADOQuery1.SQL.Clear;   BarcodeForm.ADOQuery1.SQL.Add('SELECT * FROM works WHERE cBarcode = :dd1_b');   BarcodeForm.ADOQuery1.Parameters.ParamByName('dd1_b').Value:= Edit1.Text;   BarcodeForm.ADOQuery1.Open;   Date := FormatDateTime('yyyy-mm-dd', Now);   Str:= Adoquery1.FieldByName('nKey').asstring;   label9.Caption:= 'ID: ' + Str;   //Flag:=false;     if (BarcodeForm.ADOQuery1.RecordCount > 0) and (Str <> '') then    begin   Query:='UPDATE works SET dJobDone = '''+ Date +''' WHERE nKey = ' + Str;   BarcodeForm.ADOQuery1.SQL.Clear;   BarcodeForm.ADOQuery1.SQL.Add(Query);   BarcodeForm.ADOQuery1.ExecSQL;   Query:='SELECT * FROM works WHERE nKey = ' + Str;   BarcodeForm.ADOQuery1.SQL.Clear;   BarcodeForm.ADOQuery1.SQL.Add(Query); showmessage(BarcodeForm.ADOQuery1.SQL.Text);   BarcodeForm.ADOQuery1.Open;   //Flag:=true;     exit;   Str:='';     Edit1.Text:='';    end;   end; end;

[Black Raider]

Помоему вообще работать не будет
по крайней мере я что то не уловлю смысл всех этих манипуляций.

к чему вообще все это? у вас поиск только по 1 символу? или в едит сразу (насколько понимаб штрих-код) вбивается копи пастом или присвоением?

ПС. А на Update еще Query отдельный не положить ли?

[aqula]

не по одному. Сканер штрих-кода работает как клава. В эдите вводится строка из n символов - я произвожу поиск по бд. и вывожу данные в дбгриде по этому коду. Далее я подношу еще раз к другому штрих-коду и чтоб эдит не замусоривать я его должен чистить после каждого считвания. вот

> ПС. А на Update еще Query отдельный не положить ли?
Вторую адошку чтоли?

[Black Raider]

Но почему то пропадает результирующее множество

вообще пропадает? т.е. пустой грид?

[Yurk@]

а если так: (елси уж очистка нужно при удачном завершении всех запросов)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

procedure TBarcodeForm.Edit1Change(Sender: TObject); var     Date:string;     Flag:bool; begin if (Edit1.Text='') and (Str='')     then     begin         BarcodeForm.ADOQuery1.Close;         BarcodeForm.ADOQuery1.SQL.Text:='SELECT * FROM works';         try             BarcodeForm.ADOQuery1.Open;             Except                 Exit;             end;         Label9.Caption:= CountRec + IntToStr(BarcodeForm.Adoquery1.RecordCount);   end     else     begin         BarcodeForm.ADOQuery1.Close;         BarcodeForm.ADOQuery1.SQL.Text:='SELECT * FROM works WHERE cBarcode = :dd1_b';         BarcodeForm.ADOQuery1.ParamByName('dd1_b').Value:= Edit1.Text;         try             BarcodeForm.ADOQuery1.Open;             Except                 Exit;             end;         Date := FormatDateTime('yyyy-mm-dd', Now);         Str:= ADOQuery1.FieldByName('nKey').asString;         Label9.Caption:= 'ID: ' + Str;         if (BarcodeForm.ADOQuery1.RecordCount > 0) and (Str <> '')             then             begin                 BarcodeForm.ADOQuery1.Close;                 BarcodeForm.ADOQuery1.SQL.Text:='UPDATE works SET dJobDone = '''+ Date +''' WHERE nKey = ' + Str;                 try                     BarcodeForm.ADOQuery1.ExecSQL;                     Except                         Exit;                     end;                 BarcodeForm.ADOQuery1.Close;                 BarcodeForm.ADOQuery1.SQL.Text:='SELECT * FROM works WHERE nKey = ' + Str;                 try                     BarcodeForm.ADOQuery1.Open;                     Except                         Exit;                     end;                 Str:='';             end;   end;     Edit1.Text:=''; end;

[aqula]

Нашел еще один способ.
...
Edit1.SelectAll;
End;
Как таковой затирки нет, но при вводе новой строки прежняя стирается.