|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>> 完成帐户设置功能 () 新建一个窗体将窗体的Name属性设置为AccountSetting选择Project | Options菜单命令将SecSetting窗体从自动创建的窗体列表中删除将窗体保存为AccountSettingFormpas该窗体的控件布局和设置如图所示其中所有ADO控件的ConnectionString在前面几章中已多次提及因此在此后的内容中将不再一一列出它们的此项属性 图 帐户设置窗体 () 窗体的控件设置如表所示 表 帐户设置窗体控件属性 () 分别双击DBGrid和DBGrid为其指定显示的字段如图所示 图 DBGrid和DBGrid的字段 () 将科目代码科目名称余额方向和编号参数名称字段的ReadOnly属性设置为true因为这些字段是不允许用户修改的;将这些字段的Color属性设置为clMoneyGreen从而和可编辑的字段区分开来 单击【试算平衡】按钮将创建一个新的窗体来显示初始化帐本后试算平衡的结果这个新窗体还同时担负显示过帐后试算平衡的结果因此需要专门设计 () 新建一个窗体名为SumAccount将它从自动创建的窗体列表中删除并为其添加如图所示的控件控件属性如表所示 图 试算平衡窗体 表 试算平衡窗体控件属性设置 () 试算平衡表和帐户设置窗体的的事件处理代码如下 //以下为试算平衡表的事件处理代码 private { Private declarations } //统计计算是否平衡 procedure sumtable(); public { Public declarations } //当使用后结帐时所调用的函数 procedure foruse(); //初始化帐本时使用 procedure forinitial(); end; var SumAccount: TSumAccount; implementation uses MainForm; {$R *dfm} procedure TSumAccountFormClose(Sender: TObject; var Action: TCloseAction); begin action:=cafree; end; //设置窗体宽度和过滤条件 procedure TSumAccountDataSourceDataChange(Sender: TObject; Field: TField); begin //设置过滤条件 datasourceDataSetFilter:=本期发生借方<> OR 本期发生贷方<> OR 期初借方<> OR 期初贷方<> OR 期末借方<> OR 期末贷方<>; datasourceDataSetFiltered:=true; //设置表的列宽 dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; end; [] [] [] [] |
