c_main.dfm

经典的酒店管理系统

              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
              OnDblClick = OnChageColor
            end
            object lblTdmc5: TStaticText
              Tag = 5
              Left = 557
              Top = 5
              Width = 135
              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
              OnDblClick = OnChageColor
            end
            object lblTdmc6: TStaticText
              Tag = 6
              Left = 3
              Top = 23
              Width = 135
              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
              OnDblClick = OnChageColor
            end
            object lblTdmc7: TStaticText
              Tag = 7
              Left = 141
              Top = 23
              Width = 135
              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
              OnDblClick = OnChageColor
            end
            object lblTdmc8: TStaticText
              Tag = 8
              Left = 280
              Top = 23
              Width = 135
              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
              OnDblClick = OnChageColor
            end
            object lblTdmc9: TStaticText
              Tag = 9
              Left = 418
              Top = 23
              Width = 135
              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
              OnDblClick = OnChageColor
            end
            object lblTdmc10: TStaticText
              Tag = 10
              Left = 557
              Top = 23
              Width = 135
              Height = 16
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clGreen
              Font.Charset = GB2312_CHARSET
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentColor = False
              ParentFont = False
              TabOrder = 9
              OnDblClick = OnChageColor
            end
          end
          object sgdKfzt: TStringGrid
            Left = 0
            Top = 0
            Width = 690
            Height = 460
            Align = alClient
            Color = clFuchsia
            Ctl3D = True
            DefaultColWidth = 32
            DefaultRowHeight = 16
            FixedCols = 0
            FixedRows = 0
            Font.Charset = GB2312_CHARSET
            Font.Color = clWhite
            Font.Height = -14
            Font.Name = #40657#20307
            Font.Style = [fsBold]
            GridLineWidth = 3
            Options = [goFixedVertLine, goFixedHorzLine]
            ParentCtl3D = False
            ParentFont = False
            PopupMenu = PopupMenu1
            TabOrder = 1
            OnDblClick = sgdKfztDblClick
            OnDrawCell = sgdKfztDrawCell
            OnKeyPress = sgdKfztKeyPress
            OnMouseUp = sgdKfztMouseUp
            OnSelectCell = sgdKfztSelectCell
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = '(&2)'#23458#25151#20449#24687
        ImageIndex = 2
        object Panel6: TPanel
          Left = 0
          Top = 0
          Width = 537
          Height = 504
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 0
          object DBGrid1: TDBGrid
            Left = 0
            Top = 41
            Width = 537
            Height = 272
            Align = alTop
            Color = clMoneyGreen
            DataSource = dsKfzt
            FixedColor = clGradientActiveCaption
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'System'
            Font.Style = [fsBold]
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            ParentFont = False
            TabOrder = 0
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = 'System'
            TitleFont.Style = [fsBold]
            Columns = <
              item
                Alignment = taRightJustify
                Expanded = False
                FieldName = 'D_KFBH'
                Title.Alignment = taCenter
                Title.Caption = #25151#38388#21495
                Width = 45
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'D_SJFJ'
                Title.Alignment = taCenter
                Title.Caption = #25151#20215
                Width = 50
                Visible = True
              end
              item
                Alignment = taRightJustify
                Expanded = False
                FieldName = 'D_KRXM'
                Title.Alignment = taCenter
                Title.Caption = #22995#21517
                Width = 105
                Visible = True
              end
              item
                Alignment = taRightJustify
                Expanded = False
                FieldName = 'D_DDRQ'
                Title.Alignment = taCenter
                Title.Caption = #21040#24215#26085#26399
                Width = 75
                Visible = True
              end
              item
                Alignment = taRightJustify
                Expanded = False
                FieldName = 'D_DDSJ'
                Title.Alignment = taCenter
                Title.Caption = #21040#24215#26102#38388
                Width = 70
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'D_BJS'
                Title.Alignment = taCenter
                Title.Caption = #21322#20215#25968
                Width = 50
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'D_QJS'
                Title.Alignment = taCenter
                Title.Caption = #20840#20215#25968
                Width = 50
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'D_JJFJ'
                Title.Alignment = taCenter
                Title.Caption = #38388#25509#25151#20215
                Width = 50
                Visible = True
              end>
          end
          object Panel5: TPanel
            Left = 0
            Top = 313
            Width = 537
            Height = 191
            Align = alClient
            BevelOuter = bvNone
            TabOrder = 1
            object DBGrid3: TDBGrid
              Left = 0
              Top = 41
              Width = 537
              Height = 150
              Align = alClient
              Color = clMoneyGreen
              DataSource = dsXxbd
              FixedColor = clGradientActiveCaption
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = 'System'
              Font.Style = [fsBold]
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
              ParentFont = False
              TabOrder = 0
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = 'System'
              TitleFont.Style = [fsBold]
              OnDblClick = DBGrid3DblClick
              Columns = <
                item
                  Expanded = False
                  FieldName = 'D_KFBH'
                  Title.Alignment = taCenter
                  Title.Caption = #23458#25151#21495
                  Width = 60
                  Visible = True
                end
                item
                  Alignment = taRightJustify
                  Expanded = False
                  FieldName = 'D_KRXM'
                  Title.Alignment = taCenter
                  Title.Caption = #23458#20154#22995#21517
                  Visible = True
                end>
            end
            object Panel12: TPanel
              Left = 0
              Top = 0
              Width = 537
              Height = 41
              Align = alTop
              BevelInner = bvRaised
              BevelOuter = bvNone
              BorderWidth = 10
              Caption = #20449#24687#34917#30331
              Font.Charset = GB2312_CHARSET
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = 'System'
              Font.Style = [fsBold]
              ParentFont = False
              TabOrder = 1
            end
          end
          object Panel16: TPanel
            Left = 0
            Top = 0
            Width = 537
            Height = 41
            Align = alTop
            BevelInner = bvRaised
            BevelOuter = bvNone