selectlbxxunit.dfm

东华休闲山庄洗浴、餐饮、客房管理系统

      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
    object suiMaskEdit2: TsuiMaskEdit
      Left = 735
      Top = 33
      Width = 69
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      BorderStyle = bsNone
      EditMask = '00:00:00;1;0'
      MaxLength = 8
      TabOrder = 4
      Text = '23:59:59'
    end
    object suiMaskEdit3: TsuiMaskEdit
      Left = 735
      Top = 59
      Width = 69
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      BorderStyle = bsNone
      EditMask = '00:00:00;1;0'
      MaxLength = 8
      TabOrder = 5
      Text = '23:59:59'
    end
    object DateTimePicker2: TDateTimePicker
      Left = 625
      Top = 59
      Width = 105
      Height = 22
      Date = 39378.572062754630000000
      Time = 39378.572062754630000000
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
    end
    object suiMaskEdit4: TsuiMaskEdit
      Left = 542
      Top = 59
      Width = 70
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      BorderStyle = bsNone
      EditMask = '00:00:00;1;0'
      MaxLength = 8
      TabOrder = 7
      Text = '  :  :  '
    end
    object DateTimePicker3: TDateTimePicker
      Left = 429
      Top = 59
      Width = 105
      Height = 22
      Date = 39378.572062754630000000
      Time = 39378.572062754630000000
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
    end
    object suiRadioButton1: TsuiRadioButton
      Left = 104
      Top = 33
      Width = 81
      Height = 20
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #23486#23458#26469#28304
      TabOrder = 9
      TabStop = True
      State = cbUnchecked
      Transparent = False
      GroupIndex = 0
    end
    object suiComboBox1: TsuiComboBox
      Left = 200
      Top = 33
      Width = 121
      Height = 22
      UIStyle = DeepBlue
      BorderColor = clBlack
      ArrowColor = clBlack
      ButtonColor = 15263976
      ItemHeight = 14
      TabOrder = 10
      Text = 'suiComboBox1'
      OnDropDown = suiComboBox1DropDown
    end
    object suiRadioButton2: TsuiRadioButton
      Left = 104
      Top = 59
      Width = 81
      Height = 20
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #23458#25151#32534#21495
      TabOrder = 11
      TabStop = True
      State = cbUnchecked
      Transparent = False
      GroupIndex = 0
    end
    object edt1: TsuiEdit
      Left = 200
      Top = 59
      Width = 121
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      TabOrder = 12
      Text = 'edt1'
    end
    object suiRadioButton3: TsuiRadioButton
      Left = 339
      Top = 33
      Width = 81
      Height = 20
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #20837#24215#26102#38388
      TabOrder = 13
      TabStop = True
      State = cbUnchecked
      Transparent = False
      GroupIndex = 0
    end
    object suiRadioButton4: TsuiRadioButton
      Left = 339
      Top = 59
      Width = 81
      Height = 20
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #31163#24215#26102#38388
      TabOrder = 14
      TabStop = True
      State = cbUnchecked
      Transparent = False
      GroupIndex = 0
    end
    object suiRadioButton5: TsuiRadioButton
      Left = 10
      Top = 33
      Width = 81
      Height = 20
      UIStyle = DeepBlue
      AutoSize = True
      Checked = True
      Caption = #25152#26377#25968#25454
      TabOrder = 15
      TabStop = True
      State = cbChecked
      Transparent = False
      GroupIndex = 0
    end
    object suiRadioButton6: TsuiRadioButton
      Left = 10
      Top = 59
      Width = 81
      Height = 20
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #22312#24215#23486#23458
      TabOrder = 16
      TabStop = True
      State = cbUnchecked
      Transparent = False
      GroupIndex = 0
    end
    object suiRadioButton7: TsuiRadioButton
      Left = 10
      Top = 85
      Width = 81
      Height = 20
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #31163#24215#23486#23458
      TabOrder = 17
      TabStop = True
      State = cbUnchecked
      Transparent = False
      GroupIndex = 0
    end
    object btn1: TsuiButton
      Left = 656
      Top = 96
      Width = 65
      Height = 22
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #26597#35810
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 18
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = btn1Click
      ResHandle = 0
    end
    object btn2: TsuiButton
      Left = 736
      Top = 96
      Width = 64
      Height = 22
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #36864#20986
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 19
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = btn2Click
      ResHandle = 0
    end
    object suiEdit1: TsuiEdit
      Left = 200
      Top = 85
      Width = 121
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      TabOrder = 20
      Text = 'edt1'
    end
    object suiRadioButton8: TsuiRadioButton
      Left = 104
      Top = 85
      Width = 81
      Height = 20
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #23486#23458#22995#21517
      TabOrder = 21
      TabStop = True
      State = cbUnchecked
      Transparent = False
      GroupIndex = 0
    end
  end
  object ds1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomHouse'
    RemoteServer = LoginForm.SocketConnection1
    AfterScroll = ds1AfterScroll
    Left = 8
    Top = 184
    object wdstrngfldds1id: TWideStringField
      FieldName = 'id'
      Size = 50
    end
    object wdstrngfldds1guest: TWideStringField
      FieldName = 'guest'
      Size = 50
    end
    object wdstrngfldds1peopelnum: TWideStringField
      FieldName = 'peopelnum'
      Size = 50
    end
    object wdstrngfldds1memozs: TWideStringField
      FieldName = 'memozs'
      Size = 255
    end
    object wdstrngfldds1room: TWideStringField
      FieldName = 'room'
      Size = 50
    end
    object ds1price: TFloatField
      FieldName = 'price'
    end
    object wdstrngfldds1ifclock: TWideStringField
      FieldName = 'ifclock'
      Size = 50
    end
    object ds1clock: TFloatField
      FieldName = 'clock'
    end
    object ds1scale: TFloatField
      FieldName = 'scale'
    end
    object ds1factprice: TFloatField
      FieldName = 'factprice'
    end
    object wdstrngfldds1days: TWideStringField
      FieldName = 'days'
      Size = 50
    end
    object ds1deposit: TFloatField
      FieldName = 'deposit'
    end
    object wdstrngfldds1paymode: TWideStringField
      FieldName = 'paymode'
      Size = 50
    end
    object wdstrngfldds1entertime: TWideStringField
      FieldName = 'entertime'
      Size = 50
    end
    object wdstrngfldds1leavetime: TWideStringField
      FieldName = 'leavetime'
      Size = 50
    end
    object ds1name: TStringField
      FieldKind = fkLookup
      FieldName = 'name'
      LookupDataSet = ds3
      LookupKeyFields = 'ID'
      LookupResultField = 'name'
      KeyFields = 'guest'
      Size = 50
      Lookup = True
    end
    object ds1source: TStringField
      FieldKind = fkLookup
      FieldName = 'source'
      LookupDataSet = ds3
      LookupKeyFields = 'ID'
      LookupResultField = 'source'
      KeyFields = 'guest'
      Size = 200
      Lookup = True
    end
    object ds1sex: TStringField
      FieldKind = fkLookup
      FieldName = 'sex'
      LookupDataSet = ds3
      LookupKeyFields = 'ID'
      LookupResultField = 'sex'
      KeyFields = 'guest'
      Size = 200
      Lookup = True
    end
    object ds1phone: TStringField
      FieldKind = fkLookup
      FieldName = 'phone'
      LookupDataSet = ds3
      LookupKeyFields = 'ID'
      LookupResultField = 'phone'
      KeyFields = 'guest'
      Size = 200
      Lookup = True
    end
    object ds1cardtype: TStringField
      FieldKind = fkLookup
      FieldName = 'cardtype'
      LookupDataSet = ds3
      LookupKeyFields = 'ID'
      LookupResultField = 'cardtype'
      KeyFields = 'guest'
      Size = 200
      Lookup = True
    end
    object ds1cardnum: TStringField
      FieldKind = fkLookup
      FieldName = 'cardnum'
      LookupDataSet = ds3
      LookupKeyFields = 'ID'
      LookupResultField = 'cardnum'
      KeyFields = 'guest'
      Size = 200
      Lookup = True
    end
    object ds1address: TStringField
      FieldKind = fkLookup
      FieldName = 'address'
      LookupDataSet = ds3
      LookupKeyFields = 'ID'
      LookupResultField = 'address'
      KeyFields = 'guest'
      Size = 200
      Lookup = True
    end
  end
  object ds2: TDataSource
    DataSet = ds1
    Left = 40
    Top = 184
  end
  object ds3: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomGuest'
    RemoteServer = LoginForm.SocketConnection1
    Left = 72
    Top = 184
  end
end