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

經典案例 財務管理系統(14)[2]

2013-11-23 17:40:24  來源: Delphi編程 

() 設置憑證輸入窗體的代碼如下

 

  public

  { Public declarations }

  procedure SetToolBar(isEnable:bool);

  procedure SumAccount();

  //執行新增和編輯操作後保存時會執行不同的代碼

  procedure OpType(opname:string);

  end;

  //對將要從dll中的調用的函數的聲明

  type

  Tshowdllform=function(Ahandle:Thandle; Acaption:string; tablename:string):string; stdcall;

  Ttable=array[] of string;

  var

  DocuInput: TDocuInput;

  maxnumrecordnumcurRowcurCol:integer;

  mytable:Ttable;

  op:string;

  implementation

  {$R *dfm}

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

  begin

  action:=cafree;

  end;

  //初始化表

  procedure TDocuInputDataSourceDataChange(Sender: TObject;

  Field: TField);

  var

  ij:integer;

  begin

  //設置數據表寬度

  dbgridColumns[]Width:=;

  dbgridColumns[]Width:=;

  dbgridColumns[]Width:=;

  //顯示與憑證編號對應的分錄表

  adoqueryClose;

  adoquerySQLClear;

  adoquerySQLAdd(select distinct a*c科目名稱 from 分錄表 a憑證表 b科目表 c

  where (a憑證編號=+dbeditText+)and(a科目代碼=c科目代碼) order by 編號);

  adoqueryOpen;

  //初始化表將表格清空

  for i:= to do

  for j:= to do

  if op<>insert then

  stringgridCells[ji]:=;

  //將分錄表數據讀入表格並保存編號數據以供後面的數據庫操作使用

  i:=;

  recordnum:=;

  while not adoqueryEof do

  begin

  stringgridCells[i]:=adoqueryfieldbyname(科目代碼)AsString;

  stringgridCells[i]:=adoqueryfieldbyname(科目名稱)AsString;

  stringgridCells[i]:=adoqueryfieldbyname(借方)AsString;

  stringgridCells[i]:=adoqueryfieldbyname(貸方)AsString;

  stringgridCells[i]:=adoqueryfieldbyname(摘要)AsString;

  mytable[i]:=adoqueryfieldbyname(編號)AsString;

  i:=i+;

  recordnum:=recordnum+;

  adoqueryNext;

  end;

  //設置分錄表的列寬度

  stringgridColWidths[]:=;

  stringgridColWidths[]:=;

  stringgridColWidths[]:=;

  stringgridColWidths[]:=;

  stringgridColWidths[]:=;

  //顯示憑證數

  labelCaption:=inttostr(datasourceDataSetRecordCount);

  end;

[]  []  []  


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