uasrvobjwizardform.pas

来自「基于Midas 技术的多层应用开发包第二版（带开发文档）」· PAS 代码 · 共 72 行

unit uaSrvObjWizardForm;

interface
uses
{$ifndef LINUX}
  Windows, Messages, Controls, Forms, StdCtrls, ComCtrls, ExtCtrls,
{$else}
  QForms, QStdCtrls, QExtCtrls, QControls, QComCtrls,
{$endif}
  SysUtils, Classes, Graphics, Spin;

type
  TSrvObjWizardForm = class(TForm)
    btnCancel: TButton;
    btnGenerate: TButton;
    Label20: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    edt_SrvObjName: TEdit;
    edt_SrvObjAliasName: TEdit;
    cb_ThreadModel: TComboBox;
    cb_TransModel: TComboBox;
    sedt_MaxIns: TSpinEdit;
    sedt_MaxTime: TSpinEdit;
    sedt_MaxTrigger: TSpinEdit;
    Label8: TLabel;
    procedure btnCancelClick(Sender: TObject);
    procedure btnGenerateClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SrvObjWizardForm: TSrvObjWizardForm;

implementation
uses DB, ToolsAPI;

{$ifndef LINUX}
 {$R *.dfm}
{$else}
 {$R *.xfm}
{$endif}

procedure TSrvObjWizardForm.btnCancelClick(Sender: TObject);
begin
     ModalResult:=mrCancel;

end;

procedure TSrvObjWizardForm.btnGenerateClick(Sender: TObject);
begin
ModalResult:=mrOK;
end;

procedure TSrvObjWizardForm.FormCreate(Sender: TObject);
begin

//???

end;

end.