知识大全 经典案例 财务管理系统（7）[2]

Posted 2022-07-21 知

篇首语：举世皆浊我独清，众人皆醉我独醒。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 经典案例 财务管理系统（7）[2]相关的知识，希望对你有一定的参考价值。

　　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;

[ ]  [ ]  [ ]  [ ]  

相关参考