mainform.pas

来自「《Delphi 2005数据库系统开发与应用》源代码」· PAS 代码 · 共 363 行

unit MainForm;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data, AddUser, ModifyPassword,
  AddStInfo,ModifyStInfo,SearchStInfo,AddClassInfo,ModifyClassInfo,
  AddResult,ModifyResultInfo,SearchResultInfo;

type
  FrmMain = class(System.Windows.Forms.Form)
  {$REGION 'Designer Managed Code'}
  strict private
    /// <summary>
    /// Required designer variable.
    /// </summary>
    Components: System.ComponentModel.Container;
    MainMenu1: System.Windows.Forms.MainMenu;
    MenuSystem: System.Windows.Forms.MenuItem;
    MenuAddUser: System.Windows.Forms.MenuItem;
    MenuModify: System.Windows.Forms.MenuItem;
    MenuExit: System.Windows.Forms.MenuItem;
    MenuStInfo: System.Windows.Forms.MenuItem;
    MenuAddStInfo: System.Windows.Forms.MenuItem;
    MenuModifyStInfo: System.Windows.Forms.MenuItem;
    MenuSeachStInfo: System.Windows.Forms.MenuItem;
    MenuClassInfo: System.Windows.Forms.MenuItem;
    MenuAddClassInfo: System.Windows.Forms.MenuItem;
    MenuModifyClassInfo: System.Windows.Forms.MenuItem;
    MenuResultInfo: System.Windows.Forms.MenuItem;
    MenuAddResultInfo: System.Windows.Forms.MenuItem;
    MenuModifyResultInfo: System.Windows.Forms.MenuItem;
    MenuSeachResultInfo: System.Windows.Forms.MenuItem;
    MenuWindow: System.Windows.Forms.MenuItem;
    MenuCascade: System.Windows.Forms.MenuItem;
    MenuHorizontal: System.Windows.Forms.MenuItem;
    MenuVertical: System.Windows.Forms.MenuItem;
    MenuArrangeIcons: System.Windows.Forms.MenuItem;
    MenuHelp: System.Windows.Forms.MenuItem;
    MenuAbout: System.Windows.Forms.MenuItem;
    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    procedure InitializeComponent;
    procedure MenuAddUser_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuModify_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuAddStInfo_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuModifyStInfo_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuSearchStInfo_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuAddClassInfo_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuModifyClassInfo_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuAddResultInfo_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuModifyResultInfo_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuSearchResultInfo_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuExit_Click(sender: System.Object; e: System.EventArgs);
    {$ENDREGION}
  strict protected
    /// <summary>
    /// Clean up any resources being used.
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private Declarations }
  public
    constructor Create;
  end;

  [assembly: RuntimeRequiredAttribute(TypeOf(FrmMain))]

implementation

