frm_userinfo.~pas

站长您好

unit Frm_UserInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Frm_Cargo, XPMenu, StdCtrls, Buttons, ExtCtrls, Grids, BaseGrid,
  AdvGrid, DB, ADODB;

type
  TFrmUserInfo = class(TFrmCargo)
    GridUser: TAdvStringGrid;
    Panel1: TPanel;
    BtnNew: TBitBtn;
    BtnEdit: TBitBtn;
    BtnDelete: TBitBtn;
    BtnCancel: TBitBtn;
    QryTemp: TADOQuery;
    procedure BtnNewClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure BtnDeleteClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure GridUserDblClick(Sender: TObject);
  private
    { Private declarations }
  public
  CurrentRow:Integer;
    { Public declarations }
  end;

var
  FrmUserInfo: TFrmUserInfo;

implementation

uses Frm_Main, Frm_UserEdit;

{$R *.dfm}

procedure TFrmUserInfo.BtnNewClick(Sender: TObject);
begin
  inherited;
 if FrmMain.IncludeValue('用户维护') then
  else
    begin
       ShowMessage('对不起，你不具有该操作的权限！');
       exit;
    end;

  FrmUserEdit := TFrmUserEdit.Create(Self);
  FrmUserEdit.isEdit := False;
  FrmUserEdit.UserCode := '';
  FrmUserEdit.Showmodal;
end;

procedure TFrmUserInfo.BtnEditClick(Sender: TObject);
begin
  inherited;
if FrmMain.IncludeValue('用户维护') then
  else
    begin
       ShowMessage('对不起，你不具有该操作的权限！');
       exit;
    end;

  if GridUser.Cells[0, CurrentRow] = '' then
  begin
    exit;
  end;
  FrmUserEdit := TFrmUserEdit.Create(Self);
  with FrmUserEdit do
  begin
    IsEdit := True;
    BtnAdd.Enabled := True;
    UserCode := GridUser.Cells[0, CurrentRow];
    LoginName:= GridUser.Cells[1,CurrentRow];
    Showmodal;
  end;
end;

procedure TFrmUserInfo.BtnDeleteClick(Sender: TObject);
var
  SqlStr: string;
begin
  inherited;
  if FrmMain.IncludeValue('用户维护') then
  else
    begin
       exit;
    end;

  if (CurrentRow = 1) and (GridUser.Cells[0, 1] = '') then
    Exit;
  if MessageDlg('是否删除所选中的记录,请确定', mtConfirmation, [mbYes, mbNo], 0)
    = mrNO then
    exit;

  try
    if (FrmMain.CheckExistCount('UserID', GridUser.Cells[0, CurrentRow], 'UserFileNo') > 0) then
    begin
      exit;
    end;
    SqlStr := 'Delete From FuncRights Where UserID=''' + Trim(GridUser.Cells[0, CurrentRow]) + '''';
    if FrmMain.ExecSQL(SqlStr) then
    else
    begin
      exit;
    end;
    FrmMain.DeleteGridRow(GridUser, 11, CurrentRow);
  except
    Exit;
  end;
end;

procedure TFrmUserInfo.BtnCancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TFrmUserInfo.FormActivate(Sender: TObject);
var
  SqlStr: string;
begin
  inherited;
  SqlStr := 'Select a.UserID,a.LoginName,a.UserName,a.UserTele,a.UserDept,b.CName,a.UserDuty,a.RightsValue,a.RightsGrade from FuncRights a,DeptmentInfo b where b.Code=*a.UserDept ';
  FrmMain.AddGridData(GridUser, SqlStr);
  CurrentRow := 1;
end;

procedure TFrmUserInfo.GridUserDblClick(Sender: TObject);
begin
  inherited;
  BtnEditClick(sender);
end;

end.