frmbank.pas

里面有个人一天消费管理

unit frmBank;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzRadChk, RzSpnEdt, RzButton, StdCtrls, DBCtrls, RzDBEdit, RzCmboBx,
  RzDBCmbo, Mask, RzEdit, ExtCtrls, Grids, DBGrids, RzDBGrid, RzLabel, RzPanel,
  ImgList;

type
  TNowDataStatus=set of (ndsNormal,ndsAppend,ndsModify);

type
  TBankFm = class(TForm)
    ImgLst: TImageList;
    panChild: TRzPanel;
    lbl_bank_list: TRzLabel;
    DbGrd_Bank: TRzDBGrid;
    Pnl_Left: TRzPanel;
    Pnl_Left_Top: TRzPanel;
    lbl_bank: TRzLabel;
    Img_Bank: TImage;
    Pnl_Left_Middle: TRzPanel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel5: TRzLabel;
    RzLabel6: TRzLabel;
    RzLabel7: TRzLabel;
    Pnl_Left_Bottom: TRzPanel;
    Btn_New: TRzBitBtn;
    Btn_Edit: TRzBitBtn;
    Btn_Del: TRzBitBtn;
    Radio_Btn_all: TRzRadioButton;
    Radio_Btn_bank: TRzRadioButton;
    CmbBx_Banklst: TRzComboBox;
    CmbBx_Renyuan: TRzDBComboBox;
    CmbBx_Kahao: TRzDBComboBox;
    CmbBx_Xiangmu: TRzDBComboBox;
    Edit_Jine: TRzDBEdit;
    Memo_Beizhu: TRzDBMemo;
    cmdClose: TRzButton;
    CmbBx_Riqi: TRzDBDateTimeEdit;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure CmbBx_BanklstChange(Sender: TObject);
    procedure Radio_Btn_bankClick(Sender: TObject);
    procedure Radio_Btn_allClick(Sender: TObject);
    procedure Btn_DelClick(Sender: TObject);
    procedure Btn_EditClick(Sender: TObject);
    procedure Btn_NewClick(Sender: TObject);
    procedure FirstRun;
    procedure cmdCloseClick(Sender: TObject);
  private
    { Private declarations }
    NowDataStatus:TNowDataStatus;
    procedure ChangeDisplayStatus(const AValue:TNowDataStatus);
  public
    { Public declarations }
  end;

var
  BankFm: TBankFm;

implementation

uses Common, frmdata, frmmain;

{$R *.dfm}

procedure TBankFm.FirstRun;
begin
  MainFm.RzProgressStatus1.Percent:=10;
  BankFm.ChangeDisplayStatus([ndsNormal]);
  MainFm.RzProgressStatus1.Percent:=20;
  AddRenYuan(CmbBx_Renyuan);
  MainFm.RzProgressStatus1.Percent:=30;
  CmbBx_Renyuan.Text:=datafm.Tbl_Bank.FieldByName('renyuan').AsString;
  MainFm.RzProgressStatus1.Percent:=40;
  CmbBx_Kahao.Clear;
  MainFm.RzProgressStatus1.Percent:=50;
  CmbBx_Kahao.Items.AddStrings(GettwoFieldValue(datafm.Tbl_Bank_Option,'yhmc','zh'));
  MainFm.RzProgressStatus1.Percent:=60;
  CmbBx_Kahao.Text:=datafm.Tbl_Bank.FieldByName('kahao').AsString;
  MainFm.RzProgressStatus1.Percent:=70;
  CmbBx_Banklst.Clear;
  MainFm.RzProgressStatus1.Percent:=80;
  CmbBx_Banklst.Items.AddStrings(GettwoFieldValue(datafm.Tbl_Bank_Option,'yhmc','zh'));
  MainFm.RzProgressStatus1.Percent:=90;
  CmbBx_Banklst.Text:=CmbBx_Banklst.Items[0];
  MainFm.RzProgressStatus1.Percent:=100;
  Timer1.Enabled:=true;
  
end;

procedure TBankFm.Radio_Btn_allClick(Sender: TObject);
begin
  CmbBx_Banklst.Enabled:=not(Radio_Btn_all.Checked);
  DbGrd_Bank.DataSource:=DataFm.Ds_bank;
end;

