purnewgroup.pas

权限管理

unit PurNewGroup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TTypeOfNewGroup = (tngNew,tngModify);//调用窗口是修改还是新建权限组
  TFrmDPurNewGroup = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    EdtQxzmc: TEdit;
    EdtQxzsm: TEdit;
    btnOk: TButton;
    btnCancel: TButton;
    procedure btnOKClick(Sender: TObject);
    procedure EdtQxzmcKeyPress(Sender: TObject; var Key: Char);
    procedure EdtQxzsmKeyPress(Sender: TObject; var Key: Char);
//    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FTypeOfNewGroup:TTypeOfNewGroup ;
    FGroupMc:string;
    FGroupMs:string;
    FGroupID:integer;
    procedure setTypeOfNewGroup(value:TTypeOfNewGroup);
    procedure setGroupMc(value:string);
    procedure setGroupMs(value:string);
  public
    { Public declarations }
    property TypeOfNewGroup:TTypeOfNewGroup read FTypeOfNewGroup
      write setTypeOfNewGroup default tngNew ;
    property GroupMc:string read FGroupMc write setGroupMc ;
    property GroupMs:string read FGroupMs write setGroupMs ;
    property GroupID:integer read FGroupID write FGroupID default 0 ;
  end;

var
  FrmDPurNewGroup: TFrmDPurNewGroup;

implementation

uses PublicModel, Main;


{$R *.dfm}

procedure TFrmDPurNewGroup.btnOKClick(Sender: TObject);
var
  strSQL:string;
begin
  if  trim(EdtQxzmc.Text) = '' then
  begin
    showInfMsg('权限组名称不能为空！');
    EdtQxzmc.SetFocus;
  end
  else
  begin
    try
      if FTypeOfNewGroup = tngNew then
      begin
        strSQL := 'insert into PMgnz (gnz_mc,gnz_ms) values(''' +
           trim(EdtQxzmc.Text ) + ''' ,''' + trim(EdtQxzsm.Text) + ''')';         
      end
      else
      begin
        strSQL := 'update PMgnz set gnz_mc =''' + trim(EdtQxzmc.Text) +
          ''' ,gnz_ms = ''' + trim(EdtQxzsm.Text) + '''  where gnz_i = ' +
              IntToStr(FGroupID) ;
      end;
      ExecQuery2(strSQL);
    except
      showErrMsg('数据库读写错误！');
    end;
    inherited;
  end;
end;

procedure TFrmDPurNewGroup.setTypeOfNewGroup(value:TTypeOfNewGroup);
begin
  FTypeOfNewGroup := value ;
  if FTypeOfNewGroup = tngNew then
  begin
    Caption :=  '新建权限组';
  end
  else
  begin
    Caption :=  '修改权限组';
  end;
end;

procedure TFrmDPurNewGroup.setGroupMc(value:string);
begin
  FGroupMc := value ;
  if FTypeOfNewGroup = tngNew then
  begin
    EdtQxzmc.Text := '';
  end
  else
  begin
    EdtQxzmc.Text := FGroupMc ;
  end;
end;

procedure TFrmDPurNewGroup.setGroupMs(value:string);
begin
  FGroupMs := value ;
  if FTypeOfNewGroup = tngNew then
  begin
    EdtQxzsm.Text := '';
  end
  else
  begin
    EdtQxzsm.Text := FGroupMs ;
  end;
end;   

procedure TFrmDPurNewGroup.EdtQxzmcKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then btnOk.Click ;
end;

procedure TFrmDPurNewGroup.EdtQxzsmKeyPress(Sender: TObject;
  var Key: Char);
begin
 if key = #13 then btnOK.Click ; 
end;

end.