mc_powersetup.pas

异洲酒店管理系统

unit MC_PowerSetup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, ComCtrls, ImgList,
  Buttons, DB, DBTables;

type
  TPowerSetup = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    GroupBox3: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Bevel1: TBevel;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox9: TCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PowerSetup: TPowerSetup;

implementation

uses MC_TLCYGLXT;

{$R *.DFM}
//添加新用户
procedure TPowerSetup.BitBtn1Click(Sender: TObject);
begin
 DBEdit1.Enabled:=True;
 DBEdit2.Enabled:=True;
 TLCYGLXT.Power.Append;
 GroupBox2.Visible:=True;
 DBEdit1.SetFocus;
 DBGrid1.Enabled:=False;
 Panel1.Enabled:=False;
end;
//修改用户信息
procedure TPowerSetup.BitBtn3Click(Sender: TObject);
begin
 if TLCYGLXT.Power.FieldByName('编号').AsString='controller' then
 begin
  TLCYGLXT.Power.Edit;
  DBEdit1.Enabled:=False;
  DBEdit2.Enabled:=False;
  GroupBox2.Visible:=True;
  DBEdit3.SetFocus;
  DBGrid1.Enabled:=False;
  Panel1.Enabled:=False;
 End
 Else
 begin
  DBEdit1.Enabled:=True;
  DBEdit2.Enabled:=True;
  TLCYGLXT.Power.Edit;
  GroupBox2.Visible:=True;
  DBEdit1.SetFocus;
  Panel1.Enabled:=False;
  DBGrid1.Enabled:=False;
  GroupBox1.Enabled:=False;
 end;
end;
//保存数据添加
procedure TPowerSetup.BitBtn5Click(Sender: TObject);
var ccc:String;
begin
 Try
 If (Length(DBEdit1.Text) = 0) Or (Length(DBEdit2.Text) = 0) Then
 begin
 ShowMessage('编号和姓名不能为空');
 End
 Else
 begin
 if RadioButton1.Checked=True then ccc:='A'
 Else
 if RadioButton2.Checked=True Then ccc:='B'
 Else
 If RadioButton3.Checked = True Then
 begin
  ccc:='C';
  If CheckBox3.Checked = True Then
   begin
     ccc:=ccc+'D';
   end;
  If CheckBox4.Checked = True Then
   begin
     ccc:=ccc+'E';
   end;
  If CheckBox5.Checked = True Then
   begin
     ccc:=ccc+'F';
   end;
  If CheckBox6.Checked = True Then
   begin
     ccc:=ccc+'G';
   end;
  If CheckBox7.Checked = True Then
   begin
     ccc:=ccc+'J';
   end;
  If CheckBox8.Checked = True Then
   begin
     ccc:=ccc+'H';
   end;
 end;
 If Length(ccc) = 1 Then
 if ccc='C' then
 begin
   ShowMessage('请选择自定义权限.');
   Exit;
 end;
 TLCYGLXT.Power.FieldByName('权限').AsString:=ccc;
 TLCYGLXt.Power.Post;
 Panel1.Enabled:=True;
 GroupBox2.Visible:=False;
 DBGrid1.Enabled:=True;
 GroupBox1.Enabled:=True;
 end;
 Except
 ShowMessage('编号不能重复.');
 End;
end;
//取消数据添加
procedure TPowerSetup.BitBtn6Click(Sender: TObject);
begin
 TLCYGLXT.Power.Cancel;
 GroupBox2.Visible:=False;
 GroupBox1.Enabled:=True;
 DBGrid1.Enabled:=True;
 Panel1.Enabled:=True;
end;
//删除用户信息
procedure TPowerSetup.BitBtn2Click(Sender: TObject);
begin
 if TLCYGLXT.Power.FieldByname('编号').AsString='controller' then
 begin
 ShowMessage('系统管理员是不能删除的');
 End
 Else
 TLCYGLXT.Power.Delete;
end;

procedure TPowerSetup.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);
end;
//自定义权限设置
procedure TPowerSetup.RadioButton3Click(Sender: TObject);
begin
 CheckBox3.Enabled:=True;
 CheckBox4.Enabled:=True;
 CheckBox5.Enabled:=True;
 CheckBox6.Enabled:=True;
 CheckBox7.Enabled:=True;
 CheckBox8.Enabled:=True;
end;
//基础操作员权限设置
procedure TPowerSetup.RadioButton1Click(Sender: TObject);
begin
 CheckBox3.Enabled:=False;
 CheckBox4.Enabled:=False;
 CheckBox5.Enabled:=False;
 CheckBox6.Enabled:=False;
 CheckBox7.Enabled:=False;
 CheckBox8.Enabled:=False;
end;
//高级操作员权限设置
procedure TPowerSetup.RadioButton2Click(Sender: TObject);
begin
 CheckBox3.Enabled:=False;
 CheckBox4.Enabled:=False;
 CheckBox5.Enabled:=False;
 CheckBox6.Enabled:=False;
 CheckBox7.Enabled:=False;
 CheckBox8.Enabled:=False;
end;
//选择操作员信息
procedure TPowerSetup.DBGrid1CellClick(Column: TColumn);
var ccc:String;
begin
 CheckBox3.Checked:=False;
 CheckBox4.Checked:=False;
 CheckBox5.Checked:=False;
 CheckBox6.Checked:=False;
 CheckBox7.Checked:=False;
 CheckBox8.Checked:=False;
 If TLCYGLXT.Power.RecordCount <> 0 Then
 begin
 ccc:=TLCYGLXT.Power.FieldByName('权限').AsString;
 if Pos('A',ccc)>0 then
 begin
  RadioButton1.Checked:=True;
 end;
 if Pos('B',ccc)>0 then
 begin
  RadioButton2.Checked:=True;
 end;
 if Pos('C',ccc)>0 then
 begin
  RadioButton3.Checked:=True;
 end;
 if Pos('D',ccc)>0 then
 begin
  CheckBox3.checked:=True;
 end;
 if Pos('E',ccc)>0 then
 begin
  CheckBox4.checked:=True;
 end;
 if Pos('F',ccc)>0 then
 begin
  CheckBox5.checked:=True;
 end;
 if Pos('G',ccc)>0 then
 begin
  CheckBox6.checked:=True;
 end;
 if Pos('J',ccc)>0 then
 begin
  CheckBox7.checked:=True;
 end;
 if Pos('H',ccc)>0 then
 begin
  CheckBox8.checked:=True;
 end;
 end;
end;

procedure TPowerSetup.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 PowerSetup.Release;
 PowerSetup:=Nil;
 TLCYGLXT.Power.Close;
end;
//退出
procedure TPowerSetup.BitBtn4Click(Sender: TObject);
begin
 Close;
end;

procedure TPowerSetup.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
 If BitBtn4.Enabled = False Then
 begin
 ShowMessage('请将数据处理完后退出.');
 Abort;
 end;
end;
end.