main.~pas

学生成绩管理系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, DBTables;

type
  TMainForm = 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;
    procedure N6Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  username:string;
  right:array[1..3] of boolean;
implementation
  uses checkuser,userlist,password,speciality,course,studentinfo,score,courseseek,studentseek,scoreseek;
{$R *.dfm}

procedure TMainForm.N6Click(Sender: TObject);
begin
    close;
end;

procedure TMainForm.FormActivate(Sender: TObject);
begin
    username:='';
    CheckUserForm.ShowModal();
    if username<>'' then
    begin
        if right[1] then
        begin
            N2.Enabled:=true;
            N4.Enabled:=true;
        end
        else
        begin
            N2.Enabled:=false;
            N4.Enabled:=false;
        end;
        if right[2] then
        begin
            N8.Enabled:=true;
            N9.Enabled:=true;
            N11.Enabled:=true;
            N12.Enabled:=true;
        end
        else
        begin
            N8.Enabled:=false;
            N9.Enabled:=false;
            N11.Enabled:=false;
            N12.Enabled:=false;
        end;
        if right[3] then
        begin
            N14.Enabled:=true;
            N15.Enabled:=true;
            N16.Enabled:=true;
        end
        else
        begin
            N14.Enabled:=false;
            N15.Enabled:=false;
            N16.Enabled:=false;
        end;
    end
    else
        close;
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
    UserListForm.ShowModal();
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
    PasswordForm.ShowModal();
end;

procedure TMainForm.N4Click(Sender: TObject);
var
    database1:TDatabase;
    query1:TQuery;
begin
    if Application.MessageBox('您是否继续进行初始化！，Yes Or No?','提示信息',mb_YesNo)=IDYes then
    begin
        database1:=TDatabase.Create(self);
        database1.AliasName:='student';
        database1.LoginPrompt:=false;
        database1.Params.clear;
        database1.Params.Add('user_name=administator');
        database1.Params.add('password=650124');
        Query1:=TQuery.Create(self);
        Query1.DatabaseName:='student';
        query1.close;
        query1.SQL.clear;
        query1.SQL.add('delete from operator');
        query1.ExecSQL;
        query1.Close;
        query1.SQL.clear;
        query1.sql.add('insert into operator values(:s0,:s1,:s2,:s3,:s4,:s5,:s6,:s7)');
        query1.params.clear;
        query1.Params.CreateParam(ftstring,'s0',ptinput);
        query1.Params[0].Value:='admin';
        query1.Params.CreateParam(ftstring,'s1',ptinput);
        query1.Params[1].Value:='admin';
        query1.Params.CreateParam(ftstring,'s2',ptinput);
        query1.Params[2].Value:='网络管理';
        query1.Params.CreateParam(ftboolean,'s3',ptinput);
        query1.Params[3].Value:=true;
        query1.Params.CreateParam(ftboolean,'s4',ptinput);
        query1.Params[4].Value:=false;
        query1.Params.CreateParam(ftboolean,'s5',ptinput);
        query1.Params[5].Value:=false;
        query1.Params.CreateParam(ftstring,'s6',ptinput);
        query1.Params[6].Value:='系统默认';
        query1.Params.CreateParam(ftdatetime,'s7',ptinput);
        query1.Params[7].Value:=date();
        query1.Prepare;
        query1.ExecSQL;
        query1.close;
        query1.SQL.Clear;
        query1.sql.add('delete from speciality');
        query1.Prepare;
        query1.ExecSQL;
        query1.Close;
        query1.SQL.Clear;
        query1.sql.add('delete from course');
        query1.Prepare;
        query1.ExecSQL;
        query1.Close;
        query1.SQL.Clear;
        query1.sql.add('delete from student');
        query1.Prepare;
        query1.ExecSQL;
        query1.Close;
        query1.SQL.Clear;
        query1.sql.add('delete from result');
        query1.Prepare;
        query1.ExecSQL;
        query1.Close;
        Application.MessageBox('初始化结束！','提示信息',mb_ok);
    end;
end;

procedure TMainForm.N8Click(Sender: TObject);
begin
    SpecialityForm.ShowModal();
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
    CourseForm.ShowModal();
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
    StudentInfoForm.ShowModal();
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
    ScoreForm.ShowModal();
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
    ScoreseekForm.ShowModal();
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
    CourseseekForm.ShowModal();
end;

procedure TMainForm.N15Click(Sender: TObject);
begin
    StudentSeekForm.ShowModal();
end;

end.