untusergroup.pas

用delphi编写的数据库管理软件

unit untUserGroup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base_DLL, StdCtrls, Grids, DBGridEh, DB, DBClient;

type
  TfrmUserGroup = class(TfrmBase_DLL)
    GroupBox1: TGroupBox;
    grid: TDBGridEh;
    btnExit: TButton;
    btnOK: TButton;
    CDSUsergroup: TClientDataSet;
    DSusergroup: TDataSource;
    CDSGrid: TClientDataSet;
    CDSusergroupid: TClientDataSet;
    procedure gridGetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
    procedure btnExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    procedure CreateCDSdata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmUserGroup: TfrmUserGroup;

implementation

uses Global, DataProcess, untUser;

{$R *.dfm}

procedure TfrmUserGroup.gridGetCellParams(Sender: TObject;
  Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
  inherited;
  if grid.SumList.RecNo mod 2=1 then
    BackGround:=$00EAEFED
    else
    BackGround:=clWhite;  
end;

procedure TfrmUserGroup.btnExitClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TfrmUserGroup.CreateCDSdata;
begin
  With CDSgrid do
    begin
      close;
      FieldDefs.Add('fisadd',ftBoolean);
      FieldDefs.Add('fcode',ftString,18);
      FieldDefs.Add('fname',ftString,26);
      FieldDefs.Add('fid',ftinteger);
      CreateDataSet;
      open;
    end;
end;

procedure TfrmUserGroup.FormShow(Sender: TObject);
var
  i:integer;
begin
  inherited;
  GetsqlData(CDSuserGroup,'TuserGroupInfo','fid','fid>0',20);
  GetsqlData(CDSuserGroupid,'Tusergroup','fid','fUserID='+inttostr(frmUser.Cuserid),20);
  CreateCDSdata;
  if CDSusergroup.RecordCount > 0 then
    CDSusergroup.First;
    while not CDSusergroup.Eof do
      begin
      CDSgrid.AppendRecord([False,
          CDSusergroup.FieldByName('fcode').AsString,
          CDSusergroup.FieldByName('fname').AsString,
          CDSusergroup.FieldByName('fid').AsInteger]);
          CDSusergroupid.Next;
          CDSusergroup.Next;
      end;
  if CDSUserGroupid.RecordCount > 0 then
    begin
      CDSusergroupid.First;
      for i:=0 to CDSusergroupid.RecordCount - 1 do
        begin
          CDSgrid.First;
          while not CDSgrid.Eof do
            begin
              if CDSusergroupid.FieldByName('fGroupid').AsInteger = CDSGrid.FieldByName('fid').AsInteger then
                begin
                  CDSgrid.Edit;
                  CDSGrid.FieldByName('fisadd').AsBoolean:=True;
                  CDSgrid.Post; 
                end;
              CDSgrid.Next;
            end;
          CDSusergroupid.Next;
        end;
    end;
end;

procedure TfrmUserGroup.FormDestroy(Sender: TObject);
begin
  inherited;
  frmUserGroup:=nil;
end;

procedure TfrmUserGroup.btnOKClick(Sender: TObject);
var
  strsql:String;
  Puserid:integer;
begin
  inherited;
  if CDSgrid.RecordCount = 0 then Exit;
  if messagedlg('请确定重新生成该用户的群组 ？