u_main1.pas

大学生综合素质及诚信管理系统可以满足管理人员和高级管理员两方面管理学生综合素质及诚信信息的需要。设计充分利用Delphi7、MS SQL Server2000数据库技术的强大力量

unit u_main1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdActns, ExtActns, ActnList, ImgList, DB, DBTables;

type
  Tf_main = class(TForm)
    MainMenu1: TMainMenu;
    ActionList1: TActionList;
    ImageList1: TImageList;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditSelectAll1: TEditSelectAll;
    EditUndo1: TEditUndo;
    EditDelete1: TEditDelete;
    WindowClose1: TWindowClose;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowArrange1: TWindowArrange;
    FileOpen1: TFileOpen;
    FileSaveAs1: TFileSaveAs;
    FilePrintSetup1: TFilePrintSetup;
    FileRun1: TFileRun;
    FileExit1: TFileExit;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    Database1: TDatabase;
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_main: Tf_main;

implementation

uses U_adduser, u_pinfo, U_chaxun, u_newstu, u_change, u_reward, u_punish;

{$R *.dfm}

procedure Tf_main.N3Click(Sender: TObject);
begin
f_user.show;
end;

procedure Tf_main.N4Click(Sender: TObject);
begin
close;
end;

procedure Tf_main.N6Click(Sender: TObject);
begin
f_pinfo.show;
end;

procedure Tf_main.N7Click(Sender: TObject);
begin
  f_chaxun.show;
end;

procedure Tf_main.N8Click(Sender: TObject);
begin
  f_newstu.show;
end;

procedure Tf_main.N9Click(Sender: TObject);
begin
   f_change.show;
end;

procedure Tf_main.N10Click(Sender: TObject);
begin
  f_reward.show;
end;

procedure Tf_main.N11Click(Sender: TObject);
begin
f_punish.show;
end;

end.