熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

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

2013-11-23 17:45:01  來源: Delphi編程 
    ——此文章摘自《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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.