⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 c_main.dfm

📁 经典的酒店管理系统
💻 DFM
📖 第 1 页 / 共 5 页
字号:
            FixedCols = 0
            FixedRows = 0
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            GridLineWidth = 2
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goThumbTracking]
            ParentFont = False
            TabOrder = 0
            OnDblClick = sgdYdcyDblClick
            OnDrawCell = sgdYdcyDrawCell
            OnSelectCell = sgdYdcySelectCell
          end
          object Panel15: TPanel
            Left = 0
            Top = 264
            Width = 690
            Height = 41
            Align = alTop
            BevelInner = bvRaised
            BevelOuter = bvNone
            BorderWidth = 10
            Caption = #39184#39278#22242#38431#39044#23450#24773#20917
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 1
          end
          object Panel23: TPanel
            Left = 0
            Top = 305
            Width = 690
            Height = 162
            Align = alClient
            BevelOuter = bvNone
            TabOrder = 2
            object DBGrid4: TDBGrid
              Left = 0
              Top = 0
              Width = 690
              Height = 162
              Align = alClient
              Color = clMoneyGreen
              DataSource = dsCyTdMaster
              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 = DBGrid4DblClick
              Columns = <
                item
                  Expanded = False
                  FieldName = 'D_RZBZ'
                  Title.Alignment = taCenter
                  Title.Caption = #26159#21542#30830#35748
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'D_SYRQ'
                  Title.Alignment = taCenter
                  Title.Caption = #29992#39184#26085#26399
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'D_SJDM'
                  Title.Alignment = taCenter
                  Title.Caption = #29992#39184#26102#27573
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'D_KRXM'
                  Title.Alignment = taCenter
                  Title.Caption = #39044#23450#20154
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'D_YCBZ'
                  Title.Alignment = taCenter
                  Title.Caption = #29992#39184#26631#20934
                  Visible = True
                end>
            end
          end
        end
      end
      object TabSheet11: TTabSheet
        Caption = '(&5)'#39044#23450#23458#25151
        ImageIndex = 7
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 690
          Height = 37
          Align = alTop
          AutoSize = True
          BevelOuter = bvNone
          BorderWidth = 6
          TabOrder = 0
          object btnPrev: TSpeedButton
            Left = 6
            Top = 9
            Width = 22
            Height = 22
            Hint = #21069#19968#22825
            Caption = '<<'
            ParentShowHint = False
            ShowHint = True
            OnClick = btnPrevClick
          end
          object btnNext: TSpeedButton
            Left = 134
            Top = 9
            Width = 22
            Height = 22
            Hint = #21518#19968#22825
            Caption = '>>'
            ParentShowHint = False
            ShowHint = True
            OnClick = btnNextClick
          end
          object dtpYdrq: TDateTimePicker
            Left = 30
            Top = 10
            Width = 100
            Height = 20
            CalAlignment = dtaLeft
            Date = 37444.9333118056
            Time = 37444.9333118056
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 0
            OnChange = dtpYdrqChange
          end
          object btnYdkfsk: TBitBtn
            Left = 389
            Top = 6
            Width = 100
            Height = 25
            Caption = #25955#23458#39044#23450
            TabOrder = 1
            OnClick = N87Click
            Glyph.Data = {
              7E010000424D7E01000000000000760000002800000018000000160000000100
              0400000000000801000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
              0000000000080777777777777777777777700F77777777777777777777700F88
              888888888888888887700F88888888888888888887700F888880088880088888
              87700F88880000000000888887700F88807777007777088887700F88807770FF
              0777088887700F8880770F77F077088887700F888070F7007F07088887700F88
              8800F7007F00888887700F8800070F77F070008887700F80777070FF07077708
              87700F80777077007707770887700F88077700000077708887700F8880077777
              7770088887700F88888000000008888887700F88888888888888888887700F88
              888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
              0008}
          end
          object btnYdkftd: TBitBtn
            Left = 493
            Top = 6
            Width = 100
            Height = 25
            Caption = #22242#38431#39044#23450
            TabOrder = 2
            OnClick = N88Click
            Glyph.Data = {
              7E010000424D7E01000000000000760000002800000018000000160000000100
              0400000000000801000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
              0000000000080777777777777777777777700F77777777777777777777700F88
              888888888888888887700F88888880000088888887700F8888800FFFFF008888
              87700F88880FFFFFFFFF088887700F8880FFFFFFFFFFF08887700F8880FF0FFF
              FFFFF08887700F880FFFF0FFFFFFFF0887700F880FFFFF0FFFFFFF0887700F88
              0FFFFFF000000F0887700F880FFFFFFFFFFFFF0887700F880FFFFFFFFFFFFF08
              87700F8880FFFFFFFFFFF08887700F8880FFFFFFFFFFF08887700F88880FFFF0
              FFFF088887700F8888800FFFFF00888887700F88888880000088888887700F88
              888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
              0008}
          end
          object btnKfydlb: TBitBtn
            Left = 597
            Top = 6
            Width = 100
            Height = 25
            Caption = #39044#23450#26597#35810
            TabOrder = 3
            OnClick = btnKfydlbClick
            Glyph.Data = {
              7E010000424D7E01000000000000760000002800000018000000160000000100
              0400000000000801000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
              0000000000080777777777777777777777700F77777777777777777777700F88
              888888888888888887700F88000000770000008887700F80FFFFFF70FFFFFF08
              87700F80888888078888880887700F80FFFFFF70FFFFFF0887700F8088888807
              8888880887700F80FFFFFF70FFFFFF0887700F80888888078888880887700F80
              FFFFFF70FFFFFF0887700F80888888078888880887700F80FFFFFF70FFFFFF08
              87700F80888888078888880887700F80FFFFFF70FFFFFF0887700F80888FFF07
              FFF8880887700F80FFFFFF70FFFFFF0887700F88000000770000008887700F88
              888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
              0008}
          end
        end
        object Panel19: TPanel
          Left = 0
          Top = 37
          Width = 690
          Height = 467
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 1
          object sgdYdkf: TStringGrid
            Left = 0
            Top = 0
            Width = 690
            Height = 467
            Align = alClient
            Color = clWhite
            DefaultColWidth = 32
            DefaultRowHeight = 32
            FixedCols = 0
            FixedRows = 0
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goThumbTracking]
            ParentFont = False
            TabOrder = 0
            OnDblClick = sgdYdkfDblClick
            OnDrawCell = sgdYdkfDrawCell
            OnSelectCell = sgdYdkfSelectCell
          end
        end
      end
      object TabSheet12: TTabSheet
        Caption = '(&6)'#39044#23450#20250#22330
        ImageIndex = 8
        object Panel21: TPanel
          Left = 0
          Top = 0
          Width = 690
          Height = 504
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 0
          object sgdYdhc: TStringGrid
            Left = 0
            Top = 38
            Width = 690
            Height = 466
            Align = alClient
            Color = clWhite
            ColCount = 8
            DefaultColWidth = 60
            DefaultRowHeight = 20
            FixedColor = clMoneyGreen
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowMoving, goColMoving]
            ParentFont = False
            TabOrder = 0
            OnDblClick = sgdYdhcDblClick
            OnDrawCell = sgdYdhcDrawCell
            OnSelectCell = sgdYdhcSelectCell
          end
          object Panel9: TPanel
            Left = 0
            Top = 0
            Width = 690
            Height = 38
            Align = alTop
            AutoSize = True
            BevelOuter = bvNone
            BorderWidth = 6
            TabOrder = 1
            object btnYdhc: TBitBtn
              Left = 388
              Top = 7
              Width = 100
              Height = 25
              Caption = #39044#23450#20250#22330'(&N)'
              TabOrder = 0
              OnClick = N9Click
              Glyph.Data = {
                7E010000424D7E01000000000000760000002800000018000000160000000100
                0400000000000801000000000000000000001000000000000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
                0000000000080777777777777777777777700F77777777777777777777700F88
                888888888888888887700F88888888888888888887700F888880088880088888
                87700F88880000000000888887700F88807777007777088887700F88807770FF
                0777088887700F8880770F77F077088887700F888070F7007F07088887700F88
                8800F7007F00888887700F8800070F77F070008887700F80777070FF07077708
                87700F80777077007707770887700F88077700000077708887700F8880077777
                7770088887700F88888000000008888887700F88888888888888888887700F88
                888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
                0008}
            end
            object btnHcjs: TBitBtn
              Left = 492
              Top = 7
              Width = 100
              Height = 25
              Caption = #20250#22330#32467#31639'(&J)'
              TabOrder = 1
              OnClick = btnHcjsClick
              Glyph.Data = {
                7E010000424D7E01000000000000760000002800000018000000160000000100
                0400000000000801000000000000000000001000000000000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
           

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -