setroomunit.dfm

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

      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWhite
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      UIStyle = DeepBlue
      BorderColor = clBlack
      FocusedColor = clGreen
      SelectedColor = clYellow
      FontColor = clBlack
      TitleFontColor = clWhite
      FixedBGColor = 10504772
      BGColor = clWhite
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'room_num'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #39184#21488#32534#21495
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 99
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'room_state'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #39184#21488#29366#24577
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 74
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'room_floor'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #25152#22312#21306#22495
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 84
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'room_ID'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #24403#21069#29992#39184#32534#21495
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 130
          Visible = True
        end>
    end
    object suiButton11: TsuiButton
      Left = 648
      Top = 24
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #28155#21152
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 1
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton3Click
      ResHandle = 0
    end
    object suiButton12: TsuiButton
      Left = 648
      Top = 56
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #32534#36753
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 2
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton4Click
      ResHandle = 0
    end
    object suiButton13: TsuiButton
      Left = 648
      Top = 88
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #21024#38500
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 3
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton5Click
      ResHandle = 0
    end
    object suiButton14: TsuiButton
      Left = 648
      Top = 184
      Width = 50
      Height = 25
      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 = 4
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton6Click
      ResHandle = 0
    end
    object DBEdit1: TDBEdit
      Left = 520
      Top = 72
      Width = 120
      Height = 22
      DataField = 'room_num'
      DataSource = ds4
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnKeyPress = dbedtroom_numKeyPress
    end
    object DBEdit2: TDBEdit
      Left = 520
      Top = 40
      Width = 120
      Height = 22
      DataField = 'room_type'
      DataSource = ds4
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
    end
    object DBEdit3: TDBEdit
      Left = 520
      Top = 104
      Width = 120
      Height = 22
      DataField = 'room_state'
      DataSource = ds4
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
    end
    object DBEdit4: TDBEdit
      Left = 520
      Top = 136
      Width = 120
      Height = 22
      DataField = 'room_floor'
      DataSource = ds4
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      OnKeyPress = dbedtroom_floorKeyPress
    end
    object DBEdit5: TDBEdit
      Left = 520
      Top = 168
      Width = 120
      Height = 22
      DataField = 'room_ID'
      DataSource = ds4
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 9
    end
    object suiButton15: TsuiButton
      Left = 648
      Top = 153
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #21462#28040
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 10
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton9Click
      ResHandle = 0
    end
    object suiButton16: TsuiButton
      Left = 648
      Top = 121
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #25552#20132
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 11
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton10Click
      ResHandle = 0
    end
  end
  object ds1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomRoomtype'
    RemoteServer = LoginForm.SocketConnection1
    AfterScroll = ds1AfterScroll
    Left = 12
    Top = 67
    object wdstrngfldds1type_xh: TWideStringField
      FieldName = 'type_xh'
      Size = 50
    end
    object wdstrngfldds1type_mc: TWideStringField
      FieldName = 'type_mc'
      Size = 50
    end
    object ds1type_rs: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'type_rs'
    end
    object ds1type_menoy: TFloatField
      Alignment = taLeftJustify
      FieldName = 'type_menoy'
    end
  end
  object ds2: TDataSource
    DataSet = ds1
    Left = 44
    Top = 67
  end
  object ds3: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'room_type'
    MasterFields = 'type_xh'
    MasterSource = ds2
    PacketRecords = 0
    Params = <>
    ProviderName = 'dspRoomRoom'
    RemoteServer = LoginForm.SocketConnection1
    Left = 12
    Top = 252
    object wdstrngfldds3room_num: TWideStringField
      FieldName = 'room_num'
      Size = 50
    end
    object wdstrngfldds3room_type: TWideStringField
      FieldName = 'room_type'
      Size = 50
    end
    object wdstrngfldds3room_state: TWideStringField
      FieldName = 'room_state'
      Size = 50
    end
    object wdstrngfldds3room_floor: TWideStringField
      FieldName = 'room_floor'
      Size = 50
    end
    object wdstrngfldds3room_ID: TWideStringField
      FieldName = 'room_ID'
      Size = 50
    end
  end
  object ds4: TDataSource
    DataSet = ds3
    Left = 44
    Top = 252
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomRoomtype'
    RemoteServer = LoginForm.SocketConnection1
    AfterScroll = ds1AfterScroll
    Left = 12
    Top = 67
    object WideStringField1: TWideStringField
      FieldName = 'type_xh'
      Size = 50
    end
    object WideStringField2: TWideStringField
      FieldName = 'type_mc'
      Size = 50
    end
    object IntegerField1: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'type_rs'
    end
    object FloatField1: TFloatField
      Alignment = taLeftJustify
      FieldName = 'type_menoy'
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 44
    Top = 67
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'room_type'
    MasterFields = 'type_xh'
    MasterSource = DataSource1
    PacketRecords = 0
    Params = <>
    ProviderName = 'dspRoomRoom'
    RemoteServer = LoginForm.SocketConnection1
    Left = 12
    Top = 252
    object WideStringField3: TWideStringField
      FieldName = 'room_num'
      Size = 50
    end
    object WideStringField4: TWideStringField
      FieldName = 'room_type'
      Size = 50
    end
    object WideStringField5: TWideStringField
      FieldName = 'room_state'
      Size = 50
    end
    object WideStringField6: TWideStringField
      FieldName = 'room_floor'
      Size = 50
    end
    object WideStringField7: TWideStringField
      FieldName = 'room_ID'
      Size = 50
    end
  end
  object DataSource2: TDataSource
    DataSet = ClientDataSet2
    Left = 44
    Top = 252
  end
end