unit2.~pas

学生成绩管理系统

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, Buttons, ExtCtrls, StdActns, ActnList,
  ImgList, jpeg, StdCtrls;

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N21: TMenuItem;
    PopupMenu1: TPopupMenu;
    N22: TMenuItem;
    N23: TMenuItem;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N30: TMenuItem;
    ImageList1: TImageList;
    ActionList1: TActionList;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditSelectAll1: TEditSelectAll;
    EditDelete1: TEditDelete;
    CoolBar1: TCoolBar;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SelectAll1: TMenuItem;
    N31: TMenuItem;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    SpeedButton4: TSpeedButton;
    N32: TMenuItem;
    N33: TMenuItem;
    Timer1: TTimer;
    Image1: TImage;
    Timer2: TTimer;
    jj1: TMenuItem;
    procedure N8Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N21Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure jj1Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation

uses Unit1, Unit3, Unit4, Unit6, Unit5, Unit7, Unit8, Unit9, Unit10,
  Unit11, Unit12;

{$R *.dfm}

procedure Tmain.N8Click(Sender: TObject);
begin
close;
end;

procedure Tmain.N4Click(Sender: TObject);
begin

studentmanage:=tstudentmanage.Create(application);
studentmanage.show;
end;

procedure Tmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagedlg('是否真的要退出。',mtconfirmation,[mbyes,mbno],0)=6 then
canclose:=true
else
canclose:=false;
end;

procedure Tmain.N21Click(Sender: TObject);
begin
activemdichild.Close ;
end;

procedure Tmain.N5Click(Sender: TObject);
begin

studentfind:=tstudentfind.Create(application);
studentfind.show;
end;

procedure Tmain.N3Click(Sender: TObject);
begin
 studentbrowse:=tstudentbrowse.Create(application);
 studentbrowse.show;
end;

procedure Tmain.SpeedButton3Click(Sender: TObject);
begin
n9.Click ;

end;

procedure Tmain.N12Click(Sender: TObject);
begin
try
gradelook:=tgradelook.Create(application);
gradelook.show;
except
;
end;
end;

procedure Tmain.N32Click(Sender: TObject);
begin
gradearea:=tgradearea.Create(application);
gradearea.show;

end;

procedure Tmain.N9Click(Sender: TObject);
begin
grademanage:=tgrademanage.Create(application);
grademanage.show;
end;

procedure Tmain.SpeedButton4Click(Sender: TObject);
begin
close;
end;

procedure Tmain.SpeedButton2Click(Sender: TObject);
begin
n12.Click ;
end;

procedure Tmain.N25Click(Sender: TObject);
begin
n25.Checked :=not n25.Checked ;
if n25.Checked =true then
begin
 ToolButton5.Visible :=true;
ToolButton4.Visible :=true;
ToolButton1.Visible :=true;
ToolButton2.Visible :=true;
ToolButton3.Visible :=true;
end
else
begin
 ToolButton5.Visible :=false;
ToolButton4.Visible :=false;
ToolButton1.Visible :=false;
ToolButton2.Visible :=false;
ToolButton3.Visible :=false;

end;
end;

procedure Tmain.N26Click(Sender: TObject);
begin
n26.Checked :=not n26.Checked ;
if n26.Checked =true then
begin
SpeedButton1.Visible :=true;
SpeedButton2.Visible :=true;
SpeedButton3.Visible :=true;
SpeedButton4.Visible :=true;
CoolBar1.Visible :=true;
end
else
begin
SpeedButton1.Visible :=false;
SpeedButton2.Visible :=false;
SpeedButton3.Visible :=false;
SpeedButton4.Visible :=false;
CoolBar1.Visible:=false;
end;
end;

procedure Tmain.N27Click(Sender: TObject);
begin
n27.Checked :=not n27.Checked ;

if n27.Checked =true then
begin
 ToolButton7.Visible :=true;


end
else
begin
 ToolButton7.Visible :=false;



end;
end;

procedure Tmain.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels [2].Text:=datetimetostr(now) ;
end;

procedure Tmain.N22Click(Sender: TObject);
begin
option:=toption.Create(application);
option.show;

end;

procedure Tmain.N19Click(Sender: TObject);
begin
system1:=tsystem1.Create(application);
system1.show;
end;

procedure Tmain.ToolButton7Click(Sender: TObject);
begin
n19.Click ;
end;

procedure Tmain.SpeedButton1Click(Sender: TObject);
begin
n4.Click ;
end;

procedure Tmain.jj1Click(Sender: TObject);
begin
sort:=tsort.Create(application);
sort.show;
end;

procedure Tmain.N30Click(Sender: TObject);
begin
option:=toption.Create(application);
option.show;

end;

procedure Tmain.N11Click(Sender: TObject);
begin
gradebrowse:=tgradebrowse.Create(application);
gradebrowse.show;

end;

procedure Tmain.N23Click(Sender: TObject);
begin
main.Image1.Refresh ;
end;

procedure Tmain.FormShow(Sender: TObject);
begin
  form12.ShowModal ;
end;

end.