c_ctmain.dfm

经典的酒店管理系统

            Title.Caption = #32467#24080#26041#24335
            Width = 70
            Visible = True
          end
          item
            Alignment = taLeftJustify
            Expanded = False
            FieldName = 'D_XFJE'
            Title.Alignment = taCenter
            Title.Caption = #32467#24080#37329#39069
            Width = 70
            Visible = True
          end
          item
            Alignment = taLeftJustify
            Expanded = False
            FieldName = 'D_YHJE'
            Title.Alignment = taCenter
            Title.Caption = #20248#24800#37329#39069
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'D_BZ'
            Title.Caption = #32467#24080#22791#27880
            Width = 120
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'D_KRXM'
            Title.Alignment = taCenter
            Title.Caption = #23458#20154#22995#21517
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'D_CZYXM'
            Title.Alignment = taCenter
            Title.Caption = #25805#20316#21592
            Width = 80
            Visible = True
          end>
      end
      object Panel3: TPanel
        Left = 560
        Top = 0
        Width = 232
        Height = 220
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 3
        Color = clMoneyGreen
        TabOrder = 1
        object Chart1: TChart
          Left = 3
          Top = 145
          Width = 226
          Height = 72
          BackWall.Brush.Color = clWhite
          Gradient.EndColor = 16744576
          Title.Color = 4227327
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clYellow
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Title.Frame.Visible = True
          Title.Text.Strings = (
            #39184#21488#20351#29992#29575)
          Title.Visible = False
          BottomAxis.LabelsFont.Charset = GB2312_CHARSET
          BottomAxis.LabelsFont.Color = clBlack
          BottomAxis.LabelsFont.Height = -12
          BottomAxis.LabelsFont.Name = #23435#20307
          BottomAxis.LabelsFont.Style = []
          LeftAxis.LabelsAngle = 90
          LeftAxis.LabelsFont.Charset = GB2312_CHARSET
          LeftAxis.LabelsFont.Color = clBlack
          LeftAxis.LabelsFont.Height = -12
          LeftAxis.LabelsFont.Name = #23435#20307
          LeftAxis.LabelsFont.Style = []
          Legend.Alignment = laTop
          Legend.Font.Charset = GB2312_CHARSET
          Legend.Font.Color = clBlack
          Legend.Font.Height = -12
          Legend.Font.Name = #23435#20307
          Legend.Font.Style = []
          Legend.Visible = False
          View3D = False
          View3DOptions.Elevation = 315
          View3DOptions.Orthogonal = False
          View3DOptions.Perspective = 0
          View3DOptions.Rotation = 360
          Align = alBottom
          BevelOuter = bvNone
          BorderStyle = bsSingle
          Color = clWhite
          TabOrder = 0
          object Series1: THorizBarSeries
            ColorEachPoint = True
            Marks.ArrowLength = 8
            Marks.Font.Charset = GB2312_CHARSET
            Marks.Font.Color = clBlack
            Marks.Font.Height = -12
            Marks.Font.Name = #23435#20307
            Marks.Font.Style = []
            Marks.Style = smsLabelValue
            Marks.Visible = True
            SeriesColor = clRed
            XValues.DateTime = False
            XValues.Name = 'Bar'
            XValues.Multiplier = 1
            XValues.Order = loNone
            YValues.DateTime = False
            YValues.Name = 'Y'
            YValues.Multiplier = 1
            YValues.Order = loAscending
          end
        end
        object GroupBox1: TGroupBox
          Left = 3
          Top = 3
          Width = 226
          Height = 142
          Align = alClient
          Caption = #32467#24080#21592
          TabOrder = 1
          object lblXfze: TLabel
            Left = 10
            Top = 18
            Width = 60
            Height = 12
            Caption = #28040#36153#24635#39069#65306
          end
          object lblJzze: TLabel
            Left = 10
            Top = 35
            Width = 60
            Height = 12
            Caption = #32467#24080#24635#39069#65306
          end
          object lblRmb: TLabel
            Left = 10
            Top = 54
            Width = 48
            Height = 12
            Caption = #20154#27665#24065#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object lblXyk: TLabel
            Left = 10
            Top = 70
            Width = 48
            Height = 12
            Caption = #20449#29992#21345#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object lblZp: TLabel
            Left = 10
            Top = 86
            Width = 48
            Height = 12
            Caption = #25903'  '#31080#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object lblJzxj: TLabel
            Left = 10
            Top = 102
            Width = 60
            Height = 12
            Caption = #39184#21381#25910#22238#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object lblQt: TLabel
            Left = 130
            Top = 54
            Width = 36
            Height = 12
            Caption = #20854#20182#65306
          end
          object Bevel1: TBevel
            Left = 9
            Top = 48
            Width = 216
            Height = 2
            Shape = bsBottomLine
          end
          object lblYdze: TLabel
            Left = 128
            Top = 18
            Width = 60
            Height = 12
            Caption = #39044#23450#24635#39069#65306
          end
        end
      end
    end
    object sgdCtzt: TStringGrid
      Left = 0
      Top = 0
      Width = 792
      Height = 265
      Align = alTop
      DefaultRowHeight = 48
      FixedCols = 0
      FixedRows = 0
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      GridLineWidth = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
      ParentFont = False
      TabOrder = 1
      OnDblClick = sgdCtztDblClick
      OnDrawCell = sgdCtztDrawCell
      OnKeyPress = sgdCtztKeyPress
      OnSelectCell = sgdCtztSelectCell
    end
  end
  object MainMenu1: TMainMenu
    Left = 96
    Top = 120
    object N1: TMenuItem
      Caption = #26085#24120#33829#19994
      object N28: TMenuItem
        Caption = #39044'  '#23450
        OnClick = btnYdClick
      end
      object N27: TMenuItem
        Caption = '-'
      end
      object N2: TMenuItem
        Caption = #36873'  '#21488
        OnClick = btnXtClick
      end
      object N3: TMenuItem
        Caption = #24320'  '#21488
        OnClick = sgdCtztDblClick
      end
      object N4: TMenuItem
        Caption = #36716'  '#21488
        OnClick = btnZtClick
      end
      object N5: TMenuItem
        Caption = #24182'  '#21488
        OnClick = btnBtClick
      end
      object N6: TMenuItem
        Caption = #28165'  '#21488
        OnClick = btnQtClick
      end
      object N32: TMenuItem
        Caption = #21152'  '#21488
        OnClick = btnJtClick
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object N16: TMenuItem
        Caption = #38750#39184#36153#32467#24080
        OnClick = N16Click
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object N18: TMenuItem
        Caption = #31995#32479#36864#20986
        OnClick = N18Click
      end
    end
    object N7: TMenuItem
      Caption = #26597#35810#32479#35745
      object N8: TMenuItem
        Caption = #28040#32791#32479#35745
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = #28857#33756#21464#21160
        OnClick = N9Click
      end
      object N10: TMenuItem
        Caption = #33829#19994#26597#35810
        OnClick = N10Click
      end
      object N34: TMenuItem