usubsysuser.pas

用户权限管理系统

unit uSubSysUser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzTabs, RzButton, StdCtrls, RzLabel, Grids, DBGridEh,
  cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, ExtCtrls,
  cxMaskEdit, cxDropDownEdit, RzPanel, DB, DBClient;

type
  TfrmSubSysUser = class(TForm)
    RzButton1: TRzButton;
    RzGroupBox1: TRzGroupBox;
    DBGridEh1: TDBGridEh;
    cds_User: TClientDataSet;
    ds_User: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure RzButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    cSqlStr: string;
  end;

var
  frmSubSysUser: TfrmSubSysUser;

implementation

uses untDM, untPublic;

{$R *.dfm}

procedure TfrmSubSysUser.FormShow(Sender: TObject);
begin
  if cSqlStr <> '' then
  begin
    with cds_User do
    begin
      if Active then
        Active := false;
      XMLData := DM.FreeQuery(cSqlStr);
      Active := true;
    end;
  end;
end;

procedure TfrmSubSysUser.RzButton1Click(Sender: TObject);
begin
  close;
end;

end.