{$REGION 'Windows Form Designer generated code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure FrmMain.InitializeComponent;
type
  TSystem_Windows_Forms_MenuItemArray = array of System.Windows.Forms.MenuItem;
begin
  Self.MainMenu1 := System.Windows.Forms.MainMenu.Create;
  Self.MenuSystem := System.Windows.Forms.MenuItem.Create;
  Self.MenuAddUser := System.Windows.Forms.MenuItem.Create;
  Self.MenuModify := System.Windows.Forms.MenuItem.Create;
  Self.MenuExit := System.Windows.Forms.MenuItem.Create;
  Self.MenuStInfo := System.Windows.Forms.MenuItem.Create;
  Self.MenuAddStInfo := System.Windows.Forms.MenuItem.Create;
  Self.MenuModifyStInfo := System.Windows.Forms.MenuItem.Create;
  Self.MenuSeachStInfo := System.Windows.Forms.MenuItem.Create;
  Self.MenuClassInfo := System.Windows.Forms.MenuItem.Create;
  Self.MenuAddClassInfo := System.Windows.Forms.MenuItem.Create;
  Self.MenuModifyClassInfo := System.Windows.Forms.MenuItem.Create;
  Self.MenuResultInfo := System.Windows.Forms.MenuItem.Create;
  Self.MenuAddResultInfo := System.Windows.Forms.MenuItem.Create;
  Self.MenuModifyResultInfo := System.Windows.Forms.MenuItem.Create;
  Self.MenuSeachResultInfo := System.Windows.Forms.MenuItem.Create;
  Self.MenuWindow := System.Windows.Forms.MenuItem.Create;
  Self.MenuCascade := System.Windows.Forms.MenuItem.Create;
  Self.MenuHorizontal := System.Windows.Forms.MenuItem.Create;
  Self.MenuVertical := System.Windows.Forms.MenuItem.Create;
  Self.MenuArrangeIcons := System.Windows.Forms.MenuItem.Create;
  Self.MenuHelp := System.Windows.Forms.MenuItem.Create;
  Self.MenuAbout := System.Windows.Forms.MenuItem.Create;
  // 
  // MainMenu1
  // 
  Self.MainMenu1.MenuItems.AddRange(TSystem_Windows_Forms_MenuItemArray.Create(Self.MenuSystem, 
          Self.MenuStInfo, Self.MenuClassInfo, Self.MenuResultInfo, Self.MenuWindow, 
          Self.MenuHelp));
  // 
  // MenuSystem
  // 
  Self.MenuSystem.Index := 0;
  Self.MenuSystem.MenuItems.AddRange(TSystem_Windows_Forms_MenuItemArray.Create(Self.MenuAddUser, 
          Self.MenuModify, Self.MenuExit));
  Self.MenuSystem.Text := '系统';
  // 
  // MenuAddUser
  // 
  Self.MenuAddUser.Index := 0;
  Self.MenuAddUser.Text := '添加用户';
  Include(Self.MenuAddUser.Click, Self.MenuAddUser_Click);
  // 
  // MenuModify
  // 
  Self.MenuModify.Index := 1;
  Self.MenuModify.Text := '修改密码';
  Include(Self.MenuModify.Click, Self.MenuModify_Click);
  // 
  // MenuExit
  // 
  Self.MenuExit.Index := 2;
  Self.MenuExit.Text := '退出';
  Include(Self.MenuExit.Click, Self.MenuExit_Click);
  // 
  // MenuStInfo
  // 
  Self.MenuStInfo.Index := 1;
  Self.MenuStInfo.MenuItems.AddRange(TSystem_Windows_Forms_MenuItemArray.Create(Self.MenuAddStInfo, 
          Self.MenuModifyStInfo, Self.MenuSeachStInfo));
  Self.MenuStInfo.Text := '学籍管理';
  // 
  // MenuAddStInfo
  // 
  Self.MenuAddStInfo.Index := 0;
  Self.MenuAddStInfo.Text := '添加学籍信息';
  Include(Self.MenuAddStInfo.Click, Self.MenuAddStInfo_Click);
  // 
  // MenuModifyStInfo
  // 
  Self.MenuModifyStInfo.Index := 1;
  Self.MenuModifyStInfo.Text := '修改学籍信息';
  Include(Self.MenuModifyStInfo.Click, Self.MenuAddStInfo_Click);
  // 
  // MenuSeachStInfo
  // 
  Self.MenuSeachStInfo.Index := 2;
  Self.MenuSeachStInfo.Text := '查询学籍信息';
  Include(Self.MenuSeachStInfo.Click, Self.MenuSearchStInfo_Click);
  // 
  // MenuClassInfo
  // 
  Self.MenuClassInfo.Index := 2;
  Self.MenuClassInfo.MenuItems.AddRange(TSystem_Windows_Forms_MenuItemArray.Create(Self.MenuAddClassInfo, 
          Self.MenuModifyClassInfo));
  Self.MenuClassInfo.Text := '班级管理';
  // 
  // MenuAddClassInfo
  // 
  Self.MenuAddClassInfo.Index := 0;
  Self.MenuAddClassInfo.Text := '添加班级信息';
  Include(Self.MenuAddClassInfo.Click, Self.MenuAddClassInfo_Click);
  // 
  // MenuModifyClassInfo
  // 
  Self.MenuModifyClassInfo.Index := 1;
  Self.MenuModifyClassInfo.Text := '修改班级信息';
  Include(Self.MenuModifyClassInfo.Click, Self.MenuModifyClassInfo_Click);
  // 
  // MenuResultInfo
  // 
  Self.MenuResultInfo.Index := 3;
  Self.MenuResultInfo.MenuItems.AddRange(TSystem_Windows_Forms_MenuItemArray.Create(Self.MenuAddResultInfo, 
          Self.MenuModifyResultInfo, Self.MenuSeachResultInfo));
  Self.MenuResultInfo.Text := '成绩管理';
  // 
  // MenuAddResultInfo
  // 
  Self.MenuAddResultInfo.Index := 0;
  Self.MenuAddResultInfo.Text := '添加成绩信息';
  Include(Self.MenuAddResultInfo.Click, Self.MenuAddResultInfo_Click);
  // 
  // MenuModifyResultInfo
  // 
  Self.MenuModifyResultInfo.Index := 1;
  Self.MenuModifyResultInfo.Text := '修改成绩信息';
  Include(Self.MenuModifyResultInfo.Click, Self.MenuModifyResultInfo_Click);
  // 
  // MenuSeachResultInfo
  // 
  Self.MenuSeachResultInfo.Index := 2;
  Self.MenuSeachResultInfo.Text := '查询成绩信息';
  Include(Self.MenuSeachResultInfo.Click, Self.MenuSearchResultInfo_Click);
  // 
  // MenuWindow
  // 
  Self.MenuWindow.Index := 4;
  Self.MenuWindow.MenuItems.AddRange(TSystem_Windows_Forms_MenuItemArray.Create(Self.MenuCascade, 
          Self.MenuHorizontal, Self.MenuVertical, Self.MenuArrangeIcons));
  Self.MenuWindow.Text := '窗口';
  // 
  // MenuCascade
  // 
  Self.MenuCascade.Index := 0;
  Self.MenuCascade.Text := '层叠';
  // 
  // MenuHorizontal
  // 
  Self.MenuHorizontal.Index := 1;
  Self.MenuHorizontal.Text := '水平平铺';
  // 
  // MenuVertical
  // 
  Self.MenuVertical.Index := 2;
  Self.MenuVertical.Text := '垂直平铺';
  // 
  // MenuArrangeIcons
  // 
  Self.MenuArrangeIcons.Index := 3;
  Self.MenuArrangeIcons.Text := '显示图标';
  // 
  // MenuHelp
  // 
  Self.MenuHelp.Index := 5;
  Self.MenuHelp.MenuItems.AddRange(TSystem_Windows_Forms_MenuItemArray.Create(Self.MenuAbout));
  Self.MenuHelp.Text := '帮助';
  // 
  // MenuAbout
  // 
  Self.MenuAbout.Index := 0;
  Self.MenuAbout.Text := '关于';
  // 
  // FrmMain
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);
  Self.ClientSize := System.Drawing.Size.Create(576, 318);
  Self.IsMdiContainer := True;
  Self.Menu := Self.MainMenu1;
  Self.Name := 'FrmMain';
  Self.Text := '教务信息管理系统';
