知识大全 经典案例 财务管理系统（7）[2]
Posted 知
篇首语：举世皆浊我独清，众人皆醉我独醒。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 经典案例 财务管理系统（7）[2]相关的知识，希望对你有一定的参考价值。
——此文章摘自《Delphi 数据库开发经典案例解析》定价 ￥ 特价 ￥ 购买>>para:Ttable;
function FindForm(caption:string):bool;
procedure setpara();
end;
var
main: Tmain;
para:Ttable;
implementation
$R * dfm
uses SecSettingForm AccountSettingForm DocuInputForm TotalAccountForm
DetailAccountForm SumAccountForm FinalReportForm;
// 通过用户定义的函数 判断窗体是否存在
function Tmain FindForm(caption: string): bool;
var
i:integer;
begin
for i:= to main MDIChildCount do
begin
// 通过对窗体标题判断窗体是否存在
if main MDIChildren[i] Caption=caption then
begin
//如果窗体已存在 则恢复窗体 并返回true
SendMessage(mdichildren[i] Handle WM_SYSMAND SC_restore );
mdichildren[i] Enabled:=true;
mdichildren[i] Show;
mdichildren[i] SetFocus;
result:=true;
break;
end
else
//如窗体不存在 则返回false 程序将创建窗体
result:=false;
end
end;
// 该函数的作用是保存系统参数表中的参数 并在调用前更新
procedure Tmain setpara;
var
i:integer;
begin
adoquery Active:=false;
adoquery Active:=true;
i:= ;
while not adoquery Eof do
begin
//保存系统参数
para[i]:=adoquery FieldByName( 取值 ) AsString;
i:=i+ ;
adoquery Next;
end;
end;
// 显示会计科目设置窗体
procedure Tmain N Click(Sender: TObject);
var
newform:TSecSetting;
begin
if findForm( 会计科目设置 )=false then
begin
//若窗体不存在 则创建窗体
newform:=Tsecsetting Create(application);
newform Caption:= 会计科目设置 ;
end;
end;
// 显示帐户设置窗体
procedure Tmain N Click(Sender: TObject);
var
newform:TaccountSetting;
begin
if findForm( 帐户设置(期初数据录入) )=false then
begin
//若窗体不存在 则创建窗体
newform:=TaccountSetting Create(application);
newform Caption:= 帐户设置(期初数据录入) ;
end;
end;
// 显示凭证设置窗体
procedure Tmain N Click(Sender: TObject);
var
newform:TDocuInput;
begin
if findForm( 会计凭证输入 )=false then
begin
//若窗体不存在 则创建窗体
newform:=Tdocuinput Create(application);
newform Caption:= 会计凭证输入 ;
end;
end;
// 显示总分类帐查询窗体
procedure Tmain N Click(Sender: TObject);
var
newform:Ttotalaccount;
begin
if findForm( 总分类帐查询 )=false then
begin
//若窗体不存在 则创建窗体
newform:=Ttotalaccount Create(application);
newform Caption:= 总分类帐查询 ;
end;
end;
// 显示明细帐查询窗体
procedure Tmain N Click(Sender: TObject);
var
newform:Tdetailaccount;
begin
if findForm( 明细帐查询 )=false then
begin
//若窗体不存在 则创建窗体
newform:=Tdetailaccount Create(application);
newform Caption:= 明细帐查询 ;
end;
end;
[ ] [ ] [ ] [ ]
cha138/Article/program/Delphi/201311/25046相关参考
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> //资产负债报表的生成和打印 procedureTmain
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> ()利用系统默认生成的窗体作为主窗体并为其添加主菜单控件和其
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> 财务管理作为企业管理的组成部分与经济价值或财富的保值增值有关
//查询数据并显示 procedureTDocuInputBitBtnClick(Sender:TObject); begin adoqueryClose; adoquerySQLClea
//为凭证录入分录表 procedureTDocuInputBitBtnClick(Sender:TObject); begin datasourceDataSetDelete; end;
//设置关闭窗体的模式 procedureTSecSettingFormClose(Sender:TObject;varAction:TCloseAction); begin action:
//设置工具栏按钮 procedureTDocuInputSetToolBar(isEnable:bool); begin ifisEnable=truethen begin //将首记
()设置凭证输入窗体的代码如下 public Publicdeclarations procedureSetToolBar(isEnable:bool); procedureSum
//初始化表的设置 procedureTSumAccountFormShow(Sender:TObject); begin //设置表格表头显示与宽度 stringgridCells[]:
这些方法反映了会计核算过程在会计核算过程中填制和审核会计凭证是开始环节登记会计帐簿是中间环节编制会计报表是终结环节在一个会计期间所发生的所有经济业务都要经这三个环节进行处理将大量的经济业务转换为系