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

完成總分類帳查詢功能

2013-11-23 17:45:07  來源: Delphi編程 
    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價 特價 購買>>

  () 新建一個窗體將窗體的Name屬性設置為TotalAccount選擇Project | Options菜單命令將TotalAccount窗體從自動創建的窗體列表中刪除將窗體保存為TotalAccount Formpas該窗體的控件布局和設置如圖所示

  圖 總分類帳查詢窗體

  () 窗體控件屬性設置如表所示

  總分類查詢主要實現的是查詢總分類帳不需要編輯所以【編輯】【新增】等按鈕在這裡用不到設置為false同時由於憑證過帳時將大量沒有發生金額的數據也放入了數據表中為了用戶查閱時方便這裡設置了一個過濾數據的功能當窗體中的【無發生金額不顯示】單選框被選中時只有余額不為的數據項被顯示在表格中該窗體的處理代碼如下所示

  implementation

  {$R *dfm}

  procedure TTotalAccountFormClose(Sender: TObject; var Action: TCloseAction);

  begin

  action:=cafree;

  end;

  //設置表的寬度

  procedure TTotalAccountDataSourceDataChange(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 TTotalAccountToolButtonClick(Sender: TObject);

  begin

  datasourceDataSetFirst;

  end;

  //上記錄

  procedure TTotalAccountToolButtonClick(Sender: TObject);

  begin

  datasourceDataSetPrior;

  end;

  //下記錄

  procedure TTotalAccountToolButtonClick(Sender: TObject);

  begin

  datasourceDataSetNext;

  end;

  //尾記錄

  procedure TTotalAccountToolButtonClick(Sender: TObject);

  begin

  datasourceDataSetLast;

  end;

  procedure TTotalAccountToolButtonClick(Sender: TObject);

  begin

  close;

  end;

  //查詢數據並顯示

  procedure TTotalAccountBitBtnClick(Sender: TObject);

  begin

  adoqueryClose;

  adoquerySQLClear;

  adoquerySQLAdd(select a*b科目名稱 from 本期匯總帳簿 a科目表 b

  where (a科目代碼 like %+editText+%)and);

  adoquerySQLAdd((a科目代碼=b科目代碼));

  adoqueryOpen;

  end;

  //根據用戶的操作對表中的數據進行過濾

  procedure TTotalAccountCheckBoxClick(Sender: TObject);

  begin

  if checkboxChecked then

  begin

  datasourceDataSetFilter:=余額<>;

  datasourceDataSetFiltered:=true;

  end

  else

  datasourceDataSetFiltered:=false;

  end;


From:http://tw.wingwit.com/Article/program/Delphi/201311/25021.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.