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