www.gusucode.com > 精典源码Delphi134:大型超市销售连锁管理系统 > 精典源码Delphi134:大型超市销售连锁管理系统/11055大型超市销售连锁管理系统/GD_2004销销售连锁管理系统服务器/Prodc.txt
2: begin with dmMain.aspTemp do begin Close; ProcedureName:='ModifyBatchGuest'; Parameters.Clear; Parameters.CreateParameter('@Id',ftInteger,pdInput,4,dmMain.aqrBatchGuest.FieldByName('id').AsInteger); Parameters.CreateParameter('@Code',ftString,pdInput,30,edtCode.Text); Parameters.CreateParameter('@FullName',ftString,pdInput,40,edtFullName.Text); Parameters.CreateParameter('@Name',ftString,pdInput,40,edtName.Text); Parameters.CreateParameter('@Area',ftString,pdInput,20,dpkArea.Text); Parameters.CreateParameter('@Province',ftString,pdInput,20,dpkProvince.Text); Parameters.CreateParameter('@City',ftString,pdInput,20,edtCity.Text); Parameters.CreateParameter('@Address',ftString,pdInput,40,edtAddress.Text); Parameters.CreateParameter('@PostCode',ftString,pdInput,6,edtPostCode.Text); Parameters.CreateParameter('@LinkMan',ftString,pdInput,20,edtLinkMan.Text); Parameters.CreateParameter('@Tel',ftString,pdInput,15,edtTel.Text); Parameters.CreateParameter('@Fax',ftString,pdInput,15,edtFax.Text); parameters.CreateParameter('@HandSet',ftstring,pdInput,15,edtHandSet.Text); Parameters.CreateParameter('@Credit',ftString,pdInput,20,edtCredit.Text); Parameters.CreateParameter('@Accounts',ftString,pdInput,20,edtAccount.Text); Parameters.CreateParameter('@Bank',ftString,pdInput,30,edtBank.Text); Parameters.CreateParameter('@operater',ftString,pdInput,20,dbeOperater.Text); Parameters.CreateParameter('@Remark',ftString,pdInput,100,edtRemark.Text); Prepared; ExecProc; end; Close; end; end; end;