formrights.pas

用delphi和sql server编写的药品进销存系统

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.