c_main.dfm

经典的酒店管理系统

          object btnTdjd: TBitBtn
            Left = 5
            Top = 7
            Width = 75
            Height = 45
            Caption = #22242#38431#30331#35760
            TabOrder = 7
            OnClick = btnTdjdClick
            Glyph.Data = {
              7E010000424D7E01000000000000760000002800000018000000160000000100
              0400000000000801000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
              0000000000080777777777777777777777700F77777777777777777777700F88
              888888888888888887700F88888888888888888887700F888888888888888888
              87700F88888888888888888887700F88888888888888888887700F8888888888
              8008008887700F88870088888008008887700F88707008888008008887700F88
              008800000000000887700F88008800000000000887700F887070088888888888
              87700F88870088888888888887700F88888888888888888887700F8888888888
              8888888887700F88888888888888888887700F88888888888888888887700F88
              888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
              0008}
            Layout = blGlyphTop
          end
          object btnTzcx: TBitBtn
            Left = 5
            Top = 341
            Width = 75
            Height = 45
            Caption = #22242#24080#26597#35810
            TabOrder = 8
            OnClick = btnTzcxClick
            Glyph.Data = {
              7E010000424D7E01000000000000760000002800000018000000160000000100
              0400000000000801000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
              0000000000080777777777777777777777700F77777777777777777777700F88
              888888888888888887700F88000000770000008887700F80FFFFFF70FFFFFF08
              87700F80888888078888880887700F80FFFFFF70FFFFFF0887700F8088888807
              8888880887700F80FFFFFF70FFFFFF0887700F80888888078888880887700F80
              FFFFFF70FFFFFF0887700F80888888078888880887700F80FFFFFF70FFFFFF08
              87700F80888888078888880887700F80FFFFFF70FFFFFF0887700F80888FFF07
              FFF8880887700F80FFFFFF70FFFFFF0887700F88000000770000008887700F88
              888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
              0008}
            Layout = blGlyphTop
          end
          object btnTdqx: TBitBtn
            Left = 5
            Top = 389
            Width = 75
            Height = 45
            Caption = #21462#28040#25151#38388
            TabOrder = 9
            OnClick = btnTdqxClick
            Glyph.Data = {
              7E010000424D7E01000000000000760000002800000018000000160000000100
              0400000000000801000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
              0000000000080777777777777777777777700F77777777777777777777700F88
              888888888888888887700F88888888888888888887700F888887000000078888
              87700F888880FFFFFFF0888887700F888880F0F0F0F0888887700F888880F0F0
              F0F0888887700F888880F0F0F0F0888887700F888880F0F0F0F0888887700F88
              8880F0F0F0F0888887700F888880F0F0F0F0888887700F888880F0F0F0F08888
              87700F888880FFFFFFF0888887700F88887000000000788887700F88880FFFFF
              FFFF088887700F88887000000000788887700F88888887000788888887700F88
              888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
              0008}
            Layout = blGlyphTop
          end
        end
        object Panel17: TPanel
          Left = 0
          Top = 0
          Width = 605
          Height = 504
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 1
          object Panel18: TPanel
            Left = 0
            Top = 0
            Width = 605
            Height = 41
            Align = alTop
            BevelInner = bvRaised
            BevelOuter = bvNone
            BorderWidth = 10
            Caption = #22242#38431#21015#34920
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'System'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
            object CheckBox1: TCheckBox
              Left = 16
              Top = 12
              Width = 137
              Height = 17
              Caption = #25152#26377#24050#36864#25151#22242#38431
              Checked = True
              State = cbChecked
              TabOrder = 0
              OnClick = CheckBox1Click
            end
          end
          object DBGrid2: TDBGrid
            Left = 0
            Top = 41
            Width = 605
            Height = 463
            Align = alClient
            Color = clMoneyGreen
            DataSource = dsQryTd
            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 = 1
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = 'System'
            TitleFont.Style = [fsBold]
            Columns = <
              item
                Alignment = taRightJustify
                Expanded = False
                FieldName = 'D_KRXM'
                Title.Alignment = taCenter
                Title.Caption = #22242#38431#21517#31216
                Width = 200
                Visible = True
              end
              item
                Alignment = taRightJustify
                Expanded = False
                FieldName = 'D_DDRQ'
                Title.Alignment = taCenter
                Title.Caption = #21040#24215#26085#26399
                Width = 90
                Visible = True
              end
              item
                Alignment = taRightJustify
                Expanded = False
                FieldName = 'D_JDR'
                Title.Alignment = taCenter
                Title.Caption = #25509#24453#20154
                Width = 60
                Visible = True
              end
              item
                Alignment = taRightJustify
                Expanded = False
                FieldName = 'D_JDDW'
                Title.Alignment = taCenter
                Title.Caption = #25509#24453#21333#20301
                Width = 200
                Visible = True
              end>
          end
        end
      end
      object TabSheet10: TTabSheet
        Caption = '(&4)'#39044#23450#39184#39278
        ImageIndex = 6
        object Panel10: TPanel
          Left = 0
          Top = 0
          Width = 690
          Height = 37
          Align = alTop
          AutoSize = True
          BevelOuter = bvNone
          BorderWidth = 6
          TabOrder = 0
          object SpeedButton1: TSpeedButton
            Left = 0
            Top = 9
            Width = 22
            Height = 22
            Hint = #21069#19968#22825
            Caption = '<<'
            ParentShowHint = False
            ShowHint = True
            OnClick = SpeedButton1Click
          end
          object SpeedButton2: TSpeedButton
            Left = 128
            Top = 9
            Width = 22
            Height = 22
            Hint = #21518#19968#22825
            Caption = '>>'
            ParentShowHint = False
            ShowHint = True
            OnClick = SpeedButton2Click
          end
          object btnYdcysk: TBitBtn
            Left = 382
            Top = 6
            Width = 100
            Height = 25
            Caption = #25955#23458#39044#23450'(&N)'
            TabOrder = 0
            OnClick = N85Click
            Glyph.Data = {
              7E010000424D7E01000000000000760000002800000018000000160000000100
              0400000000000801000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
              0000000000080777777777777777777777700F77777777777777777777700F88
              888888888888888887700F88888888888888888887700F888880088880088888
              87700F88880000000000888887700F88807777007777088887700F88807770FF
              0777088887700F8880770F77F077088887700F888070F7007F07088887700F88
              8800F7007F00888887700F8800070F77F070008887700F80777070FF07077708
              87700F80777077007707770887700F88077700000077708887700F8880077777
              7770088887700F88888000000008888887700F88888888888888888887700F88
              888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
              0008}
          end
          object btnYdcytd: TBitBtn
            Left = 486
            Top = 6
            Width = 100
            Height = 25
            Caption = #22242#38431#39044#23450'(&T)'
            TabOrder = 1
            OnClick = N86Click
            Glyph.Data = {
              7E010000424D7E01000000000000760000002800000018000000160000000100
              0400000000000801000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
              0000000000080777777777777777777777700F77777777777777777777700F88
              888888888888888887700F88888880000088888887700F8888800FFFFF008888
              87700F88880FFFFFFFFF088887700F8880FFFFFFFFFFF08887700F8880FF0FFF
              FFFFF08887700F880FFFF0FFFFFFFF0887700F880FFFFF0FFFFFFF0887700F88
              0FFFFFF000000F0887700F880FFFFFFFFFFFFF0887700F880FFFFFFFFFFFFF08
              87700F8880FFFFFFFFFFF08887700F8880FFFFFFFFFFF08887700F88880FFFF0
              FFFF088887700F8888800FFFFF00888887700F88888880000088888887700F88
              888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
              0008}
          end
          object dtpCyyd: TDateTimePicker
            Left = 24
            Top = 10
            Width = 100
            Height = 20
            CalAlignment = dtaLeft
            Date = 37444.9333118056
            Time = 37444.9333118056
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 2
            OnChange = dtpCyydChange
          end
          object btnYdcylb: TBitBtn
            Left = 590
            Top = 6
            Width = 100
            Height = 25
            Caption = #39044#23450#26597#35810'(&Q)'
            TabOrder = 3
            OnClick = btnYdcylbClick
            Glyph.Data = {
              7E010000424D7E01000000000000760000002800000018000000160000000100
              0400000000000801000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
              0000000000080777777777777777777777700F77777777777777777777700F88
              888888888888888887700F88000000770000008887700F80FFFFFF70FFFFFF08
              87700F80888888078888880887700F80FFFFFF70FFFFFF0887700F8088888807
              8888880887700F80FFFFFF70FFFFFF0887700F80888888078888880887700F80
              FFFFFF70FFFFFF0887700F80888888078888880887700F80FFFFFF70FFFFFF08
              87700F80888888078888880887700F80FFFFFF70FFFFFF0887700F80888FFF07
              FFF8880887700F80FFFFFF70FFFFFF0887700F88000000770000008887700F88
              888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
              0008}
          end
          object RadioButton1: TRadioButton
            Left = 160
            Top = 13
            Width = 49
            Height = 17
            Caption = #20840#37096
            Checked = True
            TabOrder = 4
            TabStop = True
            OnClick = RadioButton1Click
          end
          object RadioButton2: TRadioButton
            Left = 214
            Top = 13
            Width = 43
            Height = 17
            Caption = #20013#21320
            TabOrder = 5
            OnClick = RadioButton2Click
          end
          object RadioButton3: TRadioButton
            Left = 264
            Top = 13
            Width = 49
            Height = 17
            Caption = #26202#19978
            TabOrder = 6
            OnClick = RadioButton3Click
          end
        end
        object Panel13: TPanel
          Left = 0
          Top = 37
          Width = 690
          Height = 467
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 1
          object sgdYdcy: TStringGrid
            Left = 0
            Top = 0
            Width = 690
            Height = 264
            Align = alTop
            Color = clGreen
            ColCount = 6
            DefaultColWidth = 60
            DefaultRowHeight = 45