uasrvobjwizardform.dfm

基于Midas 技术的多层应用开发包第二版（带开发文档）

object SrvObjWizardForm: TSrvObjWizardForm
  Left = 107
  Top = 220
  BorderStyle = bsDialog
  Caption = 'SrvObj  Generate Wizard'
  ClientHeight = 280
  ClientWidth = 456
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label20: TLabel
    Left = 6
    Top = 6
    Width = 467
    Height = 24
    Alignment = taCenter
    AutoSize = False
    Caption = 'Universal  Agent  SrvObj  Generator Wizard'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 8
    Top = 45
    Width = 66
    Height = 12
    Caption = 'SrvObjName:'
  end
  object Label2: TLabel
    Left = 232
    Top = 46
    Width = 96
    Height = 12
    Caption = 'SrvObjAliasName:'
  end
  object Label3: TLabel
    Left = 8
    Top = 77
    Width = 84
    Height = 12
    Caption = 'Max Instances:'
  end
  object Label4: TLabel
    Left = 232
    Top = 78
    Width = 72
    Height = 12
    Caption = 'Max TimeOut:'
  end
  object Label5: TLabel
    Left = 8
    Top = 111
    Width = 78
    Height = 12
    Caption = 'Thread Model:'
  end
  object Label6: TLabel
    Left = 232
    Top = 110
    Width = 108
    Height = 12
    Caption = 'Transaction Model:'
  end
  object Label7: TLabel
    Left = 8
    Top = 141
    Width = 72
    Height = 12
    Caption = 'Max Trigger:'
  end
  object Label8: TLabel
    Left = 8
    Top = 176
    Width = 417
    Height = 65
    Caption = 
      'Remember that this wizard is an _aid_ to creating ua srvobj.Alth' +
      'ough the '#13'generated ua srvobj seems very complete,you most proba' +
      'bly will need to '#13'write some custom codein a few places. These p' +
      'laces are marked in the '#13'code with the text TODO: andcan easilyb' +
      'e found searching through the'#13'generated source'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object btnCancel: TButton
    Left = 310
    Top = 258
    Width = 54
    Height = 18
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 0
    OnClick = btnCancelClick
  end
  object btnGenerate: TButton
    Left = 388
    Top = 258
    Width = 55
    Height = 18
    Caption = '&Generate'
    TabOrder = 1
    OnClick = btnGenerateClick
  end
  object edt_SrvObjName: TEdit
    Left = 114
    Top = 48
    Width = 110
    Height = 20
    TabOrder = 2
  end
  object edt_SrvObjAliasName: TEdit
    Left = 338
    Top = 48
    Width = 110
    Height = 20
    TabOrder = 3
  end
  object cb_ThreadModel: TComboBox
    Left = 114
    Top = 112
    Width = 110
    Height = 20
    ItemHeight = 12
    ItemIndex = 0
    TabOrder = 4
    Text = 'Single'#9
    Items.Strings = (
      'Single'#9
      'Apartment'
      'Free '
      'Both'#9
      'Neutral'#9)
  end
  object cb_TransModel: TComboBox
    Left = 338
    Top = 112
    Width = 110
    Height = 20
    ItemHeight = 12
    ItemIndex = 0
    TabOrder = 5
    Text = 'SyncTransaction'
    Items.Strings = (
      'SyncTransaction'
      'SingTransaction'
      'MultiTransaction')
  end
  object sedt_MaxIns: TSpinEdit
    Left = 114
    Top = 80
    Width = 110
    Height = 21
    MaxValue = 15
    MinValue = 1
    TabOrder = 6
    Value = 3
  end
  object sedt_MaxTime: TSpinEdit
    Left = 338
    Top = 80
    Width = 110
    Height = 21
    MaxValue = 50000
    MinValue = 1000
    TabOrder = 7
    Value = 5000
  end
  object sedt_MaxTrigger: TSpinEdit
    Left = 114
    Top = 144
    Width = 110
    Height = 21
    MaxValue = 30
    MinValue = 0
    TabOrder = 8
    Value = 1
  end
end