mainformunit.pas

一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 功能强大

unit mainformunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ComCtrls,shellapi, OleCtrls, Chartfx3, ImgList,
  StdCtrls, Buttons, ToolWin, jpeg,mmsystem;

type
  Tmainform = class(TForm)
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N1: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N2: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N3: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N44: TMenuItem;
    N51: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N52: TMenuItem;
    N7: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N4: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N5: TMenuItem;
    N23: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N30: TMenuItem;
    N29: TMenuItem;
    N25: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N47: TMenuItem;
    N33: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N26: TMenuItem;
    N24: TMenuItem;
    N36: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    H1: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N46: TMenuItem;
    N45: TMenuItem;
    N39: TMenuItem;
    Splitter1: TSplitter;
    StatusBar1: TStatusBar;
    Panel24: TPanel;
    Panelback: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Image3: TImage;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    Panel19: TPanel;
    SpeedButton9: TSpeedButton;
    Panel3: TPanel;
    Panel4: TPanel;
    Image2: TImage;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    Panel20: TPanel;
    SpeedButton6: TSpeedButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Panel21: TPanel;
    SpeedButton1: TSpeedButton;
    Panel8: TPanel;
    Panel9: TPanel;
    Image4: TImage;
    SpeedButton20: TSpeedButton;
    SpeedButton21: TSpeedButton;
    SpeedButton22: TSpeedButton;
    SpeedButton23: TSpeedButton;
    Panel10: TPanel;
    SpeedButton19: TSpeedButton;
    Panel7: TPanel;
    Panel18: TPanel;
    Image7: TImage;
    SpeedButton34: TSpeedButton;
    SpeedButton35: TSpeedButton;
    SpeedButton36: TSpeedButton;
    SpeedButton37: TSpeedButton;
    SpeedButton38: TSpeedButton;
    Panel17: TPanel;
    SpeedButton33: TSpeedButton;
    Panel11: TPanel;
    Panel12: TPanel;
    Image5: TImage;
    SpeedButton25: TSpeedButton;
    SpeedButton26: TSpeedButton;
    SpeedButton27: TSpeedButton;
    SpeedButton28: TSpeedButton;
    SpeedButton29: TSpeedButton;
    Panel13: TPanel;
    SpeedButton24: TSpeedButton;
    Panel14: TPanel;
    Panel16: TPanel;
    Image6: TImage;
    SpeedButton31: TSpeedButton;
    SpeedButton32: TSpeedButton;
    Panel15: TPanel;
    SpeedButton30: TSpeedButton;
    Panel22: TPanel;
    Splitter2: TSplitter;
    Image8: TImage;
    Panel23: TPanel;
    PopupMenu1: TPopupMenu;
    N110: TMenuItem;
    N210: TMenuItem;
    N310: TMenuItem;
    N410: TMenuItem;
    N20: TMenuItem;
    PopupMenu2: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    PopupMenu3: TPopupMenu;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    PopupMenu4: TPopupMenu;
    m1: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    Label1: TLabel;
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N7Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
    procedure SpeedButton24Click(Sender: TObject);
    procedure SpeedButton33Click(Sender: TObject);
    procedure SpeedButton30Click(Sender: TObject);
    procedure SpeedButton25MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton26MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
      procedure SpeedButton29MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure m1Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
  


   



    private
     openbutton:integer;
    procedure beforeclick(tag:integer);
    { Private declarations }
  public
    PATH:string;
    user,psw:string;
    admin:boolean;
    procedure makeable(var admin:boolean);
    { Public declarations }
  end;

var
  mainform: Tmainform;

