u_main.pas

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

unit u_main;

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;
    C1: TMenuItem;
    S1: TMenuItem;
    N13: TMenuItem;
    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);
    
    procedure S1Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  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,
    u_addscore, u_chscore, u_qscore, u_pass;

{$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;



procedure Tf_main.S1Click(Sender: TObject);
begin
f_addscore.Show;
end;

procedure Tf_main.N12Click(Sender: TObject);
begin
//f_chscore.show;
end;

procedure Tf_main.N13Click(Sender: TObject);
begin
f_qscore.show;
end;

procedure Tf_main.FormShow(Sender: TObject);
begin
 f_pass.hide;
 if flag='普通' then
 begin
 n3.Enabled:=false;
 n5.Enabled:=false;
 n6.Enabled:=false;
 s1.Enabled:=false;
 end;
end;

procedure Tf_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 f_pass.Close;
end;

end.