ydeditunit.dfm

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

object YDEditForm: TYDEditForm
  Left = 229
  Top = 129
  Width = 438
  Height = 467
  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 = 430
    Height = 440
    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 Label1: TLabel
      Left = 8
      Top = 32
      Width = 69
      Height = 14
      Caption = #39044' '#35746' '#20154':'
    end
    object Label7: TLabel
      Left = 8
      Top = 60
      Width = 68
      Height = 14
      Caption = #32852#31995#30005#35805':'
    end
    object Label3: TLabel
      Left = 200
      Top = 60
      Width = 68
      Height = 14
      Caption = #20445#30041#26102#38388':'
    end
    object Label17: TLabel
      Left = 200
      Top = 32
      Width = 68
      Height = 14
      Caption = #39044#25269#26102#38388':'
    end
    object suiGroupBox1: TsuiGroupBox
      Left = 8
      Top = 280
      Width = 417
      Height = 153
      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 = 0
      BorderColor = clBlack
      object dbgrd1: TDBGrid
        Left = 3
        Top = 17
        Width = 411
        Height = 133
        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 = #39044#35746#20154
            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
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'state'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Title.Alignment = taCenter
            Title.Caption = #39044#35746#29366#24577
            Title.Font.Charset = ANSI_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = #23435#20307
            Title.Font.Style = [fsBold]
            Width = 60
            Visible = True
          end>
      end
    end
    object suiEdit1: TsuiEdit
      Left = 75
      Top = 32
      Width = 110
      Height = 20
      UIStyle = DeepBlue
      BorderColor = clBlack
      TabOrder = 1
      Text = 'suiEdit1'
      OnKeyPress = suiEdit1KeyPress
    end
    object suiEdit2: TsuiEdit
      Left = 75
      Top = 60
      Width = 110
      Height = 20
      UIStyle = DeepBlue
      BorderColor = clBlack
      TabOrder = 2
      Text = 'suiEdit2'
      OnKeyPress = suiEdit2KeyPress
    end
    object dtp1: TDateTimePicker
      Left = 267
      Top = 32
      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 = 3
      OnChange = dtp1Change
      OnKeyPress = dtp1KeyPress
    end
    object suiMaskEdit1: TsuiMaskEdit
      Left = 376
      Top = 32
      Width = 49
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      BorderStyle = bsNone
      EditMask = '00:00;1;_'
      MaxLength = 5
      TabOrder = 4
      Text = '00:00'
      OnKeyPress = suiMaskEdit1KeyPress
    end
    object DateTimePicker2: TDateTimePicker
      Left = 267
      Top = 60
      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 = 5
      OnKeyPress = DateTimePicker2KeyPress
    end
    object suiMaskEdit3: TsuiMaskEdit
      Left = 376
      Top = 60
      Width = 49
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      BorderStyle = bsNone
      EditMask = '00:00;1;_'
      MaxLength = 5
      TabOrder = 6
      Text = '00:00'
      OnKeyPress = suiMaskEdit3KeyPress
    end
    object suiGroupBox2: TsuiGroupBox
      Left = 8
      Top = 88
      Width = 417
      Height = 185
      UIStyle = DeepBlue
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 7
      BorderColor = clBlack
      object Label16: TLabel
        Left = 8
        Top = 3
        Width = 98
        Height = 14
        Caption = #39044#35746#39184#21488#20449#24687':'
      end
      object suiListBox2: TsuiListBox
        Left = 8
        Top = 32
        Width = 129
        Height = 137
        UIStyle = MacOS
        BorderColor = 8355711
        Style = lbOwnerDrawFixed
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ItemHeight = 16
        Items.Strings = (
          #21333#20154#38388':BD201')
        MultiSelect = True
        ParentFont = False
        TabOrder = 0
        OnClick = suiListBox2Click
      end
      object btn3: TsuiButton
        Left = 144
        Top = 72
        Width = 41
        Height = 17
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        Caption = '>>'
        AutoSize = False
        ParentFont = False
        UIStyle = DeepBlue
        TabOrder = 1
        Transparent = False
        ModalResult = 0
        FocusedRectMargin = 2
        Layout = blGlyphLeft
        Spacing = 4
        MouseContinuouslyDownInterval = 100
        OnClick = btn3Click
        ResHandle = 0
      end
      object btn4: TsuiButton
        Left = 145
        Top = 112
        Width = 40
        Height = 17
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        Caption = '<<'
        AutoSize = False
        ParentFont = False
        UIStyle = DeepBlue
        TabOrder = 2
        Transparent = False
        ModalResult = 0
        FocusedRectMargin = 2
        Layout = blGlyphLeft
        Spacing = 4
        MouseContinuouslyDownInterval = 100
        OnClick = btn4Click
        ResHandle = 0
      end
      object suiListBox1: TsuiListBox
        Left = 192
        Top = 32
        Width = 129
        Height = 137
        UIStyle = MacOS
        BorderColor = 8355711
        Style = lbOwnerDrawFixed
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ItemHeight = 16
        Items.Strings = (
          #21333#20154#38388':BD201')
        MultiSelect = True
        ParentFont = False
        TabOrder = 3
      end
      object suiButton1: TsuiButton
        Left = 337
        Top = 104
        Width = 56
        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 = 4
        Transparent = False
        ModalResult = 0
        FocusedRectMargin = 2
        Layout = blGlyphLeft
        Spacing = 4
        MouseContinuouslyDownInterval = 100
        OnClick = suiButton1Click
        ResHandle = 0
      end
      object suiButton2: TsuiButton
        Left = 337
        Top = 144
        Width = 56
        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 = 5
        Transparent = False
        ModalResult = 0
        FocusedRectMargin = 2
        Layout = blGlyphLeft
        Spacing = 4
        MouseContinuouslyDownInterval = 100
        OnClick = suiButton2Click
        ResHandle = 0
      end
    end
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomReserve'
    RemoteServer = LoginForm.SocketConnection1
    Left = 16
    Top = 336
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet2
    Left = 48
    Top = 336
  end
end