Проблема при вводе данных

← →
DelphiNew © (2003-12-16 14:25) [0]

Люди встала такая проблема: Получаю данные со сканера штрих-кодов, полученная строка проверяется есть ли такой штрих-код в базе и если есть добавляется в другую базу. Проблема в том что считывается только один раз. Т.е один раз получил данные и дальше не может. Вот код
procedure TFrmMain.OnGetDataFromScaner; var ScanSt: string; begin ScanSt:=copy(ScanerThread.StrResult,1,2); FrmTara.IBQTar.Close; FrmTara.IBQTar.SQL.Clear; FrmTara.IBQTar.SQL.Add("select namecode, A1,EANCODE, A3, A4, JC1, PRICE from view_1500001"); FrmTara.IBQTar.SQL.Add("where eancode="""+ScanSt+""""); FrmTara.IBQTar.Open; sleep(100); if FrmTara.IBQTar.RecordCount <> 0 then begin FrmTara.IBQInsTar.ParamByName("NAMETARA").AsString:=FrmTara.IBQTarA1.AsString; FrmTara.IBQInsTar.ParamByName("CODETARA").AsString:=ScanerThread.StrResult; FrmTara.IBQInsTar.ParamByName("VES").AsFloat:=FrmTara.IBQTarA3.AsFloat; FrmTara.IBQInsTar.ParamByName("NCTARA").AsInteger:=FrmTara.IBQTarNAMECODE.AsInteger; FrmTara.IBQInsTar.ParamByName("LINKHEAD").AsInteger:=nc; FrmTara.IBQInsTar.ParamByName("QUAN").AsInteger:=1; FrmTara.IBQInsTar.ParamByName("VESTOTAL").AsFloat:=FrmTara.IBQTarA3.asFloat * StrToFloat(FrmTara.EdtVes.Text); FrmTara.IBQInsTar.ParamByName("PRICE").AsFloat:=FrmTara.IBQTarPRICE.AsFloat; FrmTara.IBQInsTar.ParamByName("SUMMATOTAL").AsFloat:=FrmTara.IBQTarPRICE.AsFloat * StrToFloat(FrmTara.EdtVes.Text); FrmTara.IBQInsTar.ExecSQL; FrmMain.IBTransaction1.Commit; FrmMain.IBTransaction1.StartTransaction; FrmMain.IBQSpec.Open; end; end;
Пробовал ставить проверку так:
.......
FrmTara.IBQInsTar.ExecSQL;
FrmMain.IBTransaction1.Commit;
FrmMain.IBTransaction1.StartTransaction;
FrmMain.IBQSpec.Open;
end
else
showmessage("нет записи");
При этом запись добавляется, но одновременно появляется вышеобъявленное сообщение и как-будто зацикливается, т.е нажимаю ОК а оно всё равно выскакивает

← →
DelphiNew © (2003-12-16 14:44) [1]

Люди помогите, очень надо

← →
Тимохов © (2003-12-16 14:47) [2]

Типа, тема форума другая - см. "Базы"

Здесь дело не в базе, а вот в чём я так и не могу разобраться

Проблема при вводе данных Найти похожие ветки