u_main.pas

个人财务记账.rar,简易的财务系统,以delphi 开发.

unit U_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  ExtCtrls, jpeg, Buttons, ToolWin, ComCtrls,
  Menus, StdCtrls, bsSkinBoxCtrls, bsdbctrls, Mask;

type
  TF_main = class(TForm)
    Panel2: TPanel;
    Image1: TImage;
    Image2: TImage;
    Panel1: TPanel;
    lr1: TSpeedButton;
    StatusBar1: TStatusBar;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N11: TMenuItem;
    N3: TMenuItem;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure SpeedButton4Click(Sender: TObject);
    procedure lr1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_main: TF_main;

implementation
  uses U_lr,u_cx;
{$R *.dfm}

procedure TF_main.SpeedButton4Click(Sender: TObject);
begin
f_main.Close;
end;

procedure TF_main.lr1Click(Sender: TObject);
begin
   //f_main.visible:=false;
   f_lr.showmodal;
 //  f_main.Close;
end;

procedure TF_main.SpeedButton1Click(Sender: TObject);
begin
 f_lr.showmodal;
end;

procedure TF_main.SpeedButton2Click(Sender: TObject);
begin
 f_cx.showmodal;
end;

end.