hbzdunit.dfm

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

object HBZDForm: THBZDForm
  Left = 298
  Top = 165
  Width = 412
  Height = 493
  BorderIcons = []
  Caption = #21512#24182#36134#21333
  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 suiPanel2: TsuiPanel
    Left = 8
    Top = 8
    Width = 385
    Height = 193
    UIStyle = MacOS
    BorderColor = 8355711
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    Caption = #22312#24215#23486#23458
    ShowButton = False
    CaptionFontColor = clBlack
    TabOrder = 0
    Color = clWhite
    object lbl1: TLabel
      Left = 8
      Top = 32
      Width = 90
      Height = 14
      Caption = #25351#23450#25151#38388#21495#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 8
      Top = 56
      Width = 6
      Height = 12
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object dbgrd1: TDBGrid
      Left = 4
      Top = 72
      Width = 377
      Height = 117
      Align = alBottom
      DataSource = ds1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = [fsBold]
      OnDrawColumnCell = dbgrd1DrawColumnCell
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'id'
          Title.Alignment = taCenter
          Title.Caption = #20837#20303#21333#21495
          Width = 120
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'room'
          Title.Alignment = taCenter
          Title.Caption = #20027#25151#38388
          Width = 60
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'entertime'
          Title.Alignment = taCenter
          Title.Caption = #20837#20303#26102#38388
          Width = 146
          Visible = True
        end>
    end
    object suiEdit1: TsuiEdit
      Left = 96
      Top = 32
      Width = 97
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      TabOrder = 1
      Text = 'suiEdit1'
      OnKeyPress = suiEdit1KeyPress
    end
  end
  object suiArrowButton2: TsuiArrowButton
    Left = 216
    Top = 205
    Width = 49
    Height = 20
    Caption = 'suiArrowButton2'
    AutoSize = False
    Arrow = suiUp
    UIStyle = WinXP
    MouseContinuouslyDownInterval = 100
    OnClick = suiArrowButton2Click
  end
  object suiArrowButton1: TsuiArrowButton
    Left = 120
    Top = 205
    Width = 49
    Height = 20
    Caption = 'suiArrowButton1'
    AutoSize = False
    Arrow = suiDown
    UIStyle = WinXP
    MouseContinuouslyDownInterval = 100
    OnClick = suiArrowButton1Click
  end
  object suiPanel1: TsuiPanel
    Left = 8
    Top = 232
    Width = 385
    Height = 193
    UIStyle = MacOS
    BorderColor = 8355711
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    Caption = #21512#24182#21306
    ShowButton = False
    CaptionFontColor = clBlack
    TabOrder = 3
    Color = clWhite
    object Label2: TLabel
      Left = 8
      Top = 32
      Width = 105
      Height = 14
      Caption = #21512#24182#21518#20027#25151#38388#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 112
      Top = 32
      Width = 8
      Height = 14
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 4
      Top = 56
      Width = 377
      Height = 133
      Align = alBottom
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      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 = #20837#20303#21333#21495
          Width = 120
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'room'
          Title.Alignment = taCenter
          Title.Caption = #20027#25151#38388
          Width = 60
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'entertime'
          Title.Alignment = taCenter
          Title.Caption = #20837#20303#26102#38388
          Width = 146
          Visible = True
        end>
    end
  end
  object btn1: TsuiButton
    Left = 256
    Top = 432
    Width = 65
    Height = 25
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Caption = #21512#24182
    AutoSize = False
    ParentFont = False
    UIStyle = WinXP
    TabOrder = 4
    Transparent = False
    ModalResult = 0
    FocusedRectMargin = 2
    Layout = blGlyphLeft
    Spacing = 4
    MouseContinuouslyDownInterval = 100
    OnClick = btn1Click
    ResHandle = 0
  end
  object btn2: TsuiButton
    Left = 328
    Top = 432
    Width = 65
    Height = 25
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Caption = #36864#20986
    AutoSize = False
    ParentFont = False
    UIStyle = WinXP
    TabOrder = 5
    Transparent = False
    ModalResult = 0
    FocusedRectMargin = 2
    Layout = blGlyphLeft
    Spacing = 4
    MouseContinuouslyDownInterval = 100
    OnClick = btn2Click
    ResHandle = 0
  end
  object ds1: TDataSource
    DataSet = ds2
    Left = 48
    Top = 120
  end
  object ds2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomHouseTemp'
    RemoteServer = LoginForm.SocketConnection1
    AfterScroll = ds2AfterScroll
    Left = 16
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 48
    Top = 328
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRoomHouseTest'
    RemoteServer = LoginForm.SocketConnection1
    AfterScroll = ClientDataSet1AfterScroll
    Left = 16
    Top = 328
  end
end