purnewpost.pas

权限管理

unit PurNewPost;

interface

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

type
  TTypeOfNewPost = (tnpNew,tnpModify);//调用窗口是修改还是新建角色
  TFrmDPurNewPost = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    EdtJsmc: TEdit;
    EdtJsms: TEdit;
    btnOk: TButton;
    btnCancel: TButton;
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
    FTypeOfNewPost:TTypeOfNewPost;
    FPostMc:string;
    FPostMs:string;
    FPostID:integer;
    procedure setTypeOfNewPost(value:TTypeOfNewPost);
    procedure setPostMc(value:string);
    procedure setPostMs(value:string);
  public
    { Public declarations }
    property TypeOfNewPost:TTypeOfNewPost read FTypeOfNewPost
        write setTypeOfNewPost default tnpNew ;
    property PostMc:string read FPostMc write setPostMc ;
    property PostMs:string read FPostMs write setPostMs ;
    property PostID:integer read FPostID write FPostID default 0 ;
  end;

var
  FrmDPurNewPost: TFrmDPurNewPost;

implementation

uses PublicModel;
{uses
  U_Instances,U_Exception;}

{$R *.dfm}

procedure TFrmDPurNewPost.btnOKClick(Sender: TObject);
var
  strSQL:string;
begin
  if  trim(EdtJsmc.Text) = '' then
  begin
    showInfMsg('角色名称不能为空！');
    EdtJsmc.SetFocus;
  end
  else
  begin
    try
      if FTypeOfNewPost = tnpNew then
      begin
        strSQL := 'insert into PMjs (js_mc,js_ms) values(''' +
              trim(EdtJsmc.Text ) + ''' ,''' + trim(EdtJsms.Text) + ''')';
      end
      else
      begin
        strSQL := 'update PMjs set js_mc =''' + trim(EdtJsmc.Text) +
          ''' ,js_ms = ''' + trim(EdtJsms.Text) + '''  where js_i = ' +
              IntToStr(FPostID) ;
      end;
      ExecQuery2(strSQL);
    except
      showErrMsg('数据库读写错误！');
    end;
    inherited;
  end;
end;

procedure TFrmDPurNewPost.setTypeOfNewPost(value:TTypeOfNewPost);
begin
  FTypeOfNewPost := value ;
  if FTypeOfNewPost = tnpNew then
  begin
    Caption :='新建角色';
  end
  else
  begin
    Caption :='修改角色';
  end;
end;

procedure TFrmDPurNewPost.setPostMc(value:string);
begin
  FPostMc := value ;
  if FTypeOfNewPost = tnpNew then
  begin
    EdtJsmc.Text := '';
  end
  else
  begin
    EdtJsmc.Text := FPostMc ;
  end;
end;

procedure TFrmDPurNewPost.setPostMs(value:string);
begin
  FPostMs := value ;
  if FTypeOfNewPost = tnpNew then
  begin
    EdtJsms.Text := '';
  end
  else
  begin
    EdtJsms.Text := FPostMs ;
  end;
end;
end.