Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.30;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
1-99554
Cyberjack
2003-12-18 02:55
2003.12.30
Интерфейс MDI


11-99512
Ал
2003-04-08 14:34
2003.12.30
Где поучиться использовать MHToolTip?


1-99616
g-l-u-k
2003-12-16 21:48
2003.12.30
Последние файлы


6-99690
LORDIK
2003-10-24 12:06
2003.12.30
NMStrmServ


3-99480
Dimaz-z
2003-12-04 21:20
2003.12.30
Проблема с индексами в ClientDataSet!