usubrightchg.pas

用户权限管理系统

unit uSubRightChg;

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
  TfrmSubRightChg = class(TForm)
    RzButton1: TRzButton;
    RzButton2: TRzButton;
    RzGroupBox1: TRzGroupBox;
    DBGridEh1: TDBGridEh;
    cds_User: TClientDataSet;
    ds_User: TDataSource;
    procedure RzButton2Click(Sender: TObject);
    procedure RzButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    V01, V02, V021, V21, V22, V23, V24, cSqlStr: string;
  end;

var
  frmSubRightChg: TfrmSubRightChg;

implementation

uses untDM, untPublic;

{$R *.dfm}

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

procedure TfrmSubRightChg.RzButton1Click(Sender: TObject);
begin
  ModalResult := mrCancel;
  if cds_User.Active and not cds_User.IsEmpty then
  begin
    if DM.SubRightChg(V01, trim(cds_User.fieldbyname('V01').AsString), V021) = 0 then
    begin
      V02 := cds_User.fieldbyname('V01').AsString;
      V21 := cds_User.fieldbyname('V03').AsString;
      V22 := cds_User.fieldbyname('V02').AsString;
      V23 := cds_User.fieldbyname('V33').AsString;
      V24 := cds_User.fieldbyname('V35').AsString;
      ModalResult := mrOk;
    end
    else
    begin
      TPublicFunc.ShowErrorMsg('更新操作出错！');
      exit;
    end;
  end;
end;

procedure TfrmSubRightChg.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;

end.