main.~pas

高校教学管理信息系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Buttons, ExtCtrls, Menus, ToolWin, ComCtrls, ADODB,inifiles,
  jpeg;

type
  Tmainform = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    CoolBar1: TCoolBar;
    StatusBar1: TStatusBar;
    SBtnExit: TSpeedButton;
    SBtnCourse: TSpeedButton;
    SBtnStudent: TSpeedButton;
    SBtnTeacher: TSpeedButton;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    ADOConnection1: TADOConnection;
    N19: TMenuItem;
    N20: TMenuItem;
    Image1: TImage;
    N21: TMenuItem;
    N22: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainform: Tmainform;
  vlogin,vloginname,vloginstatus:string;
implementation



uses login, teacher,student,classu,course, pwd, term ,Unit5,
     courseselect,score, backup,stucomment;
var
myinifile:Tinifile;
{$R *.dfm}

procedure Tmainform.FormShow(Sender: TObject);
begin
      f_login.showmodal;

end;

procedure Tmainform.N7Click(Sender: TObject);
begin
    if MessageDlg('是否确定要离开系统?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      application.Terminate ;

end;

procedure Tmainform.N8Click(Sender: TObject);
var I: integer;

begin
    with mainform do
     for I := MDIChildCount-1 downto 0 do
       MDIChildren[I].close ;

end;

procedure Tmainform.N9Click(Sender: TObject);
var I: integer;
    f_teacher: Tf_teacher;

begin
    with mainform do
     for I := MDIChildCount-1 downto 0 do
       MDIChildren[I].close ;

   f_teacher:=Tf_teacher.Create(self);
   f_teacher.Show ;
end;

procedure Tmainform.N10Click(Sender: TObject);
var I: integer;
    f_student: Tf_student;
begin
    with mainform do
     for I := MDIChildCount-1 downto 0 do
       MDIChildren[I].close ;

   f_student:=TF_student.Create(self);
   f_student.Show ;
end;

procedure Tmainform.N16Click(Sender: TObject);
var I: integer;
    f_class: Tf_class;
begin
    with mainform do
     for I := MDIChildCount-1 downto 0 do
       MDIChildren[I].close ;

   f_class:=TF_class.Create(self);
   f_class.Show ;

end;

procedure Tmainform.N11Click(Sender: TObject);
var I: integer;
    f_course: Tf_course;
begin
    with mainform do
     for I := MDIChildCount-1 downto 0 do
       MDIChildren[I].close ;

   f_course:=TF_course.Create(self);
   f_course.Show ;

end;

procedure Tmainform.N17Click(Sender: TObject);
begin
    f_pwd.showmodal;
end;

procedure Tmainform.N18Click(Sender: TObject);
begin
       f_term.showmodal;
end;

procedure Tmainform.N13Click(Sender: TObject);
var I: integer;
    f_courseselect: Tf_courseselect;
begin
    with mainform do
     for I := MDIChildCount-1 downto 0 do
       MDIChildren[I].close ;

   f_courseselect:=TF_courseselect.Create(self);
   f_courseselect.Show ;
end;

procedure Tmainform.N14Click(Sender: TObject);
var I: integer;
    f_score: Tf_score;
begin
    with mainform do
     for I := MDIChildCount-1 downto 0 do
       MDIChildren[I].close ;

   f_score:=TF_score.Create(self);
   f_score.Show ;
end;



procedure Tmainform.FormCreate(Sender: TObject);
var
filename:string;
begin
filename:=ExtractFilePath(paramstr(0))+'dblink.ini';
myinifile:=Tinifile.create(filename);

try
adoconnection1.Connected :=false;
adoconnection1.ConnectionString := myinifile.readstring('part1','dbstring','www');
adoconnection1.Connected :=true;
except
showmessage('数据库连接失败，请检查dblink.ini文件中的连接信息的设置是否正确！');
application.Terminate ;
end;




end;


procedure Tmainform.N5Click(Sender: TObject);
begin
      f_bk.showmodal;
end;

procedure Tmainform.N20Click(Sender: TObject);
var I: integer;
    f_stucomment: Tf_stucomment;
begin
    with mainform do
     for I := MDIChildCount-1 downto 0 do
       MDIChildren[I].close ;

   f_stucomment:=Tf_stucomment.Create(self);
   f_stucomment.Show ;
end;

procedure Tmainform.N22Click(Sender: TObject);
var I: integer;
    F_about: TF_about;
begin
    with mainform do
     for I := MDIChildCount-1 downto 0 do
       MDIChildren[I].close ;

  F_about:=TF_about.Create(self);
   F_about.Showmodal ;
end;

end.