c_kfzt.dfm

经典的酒店管理系统

inherited KfztForm: TKfztForm
  Left = 84
  Top = 74
  Width = 734
  Height = 500
  Caption = #25151#24577#30424
  FormStyle = fsMDIChild
  OldCreateOrder = True
  Position = poDesigned
  Visible = True
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel1: TPanel
    Width = 726
    Height = 50
    inherited lblTitle: TLabel
      Left = 288
      Top = 7
      Width = 249
      Caption = #27494#36827#23486#39302#31649#29702#31995#32479
      Transparent = True
    end
    inherited Image1: TImage
      Left = 224
    end
    object Label7: TLabel
      Left = 287
      Top = 6
      Width = 249
      Height = 29
      Anchors = [akTop]
      Caption = #27494#36827#23486#39302#31649#29702#31995#32479
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -29
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
      Transparent = True
    end
  end
  inherited Panel2: TPanel
    Top = 50
    Width = 726
    Height = 390
    object PageControl1: TPageControl
      Left = 5
      Top = 5
      Width = 716
      Height = 380
      ActivePage = TabSheet1
      Align = alClient
      HotTrack = True
      Images = ImageList2
      MultiLine = True
      Style = tsButtons
      TabIndex = 0
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #23458#25151#29366#24577
        object Chart2: TChart
          Left = 680
          Top = 0
          Width = 28
          Height = 348
          BackWall.Brush.Color = clWhite
          BackWall.Brush.Style = bsClear
          Gradient.EndColor = 16744576
          Gradient.Visible = True
          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 = alClient
          BorderStyle = bsSingle
          TabOrder = 0
          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 Panel7: TPanel
          Left = 0
          Top = 0
          Width = 680
          Height = 348
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 1
          object sgdKfzt: TStringGrid
            Left = 0
            Top = 0
            Width = 680
            Height = 307
            Align = alClient
            DefaultColWidth = 30
            DefaultRowHeight = 30
            FixedCols = 0
            FixedRows = 0
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goThumbTracking]
            ParentFont = False
            PopupMenu = PopupMenu1
            TabOrder = 0
            OnDblClick = sgdKfztDblClick
            OnDrawCell = sgdKfztDrawCell
            OnSelectCell = sgdKfztSelectCell
          end
          object Panel8: TPanel
            Left = 0
            Top = 307
            Width = 680
            Height = 41
            Align = alBottom
            BevelOuter = bvNone
            TabOrder = 1
            object lblTdmc1: TStaticText
              Left = 8
              Top = 4
              Width = 120
              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
            end
            object lblTdmc2: TStaticText
              Left = 144
              Top = 4
              Width = 120
              Height = 16
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clGreen
              Font.Charset = GB2312_CHARSET
              Font.Color = clWhite
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentColor = False
              ParentFont = False
              TabOrder = 1
            end
            object lblTdmc3: TStaticText
              Left = 280
              Top = 4
              Width = 120
              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 = 2
            end
            object lblTdmc4: TStaticText
              Left = 416
              Top = 4
              Width = 120
              Height = 16
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clTeal
              Font.Charset = GB2312_CHARSET
              Font.Color = clWhite
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentColor = False
              ParentFont = False
              TabOrder = 3
            end
            object lblTdmc5: TStaticText
              Left = 552
              Top = 4
              Width = 120
              Height = 16
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clPurple
              Font.Charset = GB2312_CHARSET
              Font.Color = clWhite
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentColor = False
              ParentFont = False
              TabOrder = 4
            end
            object lblTdmc6: TStaticText
              Left = 8
              Top = 22
              Width = 120
              Height = 16
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clGradientActiveCaption
              Font.Charset = GB2312_CHARSET
              Font.Color = clWhite
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentColor = False
              ParentFont = False
              TabOrder = 5
            end
            object lblTdmc7: TStaticText
              Left = 144
              Top = 22
              Width = 120
              Height = 16
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clMaroon
              Font.Charset = GB2312_CHARSET
              Font.Color = clWhite
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentColor = False
              ParentFont = False
              TabOrder = 6
            end
            object lblTdmc8: TStaticText
              Left = 280
              Top = 22
              Width = 120
              Height = 16
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clBlue
              Font.Charset = GB2312_CHARSET
              Font.Color = clWhite
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentColor = False
              ParentFont = False
              TabOrder = 7
            end
            object lblTdmc9: TStaticText
              Left = 416
              Top = 22
              Width = 120
              Height = 16
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clFuchsia
              Font.Charset = GB2312_CHARSET
              Font.Color = clWhite
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentColor = False
              ParentFont = False
              TabOrder = 8
            end
            object lblTdmc10: TStaticText
              Left = 552
              Top = 22
              Width = 120
              Height = 16
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clSkyBlue
              Font.Charset = GB2312_CHARSET
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentColor = False
              ParentFont = False
              TabOrder = 9
            end
          end
        end
      end