usubsysmodattr.pas

用户权限管理系统

unit uSubSysModAttr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzTabs, RzButton, StdCtrls, RzLabel, Grids, DBGridEh,
  cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, ExtCtrls,
  cxMaskEdit, cxDropDownEdit, RzPanel;

type
  TfrmSubSysModAttr = class(TForm)
    RzButton1: TRzButton;
    RzButton2: TRzButton;
    RzPanel1: TRzPanel;
    RzGroupBox1: TRzGroupBox;
    RzLabel3: TRzLabel;
    RzLabel5: TRzLabel;
    RzLabel6: TRzLabel;
    RzLabel7: TRzLabel;
    RzGroupBox2: TRzGroupBox;
    RzLabel1: TRzLabel;
    cxTextEdit1: TcxTextEdit;
    RzLabel2: TRzLabel;
    cxTextEdit2: TcxTextEdit;
    RzLabel4: TRzLabel;
    cxMemo1: TcxMemo;
    procedure RzButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    iMod: smallint; // 0浏览 1 属性 2 新建
  end;

var
  frmSubSysModAttr: TfrmSubSysModAttr;

implementation

uses untDM, untPublic;

{$R *.dfm}

procedure TfrmSubSysModAttr.RzButton2Click(Sender: TObject);
begin
  ModalResult := mrCancel;
  close;
end;

procedure TfrmSubSysModAttr.FormCreate(Sender: TObject);
begin
  RzLabel6.Caption := '';
  RzLabel7.Caption := '';

end;

procedure TfrmSubSysModAttr.RzButton1Click(Sender: TObject);
var
  cSqlStr: string;
  iRet: smallint;
begin
  if trim(cxTextEdit2.Text) = '' then
  begin
    TPublicFunc.ShowWarningMsg('名称不能为空！');
    cxTextEdit2.SetFocus;
    exit;
  end;

  if iMod = 1 then
  begin
    cSqlStr := 'update T_005_L set V03=' +
      Quotedstr(trim(cxTextEdit2.Text)) + ',V04=' +
      Quotedstr(trim(cxMemo1.Text)) + ' where V01=' +
      Quotedstr(trim(RzLabel6.Caption)) + ' and V02=' +
      Quotedstr(trim(cxTextEdit1.Text));
    iRet := DM.ExecuteSqlCmd(cSqlStr);
    if iRet <> 0 then
    begin
      TPublicFunc.ShowErrorMsg('存盘出错！');
      exit;
    end;
  end
  else if iMod = 2 then
  begin
    cSqlStr := 'insert T_005_L values(' +
      Quotedstr(trim(RzLabel6.Caption)) + ',' +
      Quotedstr(trim(cxTextEdit1.Text)) + ',' +
      Quotedstr(trim(cxTextEdit2.Text)) + ',' +
      Quotedstr(trim(cxMemo1.Text)) + ')';
    iRet := DM.ExecuteSqlCmd(cSqlStr);
    if iRet <> 0 then
    begin
      TPublicFunc.ShowErrorMsg('存盘出错！');
      exit;
    end;
  end;
  ModalResult := mrOk;
end;

end.