powerset.pas

仓库出单管理系统,采用SQL数据库,功能并不强大,但在操作的方便性上花了一点功夫,对新手有一定的学习作用

unit PowerSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, RzRadChk, RzDBChk, StdCtrls, Mask, RzEdit, RzDBEdit,
  dbcgrids, ExtCtrls, RzPanel, RzCmboBx, RzDBCmbo, DB, Grids, Wwdbigrd,
  Wwdbgrid;

type
  TPowerSetForm = class(TForm)
    RzGroupBox1: TRzGroupBox;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    wwDBGrid23: TwwDBGrid;
    procedure RzBitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    //权限窗口显示的内容
    procedure ShowPowerChange(id:integer);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PowerSetForm: TPowerSetForm;

implementation

uses DMUnit, EditPower;

{$R *.dfm}

procedure TPowerSetForm.RzBitBtn4Click(Sender: TObject);
begin
   Close;
end;

procedure TPowerSetForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   DM.ADOTableUser.Cancel;
end;

procedure TPowerSetForm.ShowPowerChange(id: integer);
var
   Read:Boolean;
begin
   //编辑
  with EditPowerForm do try
     RzDBComboBox1.ReadOnly:=Read;
     RzDBCheckBox1.ReadOnly:=Read;
     RzDBCheckBox2.ReadOnly:=Read;
     RzDBCheckBox3.ReadOnly:=Read;
    
     if Read then
        Label3.Caption:='说明：系统管理员拥有最高权限，无需更改。'
     else Label3.Caption:='说明：您可以分配、管理各用户权限。';
     Showmodal;
  except
  end;
end;

procedure TPowerSetForm.RzBitBtn1Click(Sender: TObject);
begin
  DM.ADOTableUser.Append;
  EditPowerForm.ShowModal;
end;

procedure TPowerSetForm.RzBitBtn2Click(Sender: TObject);
begin
  DM.ADOTableUser.Edit;
  EditPowerForm.ShowModal;
end;

procedure TPowerSetForm.RzBitBtn3Click(Sender: TObject);
begin
  if Messagebox(handle,'您确定要删除该条记录吗？','询问',MB_YESNO+MB_ICONWARNING+MB_DEFBUTTON2)=IDYES then
  Begin
    DM.ADOTableUser.Delete;
  End;
end;

end.