|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>> 总分类帐查询和明细帐查询的区别在于前者是查询科目的汇总信息后者是查询科目在当前会计期间发生的每一笔业务及其余额 () 新建一个窗体将窗体的Name属性设置为DetailAccount选择Project | Options菜单命令将DetailAccount窗体从自动创建的窗体列表中删除将窗体保存为DetailAccountFormpas该窗体的控件布局和设置如图所示 图 明细帐查询窗体 () 该窗体的控件属性设置如表所示 () 该窗体的代码如下所示 //添加列表框中项目的函数 procedure setlist(); end; var DetailAccount: TDetailAccount; implementation {$R *dfm} procedure TDetailAccountFormClose(Sender: TObject; var Action: TCloseAction); begin action:=cafree; end; //设置表宽度 procedure TDetailAccountDataSourceDataChange(Sender: TObject; Field: TField); begin //显示数据数量 labelCaption:=inttostr(adoqueryRecordCount); //设置数据表宽度 dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; end; //首记录 procedure TDetailAccountToolButtonClick(Sender: TObject); begin datasourceDataSetFirst; end; //上记录 procedure TDetailAccountToolButtonClick(Sender: TObject); begin datasourceDataSetPrior; end; //下记录 procedure TDetailAccountToolButtonClick(Sender: TObject); begin datasourceDataSetNext; end; //尾记录 procedure TDetailAccountToolButtonClick(Sender: TObject); begin datasourceDataSetLast; end; procedure TDetailAccountToolButtonClick(Sender: TObject); begin close; end; [] [] |
