machineseteditform.dfm

来自「用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABAS」· DFM 代码 · 共 104 行

inherited fMachineSetEditForm: TfMachineSetEditForm
  Left = 271
  Top = 262
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #32771#21220#27231#20449#24687#35373#32622
  ClientHeight = 165
  ClientWidth = 298
  Position = poMainFormCenter
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 3
    Top = 7
    Width = 294
    Height = 122
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 19
      Width = 26
      Height = 13
      Caption = #27231#34399
    end
    object Label2: TLabel
      Left = 16
      Top = 53
      Width = 26
      Height = 13
      Caption = #29992#36884
    end
    object Label3: TLabel
      Left = 16
      Top = 88
      Width = 26
      Height = 13
      Caption = #35498#26126
    end
    object wwDBSpinEdit1: TwwDBSpinEdit
      Left = 44
      Top = 15
      Width = 83
      Height = 21
      Increment = 1
      MaxValue = 255
      MinValue = 1
      Value = 1
      DataField = 'iMachineNo'
      DataSource = DataSource1
      TabOrder = 0
      UnboundDataType = wwDefault
    end
    object DBEdit1: TDBEdit
      Left = 47
      Top = 84
      Width = 234
      Height = 21
      DataField = 'cMachineAddress'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBComboBox1: TDBComboBox
      Left = 46
      Top = 49
      Width = 81
      Height = 21
      Style = csDropDownList
      DataField = 'cFunction'
      DataSource = DataSource1
      ItemHeight = 13
      Items.Strings = (
        #32771#21220
        #38272#31105)
      TabOrder = 2
    end
  end
  object BitBtn1: TBitBtn
    Left = 128
    Top = 136
    Width = 75
    Height = 25
    Caption = #30906#23450
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 208
    Top = 136
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 2
    OnClick = BitBtn2Click
  end
  object DataSource1: TDataSource
    DataSet = fMachineSet.ADOQuery1
    Left = 40
    Top = 136
  end
end