setserverunit.dfm

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

object SetServerForm: TSetServerForm
  Left = 269
  Top = 192
  Width = 697
  Height = 325
  BorderIcons = []
  Caption = #26381#21153#29983#20449#24687#35774#32622
  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 suiPanel2: TsuiPanel
    Left = 0
    Top = 0
    Width = 689
    Height = 298
    UIStyle = WinXP
    BorderColor = 6842472
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    Caption = #26381#21153#29983#20449#24687
    ShowButton = False
    CaptionFontColor = clBlack
    Align = alClient
    TabOrder = 0
    Color = clWhite
    object lbl12: TLabel
      Left = 232
      Top = 216
      Width = 75
      Height = 14
      Caption = #26381#21153#29983#22995#21517
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl13: TLabel
      Left = 8
      Top = 216
      Width = 75
      Height = 14
      Caption = #26381#21153#29983#32534#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl14: TLabel
      Left = 456
      Top = 216
      Width = 75
      Height = 14
      Caption = #26381#21153#29983#24615#21035
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl15: TLabel
      Left = 8
      Top = 240
      Width = 60
      Height = 14
      Caption = #32852#31995#30005#35805
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl16: TLabel
      Left = 232
      Top = 240
      Width = 60
      Height = 14
      Caption = #36523#20221#35777#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 456
      Top = 240
      Width = 60
      Height = 14
      Caption = #26381#21153#21306#22495
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object suiDBGrid1: TsuiDBGrid
      Left = 4
      Top = 25
      Width = 681
      Height = 184
      Align = alTop
      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 = 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 = 'id'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          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 = -14
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #22995#21517
          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 = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'sex'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #24615#21035
          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 = 'phone'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          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 = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 120
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'cardname'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #36523#20221#35777#21495
          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 = 160
          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 = #26381#21153#21306#22495
          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 = 75
          Visible = True
        end>
    end
    object suiButton3: TsuiButton
      Left = 344
      Top = 264
      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 suiButton4: TsuiButton
      Left = 400
      Top = 264
      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 suiButton5: TsuiButton
      Left = 456
      Top = 264
      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 suiButton6: TsuiButton
      Left = 624
      Top = 264
      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 suiButton9: TsuiButton
      Left = 568
      Top = 265
      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 = 5
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton9Click
      ResHandle = 0
    end
    object suiButton10: TsuiButton
      Left = 512
      Top = 265
      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 = 6
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton10Click
      ResHandle = 0
    end
    object dbedtid: TDBEdit
      Left = 88
      Top = 216
      Width = 140
      Height = 22
      DataField = 'id'
      DataSource = ds2
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
    end
    object dbedtname: TDBEdit
      Left = 312
      Top = 216
      Width = 140
      Height = 22
      DataField = 'name'
      DataSource = ds2
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      OnKeyPress = dbedtnameKeyPress
    end
    object dbedtphone: TDBEdit
      Left = 88
      Top = 240
      Width = 140
      Height = 22
      DataField = 'phone'
      DataSource = ds2
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 9
      OnKeyPress = dbedtphoneKeyPress
    end
    object dbedtcardname: TDBEdit
      Left = 312
      Top = 240
      Width = 140
      Height = 22
      DataField = 'cardname'
      DataSource = ds2
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 10
      OnKeyPress = dbedtcardnameKeyPress
    end
    object dbedtaddress: TDBEdit
      Left = 536
      Top = 240
      Width = 140
      Height = 22
      DataField = 'address'
      DataSource = ds2
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 11
      OnKeyPress = dbedtaddressKeyPress
    end
    object suiDBComboBox1: TsuiDBComboBox
      Left = 536
      Top = 216
      Width = 140
      Height = 22
      DataField = 'sex'
      DataSource = ds2
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ItemHeight = 14
      Items.Strings = (
        #30007
        #22899)
      ParentFont = False
      TabOrder = 12
      OnKeyPress = suiDBComboBox1KeyPress
      UIStyle = DeepBlue
      BorderColor = clBlack
      ArrowColor = clBlack
      ButtonColor = 15263976
    end
  end
  object ds1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspServer'
    RemoteServer = LoginForm.SocketConnection1
    Left = 8
    Top = 64
    object ds1id: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'id'
    end
    object wdstrngfldds1name: TWideStringField
      FieldName = 'name'
      Size = 50
    end
    object wdstrngfldds1sex: TWideStringField
      FieldName = 'sex'
      Size = 50
    end
    object wdstrngfldds1phone: TWideStringField
      FieldName = 'phone'
      Size = 50
    end
    object wdstrngfldds1cardname: TWideStringField
      FieldName = 'cardname'
      Size = 50
    end
    object wdstrngfldds1address: TWideStringField
      FieldName = 'address'
      Size = 50
    end
  end
  object ds2: TDataSource
    DataSet = ds1
    Left = 40
    Top = 64
  end
end