procedure TBankFm.Radio_Btn_bankClick(Sender: TObject);
var BankName:string;
begin
  CmbBx_Banklst.Enabled:=Radio_Btn_bank.Checked;
  DbGrd_Bank.DataSource:=DataFm.DsBankList;
  BankName:=CmbBx_Banklst.Text;
  with DataFm.QryBankList do
  begin
    close;
    sql.clear;
    sql.Add('select * from Bank where kahao ='+''''+BankName+ ''''+'Order By riqi Asc');
    open;
  end;
end;

procedure TBankFm.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag:=Timer1.Tag+1;
  if Timer1.Tag>0 then
  begin
    MainFm.RzProgressStatus1.Percent:=0;
    Timer1.Enabled:=false;
    Timer1.Tag:=0;
  end;
end;

procedure TBankFm.Btn_DelClick(Sender: TObject);
var
    strDeleteConfimInfo:string;
    intResult:Integer;
begin
  if BankFm.NowDataStatus=[ndsNormal] then
  begin
    strDeleteConfimInfo:='真的删除吗?';
    intResult:=MessageBox(Application.Handle,pchar(strDeleteConfimInfo),'确认',32+4);
    if intResult=mrYes then
      dataFm.tbl_bank.Delete;
  end
  else
  begin
    BankFm.ChangeDisplayStatus([ndsNormal]);
    dataFm.tbl_bank.Cancel;
  end;
end;

procedure TBankFm.Btn_EditClick(Sender: TObject);
begin
  if BankFm.NowDataStatus=[ndsNormal] then
  begin
    ChangeDisplayStatus([ndsModify]);
    dataFm.tbl_bank.Edit;
  end
  else
  begin
    if (BankFm.CmbBx_Riqi.Text='')
    or (BankFm.CmbBx_Renyuan.Text='')
    or (BankFm.CmbBx_Xiangmu.Text='')
    or (BankFm.CmbBx_kahao.Text='')
    or (BankFm.Edit_Jine.Text='') then
    begin
     showmessage('数据信息不全');
    end
    else
    begin
      ChangeDisplayStatus([ndsNormal]);
      dataFm.tbl_bank.post;
    end;
    end;
end;

procedure TBankFm.Btn_NewClick(Sender: TObject);
begin
  if BankFm.NowDataStatus=[ndsNormal] then
  begin
    ChangeDisplayStatus([ndsAppend]);
    dataFm.tbl_bank.Append;
  end
  else
  begin
    if (BankFm.CmbBx_Riqi.Text='')
    or (BankFm.CmbBx_Renyuan.Text='')
    or (BankFm.CmbBx_Xiangmu.Text='')
    or (BankFm.CmbBx_kahao.Text='')
    or (BankFm.Edit_Jine.Text='') then
    begin
    showmessage('数据信息不全');
    end
    else
    begin
    ChangeDisplayStatus([ndsNormal]);
    dataFm.tbl_bank.Post;
    end;
  end;
end;

procedure TBankFm.ChangeDisplayStatus(const AValue: TNowDataStatus);
begin
    if AValue=[ndsNormal] then
    begin
      Pnl_Left_Middle.Enabled:=False;
      Btn_New.Caption:='新建';
      Btn_New.Enabled:=true;
      Btn_New.ImageIndex:=0;
      Btn_New.DisabledIndex:=1;

      Btn_Edit.Caption:='修改';
      Btn_Edit.Enabled:=true;
      Btn_Edit.ImageIndex:=2;
      Btn_Edit.DisabledIndex:=3;

      Btn_Del.Caption:='删除';
      Btn_Del.Enabled:=true;
      Btn_Del.ImageIndex:=6;
      Btn_Del.DisabledIndex:=7;

      BankFm.NowDataStatus:=[ndsNormal];
    end;
    if AValue=[ndsAppend] then
    begin
      Pnl_Left_Middle.Enabled:=true;

      Btn_New.Caption:='保存';
      Btn_New.Enabled:=true;
      Btn_New.ImageIndex:=4;
      Btn_New.DisabledIndex:=5;

      Btn_Edit.Caption:='修改';
      Btn_Edit.Enabled:=false;
      Btn_Edit.ImageIndex:=2;
      Btn_Edit.DisabledIndex:=3;

      Btn_Del.Caption:='撤销';
      Btn_Del.Enabled:=true;
      Btn_Del.ImageIndex:=8;
      Btn_Del.DisabledIndex:=9;

      BankFm.NowDataStatus:=[ndsAppend];
    end;
    if AValue=[ndsModify] then
    begin
      Pnl_Left_Middle.Enabled:=true;

      Btn_New.Caption:='新建';
      Btn_New.Enabled:=false;
      Btn_New.ImageIndex:=0;
      Btn_New.DisabledIndex:=1;

      Btn_Edit.Caption:='保存';
      Btn_Edit.Enabled:=true;
      Btn_Edit.ImageIndex:=4;
      Btn_Edit.DisabledIndex:=5;

      Btn_Del.Caption:='撤销';
      Btn_Del.Enabled:=true;
      Btn_Del.ImageIndex:=8;
      Btn_Del.DisabledIndex:=9;

      BankFm.NowDataStatus:=[ndsModify];
    end;
end;

procedure TBankFm.CmbBx_BanklstChange(Sender: TObject);
var BankName:string;
begin
  BankName:=CmbBx_Banklst.Text;
  with DataFm.QryBankList do
  begin
    close;
    sql.clear;
    sql.Add('select * from Bank where kahao ='+''''+BankName+ ''''+'Order By riqi Asc');
    open;
  end;
end;

procedure TBankFm.cmdCloseClick(Sender: TObject);
begin
  panChild.Parent:=BankFm;
  BankFm.Close;
end;

end.