main.~pas

delphi自动出题系统源代码,有兴趣的可以来看看！

unit main;

interface

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

type
  Tmainform = class(TForm)
    MainMenu1: TMainMenu;
    file1: TMenuItem;
    exit1: TMenuItem;
    help1: TMenuItem;
    aboutthissystem1: TMenuItem;
    aboutme1: TMenuItem;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure exit1Click(Sender: TObject);
    procedure aboutme1Click(Sender: TObject);
    procedure aboutthissystem1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainform: Tmainform;

implementation

uses modify, manufacture, editer, Unit1, inquire, report, setpasswd, add,
  about, systemmsg;

{$R *.DFM}

procedure Tmainform.BitBtn1Click(Sender: TObject);
begin
   close;
end;

procedure Tmainform.BitBtn6Click(Sender: TObject);
begin
    mainform.Hide;
    testedit.show;
end;

procedure Tmainform.BitBtn8Click(Sender: TObject);
begin
       mainform.Hide;
       manufactureform.show;
end;

procedure Tmainform.BitBtn7Click(Sender: TObject);
begin
       mainform.Hide;
       editeform.show;
end;

procedure Tmainform.BitBtn3Click(Sender: TObject);
begin
    mainform.Hide;
    generateform.show;
end;

procedure Tmainform.BitBtn4Click(Sender: TObject);
begin
    mainform.Hide;
    inquireform.show;
end;

procedure Tmainform.BitBtn5Click(Sender: TObject);
begin
    reporform.quickrep1.preview;
end;

procedure Tmainform.BitBtn2Click(Sender: TObject);
begin
    mainform.Hide;
     setpassword.show;
end;

procedure Tmainform.BitBtn9Click(Sender: TObject);
begin
   mainform.Hide;
   addform.show;
end;

procedure Tmainform.exit1Click(Sender: TObject);
begin
   close;
end;

procedure Tmainform.aboutme1Click(Sender: TObject);
begin
   aboutfrm.show;
end;

procedure Tmainform.aboutthissystem1Click(Sender: TObject);
begin
   sysmessage.show;
end;

procedure Tmainform.SpeedButton1Click(Sender: TObject);
begin
   close;
end;

procedure Tmainform.SpeedButton2Click(Sender: TObject);
begin
    mainform.Hide;
     setpassword.show;
end;

procedure Tmainform.SpeedButton3Click(Sender: TObject);
begin
    mainform.Hide;
    testedit.show;
end;

procedure Tmainform.SpeedButton4Click(Sender: TObject);
begin
       mainform.Hide;
       editeform.show;
end;

procedure Tmainform.SpeedButton5Click(Sender: TObject);
begin
   mainform.Hide;
   addform.show;
end;

procedure Tmainform.SpeedButton6Click(Sender: TObject);
begin
    mainform.Hide;
    generateform.show;
end;

procedure Tmainform.SpeedButton7Click(Sender: TObject);
begin
    mainform.Hide;
    inquireform.show;
end;

procedure Tmainform.SpeedButton8Click(Sender: TObject);
begin
    reporform.quickrep1.preview;
end;

procedure Tmainform.SpeedButton9Click(Sender: TObject);
begin
       mainform.Hide;
       manufactureform.show;
end;

end.