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

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

2013-11-23 17:45:39  來源: Delphi編程 

  //設置工具欄按鈕

  procedure TDocuInputSetToolBar(isEnable: bool);

  begin

  if isEnable=true then

  begin

  //將首記錄等記錄移動按鈕設置為不可用

  toolbuttonEnabled:=false;

  toolbuttonEnabled:=false;

  toolbuttonEnabled:=false;

  toolbuttonEnabled:=false;

  //將新增修改等按鈕設置為不可用

  toolbuttonEnabled:=false;

  toolbuttonEnabled:=false;

  toolbuttonEnabled:=false;

  //將保存和取消按鈕設置為可用

  toolbuttonEnabled:=true;

  toolbuttonEnabled:=true;

  //將窗體內的數據顯示控件設為可修改

  dbeditEnabled:=true;

  dbeditEnabled:=true;

  dbcomboboxEnabled:=true;

  stringgridEnabled:=true;

  dbgridEnabled:=false;

  end;

  if isEnable=false then

  begin

  //將首記錄等記錄移動按鈕設置為可用

  toolbuttonEnabled:=true;

  toolbuttonEnabled:=true;

  toolbuttonEnabled:=true;

  toolbuttonEnabled:=true;

  //將新增修改等按鈕設置為可用

  toolbuttonEnabled:=true;

  toolbuttonEnabled:=true;

  toolbuttonEnabled:=true;

  //將保存和取消按鈕設置為不可用

  toolbuttonEnabled:=false;

  toolbuttonEnabled:=false;

  //將窗體內的數據顯示控件設為不可修改

  dbeditEnabled:=false;

  dbeditEnabled:=false;

  dbcomboboxEnabled:=false;

  dbgridEnabled:=true;

  stringgridEnabled:=false;

  end;

  end;

  //新增記錄

  procedure TDocuInputToolButtonClick(Sender: TObject);

  var

  totalnum:string;

  begin

  //刷新數據得到憑證數據中最大編碼並加一防止編碼重復

  adoqueryClose;

  adoquerySQLClear;

  adoquerySQLAdd(select max(憑證編號) 最大編號 from 憑證表);

  adoqueryOpen;

  totalnum:=adoqueryFieldByName(最大編號)Asstring;

  totalnum:=copy(totalnum);

  if totalnum= then totalnum:=;

  totalnum:=inttostr(strtoint(totalnum)+);

  //開始新增

  SetToolBar(true);

  datasourceDataSetInsert;

  //組成六位的憑證編碼

  if length(totalnum)= then

  dbeditText:=+totalnum;

  if length(totalnum)= then

  dbeditText:=+totalnum;

  if length(totalnum)= then

  dbeditText:=+totalnum;

  //默認憑證字號

  dbcomboboxSelText:=;

  //加入當前日期

  dbeditText:=datetostr(date);

  //默認會計期間

  mainsetpara;

  dbeditText:=mainpara[];

  //默認過帳狀態

  dbeditText:=未過;

  //設置操作類型

  op:=insert;

  end;

[]  []  


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