Форум: "Основная";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];
ВнизПроблема при вводе данных Найти похожие ветки
← →
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]Типа, тема форума другая - см. "Базы"
← →
DelphiNew (2003-12-16 14:48) [3]Здесь дело не в базе, а вот в чём я так и не могу разобраться
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c