unit1.pas

这是个才财务管理系统！可能是哪个语言！但是我不认识！

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  Tfrm_main = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Label1: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_main: Tfrm_main;

implementation

uses Unit3, Unit2, Unit5, Unit6, Unit10, Unit15;

{$R *.DFM}

procedure Tfrm_main.BitBtn6Click(Sender: TObject);
begin
  frm_pwdcheck.query1.close;
  application.terminate;
end;

procedure Tfrm_main.BitBtn1Click(Sender: TObject);
begin
  frm_pwdcheck.tag:=1;
  frm_pwdcheck.show;

end;

procedure Tfrm_main.BitBtn5Click(Sender: TObject);
begin
  frm_sys.show;
end;

procedure Tfrm_main.BitBtn2Click(Sender: TObject);
begin
  frm_setup.show;
end;

procedure Tfrm_main.BitBtn3Click(Sender: TObject);
begin
  frm_pwdcheck.tag:=2;
  frm_pwdcheck.show;
end;

procedure Tfrm_main.BitBtn4Click(Sender: TObject);
begin
  frm_graph.show;
end;

end.