frmmain.pas

里面有个人一天消费管理

unit frmmain;

interface

uses
  windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, RzStatus, RzButton, ExtCtrls, Menus, ImgList, RzForms,
  RzCommon, shellapi, RzTray, XPMenu;

type
  TMainFm = class(TForm)
    St_bar: TRzStatusBar;
    Tl_bar: TRzToolbar;
    RzStatusPane1: TRzStatusPane;
    RzStatusPane2: TRzStatusPane;
    MainMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    ImgLst_16: TImageList;
    RzKeyStatus1: TRzKeyStatus;
    RzKeyStatus2: TRzKeyStatus;
    RzKeyStatus3: TRzKeyStatus;
    Edit1: TMenuItem;
    Paste1: TMenuItem;
    Copy1: TMenuItem;
    Cut1: TMenuItem;
    RzRegIniFile1: TRzRegIniFile;
    RzFormState1: TRzFormState;
    PanWorkArea: TRzPanel;
    Tl_Btn_homepage: TRzToolButton;
    Tl_Btn_Income: TRzToolButton;
    Tl_Btn_Payout: TRzToolButton;
    Tl_Btn_bank: TRzToolButton;
    Tl_Btn_About: TRzToolButton;
    A1: TMenuItem;
    H1: TMenuItem;
    N3: TMenuItem;
    T1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    ImgLst_32: TImageList;
    RzProgressStatus1: TRzProgressStatus;
    XPMenu1: TXPMenu;
    procedure FormShow(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Tl_Btn_AboutClick(Sender: TObject);
    procedure Tl_Btn_bankClick(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Tl_Btn_PayoutClick(Sender: TObject);
    procedure Tl_Btn_IncomeClick(Sender: TObject);
    procedure Tl_Btn_homepageClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFm: TMainFm;

implementation

uses frmhomepage, Common, frmIncome, frmPayout, frmBank, frmSystemSet, frmdata;

{$R *.dfm}

procedure TMainFm.FormClose(Sender: TObject; var Action: TCloseAction);
var i,j:integer;
panChildPanelName:TRzPanel;
begin
  for  I:= 0 to PanWorkArea.ControlCount-1 do
  begin
    if PanWorkArea.Controls[I].Name = 'panChild' then
    begin
      panChildPanelName:=(PanWorkArea.controls[I] as TRzPanel);
      for J:=0 to panChildPanelName.ControlCount-1 do
      begin
       if panChildPanelName.Controls[J].Name='cmdClose' then
       (panChildPanelName.Controls[J] as TRzButton).Click;
      end;
    end;
  end;
  application.Terminate;
end;

procedure TMainFm.Tl_Btn_PayoutClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  RzStatusPane1.Caption:='正打开支出编辑表单...';
  Application.CreateForm(TPayoutFm,PayoutFm);
  PayoutFm.FirstRun;
  ShowPanel(PayoutFm.panChild,MainFm.PanWorkArea);
  RzStatusPane1.Caption:='就绪';
  Screen.Cursor := crDefault;
end;

procedure TMainFm.FormShow(Sender: TObject);
var i,j,intResult:integer;
begin
  Tl_Btn_homepage.Click;
  i:=DataFm.Tbl_Income_Option.RecordCount;
  j:=DataFm.Tbl_Payout_option.RecordCount;
  if (i=0) or (j=0)  then 
  begin
    intResult:=MessageBox(Application.Handle,pchar('首次使用吧,请您先输入收、支项目及家庭成员。'),'确认',32+4);
    if intResult=mrYes then  SystemSetFm.ShowModal;
  end;
end;

procedure TMainFm.N2Click(Sender: TObject);
begin
  MainFm.close;
  //application.Terminate;
end;

procedure TMainFm.N4Click(Sender: TObject);
begin
  SystemSetFm.ShowModal;
end;

procedure TMainFm.Tl_Btn_AboutClick(Sender: TObject);
var a,b:string;
begin
  a:='TslMoney';
 	b:='Delphi工作室 滕树林 QQ:403049601';
  shellabout(application.handle,pchar(a),pchar(b),application.Icon.Handle);
end;

procedure TMainFm.Tl_Btn_bankClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  RzStatusPane1.Caption:='正打开银行卡编辑表单...';
  Application.CreateForm(TBankFm,BankFm);
  BankFm.FirstRun;
  ShowPanel(BankFm.panChild,MainFm.PanWorkArea);
  RzStatusPane1.Caption:='就绪';
  Screen.Cursor := crDefault;
end;

procedure TMainFm.Tl_Btn_homepageClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  RzStatusPane1.Caption:='正打开主页表单...';
  Application.CreateForm(ThomepageFm,homepageFm);
  HomepageFm.FirstRun;
  ShowPanel(homepageFm.panChild,MainFm.PanWorkArea);
  RzStatusPane1.Caption:='就绪';
  Screen.Cursor := crDefault;
end;

procedure TMainFm.Tl_Btn_IncomeClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  RzStatusPane1.Caption:='正打开收入编辑表单...';
  Application.CreateForm(TIncomeFm,IncomeFm);
  IncomeFm.FirstRun;
  ShowPanel(IncomeFm.panChild,MainFm.PanWorkArea);
  RzStatusPane1.Caption:='就绪';
  Screen.Cursor := crDefault;
end;

end.