unit1.pas

一个简单的权限管理

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBImage1: TDBImage;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Panel2: TPanel;
    Button5: TButton;
    Button6: TButton;
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  
  private
    { Private declarations }
    procedure Bzt(zt:boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.Bzt(zt:boolean);
begin
  dbedit1.Enabled:=zt;
  dbedit2.Enabled:=zt;
  dbedit3.Enabled:=zt;
  dbcombobox1.Enabled:=zt;
  dbcheckbox1.Enabled:=zt;
  dbcheckbox2.Enabled:=zt;
  dbcheckbox3.Enabled:=zt;
  dbcheckbox4.Enabled:=zt;
  dbcheckbox5.Enabled:=zt;
  button4.Enabled:=zt;
  dbgrid1.Enabled:=not zt;
  panel2.Visible:=zt;
end;

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

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

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

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

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



end.