procedure TXSXX_Win.Button8Click(Sender: TObject);
var
XBBH,SSBH,BJBH,ZYBH,BGNR_Var:string;
Return_Var:integer;
begin
XSXX_StoredProc.Close;
XSXX_StoredProc.UnPrepare;
XSXX_StoredProc.Params[1].AsString:=XH_Edit.Text ;
XSXX_StoredProc.Params[2].AsString:=XM_Edit.Text ;
XSXX_StoredProc.Params[3].AsString:=XB_Combox.Text ;
XSXX_StoredProc.Params[4].AsString:=JG_Edit.Text ;
XSXX_StoredProc.Params[5].AsDate:=CSRQ_DTPicker.DateTime;
XSXX_StoredProc.Params[6].AsString:=ZZMM_Edit.Text ;
XSXX_StoredProc.Params[7].AsDateTIME:=RXSJ_DTPicker.DateTime;
XSXX_StoredProc.Params[8].AsString:=BJBH;
XSXX_StoredProc.Params[9].AsString:=SSBH;
XSXX_StoredProc.Params[10].AsString:=DZ_Edit.Text ;
XSXX_StoredProc.Params[11].AsString:=TEL_Edit.Text ;
XSXX_StoredProc.Params[12].AsString:=MAIL_Edit.Text;
XSXX_StoredProc.Params[13].AsString:=Main_Win.U_Info.UserName;
XSXX_StoredProc.Params[14].AsDateTIME:=Main_WIn.U_Info.Now_Var;
if Add_Tag=1 then//Ìí¼Ó
begin
XSXX_StoredProc.Params[20].AsInteger :=1;
XSXX_StoredProc.Prepare;
XSXX_StoredProc.ExecProc ;
//运行到这里的时候。错误提示,无效的数据格式,可是我没有找到那里错误啊 Return_Var:=XSXX_StoredProc.Params[20].AsInteger;
XSXX_StoredProc.UnPrepare ;
XSXX_StoredProc.Close;
end
var
XBBH,SSBH,BJBH,ZYBH,BGNR_Var:string;
Return_Var:integer;
begin
XSXX_StoredProc.Close;
XSXX_StoredProc.UnPrepare;
XSXX_StoredProc.Params[1].AsString:=XH_Edit.Text ;
XSXX_StoredProc.Params[2].AsString:=XM_Edit.Text ;
XSXX_StoredProc.Params[3].AsString:=XB_Combox.Text ;
XSXX_StoredProc.Params[4].AsString:=JG_Edit.Text ;
XSXX_StoredProc.Params[5].AsDate:=CSRQ_DTPicker.DateTime;
XSXX_StoredProc.Params[6].AsString:=ZZMM_Edit.Text ;
XSXX_StoredProc.Params[7].AsDateTIME:=RXSJ_DTPicker.DateTime;
XSXX_StoredProc.Params[8].AsString:=BJBH;
XSXX_StoredProc.Params[9].AsString:=SSBH;
XSXX_StoredProc.Params[10].AsString:=DZ_Edit.Text ;
XSXX_StoredProc.Params[11].AsString:=TEL_Edit.Text ;
XSXX_StoredProc.Params[12].AsString:=MAIL_Edit.Text;
XSXX_StoredProc.Params[13].AsString:=Main_Win.U_Info.UserName;
XSXX_StoredProc.Params[14].AsDateTIME:=Main_WIn.U_Info.Now_Var;
if Add_Tag=1 then//Ìí¼Ó
begin
XSXX_StoredProc.Params[20].AsInteger :=1;
XSXX_StoredProc.Prepare;
XSXX_StoredProc.ExecProc ;
//运行到这里的时候。错误提示,无效的数据格式,可是我没有找到那里错误啊 Return_Var:=XSXX_StoredProc.Params[20].AsInteger;
XSXX_StoredProc.UnPrepare ;
XSXX_StoredProc.Close;
end
XSXX_StoredProc.Params[7].AsDateTIME:=RXSJ_DTPicker.DateTime;
XSXX_StoredProc.Params[14].AsDateTIME:=Main_WIn.U_Info.Now_Var;
第一句和后两句有什么区别吗?
为什么不一样?