unit MC_YHQXGL;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Grids, DBGrids, Buttons, Mask, DBCtrls;

type
  TYHQXGL = class(TForm)
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    Query1: TQuery;
    DataSource2: TDataSource;
    Query2: TQuery;
    BitBtn4: TBitBtn;
    GroupBox3: TGroupBox;
    ListBox1: TListBox;
    BitBtn5: TBitBtn;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure ListBox1DblClick(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YHQXGL: TYHQXGL;

implementation

{$R *.DFM}

procedure TYHQXGL.BitBtn1Click(Sender: TObject);
begin
  if BitBtn1.Caption='添加[&I]' then     //添加用戶信息
  begin
    Groupbox1.Enabled:=True;   //用戶信息區域可用
    Bitbtn1.Caption:='取消[&U]';
    BitBtn3.Caption:='保存[&S]';
    Bitbtn2.Enabled:=False;
    BitBtn4.Enabled:=False;
    DBGrid1.Enabled:=False;
    Table1.Append;     //添加一條記錄
    DBEdit1.SetFocus;
  End
  Else
  begin
    GroupBox1.Enabled:=False;     //用戶信息區域不可用
    BitBtn1.Caption:='添加[&I]';
    BitBtn3.Caption:='修改[&E]';
    BitBtn2.enabled:=True;
    Bitbtn4.Enabled:=True;
    DBGrid1.Enabled:=True;
    Table1.Cancel;     //取消當前記錄的修改
  end;
end;

procedure TYHQXGL.BitBtn3Click(Sender: TObject);
begin
  if BitBtn3.Caption='修改[&E]' then   //修改用戶信息
  begin
  Groupbox1.Enabled:=True;      //用戶信息區域可編輯
  Bitbtn1.Caption:='取消[&U]';
  BitBtn3.Caption:='保存[&S]';
  Bitbtn2.Enabled:=False;
  BitBtn4.Enabled:=False;
  DBGrid1.Enabled:=False;
  Table1.Edit;        //使數據集處于編輯狀態
  DBEdit1.SetFocus;
  End
  Else
  begin
  if Length(Table1.FieldByname('姓名').asString)=0 then
  showMessage('請輸入姓名')
  Else      //保存用戶信息
  begin
     GroupBox1.Enabled:=False;
     BitBtn1.Caption:='添加[&I]';
     BitBtn3.Caption:='修改[&E]';
     BitBtn2.enabled:=True;
     Bitbtn4.Enabled:=True;
     DBGrid1.Enabled:=True;
     Table1.Post;    //將用戶信息寫入數據庫
  end;
  end;
end;

procedure TYHQXGL.BitBtn2Click(Sender: TObject);
begin
  if Table1.FieldByName('姓名').AsString='系統管理員' then
  ShowMessage('不能刪除系統管理員!!')
  Else
  If Table1.RecordCount <> 0 Then
  if MessageDlg('是否刪除當前用戶的信息？',mtCustom,[mbYes,mbNo],0)=mrYes then
  begin
    Query2.close;
    Query2.SQL.Clear;
    Query2.sQL.Add('Delete 權限檢查表');
    Query2.SQL.Add('Where 姓名=:A');
    Query2.ParamByName('A').AsString:=Table1.FieldByName('姓名').AsString;
    Query2.EXECSQL;
    Table1.Delete;
    Query1.Close;
    Query1.Open;
  end;
end;

procedure TYHQXGL.BitBtn4Click(Sender: TObject);  //權限修改
begin
  GroupBox3.Visible:=True;  //顯示用戶權限
end;

procedure TYHQXGL.BitBtn5Click(Sender: TObject);    //關閉權限修改
begin
  GroupBox3.Visible:=False;   //隱藏用戶權限
end;

procedure TYHQXGL.Table1AfterScroll(DataSet: TDataSet);  //選擇不同的操作員,權限列表顯示相應權限
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * From 權限檢查表 Where 姓名=:A ORDER By 使用選項 ASC');
  Query1.ParamByName('A').AsString:=Table1.FieldByName('姓名').AsString;
  Query1.Open;
end;

procedure TYHQXGL.ListBox1DblClick(Sender: TObject);  //設置操作權限
var a:String;
  begin
  Query1.close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * From 權限檢查表 where 姓名=:A');
  Query1.ParamByName('A').AsString:=Table1.FieldByName('姓名').AsString;
  Query1.Open;
  if RadioButton1.Checked then a:=RadioButton1.Caption  else a:=RadioButton2.Caption; //設置操作權限讀或寫
  if Query1.Locate('使用選項',ListBox1.Items.Strings[ListBox1.ItemIndex],[loPartialKey]) then
  begin      //如果權限已設置,則修改操作權限
    Query2.Close;
    Query2.SQL.Clear;
    Query2.SQL.Add('update 權限檢查表 Set 讀寫=:B Where 使用選項=:C and 姓名=:D');
    Query2.ParamByName('C').AsString:=ListBox1.Items.Strings[ListBox1.ItemIndex];
    Query2.ParamByName('D').AsString:=Table1.FieldByName('姓名').AsString;
    Query2.ParamByName('B').AsString:=a;
    Query2.EXECSQL;
  End
  Else       //如果權限未設置,則添加此操作權限
  begin
    Query2.Close;
    Query2.SQL.Clear;
    Query2.SQL.Add('Insert 權限檢查表(姓名,使用選項,讀寫)');
    Query2.SQL.Add('Values(:A,:B,:C)');
    Query2.ParamByName('A').AsString:=Table1.FieldByName('姓名').AsString;
    Query2.ParamByName('B').AsString:=ListBox1.Items.Strings[ListBox1.ItemIndex];
    Query2.ParamByName('C').AsString:=a;
    Query2.ExecSQL;
  end;
    Query1.Close;
    Query1.Open;
end;

procedure TYHQXGL.DBGrid2DblClick(Sender: TObject);  //刪除選中權限
begin
  If Query1.Active Then
  if Table1.FieldbyName('用戶類別').AsString<>'系統管理員' then
  If Query1.RecordCount <> 0 Then
  begin
    Query2.Close;
    Query2.SQL.Clear;
    Query2.SQL.Add('Delete 權限檢查表 Where 姓名=:A and 使用選項=:B');
    Query2.ParamByName('A').AsString:=Table1.FieldByName('姓名').aSString;
    Query2.ParamByName('B').AsString:=Query1.FieldByName('使用選項').AsString;
    Query2.ExecSQL;
    Query1.Close;
    Query1.Open;
  end;
end;

procedure TYHQXGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  YHQXGL.Release;
  YHQXGL:=Nil;
end;
end.