unit1.~pas

Delphi做的权限管理的例子 可以供作系统的朋友研究学习

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ComCtrls, DB, ADODB, DBCtrls, StdCtrls, Mask,
  ExtCtrls, Buttons, Menus, ExtDlgs;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBImage1: TDBImage;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    ADOTable1DSDesigner: TWideStringField;
    ADOTable1DSDesigner2: TWideStringField;
    ADOTable1DSDesigner3: TWideStringField;
    ADOTable1DSDesigner4: TDateTimeField;
    ADOTable1DSDesigner5: TBlobField;
    ADOTable1QX1: TBooleanField;
    ADOTable1QX2: TBooleanField;
    ADOTable1QX3: TBooleanField;
    ADOTable1QX4: TBooleanField;
    ADOTable1QX5: TBooleanField;
    ADOTable1QXDJ: TIntegerField;
    OPD1: TOpenPictureDialog;
    DBGrid1: TDBGrid;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label5: TLabel;
    DBEdit6: TDBEdit;
    Label6: TLabel;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    DBComboBox1: TDBComboBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Panel2: TPanel;
    Button5: TButton;
    Button6: TButton;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Panel4: TPanel;
    Button9: TButton;
    Button10: TButton;
    Button7: TButton;
    MainMenu1: TMainMenu;
    N11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N8: TMenuItem;
    N51: TMenuItem;
    N9: TMenuItem;
    Button4: TButton;
    X1: TMenuItem;
    AAAAA1: TMenuItem;
    N10: TMenuItem;
    BBBBB1: TMenuItem;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    B1: TButton;
    B2: TButton;
    B3: TButton;
    Button8: TButton;
    ADOTable1qx: TWideStringField;
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure Bzt1(zt:boolean);
    procedure Bzt2(zt:boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  _user,_rule:string;

implementation

{$R *.dfm}

procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
  button3.Enabled:= not ADOTable1.Eof;
end;

procedure TForm1.Bzt1(zt:boolean);
begin
  dbedit1.Enabled:=zt;
  dbedit2.Enabled:=zt;
  dbedit3.Enabled:=zt;
  dbgrid1.Enabled:=not zt;
  panel2.Visible:=zt;
  if zt then
    dbimage1.PopupMenu:=PopupMenu1
  else
    dbimage1.PopupMenu:=nil;
end;

procedure TForm1.Bzt2(zt:boolean);
begin
  dbcombobox1.Enabled:=zt;
  dbcheckbox1.Enabled:=zt;
  dbcheckbox2.Enabled:=zt;
  dbcheckbox3.Enabled:=zt;
  dbcheckbox4.Enabled:=zt;
  dbcheckbox5.Enabled:=zt;
  panel4.Visible:=zt;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  adotable1.Edit;
  Bzt1(true);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    adotable1.Append;
    Bzt1(true);
    dbedit1.SetFocus;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  adotable1.Post;
  Bzt1(false);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  adotable1.Cancel;
  Bzt1(false);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if MessageDlg('删除当前用户吗？',
    mtconfirmation,[mbyes,mbno],0)=mrno then exit;
  adotable1.Delete;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  dbimage1.CopyToClipboard;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
  dbimage1.PasteFromClipboard;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
if opd1.Execute then
  dbimage1.Picture.LoadFromFile(opd1.filename);
end;

procedure TForm1.N6Click(Sender: TObject);
begin
  dbimage1.Picture:=nil;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  adotable1.Edit;
  Bzt2(TRUE);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  adotable1.Post;
  Bzt2(false);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
  adotable1.Cancel;
  Bzt2(false);
end;

procedure TForm1.N9Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  //控制菜单项
  n11.Enabled:=adotable1.FieldByName('QX1').AsBoolean;
  n21.Enabled:=adotable1.FieldByName('QX2').AsBoolean;
  n31.Enabled:=adotable1.FieldByName('QX3').AsBoolean;
  n41.Enabled:=adotable1.FieldByName('QX4').AsBoolean;
  n51.Enabled:=adotable1.FieldByName('QX5').AsBoolean;
  //控制按钮
  b1.Enabled:=adotable1.FieldByName('QX1').AsBoolean;
  b2.Enabled:=adotable1.FieldByName('QX2').AsBoolean;
  b3.Enabled:=adotable1.FieldByName('QX3').AsBoolean;
  //控制页
  tabsheet3.tabVisible:=adotable1.FieldByName('QX4').AsBoolean;
  tabsheet4.tabVisible:=adotable1.FieldByName('QXDJ').AsInteger>=3;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
//  if substr(_rule,12,1)='1' then
  //控制进入下一步操作
{  if adotable1.FieldByName('QX5').AsBoolean then
    showmessage('可以进入下一步操作')
  else
    showmessage('不能进入下一步操作');
}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  _user:=adotable1.Fieldbyname('用户名称').AsString;
  _rule:=adotable1.Fieldbyname('qx').AsString;
end;

end.