?? 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;
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -