ydeditunit.dfm

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

object YDEditForm: TYDEditForm
  Left = 229
  Top = 129
  Width = 618
  Height = 420
  Caption = #39044#35746#32534#36753
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object suiPanel1: TsuiPanel
    Left = 0
    Top = 0
    Width = 610
    Height = 393
    UIStyle = MacOS
    BorderColor = 8355711
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    Caption = #39044#35746#21333#21495#65306'YD20071018200000'
    ShowButton = False
    CaptionFontColor = clBlack
    Align = alClient
    TabOrder = 0
    Color = clWhite
    object Label15: TLabel
      Left = 8
      Top = 88
      Width = 68
      Height = 14
      Caption = #23486#23458#26469#28304':'
    end
    object Label1: TLabel
      Left = 8
      Top = 32
      Width = 68
      Height = 14
      Caption = #20027#23458#22995#21517':'
    end
    object Label16: TLabel
      Left = 8
      Top = 200
      Width = 68
      Height = 14
      Caption = #39044#35746#35268#26684':'
    end
    object Label7: TLabel
      Left = 8
      Top = 60
      Width = 68
      Height = 14
      Caption = #32852#31995#30005#35805':'
    end
    object Label8: TLabel
      Left = 8
      Top = 144
      Width = 68
      Height = 14
      Caption = #39044#31163#26102#38388':'
    end
    object Label3: TLabel
      Left = 8
      Top = 172
      Width = 68
      Height = 14
      Caption = #20445#30041#26102#38388':'
    end
    object Label17: TLabel
      Left = 8
      Top = 116
      Width = 68
      Height = 14
      Caption = #39044#25269#26102#38388':'
    end
    object suiButton1: TsuiButton
      Left = 424
      Top = 360
      Width = 80
      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 = 0
      Transparent = False
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton1Click
      ResHandle = 0
    end
    object suiButton2: TsuiButton
      Left = 520
      Top = 360
      Width = 80
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #36864#20986
      AutoSize = False
      ParentFont = False
      UIStyle = WinXP
      TabOrder = 1
      Transparent = False
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton2Click
      ResHandle = 0
    end
    object suiListBox2: TsuiListBox
      Left = 8
      Top = 232
      Width = 193
      Height = 121
      UIStyle = MacOS
      BorderColor = 8355711
      Style = lbOwnerDrawFixed
      ItemHeight = 16
      Items.Strings = (
        #26631#20934#21333#20154#38388':BD201')
      MultiSelect = True
      TabOrder = 2
      OnClick = suiListBox2Click
    end
    object btn3: TsuiButton
      Left = 209
      Top = 272
      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 = 3
      Transparent = False
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = btn3Click
      ResHandle = 0
    end
    object btn4: TsuiButton
      Left = 209
      Top = 304
      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 = 4
      Transparent = False
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = btn4Click
      ResHandle = 0
    end
    object suiGroupBox1: TsuiGroupBox
      Left = 240
      Top = 24
      Width = 361
      Height = 201
      UIStyle = DeepBlue
      Caption = #24050#39044#35746'BD201'#30340#23486#23458
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 5
      BorderColor = clBlack
      object dbgrd1: TDBGrid
        Left = 3
        Top = 17
        Width = 355
        Height = 181
        Align = alClient
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -15
        TitleFont.Name = #23435#20307
        TitleFont.Style = [fsBold]
        OnDrawColumnCell = dbgrd1DrawColumnCell
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'name'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Title.Alignment = taCenter
            Title.Caption = #23486#23458#22995#21517
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = #23435#20307
            Title.Font.Style = [fsBold]
            Width = 70
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'time2'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Title.Alignment = taCenter
            Title.Caption = #39044#25269#26102#38388
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = #23435#20307
            Title.Font.Style = [fsBold]
            Width = 125
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'phone'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Title.Alignment = taCenter
            Title.Caption = #32852#31995#30005#35805
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = #23435#20307
            Title.Font.Style = [fsBold]
            Width = 120
            Visible = True
          end>
      end
    end
    object suiGroupBox2: TsuiGroupBox
      Left = 240
      Top = 232
      Width = 361
      Height = 121
      UIStyle = DeepBlue
      Caption = #26412#27425#39044#35746#30340#25151#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 6
      BorderColor = clBlack
      object DBGrid1: TDBGrid
        Left = 3
        Top = 17
        Width = 355
        Height = 101
        Align = alClient
        Ctl3D = False
        DataSource = ds2
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentCtl3D = False
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -12
        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 = 105
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'roomtype'
            Title.Alignment = taCenter
            Title.Caption = #25151#38388#31867#22411
            Width = 105
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'roomnum'
            Title.Alignment = taCenter
            Title.Caption = #25151#38388#21495
            Width = 105
            Visible = True
          end>
      end
    end
    object suiEdit1: TsuiEdit
      Left = 75
      Top = 32
      Width = 158
      Height = 20
      UIStyle = DeepBlue
      BorderColor = clBlack
      TabOrder = 7
      Text = 'suiEdit1'
      OnKeyPress = suiEdit1KeyPress
    end
    object suiEdit2: TsuiEdit
      Left = 75
      Top = 60
      Width = 158
      Height = 20
      UIStyle = DeepBlue
      BorderColor = clBlack
      TabOrder = 8
      Text = 'suiEdit2'
      OnKeyPress = suiEdit2KeyPress
    end
    object cbb1: TsuiComboBox
      Left = 75
      Top = 88
      Width = 158
      Height = 20
      UIStyle = DeepBlue
      BorderColor = clBlack
      ArrowColor = clBlack
      ButtonColor = 15263976
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ItemHeight = 12
      ParentFont = False
      TabOrder = 9
      Text = 'cbb1'
      OnDropDown = cbb1DropDown
      OnKeyPress = cbb1KeyPress
    end
    object dtp1: TDateTimePicker
      Left = 75
      Top = 116
      Width = 103
      Height = 22
      Date = 39378.572062754630000000
      Time = 39378.572062754630000000
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 10
      OnChange = dtp1Change
      OnKeyPress = dtp1KeyPress
    end
    object suiMaskEdit1: TsuiMaskEdit
      Left = 184
      Top = 116
      Width = 49
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      BorderStyle = bsNone
      EditMask = '00:00;1;_'
      MaxLength = 5
      TabOrder = 11
      Text = '00:00'
      OnKeyPress = suiMaskEdit1KeyPress
    end
    object DateTimePicker1: TDateTimePicker
      Left = 75
      Top = 144
      Width = 103
      Height = 22
      Date = 39378.572062754630000000
      Time = 39378.572062754630000000
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 12
      OnKeyPress = DateTimePicker1KeyPress
    end
    object suiMaskEdit2: TsuiMaskEdit
      Left = 184
      Top = 144
      Width = 49
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      BorderStyle = bsNone
      EditMask = '00:00;1;_'
      MaxLength = 5
      TabOrder = 13
      Text = '00:00'
      OnKeyPress = suiMaskEdit2KeyPress
    end
    object DateTimePicker2: TDateTimePicker
      Left = 75
      Top = 172
      Width = 103
      Height = 22
      Date = 39378.572062754630000000
      Time = 39378.572062754630000000
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 14
      OnKeyPress = DateTimePicker2KeyPress
    end
    object suiMaskEdit3: TsuiMaskEdit
      Left = 184
      Top = 172
      Width = 49
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      BorderStyle = bsNone
      EditMask = '00:00;1;_'
      MaxLength = 5
      TabOrder = 15
      Text = '00:00'
      OnKeyPress = suiMaskEdit3KeyPress
    end
    object cbb2: TsuiComboBox
      Left = 75
      Top = 200
      Width = 158
      Height = 22
      UIStyle = DeepBlue
      BorderColor = clBlack
      ArrowColor = clBlack
      ButtonColor = 15263976
      ItemHeight = 14
      TabOrder = 16
      Text = 'cbb2'
      OnDropDown = cbb2DropDown
      OnSelect = cbb2Select
    end
  end
  object ds2: TDataSource
    DataSet = ClientDataSet1
    Left = 280
    Top = 288
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomRoomSelect'
    RemoteServer = LoginForm.SocketConnection1
    Left = 248
    Top = 288
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomReserve'
    RemoteServer = LoginForm.SocketConnection1
    Left = 248
    Top = 80
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet2
    Left = 280
    Top = 80
  end
  object ClientDataSet3: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomGuest'
    RemoteServer = LoginForm.SocketConnection1
    Left = 200
    Top = 32
  end
end