implementation
uses studentunit,teacherunit,gradeunit, advancequeryUnit, gradebrowseunit,
  coursebrowseunit, studentgradeReportUnit, classgradeReportUnit,
  coursegradeReportUnit, bukaoReportUnit, ChongXiuReportUnit,
  bukaogradeReportUnit, GraduateGradeReportUnit, crediToolUnit,
  AverageToolUnit, StatisticsToolUnit, adduserUnit, addstudentUnit,
  addteacherUnit, addgradeUnit, deleteuserUnit, updatepasswordUnit,
  deletestudentUnit, deleteteacherUnit, deletegradeUnit1, aboutboxUnit,
  addcourseUnit, deletecourseUnit, datamoduleUnit, logunit, SysInfoUnit,
  splashunit, creditReportUnit,copyfileunit;

{$R *.dfm}
procedure Tmainform.N11Click(Sender: TObject);
 var   studentform: Tstudentform;
begin
studentform:=tstudentform.Create(application) ;
statusbar1.Panels[0].Text:='[学生资料查询]' ;
studentform.ShowModal;
end;
procedure Tmainform.N12Click(Sender: TObject);
begin
teacherform:=tteacherform.Create(application) ;
teacherform.ShowModal;
end;

procedure Tmainform.N10Click(Sender: TObject);
begin
gradequeryform:=tgradequeryform.Create(application) ;
gradequeryform.ShowModal;
end;





procedure Tmainform.N14Click(Sender: TObject);
begin
advancequeryform:=tadvancequeryform.Create(application) ;
advancequeryform.ShowModal;
end;
procedure Tmainform.N9Click(Sender: TObject);
begin
application.Terminate;
end;

procedure Tmainform.N21Click(Sender: TObject);
begin
gradebrowseform:=tgradebrowseform.Create(application) ;
gradebrowseform.ShowModal;
end;

procedure Tmainform.N22Click(Sender: TObject);
begin
coursebrowseform:=tcoursebrowseform.Create(application) ;
coursebrowseform.ShowModal;
end;



procedure Tmainform.N15Click(Sender: TObject);
begin
studentgradereportform:=tstudentgradereportform.Create(application) ;
studentgradereportform.ShowModal;
end;

procedure Tmainform.N16Click(Sender: TObject);
begin
classgradereportform:=tclassgradereportform.Create(application) ;
classgradereportform.ShowModal;
end;

procedure Tmainform.N17Click(Sender: TObject);
begin
coursegradereportform:=tcoursegradereportform.Create(application) ;
coursegradereportform.ShowModal;
end;

procedure Tmainform.N18Click(Sender: TObject);
begin
bukaoreportform:=tbukaoreportform.Create(application) ;
bukaoreportform.ShowModal;
end;

procedure Tmainform.N19Click(Sender: TObject);
begin
chongxiureportform:=tchongxiureportform.Create(application) ;
chongxiureportform.ShowModal;
end;

procedure Tmainform.N20Click(Sender: TObject);
begin
bukaogradereportform:=tbukaogradereportform.Create(application) ;
bukaogradereportform.ShowModal;
end;

procedure Tmainform.N44Click(Sender: TObject);
begin
graduategradereportform:=tgraduategradereportform.Create(application) ;
graduategradereportform.ShowModal;
end;

procedure Tmainform.N40Click(Sender: TObject);
begin
CreditToolform:=tCreditToolform.Create(application) ;
CreditToolform.ShowModal;
end;

procedure Tmainform.N41Click(Sender: TObject);
begin
averageToolform:=taverageToolform.Create(application) ;
averageToolform.ShowModal;
end;

procedure Tmainform.N42Click(Sender: TObject);
begin
statisticsToolform:=tstatisticsToolform.Create(application) ;
statisticsToolform.ShowModal;
end;

procedure Tmainform.N43Click(Sender: TObject);
begin
winexec('calc',SW_RESTORE);
end;

procedure Tmainform.N27Click(Sender: TObject);
begin
addstudentform:=taddstudentform.Create(application) ;
addstudentform.ShowModal;
end;

procedure Tmainform.N28Click(Sender: TObject);
begin
addteacherform:=taddteacherform.Create(application) ;
addteacherform.ShowModal;
end;

procedure Tmainform.N29Click(Sender: TObject);
begin
addgradeform:=taddgradeform.Create(application) ;