當天所 Keyin 的出貨單 正確列印無誤 隔天同一張出貨單竟然會少掉其中幾樣商品 而且幾乎每一張出貨單都發生 不知是什麼問題? (我是使用TQuery元件 Insert Delete Update 等SQL指令去做資料庫操作) 發表人 - kevinlll 於 2003/07/03 00:08:09

kevinlll你好: 其實問題不大,只是麻煩一點,請你post code來大家debug,好嗎?

------
======================
昏睡~
不昏睡~
不由昏睡~

我的語法類似下面這樣 with query3 do begin sql.Clear; sql.Add(' insert into outdetail '); sql.Add'(itemno,quantity,unitprice,amount, headid,discount, '); sql.Add(' saleunitname, unitop, lmcode ) '); sql.Add(' values '); sql.Add('( ''' edit16.text ''' , ''' edit21.Text ''' , '); sql.Add(' ''' edit20.text ''' , ''' edit26.text ''' , '); sql.Add(' ''' edit11.Text ''' , ''' edit27.text ''' , '); sql.Add(' ''' edit28.text ''' , ''' edit30.text ''', '); sql.Add(' ''' edit19.Text ''' ) '); execsql; end; 發表人 - kevinlll 於 2003/07/04 02:36:40

with query3 do begin sql.Clear; sql.Add(' insert into outdetail '); sql.Add('(itemno,quantity,unitprice,amount, headid,discount, '); sql.Add(' saleunitname, unitop, lmcode )'); sql.Add(' values '); sql.Add('( ''' edit16.text ''' , ''' edit21.Text ''' , '); sql.Add(' ''' edit20.text ''' , ''' edit26.text ''' , '); sql.Add(' ''' edit11.Text ''' , ''' edit27.text ''' , '); sql.Add(' ''' edit28.text ''' , ''' edit30.text ''', '); sql.Add(' ''' edit19.Text ''' ) '); execsql; end; 加上紅色的部分試看看.. TRY TRY SEE 發表人 - chih 於 2003/07/04 08:52:24

原本就有加 "(" 上面是筆誤的 Sorry!! 幫幫忙 再想想別的可能?

加上紅色.. with query3 do begin . . sql.Add(' ''' edit19.Text ''' ) '); sql.SaveToFile('C:\1.txt'); execsql; end; 然後將該txt檔內容Debug比較容易些喔..TRY TRY SEE

引言: 原本就有加 "(" 上面是筆誤的 Sorry!! 幫幫忙 再想想別的可能?

發表人 - chih 於 2003/07/04 09:19:20

想了一下,你原先的寫法好像只是update一筆資料,所以應該以DetailSQL為迴圈..

DetailSQL.First;
While not DetailSQL.Eof do
begin
with query3 do
begin
//這裡按照你原先的寫法.
end;
DetailSQL.Next;
end;

發表人 - chih 於 2003/07/04 16:33:31

kevinlll你好:    

引言: 加上紅色.. with query3 do begin Close; . . sql.Add(' ''' edit19.Text ''' ) '); //還有用 //QuotedStr(edit19.Text) //取代''' edit19.Text ''' execsql; end;

//或用傳入變數的方式 with Query3 do begin close; sql.Clear; sql.Add('insert into outdetail itemno=:q1 ,quantity=:q0'); .... .... ParamByName('q0').AsString:=edit16.text; ParamByName('q1').AsString:=edit21.text; .... .... ExecSQL; end;