selectksdaunit.dfm

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

object SelectKSDAForm: TSelectKSDAForm
  Left = 225
  Top = 160
  Width = 657
  Height = 454
  BorderIcons = []
  Caption = #23458#21490#20449#24687#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object suiPanel1: TsuiPanel
    Left = 0
    Top = 0
    Width = 649
    Height = 427
    UIStyle = MacOS
    BorderColor = 8355711
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    Caption = #25805#20316#21306
    ShowButton = True
    CaptionFontColor = clBlack
    Align = alClient
    TabOrder = 0
    Color = clWhite
    object btn1: TsuiButton
      Left = 552
      Top = 24
      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 = 0
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = btn1Click
      ResHandle = 0
    end
    object btn2: TsuiButton
      Left = 552
      Top = 48
      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 = 1
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = btn2Click
      ResHandle = 0
    end
    object suiEdit1: TsuiEdit
      Left = 368
      Top = 49
      Width = 177
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      TabOrder = 2
      Text = 'edt1'
    end
    object suiRadioButton8: TsuiRadioButton
      Left = 288
      Top = 25
      Width = 81
      Height = 20
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #23486#23458#22995#21517
      TabOrder = 3
      TabStop = True
      State = cbUnchecked
      Transparent = False
      GroupIndex = 0
    end
    object sdbgrd1: TsuiDBGrid
      Left = 4
      Top = 72
      Width = 641
      Height = 351
      Align = alBottom
      BorderStyle = bsNone
      Color = clWhite
      DataSource = ds2
      FixedColor = 10504772
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 4
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWhite
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = sdbgrd1DblClick
      UIStyle = DeepBlue
      BorderColor = clBlack
      FocusedColor = clGreen
      SelectedColor = clYellow
      FontColor = clBlack
      TitleFontColor = clWhite
      FixedBGColor = 10504772
      BGColor = clWhite
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ID'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #23458#21490'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 = 55
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'source'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #23486#23458#26469#28304
          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 = 70
          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 = #23486#23458#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 = 80
          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 = #23486#23458#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 = 70
          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 = 70
          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>
    end
    object suiRadioButton1: TsuiRadioButton
      Left = 104
      Top = 25
      Width = 81
      Height = 20
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #23486#23458#26469#28304
      TabOrder = 5
      TabStop = True
      State = cbUnchecked
      Transparent = False
      GroupIndex = 0
    end
    object suiEdit2: TsuiEdit
      Left = 368
      Top = 25
      Width = 177
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      TabOrder = 6
      Text = 'edt1'
    end
    object suiRadioButton2: TsuiRadioButton
      Left = 24
      Top = 49
      Width = 81
      Height = 20
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #35777#20214#32534#21495
      TabOrder = 7
      TabStop = True
      State = cbUnchecked
      Transparent = False
      GroupIndex = 0
    end
    object suiEdit3: TsuiEdit
      Left = 104
      Top = 49
      Width = 177
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      TabOrder = 8
      Text = 'edt1'
    end
    object suiRadioButton3: TsuiRadioButton
      Left = 24
      Top = 25
      Width = 81
      Height = 20
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #25152#26377#25968#25454
      TabOrder = 9
      TabStop = True
      State = cbUnchecked
      Transparent = False
      GroupIndex = 0
    end
    object suiComboBox1: TsuiComboBox
      Left = 184
      Top = 24
      Width = 97
      Height = 22
      UIStyle = DeepBlue
      BorderColor = clBlack
      ArrowColor = clBlack
      ButtonColor = 15263976
      ItemHeight = 14
      TabOrder = 10
      Text = 'suiComboBox1'
      OnDropDown = suiComboBox1DropDown
    end
    object suiRadioButton5: TsuiRadioButton
      Left = 288
      Top = 49
      Width = 81
      Height = 20
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #32852#31995#30005#35805
      TabOrder = 11
      TabStop = True
      State = cbUnchecked
      Transparent = False
      GroupIndex = 0
    end
  end
  object ds1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomGuest'
    RemoteServer = LoginForm.SocketConnection1
    Left = 8
    Top = 112
  end
  object ds2: TDataSource
    DataSet = ds1
    Left = 40
    Top = 112
  end
end