main.pas

智能试卷生成系统 Delphi----试卷生成系统代码 用户名：sa 密码：sa

unit Main;

interface

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

type
  TfrmMain = class(TForm)
    MainMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    mnuS1: TMenuItem;
    mnuS2: TMenuItem;
    mnuT1: TMenuItem;
    mnuT2: TMenuItem;
    mnuRelogin: TMenuItem;
    mnuRightSetting: TMenuItem;
    Image1: TImage;
    N4: TMenuItem;
    mnuExit: TMenuItem;
    btnSJCQ: TSpeedButton;
    Shape1: TShape;
    Shape2: TShape;
    btnRightSetting: TSpeedButton;
    Shape3: TShape;
    btnSJSC: TSpeedButton;
    Shape4: TShape;
    btnIn: TSpeedButton;
    Shape5: TShape;
    btnMange: TSpeedButton;
    Shape6: TShape;
    btnExit: TSpeedButton;
    Shape7: TShape;
    procedure FormCreate(Sender: TObject);
    procedure mnuRightSettingClick(Sender: TObject);
    procedure mnuExitClick(Sender: TObject);
    procedure mnuReloginClick(Sender: TObject);
    procedure mnuS1Click(Sender: TObject);
    procedure mnuT2Click(Sender: TObject);
    procedure btnMangeClick(Sender: TObject);
    procedure btnInClick(Sender: TObject);
    procedure btnSJCQClick(Sender: TObject);
    procedure mnuT1Click(Sender: TObject);
    procedure btnRightSettingClick(Sender: TObject);
    procedure mnuS2Click(Sender: TObject);
    procedure btnSJSCClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    UserName:string;
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses uLogin,uData, uRightsSetting, uTKWH, uTMLR, uSJCQ, uSJSC;

{$R *.dfm}

//-------------------------------
//**试卷生成系统  系统初始化工作
procedure TfrmMain.FormCreate(Sender: TObject);
begin
    if frmLogin = nil then
        frmLogin := TfrmLogin.Create(nil);
    frmLogin.ShowModal;
end;

//-------------------------------
//**试卷生成系统  调用权限设置模块
procedure TfrmMain.mnuRightSettingClick(Sender: TObject);
begin
    if frmrightSetting= nil then
        frmrightSetting := frmrightSetting.Create(nil);
    frmrightSetting.ShowModal;
end;
procedure TfrmMain.btnRightSettingClick(Sender: TObject);
begin
    if mnuRightSetting.Enabled = true then
        mnuRightSettingClick(Sender);
end;
//-------------------------------
//退出**试卷生成系统
procedure TfrmMain.mnuExitClick(Sender: TObject);
begin
    close;
end;

 //-------------------------------
//重新登录**试卷生成系统
procedure TfrmMain.mnuReloginClick(Sender: TObject);
begin
    if frmLogin = nil then
        frmLogin := TfrmLogin.Create(nil);
    frmLogin.ShowModal;
end;

 //-------------------------------
//试卷抽取
procedure TfrmMain.mnuS1Click(Sender: TObject);
begin
    if frmSJCQ = nil then
        frmSJCQ := TfrmSJCQ.Create(nil);
    frmSJCQ.ShowModal;
end;
procedure TfrmMain.btnSJCQClick(Sender: TObject);
begin
    if mnuS1.enabled = true then
        mnuS1Click(Sender);
end;

 //-------------------------------
//题库维护
procedure TfrmMain.mnuT2Click(Sender: TObject);
begin
    if frmTKWH = nil then
        frmTKWH := TfrmTKWH.Create(nil);
    frmTKWH.ShowModal;
end;
procedure TfrmMain.btnMangeClick(Sender: TObject);
begin
    if mnuT2.Enabled = true then
        mnuT2Click(Sender);
end;





 //-------------------------------
//题库录入
procedure TfrmMain.mnuT1Click(Sender: TObject);
begin
   if frmTMLR = nil then
        frmTMLR := TfrmTMLR.Create(nil);
    frmTMLR.ShowModal;
end;

procedure TfrmMain.btnInClick(Sender: TObject);
begin
    if mnuT1.Enabled = true then
        mnuT1Click(Sender);
end;

 //-------------------------------
//试卷生成模块
procedure TfrmMain.mnuS2Click(Sender: TObject);
begin
   if frmSJSC = nil then
        frmSJSC := TfrmSJSC.Create(nil);
    frmSJSC.ShowModal;
end;

procedure TfrmMain.btnSJSCClick(Sender: TObject);
begin
    if mnuS2.Enabled = true then
        mnuS2Click(Sender);
end;

procedure TfrmMain.btnExitClick(Sender: TObject);
begin
    close;
end;

end.