ylglunit.dfm

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

object YLGLForm: TYLGLForm
  Left = 234
  Top = 177
  Width = 674
  Height = 470
  BorderIcons = []
  Caption = #36951#30041#31649#29702
  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 = 666
    Height = 443
    UIStyle = WinXP
    BorderColor = 6842472
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    Caption = #25805#20316#21306
    ShowButton = False
    CaptionFontColor = clBlack
    Align = alClient
    TabOrder = 0
    Color = clWhite
    object lbl1: TLabel
      Left = 16
      Top = 40
      Width = 98
      Height = 13
      Caption = #36951#22833#29289#21697#25151#38388#21495
    end
    object btn1: TsuiButton
      Left = 312
      Top = 40
      Width = 80
      Height = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      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 sdbgrd1: TsuiDBGrid
      Left = 16
      Top = 72
      Width = 641
      Height = 193
      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 = []
      ParentFont = False
      TabOrder = 1
      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 = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #20837#20303#21333#21495
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 130
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'name'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #20027#23458#20449#24687
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 71
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'room'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #25151#38388#21495
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'entertime'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #20837#20303#26102#38388
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 150
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'leavetime'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #31163#24320#26102#38388' '
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 150
          Visible = True
        end>
    end
    object suiGroupBox1: TsuiGroupBox
      Left = 16
      Top = 272
      Width = 297
      Height = 129
      UIStyle = DeepBlue
      Caption = #36951#30041#29289#21697#20449#24687
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 2
      BorderColor = clBlack
      object suiMemo1: TsuiMemo
        Left = 3
        Top = 17
        Width = 291
        Height = 109
        UIStyle = DeepBlue
        BorderColor = clBlack
        Align = alClient
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        Lines.Strings = (
          'suiMemo1')
        ParentFont = False
        TabOrder = 0
        OnKeyPress = suiMemo1KeyPress
      end
    end
    object suiButton1: TsuiButton
      Left = 576
      Top = 408
      Width = 80
      Height = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Caption = #36820#22238#20027#30028#38754
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 3
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton1Click
      ResHandle = 0
    end
    object suiButton2: TsuiButton
      Left = 488
      Top = 408
      Width = 80
      Height = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Caption = #39046#21462#22833#29289
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 4
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton2Click
      ResHandle = 0
    end
    object suiButton3: TsuiButton
      Left = 400
      Top = 408
      Width = 80
      Height = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Caption = #30331#35760#36951#22833
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 5
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton3Click
      ResHandle = 0
    end
    object suiGroupBox2: TsuiGroupBox
      Left = 320
      Top = 272
      Width = 337
      Height = 129
      UIStyle = DeepBlue
      Caption = #22788#29702#20449#24687
      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 suiMemo2: TsuiMemo
        Left = 3
        Top = 17
        Width = 331
        Height = 109
        UIStyle = DeepBlue
        BorderColor = clBlack
        Align = alClient
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        Lines.Strings = (
          'suiMemo1')
        ParentFont = False
        TabOrder = 0
      end
    end
    object edt1: TsuiEdit
      Left = 144
      Top = 40
      Width = 121
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      TabOrder = 7
      Text = 'edt1'
      OnKeyPress = edt1KeyPress
    end
  end
  object ds1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomHouse'
    RemoteServer = LoginForm.SocketConnection1
    AfterScroll = ds1AfterScroll
    Left = 24
    Top = 112
    object wdstrngfldds1id: TWideStringField
      FieldName = 'id'
      Size = 50
    end
    object wdstrngfldds1guest: TWideStringField
      FieldName = 'guest'
      Size = 50
    end
    object wdstrngfldds1peopelnum: TWideStringField
      FieldName = 'peopelnum'
      Size = 50
    end
    object ds1memozs: TMemoField
      FieldName = 'memozs'
      BlobType = ftMemo
    end
    object wdstrngfldds1room: TWideStringField
      FieldName = 'room'
      Size = 50
    end
    object ds1price: TFloatField
      FieldName = 'price'
    end
    object wdstrngfldds1ifclock: TWideStringField
      FieldName = 'ifclock'
      Size = 50
    end
    object ds1clock: TFloatField
      FieldName = 'clock'
    end
    object ds1scale: TFloatField
      FieldName = 'scale'
    end
    object ds1factprice: TFloatField
      FieldName = 'factprice'
    end
    object wdstrngfldds1days: TWideStringField
      FieldName = 'days'
      Size = 50
    end
    object ds1deposit: TFloatField
      FieldName = 'deposit'
    end
    object wdstrngfldds1paymode: TWideStringField
      FieldName = 'paymode'
      Size = 50
    end
    object wdstrngfldds1entertime: TWideStringField
      FieldName = 'entertime'
      Size = 50
    end
    object wdstrngfldds1leavetime: TWideStringField
      FieldName = 'leavetime'
      Size = 50
    end
    object ds1name: TStringField
      FieldKind = fkLookup
      FieldName = 'name'
      LookupDataSet = ds3
      LookupKeyFields = 'ID'
      LookupResultField = 'name'
      KeyFields = 'guest'
      Size = 30
      Lookup = True
    end
  end
  object ds2: TDataSource
    DataSet = ds1
    Left = 56
    Top = 112
  end
  object ds3: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomGuest'
    RemoteServer = LoginForm.SocketConnection1
    Left = 88
    Top = 112
  end
end