main.~pas

一个图书管理系统

unit main;

interface

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

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;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Label1: TLabel;
    procedure N7Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(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.N7Click(Sender: TObject);
begin
    Close;
end;

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;
          speedbutton1.Enabled:=true;
          speedbutton2.Enabled:=true;
          speedbutton3.Enabled:=true;
          speedbutton4.Enabled:=true;
        end
        else
        begin
          N2.Enabled:=false;
          N4.Enabled:=false;
          N6.Enabled:=false;
          N21.Enabled:=false;
          speedbutton1.Enabled:=false;
          speedbutton2.Enabled:=false;
          speedbutton3.Enabled:=false;
          speedbutton4.Enabled:=false;
        end;
        if qx[2] then
        begin
          N10.Enabled:=true;
          N11.Enabled:=true;
          speedbutton5.Enabled:=true;
          speedbutton6.Enabled:=true;
        end
        else
        begin
          N10.Enabled:=false;
          N11.Enabled:=false;
          speedbutton5.Enabled:=false;
          speedbutton6.Enabled:=false;
        end;
        if qx[3] then
        begin
          N13.Enabled:=true;
          N14.Enabled:=true;
          N15.Enabled:=true;
          speedbutton7.Enabled:=true;
          speedbutton8.Enabled:=true;
          speedbutton9.Enabled:=true;
        end
        else
        begin
          N13.Enabled:=false;
          N14.Enabled:=false;
          N15.Enabled:=false;
          speedbutton7.Enabled:=false;
          speedbutton8.Enabled:=false;
          speedbutton9.Enabled:=false;
        end;
        if qx[4] then
        begin
          N17.Enabled:=true;
          N18.Enabled:=true;
          N19.Enabled:=true;
 //         N20.Enabled:=true;
          speedbutton10.Enabled:=true;
          speedbutton11.Enabled:=true;
          speedbutton12.Enabled:=true;
          speedbutton13.Enabled:=true;
        end
        else
        begin
          N17.Enabled:=false;
          N18.Enabled:=false;
          N19.Enabled:=false;
//          N20.Enabled:=false;
          speedbutton10.Enabled:=false;
          speedbutton11.Enabled:=false;
          speedbutton12.Enabled:=false;
          speedbutton13.Enabled:=false;
        end;
    end
    else
        close;
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.N21Click(Sender: TObject);
begin
    UnitForm.ShowModal();
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
    bookfeeform.ShowModal();
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
    ReturnFeeForm.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.SpeedButton14Click(Sender: TObject);
begin
    cLOSE;
end;

procedure TMainForm.N4Click(Sender: TObject);
var
    adoquery1:TAdoquery;
    adoconnection1:TAdoConnection;
begin
    adoconnection1:=tadoconnection.Create(self);
    adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=教材系统.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.N17Click(Sender: TObject);
begin
    ClassBookBrowerForm.ShowModal();
end;

procedure TMainForm.N18Click(Sender: TObject);
begin
    bookbrowerform.ShowModal();
end;

procedure TMainForm.N19Click(Sender: TObject);
begin
      TakeBookForm.ShowModal();
end;

end.