經典案例 財務管理系統（14）[3]

　　//設置工具欄按鈕

　　procedure TDocuInputSetToolBar(isEnable: bool);

　　begin

　　if isEnable=true then

　　begin

　　//將首記錄等記錄移動按鈕設置為不可用

　　toolbuttonEnabled:=false;

　　toolbuttonEnabled:=false;

　　toolbuttonEnabled:=false;

　　toolbuttonEnabled:=false;

　　//將新增修改等按鈕設置為不可用

　　toolbuttonEnabled:=false;

　　toolbuttonEnabled:=false;

　　toolbuttonEnabled:=false;

　　//將保存和取消按鈕設置為可用

　　toolbuttonEnabled:=true;

　　toolbuttonEnabled:=true;

　　//將窗體內的數據顯示控件設為可修改

　　dbeditEnabled:=true;

　　dbeditEnabled:=true;

　　dbcomboboxEnabled:=true;

　　stringgridEnabled:=true;

　　dbgridEnabled:=false;

　　end;

　　if isEnable=false then

　　begin

　　//將首記錄等記錄移動按鈕設置為可用

　　toolbuttonEnabled:=true;

　　toolbuttonEnabled:=true;

　　toolbuttonEnabled:=true;

　　toolbuttonEnabled:=true;

　　//將新增修改等按鈕設置為可用

　　toolbuttonEnabled:=true;

　　toolbuttonEnabled:=true;

　　toolbuttonEnabled:=true;

　　//將保存和取消按鈕設置為不可用

　　toolbuttonEnabled:=false;

　　toolbuttonEnabled:=false;

　　//將窗體內的數據顯示控件設為不可修改

　　dbeditEnabled:=false;

　　dbeditEnabled:=false;

　　dbcomboboxEnabled:=false;

　　dbgridEnabled:=true;

　　stringgridEnabled:=false;

　　end;

　　end;

　　//新增記錄

　　procedure TDocuInputToolButtonClick(Sender: TObject);

　　var

　　totalnum:string;

　　begin

　　//刷新數據得到憑證數據中最大編碼並加一防止編碼重復

　　adoqueryClose;

　　adoquerySQLClear;

　　adoquerySQLAdd(select max(憑證編號) 最大編號 from 憑證表);

　　adoqueryOpen;

　　totalnum:=adoqueryFieldByName(最大編號)Asstring;

　　totalnum:=copy(totalnum);

　　if totalnum= then totalnum:=;

　　totalnum:=inttostr(strtoint(totalnum)+);

　　//開始新增

　　SetToolBar(true);

　　datasourceDataSetInsert;

　　//組成六位的憑證編碼

　　if length(totalnum)= then

　　dbeditText:=+totalnum;

　　if length(totalnum)= then

　　dbeditText:=+totalnum;

　　if length(totalnum)= then

　　dbeditText:=+totalnum;

　　//默認憑證字號

　　dbcomboboxSelText:=收;

　　//加入當前日期

　　dbeditText:=datetostr(date);

　　//默認會計期間

　　mainsetpara;

　　dbeditText:=mainpara[];

　　//默認過帳狀態

　　dbeditText:=未過;

　　//設置操作類型

　　op:=insert;

　　end;

[]  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24866.html