main.pas

教材管理系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Buttons, ToolWin, ComCtrls, ExtCtrls, StdCtrls,DB,ADODB,
  ImgList;

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;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N21: TMenuItem;
    N20: TMenuItem;
    N22: TMenuItem;
    N110: TMenuItem;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton14: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton10: TToolButton;
    ToolButton9: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ImageList3: TImageList;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  username:string;            //用户名
  qx:array[1..4] of boolean;  //四个权限
implementation
 uses checkuser,operator,passwordchange,classmanage,units,bookfee,returnfee,bookin,studentbook,unitbook,classbookbrower,bookbrower,takebook;
{$R *.dfm}

procedure TMainForm.FormActivate(Sender: TObject);
begin
    CheckUserForm.ShowModal();
    if username<>'' then
    begin
        if qx[1] then
        begin
          N2.Enabled:=true;
          N4.Enabled:=true;
          N6.Enabled:=true;
          N21.Enabled:=true;
        end
        else
        begin
          N2.Enabled:=false;
          N4.Enabled:=false;
          N6.Enabled:=false;
          N21.Enabled:=false;
        end;
        if qx[2] then
        begin
          N10.Enabled:=true;
          N11.Enabled:=true;
        end
        else
        begin
          N10.Enabled:=false;
          N11.Enabled:=false;
        end;
        if qx[3] then
        begin
          N13.Enabled:=true;
          N14.Enabled:=true;
          N15.Enabled:=true;
        end
        else
        begin
          N13.Enabled:=false;
          N14.Enabled:=false;
          N15.Enabled:=false;
        end;
        if qx[4] then
        begin
          N17.Enabled:=true;
          N18.Enabled:=true;
          N19.Enabled:=true;
        end
        else
        begin
          N17.Enabled:=false;
          N18.Enabled:=false;
          N19.Enabled:=false;
        end;
    end
    else
        close;
end;

procedure TMainForm.SpeedButton14Click(Sender: TObject);
begin
    cLOSE;
end;

procedure TMainForm.N4Click(Sender: TObject);
var
    adoquery1:TAdoquery;
    adoconnection1:TAdoConnection;
begin
  if application.MessageBox('初始化将删除所有的信息,确定要进行该操作吗？', '提示信息',
      mb_okcancel + mb_iconquestion + mb_defbutton2) <> idok
      then begin
             exit;
           end;

    adoconnection1:=tadoconnection.Create(self);
    adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=qJcData.mdb;Persist Security Info=False';
    adoconnection1.LoginPrompt:=false;

    adoquery1:=TAdoquery.Create(self);
    adoquery1.Connection:=adoconnection1;
    adoquery1.Close;
    adoquery1.SQL.clear;
    adoquery1.sql.add('delete from 操作用户表');
    adoquery1.ExecSQL;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.sql.Add('insert into 操作用户表(用户名,密码,所在单位,权限一,权限二,权限三,权限四,操作员,最后修改时间)values(:s0,:s1,:s2,true,false,false,false,:s3,date())');
    adoquery1.Parameters.clear;
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[0].name:='s0';
    adoquery1.Parameters[0].DataType:=ftstring;
    adoquery1.Parameters[0].Direction:=pdinput;
    adoquery1.Parameters[0].Value:='admin';
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[1].name:='s1';
    adoquery1.Parameters[1].DataType:=ftstring;
    adoquery1.Parameters[1].Direction:=pdinput;
    adoquery1.Parameters[1].Value:='admin';
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[2].name:='s2';
    adoquery1.Parameters[2].DataType:=ftstring;
    adoquery1.Parameters[2].Direction:=pdinput;
    adoquery1.Parameters[2].Value:='网络管理';
    adoquery1.Parameters.AddParameter;
    adoquery1.Parameters[3].name:='s3';
    adoquery1.Parameters[3].DataType:=ftstring;
    adoquery1.Parameters[3].Direction:=pdinput;
    adoquery1.Parameters[3].Value:='系统默认';
    adoquery1.ExecSQL;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.sql.add('delete from 单位信息表');
    adoquery1.ExecSQL;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.sql.add('delete from 教材表');
    adoquery1.ExecSQL;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.sql.add('delete from 教材出入库历史表');
    adoquery1.ExecSQL;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.sql.add('delete from 学生书费历史库');
    adoquery1.ExecSQL;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.sql.add('delete from 班级表');
    adoquery1.Prepared;
    adoquery1.ExecSQL;
    adoquery1.Close;
    application.MessageBox('初始化结束！','提示信息',mb_ok);
end;

procedure TMainForm.N19Click(Sender: TObject);
begin
  TakeBookForm.ShowModal();//领书查询
end;

procedure TMainForm.ToolButton9Click(Sender: TObject);
begin
 OperatorForm.ShowModal();//用户管理
end;

procedure TMainForm.ToolButton1Click(Sender: TObject);
begin
  classform.ShowModal(); //班级管理
end;

procedure TMainForm.N21Click(Sender: TObject);
begin
  UnitForm.ShowModal(); //单位信息管理
end;

procedure TMainForm.ToolButton3Click(Sender: TObject);
begin
  bookfeeform.ShowModal();//缴纳书费管理
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
  ReturnFeeForm.ShowModal();//退回书费管理
end;

procedure TMainForm.ToolButton14Click(Sender: TObject);
begin
  bookinForm.ShowModal();//教材入库
end;

procedure TMainForm.ToolButton5Click(Sender: TObject);
begin
  studentbookform.ShowModal();//学生领书
end;

procedure TMainForm.ToolButton6Click(Sender: TObject);
begin
  unitbookForm.ShowModal();//教师领书
end;

procedure TMainForm.N17Click(Sender: TObject);
begin
  ClassBookBrowerForm.ShowModal();//书费查询
end;

procedure TMainForm.N18Click(Sender: TObject);
begin
  bookbrowerform.ShowModal();//库存查询
end;

procedure TMainForm.ToolButton13Click(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := '当前用户: '+ username;
  StatusBar1.Panels[1].Text := '当前日期: '+ Formatdatetime('YYYY年MM月DD日',Now());
  StatusBar1.Panels[2].Text := '当前时间: '+ Formatdatetime('HH:MM:SS',Now());
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
 OperatorForm.ShowModal();//用户管理
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
  passwordchangeform.ShowModal();//密码修改
end;

procedure TMainForm.N6Click(Sender: TObject);
begin
  classform.ShowModal(); //班级管理
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
  bookfeeform.ShowModal();//缴纳书费管理
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
  bookinForm.ShowModal();//教材入库
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
  studentbookform.ShowModal();//学生领书
end;

procedure TMainForm.N15Click(Sender: TObject);
begin
  unitbookForm.ShowModal();//教师领书
end;

procedure TMainForm.N7Click(Sender: TObject);
begin
  Close;
end;

end.