end;
{$ENDREGION}

procedure FrmMain.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor FrmMain.Create;
begin
  inherited Create;
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent;
  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;

procedure FrmMain.MenuAddUser_Click(sender: System.Object; e: System.EventArgs);
var
  newFrmAddUser:FrmAddUser;
begin
  newFrmAddUser:=FrmAddUser.Create;
  newFrmAddUser.Show;
end;

procedure FrmMain.MenuModify_Click(sender: System.Object; e: System.EventArgs);
var
  newFrmModifyPassword:FrmModifyPassword;
begin
  newFrmModifyPassword:=FrmModifyPassword.Create;
  newFrmModifyPassWord.Show;
end;

procedure FrmMain.MenuExit_Click(sender: System.Object; e: System.EventArgs);
begin
  Application.Exit;
end;

procedure FrmMain.MenuAddStInfo_Click(sender: System.Object; e: System.EventArgs);
var
  newFrmAddStInfo:FrmAddStInfo;
begin
  newFrmAddStInfo:=FrmAddStInfo.Create;
  newFrmAddStInfo.Show;
end;

procedure FrmMain.MenuModifyStInfo_Click(sender: System.Object; e: System.EventArgs);
var
  newFrmModifyStInfo:FrmModifyStInfo;
begin
  newFrmModifyStInfo:=FrmModifyStInfo.Create;
  newFrmModifyStInfo.Show;
end;

procedure FrmMain.MenuSearchStInfo_Click(sender: System.Object; e: System.EventArgs);
var
  newFrmSearchStInfo:FrmSearchStInfo;
begin
  newFrmSearchStInfo:=FrmSearchStInfo.Create;
  newFrmSearchStInfo.Show;
end;

procedure FrmMain.MenuAddClassInfo_Click(sender: System.Object; e: System.EventArgs);
var
  newFrmAddClassInfo:FrmAddClassInfo;
begin
  newFrmAddClassInfo:=FrmAddClassInfo.Create;
  newFrmAddClassInfo.Show;
end;

procedure FrmMain.MenuModifyClassInfo_Click(sender: System.Object; e: System.EventArgs);
var
  newFrmModifyClassInfo:FrmModifyClassInfo;
begin
  newFrmModifyClassInfo:=FrmModifyClassInfo.Create;
  newFrmModifyClassInfo.Show;
end;

procedure FrmMain.MenuAddResultInfo_Click(sender: System.Object; e: System.EventArgs);
var
  newFrmAddResult:FrmAddResult;
begin
  newFrmAddResult:=FrmAddResult.Create;
  newFrmAddResult.Show;
end;

procedure FrmMain.MenuModifyResultInfo_Click(sender: System.Object; e: System.EventArgs);
var
  newFrmModifyResultInfo:FrmModifyResultInfo;
begin
  newFrmModifyResultInfo:=FrmModifyResultInfo.Create;
  newFrmModifyResultInfo.Show;
end;

procedure FrmMain.MenuSearchResultInfo_Click(sender: System.Object; e: System.EventArgs);
var
  newFrmSearchResult:FrmSearchResult;
begin
  newFrmSearchResult:=FrmSearchResult.Create;
  newFrmSearchResult.Show;
end;
end.