delphi+access通用财务管理系统(六)

    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn21Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn11MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn18Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation
  uses  about,dm,report,login;
{$R *.dfm}

procedure TForm1.N9Click(Sender: TObject);
begin
   tabsheet2.Show;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
   tabsheet3.Show;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
    tabsheet5.Show;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
    tabsheet1.Show;
end;

procedure TF

首页 上一页 3 4 5 6 7 8 下一页 尾页 6/8/8