uusergrpattr.pas

用户权限管理系统

unit uUserGrpAttr;

interface

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

type
  TfrmUserGrpAttr = class(TForm)
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    RzButton1: TRzButton;
    RzButton2: TRzButton;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzButton3: TRzButton;
    DBGridEh1: TDBGridEh;
    RzButton4: TRzButton;
    RzButton5: TRzButton;
    RzButton6: TRzButton;
    cxTextEdit1: TcxTextEdit;
    RzLabel3: TRzLabel;
    cxMemo1: TcxMemo;
    DataSource1: TDataSource;
    cds_UserList: TClientDataSet;
    cds_UserListV01: TStringField;
    cds_UserListV37: TStringField;
    cds_UserListV38: TStringField;
    cds_UserListV02: TStringField;
    cds_UserListV03: TStringField;
    cds_UserListV35: TStringField;
    cds_UserListV11: TStringField;
    cds_UserListV05: TDateTimeField;
    cds_UserListV06: TDateTimeField;
    procedure RzButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RzButton1Click(Sender: TObject);
    procedure RzButton3Click(Sender: TObject);
    procedure RzButton6Click(Sender: TObject);
    procedure RzButton5Click(Sender: TObject);
    procedure RzButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure LoadData;
  public
    { Public declarations }
    GrpData: PUserGrpData;
  end;

var
  frmUserGrpAttr: TfrmUserGrpAttr;

implementation

uses untDM, uSelectUser, uUserAttr, untUser;

{$R *.dfm}

procedure TfrmUserGrpAttr.RzButton2Click(Sender: TObject);
begin
  ModalResult := mrCancel;
  close;
end;

procedure TfrmUserGrpAttr.FormShow(Sender: TObject);
begin
  cxTextEdit1.Text := GrpData^.GrpName;
  cxMemo1.Text := GrpData^.GrpMemo;
  LoadData;
end;

procedure TfrmUserGrpAttr.RzButton1Click(Sender: TObject);
begin
  GrpData^.GrpName := trim(cxTextEdit1.Text);
  GrpData^.GrpMemo := trim(cxMemo1.Text);
  if DM.UserGrpUpd(GrpData^.GrpId, GrpData^.GrpName, GrpData^.GrpMemo) = 0 then
  begin
    GrpData^.Nod.Text := GrpData^.GrpName;

  end
  else
    exit;
  ModalResult := mrOk;
end;

procedure TfrmUserGrpAttr.LoadData;
begin
  if cds_UserList.Active then
    cds_UserList.Active := false;
  cds_UserList.XMLData := DM.FreeQuery('select * from V_0011 where V31=' +
    QuotedStr(GrpData^.GrpId));
  cds_UserList.Active := true;

end;

procedure TfrmUserGrpAttr.RzButton3Click(Sender: TObject);
begin
  frmSelectUser := TfrmSelectUser.Create(nil);
  frmSelectUser.iType := 0;
  frmSelectUser.MainId := GrpData^.GrpId;
  frmSelectUser.MainName := GrpData^.GrpName;
  if frmSelectUser.ShowModal = mrOk then
    LoadData;
  frmSelectUser.Free;
end;

procedure TfrmUserGrpAttr.RzButton6Click(Sender: TObject);
begin
  if cds_UserList.Active and not cds_UserList.IsEmpty then
  begin
    if TPublicFunc.ShowQuestionMsg('您确实要从此用户组删除此用户吗？') = IDYes
      then
    begin

      if DM.GrpUserDel(trim(cds_UserList.fieldbyname('V01').AsString)) = 0 then
        cds_UserList.Delete;
    end;
  end;
end;

procedure TfrmUserGrpAttr.RzButton5Click(Sender: TObject);
var
  CUser: TUser;
  UserId: string;
begin
  if cds_UserList.Active and not cds_UserList.IsEmpty then
  begin
    UserId := trim(cds_UserList.fieldbyname('V01').AsString);
    CUser := TUser.Create(UserId, 1);
    frmUserAttr := TfrmUserAttr.Create(nil);
    frmUserAttr.CurUser := CUser;
    frmUserAttr.ShowModal;
    frmUserAttr.Free;
    CUser.Free;
  end;
end;

procedure TfrmUserGrpAttr.RzButton4Click(Sender: TObject);
var
  CUser: TUser;
begin
  CUser := TUser.Create('', 0);
  CUser.V31 := GrpData^.GrpId;
  CUser.V32 := GrpData^.GrpName;
  frmUserAttr := TfrmUserAttr.Create(nil);
  frmUserAttr.CurUser := CUser;
  if frmUserAttr.ShowModal = mrOk then
  begin
    cds_UserList.Append;
    cds_UserList.FieldByName('V01').Value := CUser.V01;
    cds_UserList.FieldByName('V37').Value := CUser.V37;
    cds_UserList.FieldByName('V38').Value := CUser.V38;
    cds_UserList.FieldByName('V02').Value := CUser.V02;
    cds_UserList.FieldByName('V03').Value := CUser.V03;
    if trim(CUser.V05) <> '' then
      cds_UserList.FieldByName('V05').Value := StrToDate(CUser.V05);
    if trim(CUser.V06) <> '' then
      cds_UserList.FieldByName('V06').Value := StrToDate(CUser.V06);
    cds_UserList.FieldByName('V35').Value := CUser.V35;
    cds_UserList.FieldByName('V11').Value := CUser.V11;
    cds_UserList.Post;
  end;
  frmUserAttr.Free;
  CUser.Free;
end;

procedure TfrmUserGrpAttr.FormCreate(Sender: TObject);
begin
  cds_UserList.CreateDataSet;
end;

end.