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