cwa150_05.pas.svn-base

来自「一个用Delphi开发的ERP软件」· SVN-BASE 代码 · 共 64 行

unit Cwa150_05;

interface

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

type
  TCwa150_05Form = class(TForm)
    lblName: TLabel;
    edtName: TEdit;
    bbtnOk: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnOkClick(Sender: TObject);
  private
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Cwa150_05Form: TCwa150_05Form;

implementation

uses CommFun;

{$R *.dfm}

procedure TCwa150_05Form.SetInterface;
begin
  Caption:=GetDBString('CWA15005001');  //新增函数
  bbtnOk.Caption:=GetDBString('CWA15005002');  //确定(&O)
  lblName.Caption:=GetDBString('CWA15005003');  //请输入新增函数名称
end;

procedure TCwa150_05Form.FormCreate(Sender: TObject);
begin
  SetInterface;
end;

procedure TCwa150_05Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//
end;

procedure TCwa150_05Form.bbtnOkClick(Sender: TObject);
begin
//确定(&O)
  if trim(edtName.Text)='' then
  begin
    ShowMsg('UMS10000225');  //函数名额不能为空，请重新输入
    edtName.SetFocus;
    Abort;
  end;
  ModalResult:=1;
end;

end.