setguestsourceunit.dfm

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

          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #20250#21592'ID'
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 60
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'name'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #20250#21592#22995#21517
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 75
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'sex'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #20250#21592#24615#21035
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 75
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'phone'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#30005#35805
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 110
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'cardtype'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #35777#20214#31867#22411
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 75
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'cardnum'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #35777#20214#32534#21495
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 150
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'address'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #20250#21592#20303#22336
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 200
          Visible = True
        end>
    end
    object suiButton3: TsuiButton
      Left = 736
      Top = 280
      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 = 1
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton3Click
      ResHandle = 0
    end
    object dbedtID1: TDBEdit
      Left = 104
      Top = 208
      Width = 160
      Height = 22
      DataField = 'ID'
      DataSource = DataSource1
      Enabled = False
      TabOrder = 2
    end
    object dbedtname1: TDBEdit
      Left = 344
      Top = 208
      Width = 160
      Height = 22
      DataField = 'name'
      DataSource = DataSource1
      TabOrder = 3
      OnKeyPress = dbedtname1KeyPress
    end
    object dbedtphone: TDBEdit
      Left = 104
      Top = 232
      Width = 160
      Height = 22
      DataField = 'phone'
      DataSource = DataSource1
      TabOrder = 4
      OnKeyPress = dbedtphoneKeyPress
    end
    object dbedtcardnum: TDBEdit
      Left = 584
      Top = 232
      Width = 160
      Height = 22
      DataField = 'cardnum'
      DataSource = DataSource1
      TabOrder = 5
      OnKeyPress = dbedtcardnumKeyPress
    end
    object dbedtaddress: TDBEdit
      Left = 104
      Top = 256
      Width = 641
      Height = 22
      DataField = 'address'
      DataSource = DataSource1
      TabOrder = 6
      OnKeyPress = dbedtaddressKeyPress
    end
    object suiDBComboBox1: TsuiDBComboBox
      Left = 584
      Top = 208
      Width = 160
      Height = 22
      DataField = 'sex'
      DataSource = DataSource1
      ItemHeight = 14
      Items.Strings = (
        #30007
        #22899)
      TabOrder = 7
      OnKeyPress = suiDBComboBox1KeyPress
      UIStyle = DeepBlue
      BorderColor = clBlack
      ArrowColor = clBlack
      ButtonColor = 15263976
    end
    object suiDBComboBox2: TsuiDBComboBox
      Left = 344
      Top = 232
      Width = 160
      Height = 22
      DataField = 'cardtype'
      DataSource = DataSource1
      ItemHeight = 14
      Items.Strings = (
        #30007
        #22899)
      TabOrder = 8
      OnDropDown = suiDBComboBox2DropDown
      OnKeyPress = suiDBComboBox2KeyPress
      UIStyle = DeepBlue
      BorderColor = clBlack
      ArrowColor = clBlack
      ButtonColor = 15263976
    end
    object suiButton4: TsuiButton
      Left = 464
      Top = 280
      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 = 9
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton4Click
      ResHandle = 0
    end
    object suiButton5: TsuiButton
      Left = 520
      Top = 280
      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 = 10
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton5Click
      ResHandle = 0
    end
    object suiButton6: TsuiButton
      Left = 576
      Top = 280
      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 = 11
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton6Click
      ResHandle = 0
    end
    object suiButton9: TsuiButton
      Left = 629
      Top = 280
      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 = 12
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton9Click
      ResHandle = 0
    end
    object suiButton10: TsuiButton
      Left = 685
      Top = 280
      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 = 13
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton10Click
      ResHandle = 0
    end
  end
  object ds1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomGuestSource'
    RemoteServer = LoginForm.SocketConnection1
    AfterScroll = ds1AfterScroll
    Left = 12
    Top = 51
    object ds1id: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'id'
    end
    object wdstrngfldds1name: TWideStringField
      FieldName = 'name'
      Size = 50
    end
    object ds1rate: TFloatField
      Alignment = taLeftJustify
      FieldName = 'rate'
    end
  end
  object ds2: TDataSource
    DataSet = ds1
    Left = 44
    Top = 51
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'source'
    MasterFields = 'id'
    MasterSource = ds2
    PacketRecords = 0
    Params = <>
    ProviderName = 'dspRoomGuest'
    RemoteServer = LoginForm.SocketConnection1
    Left = 8
    Top = 200
    object ClientDataSet1ID: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'ID'
    end
    object wdstrngfldClientDataSet1source: TWideStringField
      FieldName = 'source'
      Size = 50
    end
    object wdstrngfldClientDataSet1name: TWideStringField
      FieldName = 'name'
      Size = 50
    end
    object wdstrngfldClientDataSet1sex: TWideStringField
      FieldName = 'sex'
      Size = 50
    end
    object wdstrngfldClientDataSet1phone: TWideStringField
      FieldName = 'phone'
      Size = 50
    end
    object wdstrngfldClientDataSet1cardtype: TWideStringField
      FieldName = 'cardtype'
      Size = 50
    end
    object wdstrngfldClientDataSet1cardnum: TWideStringField
      FieldName = 'cardnum'
      Size = 50
    end
    object wdstrngfldClientDataSet1address: TWideStringField
      FieldName = 'address'
      Size = 50
    end
    object ClientDataSet1cometime: TIntegerField
      FieldName = 'cometime'
    end
    object ClientDataSet1expenditure: TFloatField
      FieldName = 'expenditure'
    end
    object ClientDataSet1payment: TFloatField
      FieldName = 'payment'
    end
    object ClientDataSet1nopayment: TFloatField
      FieldName = 'nopayment'
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 40
    Top = 200
  end
end