c_main.dfm

经典的酒店管理系统

object MainForm: TMainForm
  Left = 16
  Top = 27
  Width = 800
  Height = 600
  ActiveControl = sgdKfzt
  Caption = #31435#26041#37202#24215#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIForm
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 708
    Top = 0
    Width = 84
    Height = 554
    Align = alRight
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 0
    DesignSize = (
      84
      554)
    object lblTime: TStaticText
      Left = 0
      Top = 0
      Width = 84
      Height = 16
      Align = alTop
      Alignment = taCenter
      BevelEdges = [beLeft, beTop, beBottom]
      BorderStyle = sbsSingle
      Caption = '2002-01-01 01:01:01'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 0
    end
    object btnRefresh: TBitBtn
      Left = 2
      Top = 39
      Width = 75
      Height = 40
      Anchors = [akTop, akRight]
      Caption = #21047#26032#25151#24577
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btnRefreshClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888000088888888888066660888888888066666
        6088000000066666608880444406666660888804440666666008888044406666
        0B08888804000000BF0888888080FBFBFB0888888880BFBFBF0888888880FBFB
        FB0888888880BFBFBF0888888880000000088888888888888888}
      Layout = blGlyphTop
    end
    object btnFtsm: TBitBtn
      Left = 2
      Top = 119
      Width = 75
      Height = 40
      Anchors = [akTop, akRight]
      Caption = #25151#24577#35828#26126
      TabOrder = 2
      OnClick = btnFtsmClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888880088888888888888008888888888888008888444888088800888844
        4888008008888888888800000888884478880000000088447888000000088884
        4888000000888888447800000887448874470000888447888444000888844788
        8444008888884488744708888888844444788888888888888888}
      Layout = blGlyphTop
    end
    object btnFtdh: TBitBtn
      Left = 2
      Top = 199
      Width = 75
      Height = 40
      Anchors = [akTop, akRight]
      Caption = #25151#24577#23548#33322
      TabOrder = 3
      OnClick = btnFtdhClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888488000080008000888888888888888884880000800080008888888888888
        8888488000080008000888888888888888884880000800080008888888888888
        8888488000080008000888888888888888884444444444444444888888888888
        8888888000080008000888888888888888888888888888888888}
      Layout = blGlyphTop
    end
    object btnYdRefresh: TBitBtn
      Left = 2
      Top = 79
      Width = 75
      Height = 40
      Anchors = [akTop, akRight]
      Caption = #21047#26032#39044#23450
      TabOrder = 4
      OnClick = btnYdRefreshClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        888800000000000088880FFFFFFFFFF088880F00F00000F088880FFFFFFFFFF0
        88880F00F00000F088880FFFFFFFFFF088880FFFFFFF0FF088880F00FFF080F0
        88880F080F08080008440FF08080808880440000080808888844888880808888
        8844888888088888804488888880000008448888888888888888}
      Layout = blGlyphTop
    end
    object BitBtn17: TBitBtn
      Left = 2
      Top = 159
      Width = 75
      Height = 40
      Anchors = [akTop, akRight]
      Caption = #39044#23450#35828#26126
      TabOrder = 5
      OnClick = BitBtn17Click
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        888888888880088888888888880B308888888888880B30888888888888800888
        88888888880B308888888888880B308888888888880B308888888888880BB308
        888888880080BB3088888880B3080BB308888880B30880B308888880BB300BB3
        088888880BBBBB30888888888000000888888888888888888888}
      Layout = blGlyphTop
    end
    object Chart2: TChart
      Left = 0
      Top = 300
      Width = 84
      Height = 254
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Gradient.EndColor = 16744576
      Title.Font.Charset = GB2312_CHARSET
      Title.Font.Color = clBlue
      Title.Font.Height = -12
      Title.Font.Name = #23435#20307
      Title.Font.Style = []
      Title.Text.Strings = (
        #23458#25151#20986#31199#29575)
      BottomAxis.LabelsAngle = 90
      BottomAxis.LabelsFont.Charset = GB2312_CHARSET
      BottomAxis.LabelsFont.Color = clBlack
      BottomAxis.LabelsFont.Height = -12
      BottomAxis.LabelsFont.Name = #23435#20307
      BottomAxis.LabelsFont.Style = []
      LeftAxis.Visible = False
      Legend.Alignment = laTop
      Legend.Font.Charset = GB2312_CHARSET
      Legend.Font.Color = clBlack
      Legend.Font.Height = -12
      Legend.Font.Name = #23435#20307
      Legend.Font.Style = []
      View3D = False
      Align = alBottom
      BorderStyle = bsSingle
      Color = clWhite
      TabOrder = 6
      object Series2: TBarSeries
        Marks.ArrowLength = 20
        Marks.Font.Charset = GB2312_CHARSET
        Marks.Font.Color = clBlack
        Marks.Font.Height = -12
        Marks.Font.Name = #23435#20307
        Marks.Font.Style = []
        Marks.Style = smsValue
        Marks.Visible = True
        SeriesColor = clRed
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1
        YValues.Order = loNone
      end
    end
    object lblPjfj: TStaticText
      Left = 1
      Top = 261
      Width = 52
      Height = 16
      Caption = #24179#22343#20215#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 708
    Height = 554
    Align = alClient
    AutoSize = True
    BevelOuter = bvNone
    BorderWidth = 5
    ParentColor = True
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 5
      Top = 5
      Width = 698
      Height = 544
      ActivePage = TabSheet1
      Align = alClient
      HotTrack = True
      Images = ImageList2
      MultiLine = True
      Style = tsButtons
      TabHeight = 30
      TabIndex = 0
      TabOrder = 0
      TabWidth = 100
      object TabSheet1: TTabSheet
        Caption = '(&1)'#23458#25151#29366#24577
        object Panel7: TPanel
          Left = 0
          Top = 0
          Width = 690
          Height = 504
          Align = alClient
          AutoSize = True
          BevelOuter = bvNone
          TabOrder = 0
          object Panel8: TPanel
            Left = 0
            Top = 460
            Width = 690
            Height = 44
            Align = alBottom
            AutoSize = True
            BevelOuter = bvNone
            BorderWidth = 5
            ParentColor = True
            TabOrder = 0
            object lblTdmc1: TStaticText
              Tag = 1
              Left = 3
              Top = 5
              Width = 135
              Height = 16
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clYellow
              Font.Charset = GB2312_CHARSET
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentColor = False
              ParentFont = False
              TabOrder = 0
              OnDblClick = OnChageColor
            end
            object lblTdmc2: TStaticText
              Tag = 2
              Left = 141
              Top = 5
              Width = 135
              Height = 16
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clOlive
              Font.Charset = GB2312_CHARSET
              Font.Color = clWhite
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentColor = False
              ParentFont = False
              TabOrder = 1
              OnDblClick = OnChageColor
            end
            object lblTdmc3: TStaticText
              Tag = 3
              Left = 280
              Top = 5
              Width = 135
              Height = 16
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clSkyBlue
              Font.Charset = GB2312_CHARSET
              Font.Color = clWhite
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentColor = False
              ParentFont = False
              TabOrder = 2
              OnDblClick = OnChageColor
            end
            object lblTdmc4: TStaticText
              Tag = 4
              Left = 418
              Top = 5
              Width = 135