ttkdunit.dfm

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

        UIStyle = WinXP
        BorderColor = 6842472
        TabOrder = 6
        Text = 'suiEdit1'
        OnKeyPress = suiEdit8KeyPress
      end
      object suiComboBox3: TsuiComboBox
        Left = 336
        Top = 24
        Width = 155
        Height = 21
        UIStyle = WinXP
        BorderColor = 6842472
        ArrowColor = clBlack
        ButtonColor = 14609391
        ItemHeight = 13
        TabOrder = 7
        Text = 'suiComboBox1'
        OnKeyPress = suiComboBox3KeyPress
        Items.Strings = (
          #30007
          #22899)
      end
      object suiButton3: TsuiButton
        Left = 584
        Top = 68
        Width = 60
        Height = 25
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        Caption = #32534#36753
        AutoSize = False
        ParentFont = False
        UIStyle = WinXP
        TabOrder = 8
        Transparent = False
        ModalResult = 0
        FocusedRectMargin = 2
        Layout = blGlyphLeft
        Spacing = 4
        MouseContinuouslyDownInterval = 100
        OnClick = suiButton3Click
        ResHandle = 0
      end
      object dbgrd1: TDBGrid
        Left = 3
        Top = 104
        Width = 747
        Height = 86
        Align = alBottom
        DataSource = ds1
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        PopupMenu = pm1
        TabOrder = 9
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = [fsBold]
        OnDrawColumnCell = dbgrd1DrawColumnCell
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'room'
            Title.Alignment = taCenter
            Title.Caption = #25151#38388#21495
            Width = 50
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'name'
            Title.Alignment = taCenter
            Title.Caption = #22995#21517
            Width = 70
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'sex'
            Title.Alignment = taCenter
            Title.Caption = #24615#21035
            Width = 40
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'phone'
            Title.Alignment = taCenter
            Title.Caption = #32852#31995#30005#35805
            Width = 120
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'cardtype'
            Title.Alignment = taCenter
            Title.Caption = #35777#20214#31867#22411
            Width = 70
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'cardnum'
            Title.Alignment = taCenter
            Title.Caption = #35777#20214#21495#30721
            Width = 150
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'address'
            Title.Alignment = taCenter
            Title.Caption = #23478#24237#20303#22336
            Width = 210
            Visible = True
          end>
      end
    end
    object suiListBox2: TsuiListBox
      Left = 8
      Top = 208
      Width = 145
      Height = 113
      UIStyle = MacOS
      BorderColor = 8355711
      Style = lbOwnerDrawFixed
      ItemHeight = 16
      Items.Strings = (
        #26631#20934#21333#20154#38388':BD201')
      MultiSelect = True
      TabOrder = 13
    end
    object suiGroupBox2: TsuiGroupBox
      Left = 8
      Top = 152
      Width = 753
      Height = 49
      UIStyle = DeepBlue
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 14
      BorderColor = clBlack
      object Label22: TLabel
        Left = 520
        Top = 20
        Width = 70
        Height = 13
        Caption = #20184#27454#26041#24335#65306
      end
      object Label21: TLabel
        Left = 352
        Top = 20
        Width = 70
        Height = 13
        Caption = #23454#25910#25276#37329#65306
      end
      object Label20: TLabel
        Left = 184
        Top = 20
        Width = 70
        Height = 13
        Caption = #39044#20303#22825#25968#65306
      end
      object Label14: TLabel
        Left = 16
        Top = 20
        Width = 64
        Height = 13
        Caption = #25171#25240#27604#20363':'
      end
      object suiComboBox8: TsuiComboBox
        Left = 592
        Top = 20
        Width = 153
        Height = 21
        UIStyle = WinXP
        BorderColor = 6842472
        ArrowColor = clBlack
        ButtonColor = 14609391
        ItemHeight = 13
        TabOrder = 0
        Text = 'suiComboBox1'
        OnDropDown = suiComboBox8DropDown
        OnKeyPress = suiComboBox8KeyPress
      end
      object suiEdit15: TsuiEdit
        Left = 424
        Top = 20
        Width = 81
        Height = 20
        UIStyle = WinXP
        BorderColor = 6842472
        TabOrder = 1
        Text = 'suiEdit10'
        OnKeyPress = suiEdit15KeyPress
      end
      object suiEdit14: TsuiEdit
        Left = 256
        Top = 20
        Width = 81
        Height = 20
        UIStyle = WinXP
        BorderColor = 6842472
        TabOrder = 2
        Text = 'suiEdit10'
        OnKeyPress = suiEdit14KeyPress
      end
      object suiEdit12: TsuiEdit
        Left = 88
        Top = 20
        Width = 81
        Height = 20
        UIStyle = WinXP
        BorderColor = 6842472
        TabOrder = 3
        Text = 'suiEdit10'
        OnKeyPress = suiEdit12KeyPress
      end
      object suiCheckBox1: TsuiCheckBox
        Left = 16
        Top = -2
        Width = 63
        Height = 19
        UIStyle = WinXP
        AutoSize = True
        Checked = False
        Caption = #38047#28857#25151
        TabOrder = 4
        TabStop = True
        State = cbUnchecked
        Transparent = False
        OnClick = suiCheckBox1Click
      end
    end
    object btn3: TsuiButton
      Left = 161
      Top = 248
      Width = 25
      Height = 17
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Caption = '>>'
      AutoSize = False
      ParentFont = False
      UIStyle = DeepBlue
      TabOrder = 15
      Transparent = False
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = btn3Click
      ResHandle = 0
    end
    object btn4: TsuiButton
      Left = 161
      Top = 280
      Width = 25
      Height = 17
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Caption = '<<'
      AutoSize = False
      ParentFont = False
      UIStyle = DeepBlue
      TabOrder = 16
      Transparent = False
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = btn4Click
      ResHandle = 0
    end
    object DBGrid1: TDBGrid
      Left = 192
      Top = 208
      Width = 569
      Height = 113
      Ctl3D = False
      DataSource = ds2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      TabOrder = 17
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      TitleFont.Style = [fsBold]
      OnDrawColumnCell = DBGrid1DrawColumnCell
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'id'
          Title.Alignment = taCenter
          Title.Caption = #24207#21495
          Width = 45
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'roomtype'
          Title.Alignment = taCenter
          Title.Caption = #25151#38388#31867#22411
          Width = 85
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'roomnum'
          Title.Alignment = taCenter
          Title.Caption = #25151#38388#21495
          Width = 60
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'price'
          Title.Alignment = taCenter
          Title.Caption = #39044#35774#21333#20215
          Width = 90
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'salce'
          Title.Alignment = taCenter
          Title.Caption = #25171#25240#27604#20363
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'factprice'
          Title.Alignment = taCenter
          Title.Caption = #25240#21518#20215#26684
          Width = 90
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'yajin'
          Title.Alignment = taCenter
          Title.Caption = #39044#35774#25276#37329
          Width = 90
          Visible = True
        end>
    end
  end
  object ds1: TDataSource
    DataSet = ds3
    Left = 48
    Top = 472
  end
  object ds2: TDataSource
    DataSet = ClientDataSet1
    Left = 240
    Top = 256
  end
  object ds3: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomRoomPeople'
    RemoteServer = LoginForm.SocketConnection1
    AfterScroll = ds3AfterScroll
    Left = 16
    Top = 472
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomRoomSelect'
    RemoteServer = LoginForm.SocketConnection1
    AfterScroll = ClientDataSet1AfterScroll
    Left = 208
    Top = 256
  end
  object pm1: TPopupMenu
    Left = 80
    Top = 472
    object N1: TMenuItem
      Caption = #26174#31034#24403#21069#25151#38388#23458#20154#20449#24687
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #26174#31034#25152#26377#23458#20154#20449#24687
      OnClick = N2Click
    end
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomGuest'
    RemoteServer = LoginForm.SocketConnection1
    Left = 464
    Top = 32
  end
end