unit FormRights;

interface

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

type
  Trights = class(TForm)
    GroupBox1: TGroupBox;
    DBNavigator1: TDBNavigator;
    DBEdit1: TDBEdit;
    DBRadioGroup1: TDBRadioGroup;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    Label1: TLabel;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Button4: TButton;
    CheckBox1: TCheckBox;
    DBEdit2: TDBEdit;
    
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
//    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rights: Trights;
  UserName:string;
  UserNumber,MaxNumber:string;
  order:integer;

implementation

uses FormManage;

{$R *.dfm}


//-----------關閉窗體時同時關閉對權限清單的插入許可功能------------------
procedure Trights.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//先將對權限清單表的插入功能關閉
//AdoTable1.ReadOnly:=true;
//關閉窗體是返回上一級窗體
manage.show;
end;

//------------------窗體顯示時，為下拉列表框設置用戶詞典------------------------
//-------------------不允許對管理員sys的權限進行設置-------------------------
procedure TRights.Button1Click(Sender: TObject);
var num :integer;
begin

 ADOTable1.Insert;
end;
procedure Trights.Button2Click(Sender: TObject);
begin
ADOTable1.Delete;
end;

procedure Trights.Button3Click(Sender: TObject);
begin
ADOTable1.Edit;

end;

procedure Trights.Button4Click(Sender: TObject);

begin
if CheckBox1.Checked=true
then
begin
if Edit2.Text=DBEdit2.Field.AsString
then
begin
ADOTABLE1.Post;
end
else
begin
ShowMessage('兩次輸入的口令不一致，請重新輸入！');
end
end
else
begin
ADOTABLE1.Post;
end




end;

procedure Trights.FormCreate(Sender: TObject);
begin
//adoTable1.ReadOnly:=false;
end;

end.