基于企业集成环境下生成分析ERP财务总账管理子系统附件.doc

PAGE 30 PAGE 31 附录 系统部分重要代码 应用于资产负债表的功能窗体： private { Private declarations } //统计计算是否平衡 procedure sumtable(); public { Public declarations } //当使用后结帐时所调用的函数 procedure foruse(); //初始化帐本时使用 procedure forinitial(); end; var SumAccount: TSumAccount; implementation uses MainForm; {$R *.dfm} procedure TSumAccount.FormClose(Sender: TObject; var Action: TCloseAction); begin action:=cafree; end; procedure TSumAccount.DataSource1DataChange(Sender: TObject; Field: TField); begin //设置过滤条件 datasource1.DataSet.Filter:=本期发生借方0 OR 本期发生贷方0 OR 期初借方0 OR 期初贷方0 OR 期末借方0 OR 期末贷方0; datasource1.DataSet.Filtered:=true; //设置表的列宽 dbgrid1.Columns[0].Width:=48; dbgrid1.Columns[1].Width:=100; dbgrid1.Columns[2].Width:=64; dbgrid1.Columns[3].Width:=64; dbgrid1.Columns[4].Width:=64; dbgrid1.Columns[5].Width:=64; dbgrid1.Columns[6].Width:=64; dbgrid1.Columns[7].Width:=64; end; //初始化表的设置 procedure TSumAccount.FormShow(Sender: TObject); begin //设置表格表头显示与宽度 stringgrid1.Cells[1,0]:=是否平衡; stringgrid1.Cells[2,0]:=期初借方; stringgrid1.Cells[3,0]:=期初贷方; stringgrid1.Cells[4,0]:=本期发生借方; stringgrid1.Cells[5,0]:=本期发生贷方; stringgrid1.Cells[6,0]:=期末借方; stringgrid1.Cells[7,0]:=期末贷方; stringgrid1.Cells[0,1]:=合计; stringgrid1.ColWidths[0]:=48; stringgrid1.ColWidths[1]:=64; stringgrid1.ColWidths[2]:=64; stringgrid1.ColWidths[3]:=64; stringgrid1.ColWidths[4]:=128; stringgrid1.ColWidths[5]:=128; stringgrid1.ColWidths[6]:=64; stringgrid1.ColWidths[7]:=64; stringgrid1.RowHeights[0]:=20; stringgrid1.RowHeights[1]:=20; end; //在初始化时统计工作的完成 procedure TSumAccount.forinitial; begin //根据不同的状态设置SQL代码，以计算不同的平衡情况 adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(select 科目代码, 科目名称,); adoquery1.SQL.Add((case when 余额方向=借方 then 期初余额 else 0 end - 累计借方)); adoquery1.SQL.Add(as 期初借方,); adoquery1.SQL.Add((case when 余额方向=贷方 then 期初余额 else 0 end - 累计贷方)); adoquery1.SQL.Add( as 期初贷方,); adoquery1.SQL.Add(累计借方 as 本期发生借方,累计贷方 as 本期发生贷方,); adoquery1.SQL.Add( case when 余额方向=借方 then