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     //添加用戶(hù)信息
  begin
    Groupbox1.Enabled:=True;   //用戶(hù)信息區(qū)域可用
    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;     //用戶(hù)信息區(qū)域不可用
    BitBtn1.Caption:='添加[&I]';
    BitBtn3.Caption:='修改[&E]';
    BitBtn2.enabled:=True;
    Bitbtn4.Enabled:=True;
    DBGrid1.Enabled:=True;
    Table1.Cancel;     //取消當(dāng)前記錄的修改
  end;
end;

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

procedure TYHQXGL.BitBtn2Click(Sender: TObject);
begin
  if Table1.FieldByName('姓名').AsString='系統(tǒng)管理員' then
  ShowMessage('不能刪除系統(tǒng)管理員!!')
  Else
  If Table1.RecordCount <> 0 Then
  if MessageDlg('是否刪除當(dāng)前用戶(hù)的信息？',mtCustom,[mbYes,mbNo],0)=mrYes then
  begin
    Query2.close;
    Query2.SQL.Clear;
    Query2.sQL.Add('Delete 權(quán)限檢查表');
    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);  //權(quán)限修改
begin
  GroupBox3.Visible:=True;  //顯示用戶(hù)權(quán)限
end;

procedure TYHQXGL.BitBtn5Click(Sender: TObject);    //關(guān)閉權(quán)限修改
begin
  GroupBox3.Visible:=False;   //隱藏用戶(hù)權(quán)限
end;

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

procedure TYHQXGL.ListBox1DblClick(Sender: TObject);  //設(shè)置操作權(quán)限
var a:String;
  begin
  Query1.close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * From 權(quán)限檢查表 where 姓名=:A');
  Query1.ParamByName('A').AsString:=Table1.FieldByName('姓名').AsString;
  Query1.Open;
  if RadioButton1.Checked then a:=RadioButton1.Caption  else a:=RadioButton2.Caption; //設(shè)置操作權(quán)限讀或?qū)?  if Query1.Locate('使用選項(xiàng)',ListBox1.Items.Strings[ListBox1.ItemIndex],[loPartialKey]) then
  begin      //如果權(quán)限已設(shè)置,則修改操作權(quán)限
    Query2.Close;
    Query2.SQL.Clear;
    Query2.SQL.Add('update 權(quán)限檢查表 Set 讀寫(xiě)=:B Where 使用選項(xiàng)=: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       //如果權(quán)限未設(shè)置,則添加此操作權(quán)限
  begin
    Query2.Close;
    Query2.SQL.Clear;
    Query2.SQL.Add('Insert 權(quán)限檢查表(姓名,使用選項(xiàng),讀寫(xiě))');
    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);  //刪除選中權(quán)限
begin
  If Query1.Active Then
  if Table1.FieldbyName('用戶(hù)類(lèi)別').AsString<>'系統(tǒng)管理員' then
  If Query1.RecordCount <> 0 Then
  begin
    Query2.Close;
    Query2.SQL.Clear;
    Query2.SQL.Add('Delete 權(quán)限檢查表 Where 姓名=:A and 使用選項(xiàng)=:B');
    Query2.ParamByName('A').AsString:=Table1.FieldByName('姓名').aSString;
    Query2.ParamByName('B').AsString:=Query1.FieldByName('使用選項(xiàng)').AsString;
    Query2.ExecSQL;
    Query1.Close;
    Query1.Open;
  end;
end;

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