公司的WMS系統用delphi10開發，現在發現每次批量匯入資料完成后，打開其他頁面會報錯‘找不到1%',該頁面資料顯示為空白。請高手指教。
系統連接資料庫是由ADOQuery組件實作
uj5u.com熱心網友回復：
delphi10是那個版本？一時想不起來了。你這個問題還是用IDE除錯一下吧，說的這么籠統真不好幫你解答，初步斷定可能是SQL陳述句非法的問題
uj5u.com熱心網友回復：
原始碼有吧，除錯一下就知道哪里的問題了。uj5u.com熱心網友回復：
一下是批量匯入函式源代碼，請幫忙查下原因，謝謝！function TStockIn.InitExcelOrder:Integer;
var ExcelApp:Variant;
var i,j,m,num_pro:Integer;
var s_e1,s_e2,s_e3,s_e4,s_e5,s_e6,s_e7,s_e8,s_e9,s_e10:string;
begin
i:=3;j:=0;num_pro:=0;
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.Caption:='應用程式呼叫 Microsoft Excel';
ExcelApp.workBooks.Open(RzOpenDialog1.FileName);
try
ExcelApp.Worksheets['入庫匯入模板'].activate;
except
PC.M(DATA_ACTION_ERROR); Result := 1;
Exit;
end;
while not(ExcelApp.Cells[i,9].Value='') do
begin
i:=i+1;
num_pro:=num_pro+1;
end;
while j<num_pro do
begin
m:=j+3;
s_e1:=IntToStr(PC.transProductSpecToProductID(ExcelApp.Cells[m,1].Value));//物料號
s_e2:=IntToStr(PC.transGroupNameToGroupID(ExcelApp.Cells[m,2].Value)); //庫位
s_e3:=ExcelApp.Cells[m,3].Value; //入庫單號
s_e5:=ExcelApp.Cells[m,4].Value; //數量
s_e4:=ExcelApp.Cells[m,5].Value; //批號
s_e6:=ExcelApp.Cells[m,6].Value; //入庫日期
s_e7:=ExcelApp.Cells[m,7].Value; //生產日期
s_e9:=ExcelApp.Cells[m,8].Value; //備注
s_e10:=IntToStr(PC.transStatusNameToStatusID(ExcelApp.Cells[m,9].Value));
s_e8:=IntToStr(PC.transStatusNameToStatusID(ExcelApp.Cells[m,10].Value));
With ADOQuery2 do
begin
SQL.Clear;
SQL.Text:='exec [dbo].[sp_quick_purchase] '+QuotedStr(s_e1)+','+'5'+','+QuotedStr(s_e2)+','+QuotedStr(s_e3)+','+QuotedStr(s_e4)+','+(s_e5)+','+QuotedStr(s_e6);
SQL.Text:=SQL.Text+','+QuotedStr(s_e7)+','+QuotedStr(s_e8)+','+QuotedStr(s_e9)+','+QuotedStr(s_e10);
Log.WriteLog(2,Log.UserLogon(12,SYSTEM_OPERATOR,PC.NormalizeSQL(SQL.Text))); //日志SQL
//PC.M(SQL.Text);
ExecSQL;
//PC.DirectMSG(DATA_RETURN_MSG,DATA_ADD_SUCCESSFUL);
Log.WriteLog(2,Log.UserLogon(2,SYSTEM_OPERATOR,QUICK_PURCHASE));
end;
inc(j);
end;
PC.DirectMSG(DATA_RETURN_MSG,DATA_QUICK_ADD_SUCCESSFUL);
ExcelApp.ActiveWorkBook.Saved := True;
ExcelApp.WorkBooks.Close;
ExcelApp.Quit;
ExcelApp:=Unassigned;
RefreshGrid(0);
Result := 0;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/104505.html
標籤：數據庫相關
上一篇：有大神用過FindNodeByText這個屬性嗎？dev控制元件的
下一篇：delphi cxgrid 對齊