//
procedure TDocuInput
begin
if isEnable=true then
begin
//將首記錄等記錄移動按鈕設置為不可用
toolbutton
toolbutton
toolbutton
toolbutton
//將新增
toolbutton
toolbutton
toolbutton
//將保存和取消按鈕設置為可用
toolbutton
toolbutton
//將窗體內的數據顯示控件設為可修改
dbedit
dbedit
dbcombobox
stringgrid
dbgrid
end;
if isEnable=false then
begin
//將首記錄等記錄移動按鈕設置為可用
toolbutton
toolbutton
toolbutton
toolbutton
//將新增
toolbutton
toolbutton
toolbutton
//將保存和取消按鈕設置為不可用
toolbutton
toolbutton
//將窗體內的數據顯示控件設為不可修改
dbedit
dbedit
dbcombobox
dbgrid
stringgrid
end;
end;
//
procedure TDocuInput
var
totalnum:string;
begin
//刷新數據
adoquery
adoquery
adoquery
adoquery
totalnum:=adoquery
totalnum:=copy(totalnum
if totalnum=
totalnum:=inttostr(strtoint(totalnum)+
//開始新增
SetToolBar(true);
datasource
//組成六位的憑證編碼
if length(totalnum)=
dbedit
if length(totalnum)=
dbedit
if length(totalnum)=
dbedit
//默認憑證字號
dbcombobox
//加入當前日期
dbedit
//默認會計期間
main
dbedit
//默認過帳狀態
dbedit
//設置操作類型
op:=
end;
[
From:http://tw.wingwit.com/Article/program/Delphi/201311/25032.html