完成明細帳查詢功能[1]

    ——此文章摘自《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;

[]  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/25014.html