單物料進倉
ADOStoredProc1:commandtext does not return a result set
procedure TForm11.Button1Click(Sender: TObject);
var
s2,d1:string;
//t1,t2:int64;
begin
d1:=Formatdatetime('YYMMDD', Now) ;
with ADOquery1 do
begin
Close;
sql.Clear;
sql.Add('select max(進倉單號) as maxno from rj100204_進倉表 where 進倉單號 LIKE ''%'+d1+'%''' );
open;
end;
if ADOquery1.fieldbyname('maxno').asstring ='' then
begin
s2:=d1+'01';
end ;
ADOStoredProc1.Close;
ADOStoredProc1.Parameters.Clear;
ADOStoredProc1.ProcedureName:='j100404進倉';
ADOStoredProc1.Prepared;
//ADOStoredProc1.Parameters.Refresh;
ADOStoredProc1.Parameters.ParamByName('@out').Value:='''';
ADOStoredproc1.Parameters.ParamByName('@進倉單號').Value:=s2 ;
ADOStoredProc1.Parameters.ParamByName('@進倉日期').Value := formatdatetime('yyyy-MM-dd',now);
ADOStoredProc1.Parameters.ParamByName('@操作人員代碼').Value := ComboBox1.Text;
ADOStoredProc1.Parameters.ParamByName('@備注').Value := Edit3.Text;
ADOStoredProc1.Parameters.ParamByName('@物料代碼').Value := ComboBox2.Text;
ADOStoredProc1.Parameters.ParamByName('@物料名稱').Value := ComboBox3.Text;
ADOStoredProc1.Parameters.ParamByName('@進倉數量').Value:=edit1.Text;
ADOStoredproc1.ExecProc ;
label2.Caption:='顯示結果: '+ADOStoredproc1.Parameters.ParamByName('@out').Value;
end;
end.
存盤程序一直連不上
uj5u.com熱心網友回復：
和你存盤程序有關系，看看是否又回傳引數uj5u.com熱心網友回復：
先在資料庫里面測驗下資料。然后在呼叫就知道了。在呼叫的時候showmessage（）；看呼叫是否正確。uj5u.com熱心網友回復：
中文變數名，中文函式名都不怎么科學的換英文的試試，
把j100404進倉 內容貼上來
uj5u.com熱心網友回復：
不明白什么叫聯不上..轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/143621.html
標籤：數據庫相關
上一篇：Win7能安裝delphi7嗎
下一篇：檔案相關應用,有問題