main.~pas

四川大学图书管理系统！sql+c++实现

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, ComCtrls;

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;
    Image1: TImage;
    GroupBox1: TGroupBox;
    StatusBar1: TStatusBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure N16Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  UserId,Types : String;
  Purview : array [1..11] of Smallint;
  Choose : Smallint;

implementation

uses Login,Data,ManManage,BookManage,BorrowManage,UserDefine,InfoQuery;

{$R *.dfm}

procedure TMainForm.FormShow(Sender: TObject);
begin
  UserId := Login.UseId;
  Types := Login.BackTypes;
  //设置状态栏
  StatusBar1.Panels[0].Text := '用户名：' + UserId;
  //查询权限表（管理员类型），确定菜单的显示情况
  with Data.DataModule.Main do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 管理员类型');
    SQL.Add('where 类型 = ''' + Types + '''');
    Open;
    Purview[1] := FieldByName('增加删除管理员').AsInteger;
    Purview[2] := FieldByName('增加删除读者').AsInteger;
    Purview[3] := FieldByName('增加在库图书').AsInteger;
    Purview[4] := FieldByName('删除在库图书').AsInteger;
    Purview[5] := FieldByName('增加借阅记录').AsInteger;
    Purview[6] := FieldByName('删除借阅记录').AsInteger;
    Purview[7] := FieldByName('查询图书信息').AsInteger;
    Purview[8] := FieldByName('查看所有人信息').AsInteger;
    Purview[9] := FieldByName('查询所有读者信息').AsInteger;
    Purview[10] := FieldByName('查询修改本人信息').AsInteger;
    Purview[11] := FieldByName('自定义查询').AsInteger;
    if (Purview[1]=0) and (Purview[2]=0) then
      begin
        N1.Enabled := false;
        N2.Enabled := false;
        N3.Enabled := false;
        N4.Enabled := false;
      end;
    if Purview[3]=0 then
      N6.Enabled := false;
    if Purview[4]=0 then
      N7.Enabled := false;
    if (Purview[3]=0) and (Purview[4]=0) then
      N5.Enabled := false;
    if Purview[5]=0 then
      N9.Enabled := false;
    if Purview[6]=0 then
      N10.Enabled := false;
    if (Purview[5]=0) and (Purview[6]=0) then
      N8.Enabled := false;
    if Purview[7]=0 then
      N12.Enabled := false;
    if (Purview[8]=0) and (Purview[9]=0) then
      N13.Enabled := false;
    if Purview[10]=0 then
      N14.Enabled := false;
    if Purview[11]=0 then
      N15.Enabled := false;
  end
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  LoginForm.Close;
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
  ManManage.ManManageForm.GroupBox1.Caption := '增加人员';
  ManManage.ManManageForm.CheckBox1.Caption := '是否批量增加';
  Choose := 1;
  ManManageForm.Show;
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
  ManManage.ManManageForm.GroupBox1.Caption := '修改人员';
  ManManage.ManManageForm.CheckBox1.Caption := '是否批量修改';
  Choose := 2;
  ManManageForm.Show;
end;

procedure TMainForm.N4Click(Sender: TObject);
begin
  ManManage.ManManageForm.GroupBox1.Caption := '删除人员';
  ManManage.ManManageForm.CheckBox1.Caption := '是否批量删除';
  Choose := 3;
  ManManageForm.Show;
end;

procedure TMainForm.N6Click(Sender: TObject);
begin
  Choose := 6;
  BookManageForm.Show;
end;

procedure TMainForm.N7Click(Sender: TObject);
begin
  Choose := 7;
  BookManageForm.Show;
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
  Choose := 9;
  BorrowManageForm.Show;
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
  Choose := 10;
  BorrowManageForm.Show;
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
  Choose := 12;
  InfoQueryForm.Show;
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
  Choose := 13;
  InfoQueryForm.Show;
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
  Choose := 14;
  InfoQueryForm.Show;
end;

procedure TMainForm.N15Click(Sender: TObject);
begin
  UserDefineForm.Show;
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
  MainForm.Hide;
  N1.Enabled := true;
  N2.Enabled := true;
  N3.Enabled := true;
  N4.Enabled := true;
  N5.Enabled := true;
  N6.Enabled := true;
  N7.Enabled := true;
  N8.Enabled := true;
  N9.Enabled := true;
  N10.Enabled := true;
  N11.Enabled := true;
  N12.Enabled := true;
  N13.Enabled := true;
  N14.Enabled := true;
  N15.Enabled := true;
  N16.Enabled := true;
  N17.Enabled := true;
  N18.Enabled := true;
  N19.Enabled := true;
  LoginForm.Show;
end;

procedure TMainForm.N19Click(Sender: TObject);
begin
  Application.MessageBox('图书管理系统0.01版','关于',MB_OK+MB_ICONEXCLAMATION);
end;

end.