mainunit.pas

一个简单的数据库管理系统,是用delphi开发的.

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Buttons, jpeg, ExtCtrls;

type
  TMainForm = class(TForm)
    CoolBar1: TCoolBar;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    UserButton: TSpeedButton;
    BakButton: TSpeedButton;
    FriendButton: TSpeedButton;
    ExitButton: TSpeedButton;
    Image1: TImage;
    procedure ExitButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure UserButtonClick(Sender: TObject);
    procedure BakButtonClick(Sender: TObject);
    procedure FriendButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  Path:string;
  LoginFlag: Boolean;
implementation
uses LandUnit,UserManUnit,BackUpUnit,FriendsUnit;

{$R *.dfm}

procedure TMainForm.ExitButtonClick(Sender: TObject);
begin
  close;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Path := ExtractFilePath(Application.ExeName);
  LoginFlag := False;
end;

procedure TMainForm.FormPaint(Sender: TObject);
begin
  If Not LoginFlag then
  begin
    Application.CreateForm(TLandForm,LandForm);
    try
      LandForm.ShowModal;
    finally
      LandForm.Free;
    end;
  end;
end;

procedure TMainForm.UserButtonClick(Sender: TObject);
begin
  Application.CreateForm(TUserManForm,UserManForm);
  try
    UserManForm.ShowModal;
  Finally
    UserManForm.Free;
  end;
end;

procedure TMainForm.BakButtonClick(Sender: TObject);
begin
  Application.CreateForm(TBackUpForm,BackUpForm);
  try
    BackUpForm.ShowModal;
  finally
    BackUpForm.Free;
  end;
end;

procedure TMainForm.FriendButtonClick(Sender: TObject);
begin
  Application.CreateForm(TFriendsForm,FriendsForm);
  try
    FriendsForm.ShowModal;
  finally
    FriendsForm.Free;
  end;
end;

end.