uuserimpower.pas

-----------使用说明 1.数据库为SQL2000,用附加数据库的功能建立WeijieData数据库,连接的用户为Sa,密码为空,可用server源代码自行修改. 2.第一次运行先

unit uUserImpower;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, cxControls, cxContainer, cxEdit, cxCheckBox,
  cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, DB,
  cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid, DBClient,
  cxTextEdit;

type
  TfrmUserImpower = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    cbAdmin: TcxCheckBox;
    cbUser: TcxCheckBox;
    cbGuest: TcxCheckBox;
    cxGrid6: TcxGrid;
    GridUser: TcxGridDBTableView;
    colCode6: TcxGridDBColumn;
    colName6: TcxGridDBColumn;
    cxGridLevel5: TcxGridLevel;
    cxGrid1: TcxGrid;
    cxGridDBTableView1: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    cdUser: TClientDataSet;
    dsUser: TDataSource;
    cdPower: TClientDataSet;
    dsPower: TDataSource;
    procedure SpeedButton2Click(Sender: TObject);
    procedure cbAdminClick(Sender: TObject);
    procedure cbUserClick(Sender: TObject);
    procedure cbGuestClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure GridUserFocusedRecordChanged(Sender: TcxCustomGridTableView;
      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
      ANewItemRecordFocusingChanged: Boolean);
  private
     //ccode,cGroup: string;
    { Private declarations }
    procedure GetUserPower(const ccode, cGroup: string);
    procedure GetGroupImPower(cGrp: string);
  public
    // property mainForm: TfrmMain read mainFrm;
    { Public declarations }
  end;


implementation
uses uMain, uGlobal;

{$R *.dfm}

procedure TfrmUserImpower.GetGroupImPower(cGrp: string);
begin
   With frmMain.cdPub do Begin
      close;
      commandText := 'execute GetGroupImpower @cGroup = '''+cGrp+'''';
      open;
      cdPower.Data := Data;
   end;
end;

procedure TfrmUserImpower.GetUserPower(const ccode, cGroup: string);
begin
   WITH frmMain.cdPub do BEGIN
      close;
      commandText := 'execute GetUserImpower @ccode = '''+ccode+''''+
                     ',@cGroup = '''+cGroup+'''';
      open;
      cdPower.data := Data;
   END;
end;

procedure TfrmUserImpower.SpeedButton2Click(Sender: TObject);
begin
   close;
end;

procedure TfrmUserImpower.cbAdminClick(Sender: TObject);
begin
   if cbAdmin.Checked then
      GetGroupImPower('A');
end;

procedure TfrmUserImpower.cbUserClick(Sender: TObject);
begin
   if cbUser.Checked then
      GetGroupImPower('U');
end;

procedure TfrmUserImpower.cbGuestClick(Sender: TObject);
begin
   if cbGuest.Checked then
      GetGroupImPower('G');
end;

procedure TfrmUserImpower.SpeedButton1Click(Sender: TObject);
begin
   if frmMain.DCOMCn.AppServer.ISetUserImpower(
      cdUser.FieldByName('ccode').AsString,cdPower.Data) = 1 then
      close;
end;

procedure TfrmUserImpower.GridUserFocusedRecordChanged(
  Sender: TcxCustomGridTableView; APrevFocusedRecord,
  AFocusedRecord: TcxCustomGridRecord;
  ANewItemRecordFocusingChanged: Boolean);
var cCde,cGrp: string;
begin
   cCde := cdUser.fieldbyname('ccode').AsString;
   cGrp := cdUser.fieldbyname('cGroup').AsString;
   GetUserPower(cCde,cGrp);
   if cGrp = 'A' Then Begin
      cbAdmin.Checked := true;
      cbUser.Checked := false;
      cbGuest.Checked := false;
   end;
   if cGrp = 'U' Then begin
      cbAdmin.Checked := false;
      cbUser.Checked := true;
      cbGuest.Checked := false;
   end;
   if cGrp = 'G' Then begin
      cbAdmin.Checked := false;
      cbUser.Checked := false;
      cbGuest.Checked := true;
   end;
end;

end.