prodc.txt

delphi的一个开发实例

  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;