unit ManManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids;

type
  TManManageForm = class(TForm)
    Label1: TLabel;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ManManageForm: TManManageForm;
  UseId, Types, Tables, List1, List2, UserTypes:String;
  UserId, Passwd :Integer;

implementation

uses Login,Main,Data;

{$R *.dfm}

procedure TManManageForm.Button1Click(Sender: TObject);
begin
  if Edit1.Text='' then
    begin
      Application.MessageBox('編號(hào)不能為空','錯(cuò)誤信息',MB_OK+MB_ICONEXCLAMATION);
    end
  else
    begin
  with Data.DataModule.ManManage do
    begin
      if Main.Choose=1 then //增加
        begin
          if CheckBox1.Checked=False then
            begin
              Close;
              SQL.Clear;
              SQL.Add('insert into');
              SQL.Add(Tables);
              SQL.Add('(');
              SQL.Add(List1);
              SQL.Add(',');
              SQL.Add(List2);
              SQL.Add(',密碼');
              SQL.Add(')');
              SQL.Add('VALUES(');
              SQL.Add(Edit1.Text);
              SQL.Add(',');
              SQL.Add(UserTypes);
              SQL.Add(',''8888''');
              SQL.Add(')');
              ExecSQL;
              Close;
              SQL.Clear;
              SQL.Add('select ');
              SQL.Add(List1);
              SQL.Add(',姓名,性別,出生年月,所在單位,聯(lián)系地址,郵政編碼,電話1,電話2,備注');
              SQL.Add('from');
              SQL.Add(Tables);
              SQL.Add('where');
              SQL.Add(List2);
              SQL.Add('=');
              SQL.Add(UserTypes);
              Open;
            end
          else //批量，沒做
            begin
            end;
        end
      else if Main.Choose=2 then //修改
        begin
          if CheckBox1.Checked=False then
            begin
              Close;
              SQL.Clear;
              SQL.Add('update ');
              SQL.Add(Tables);
              SQL.Add('set ');
              SQL.Add(List2);
              SQL.Add('=');
              SQL.Add(UserTypes);
              SQL.Add('where ');
              SQL.Add(List1);
              SQL.Add('= ');
              SQL.Add(Edit1.Text);
              ExecSQL;
              Close;
              SQL.Clear;
              SQL.Add('select ');
              SQL.Add(List1);
              SQL.Add(',姓名,性別,出生年月,所在單位,聯(lián)系地址,郵政編碼,電話1,電話2,備注');
              SQL.Add('from');
              SQL.Add(Tables);
              SQL.Add('where');
              SQL.Add(List2);
              SQL.Add('=');
              SQL.Add(UserTypes);
              Open;
            end
          else //批量
            begin
            end;
        end
      else if Main.Choose=3 then //刪除
        begin
          if CheckBox1.Checked=False then
            begin
              Close;
              SQL.Clear;
              SQL.Add('delete from');
              SQL.Add(Tables);
              SQL.Add('where');
              SQL.Add(List1);
              SQL.Add('=');
              SQL.Add(Edit1.Text);
              ExecSQL;
              Close;
              SQL.Clear;
              SQL.Add('select ');
              SQL.Add(List1);
              SQL.Add(',姓名,性別,出生年月,所在單位,聯(lián)系地址,郵政編碼,電話1,電話2,備注');
              SQL.Add('from');
              SQL.Add(Tables);
              SQL.Add('where');
              SQL.Add(List2);
              SQL.Add('=');
              SQL.Add(UserTypes);
              Open;
            end
          else //批量
            begin
            end;
        end;
      end
    end;
  //更新讀者表，初始化已借數(shù)量為0
  if (ComboBox1.Text='學(xué)生') or (ComboBox1.Text='老師') or (ComboBox1.Text='其他') then
    begin
      with Data.DataModule.manInit do
        begin
          Close;
          SQL.Clear;
          SQL.Add('update 讀者 set 已借數(shù)量=0 where 讀者證號(hào)=''' + Edit1.Text + '''');
          ExecSQL;
        end
    end;
  Edit1.Clear;
end;

procedure TManManageForm.FormShow(Sender: TObject);
begin
  UseId := Login.UseId;
  Types := Login.Types;
  //根據(jù)權(quán)限設(shè)置類型的可選項(xiàng)
  with Data.DataModule.ManManage do
    begin
      if Main.Purview[1]<>0 then
        begin
          ComboBox1.Items.Add('超級(jí)管理員');
          ComboBox1.Items.Add('圖書管理員（入庫(kù)）');
          ComboBox1.Items.Add('圖書管理員（刪除）');
          ComboBox1.Items.Add('借閱管理員');
          ComboBox1.Items.Add('歸還管理員');
          ComboBox1.Items.Add('人事管理員');
          ComboBox1.Items.Add('讀者管理員');
        end;
      if Main.Purview[2]<>0 then
        begin
          ComboBox1.Items.Add('老師');
          ComboBox1.Items.Add('學(xué)生');
          ComboBox1.Items.Add('其他');
        end;
      //設(shè)置組合框顯示第一個(gè)選項(xiàng)
      ComboBox1.ItemIndex := 0;
      //根據(jù)設(shè)置CheckBox的是否選擇來(lái)確定是否是批量操作
      if CheckBox1.Checked=False then
        begin
          Edit2.Enabled := False;
          Edit2.Color := clScrollBar;
        end
    end
end;

procedure TManManageForm.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked=False then
    begin
      Edit2.Enabled := False;
      Edit2.Color := clScrollBar;
    end
  else
    begin
      Edit2.Enabled := True;
      Edit2.Color := clWindow;
    end
end;

procedure TManManageForm.ComboBox1Change(Sender: TObject);
begin
  //確定要查詢的表和列名、及管理類型
  if ComboBox1.Text='學(xué)生' then
    begin
      UserTypes := '6';
      Tables := '讀者';
      List1 := '讀者證號(hào)';
      List2 := '讀者類型';
    end
  else if ComboBox1.Text='老師' then
    begin
      UserTypes := '8';
      Tables := '讀者';
      List1 := '讀者證號(hào)';
      List2 := '讀者類型';
    end
  else if ComboBox1.Text='其他' then
    begin
      UserTypes := '4';
      Tables := '讀者';
      List1 := '讀者證號(hào)';
      List2 := '讀者類型';
    end
  else if ComboBox1.Text='借閱管理員' then
    begin
      UserTypes := '16';
      Tables := '管理員';
      List1 := '工作編號(hào)';
      List2 := '管理員類型';
    end
  else if ComboBox1.Text='歸還管理員' then
    begin
      UserTypes := '18';
      Tables := '管理員';
      List1 := '工作編號(hào)';
      List2 := '管理員類型';
    end
  else if ComboBox1.Text='人事管理員' then
    begin
      UserTypes := '20';
      Tables := '管理員';
      List1 := '工作編號(hào)';
      List2 := '管理員類型';
    end
  else if ComboBox1.Text='讀者管理員' then
    begin
      UserTypes := '22';
      Tables := '管理員';
      List1 := '工作編號(hào)';
      List2 := '管理員類型';
    end
  else if ComboBox1.Text='圖書管理員（入庫(kù)）' then
    begin
      UserTypes := '12';
      Tables := '管理員';
      List1 := '工作編號(hào)';
      List2 := '管理員類型';
    end
  else if ComboBox1.Text='圖書管理員（刪除）' then
    begin
      UserTypes := '14';
      Tables := '管理員';
      List1 := '工作編號(hào)';
      List2 := '管理員類型';
    end
  else if ComboBox1.Text='超級(jí)管理員' then
    begin
      UserTypes := '99';
      Tables := '管理員';
      List1 := '工作編號(hào)';
      List2 := '管理員類型';
    end;
  //查詢
  DBGrid1.DataSource := Data.DataModule.ManManageDS;
  with Data.DataModule.ManManage do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select ');
      SQL.Add(List1);
      SQL.Add(',姓名,性別,出生年月,所在單位,聯(lián)系地址,郵政編碼,電話1,電話2,備注');
      SQL.Add('from');
      SQL.Add(Tables);
      SQL.Add('where');
      SQL.Add(List2);
      SQL.Add('=');
      SQL.Add(UserTypes);
      Open;
    end;
end;

procedure TManManageForm.Button2Click(Sender: TObject);
begin
  ComboBox1.Items.Clear;
  ManManageForm.Close;
end;

procedure TManManageForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  ComboBox1.Items.Clear;
end;

end.