modify.dfm

一个小型的酒店管理系统

object ModiFrm: TModiFrm
  Left = 213
  Top = 66
  Width = 755
  Height = 557
  Caption = #25968#25454#20462#25913
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF009999
    9999999999999999999999999999966666666666666666666666666666699666
    68868886666666666662F6666669966336666666666666666666666668699666
    666666666666E006666666266F6996666666E0600EF0000E6666666666699666
    666600EFE000000E66666666666996666600F0F000000006F666666666699666
    6000000000000006666666666669966600000000000000046666666666699668
    0000000008800004666666666669966000000000000000006666666666699EE0
    00000000000000004EEEEEEEEEE99EE00088F8F0FF00000008EEEEEEEEE99EE8
    000000000000000000EEEEEEEEE99EEEE0FFFFF8EEEEF844008EEEEFFFE99EFE
    E0888838EEEEEEEE800EEEEEFEE99EEEE0011188EEEEEEEEEEEEEEEEEEE99EFE
    EEE999EEEEEEEEEEEEEEEEEEEEE99EEEEEE0FFEEEEEEEEEEFFFFFFFFEFE99EEE
    EEE088EEFFFFFEFFFFFFFFFFFFF99EEEEEEE8EEEEFFFFEEEFFFEFFFFEFF99EEE
    EEEF8EEEEEEEFEFEFFFFFFFEFFF99FFFFFF8FEEEEEEFEEEFEFFFFFEFEFE99FE8
    E88FEEEEEEEEEEEEFFFFFFEEFEE99FFEFEFFEEEEEEEEEEEFFFFFFFEEEEE99FFF
    FFEEEEEEEEEEEFFFFFFFEEEEEEE99EFEEEEEEEEEEEEEFFEEFFFEEEEEEEE99EEE
    EEEEEEEEEEEEEFFFFFFEEEEEEEE99EEFEFFEEEEEEEEEEEEEFFFEEEEEEEE99EFF
    FEEEEEEEEEEEEEEEEFEEEEEEEEE9999999999999999999999999999999990000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 747
    Height = 527
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #26597#35810#24335#20462#25913
      object GroupBox2: TGroupBox
        Left = 0
        Top = 97
        Width = 739
        Height = 97
        Align = alTop
        Caption = #25968#25454#20449#24687
        TabOrder = 0
        object Label8: TLabel
          Left = 15
          Top = 16
          Width = 60
          Height = 13
          Caption = #32852#31995#26102#38388#65306
        end
        object Label9: TLabel
          Left = 39
          Top = 44
          Width = 36
          Height = 13
          Caption = #30005#35805#65306
        end
        object Label10: TLabel
          Left = 27
          Top = 72
          Width = 48
          Height = 13
          Caption = #32479#35745#20154#65306
        end
        object Label11: TLabel
          Left = 265
          Top = 16
          Width = 36
          Height = 13
          Caption = #22995#21517#65306
        end
        object Label12: TLabel
          Left = 267
          Top = 44
          Width = 36
          Height = 13
          Caption = #21160#24577#65306
        end
        object Label13: TLabel
          Left = 496
          Top = 16
          Width = 36
          Height = 13
          Caption = #32844#21153#65306
        end
        object Label14: TLabel
          Left = 496
          Top = 44
          Width = 36
          Height = 13
          Caption = #25209#27880#65306
        end
        object SpeedButton2: TSpeedButton
          Left = 303
          Top = 69
          Width = 105
          Height = 25
          Caption = #20462#25913
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
            7700333333337777777733333333008088003333333377F73377333333330088
            88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
            000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
            FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
            99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
            99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
            99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
            93337FFFF7737777733300000033333333337777773333333333}
          NumGlyphs = 2
          OnClick = SpeedButton2Click
        end
        object Edit6: TEdit
          Left = 88
          Top = 12
          Width = 137
          Height = 21
          TabOrder = 0
        end
        object Edit8: TEdit
          Left = 304
          Top = 12
          Width = 137
          Height = 21
          TabOrder = 1
        end
        object Edit9: TEdit
          Left = 536
          Top = 12
          Width = 137
          Height = 21
          TabOrder = 2
        end
        object Edit10: TEdit
          Left = 88
          Top = 41
          Width = 137
          Height = 21
          TabOrder = 3
        end
        object Edit11: TEdit
          Left = 304
          Top = 41
          Width = 137
          Height = 21
          TabOrder = 4
        end
        object Edit12: TEdit
          Left = 88
          Top = 68
          Width = 137
          Height = 21
          TabOrder = 5
        end
        object ComboBox3: TComboBox
          Left = 536
          Top = 40
          Width = 137
          Height = 21
          ItemHeight = 13
          TabOrder = 6
          Items.Strings = (
            #21487#29992
            #19981#29992)
        end
      end
      object DBGrid2: TDBGrid
        Left = 0
        Top = 194
        Width = 739
        Height = 305
        Align = alClient
        DataSource = DataSource2
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid2CellClick
        OnTitleClick = DBGrid2TitleClick
        Columns = <
          item
            Expanded = False
            FieldName = #32852#31995#26102#38388
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = #22995#21517
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = #32844#21153
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = #30005#35805
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = #21160#24577
            Width = 300
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25209#27880
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = #32479#35745#20154
            Width = 100
            Visible = True
          end>
      end
      object GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 739
        Height = 97
        Align = alTop
        Caption = #26465#20214#26597#35810
        TabOrder = 2
        object Label15: TLabel
          Left = 15
          Top = 16
          Width = 60
          Height = 13
          Caption = #32852#31995#26102#38388#65306
        end
        object Label16: TLabel
          Left = 39
          Top = 44
          Width = 36
          Height = 13
          Caption = #30005#35805#65306
        end
        object Label17: TLabel
          Left = 27
          Top = 72
          Width = 48
          Height = 13
          Caption = #32479#35745#20154#65306
        end
        object Label18: TLabel
          Left = 265
          Top = 16
          Width = 36
          Height = 13
          Caption = #22995#21517#65306
        end
        object Label19: TLabel
          Left = 267
          Top = 44
          Width = 36
          Height = 13
          Caption = #21160#24577#65306
        end
        object Label20: TLabel
          Left = 496
          Top = 16
          Width = 36
          Height = 13
          Caption = #32844#21153#65306
        end
        object Label21: TLabel
          Left = 496
          Top = 44
          Width = 36
          Height = 13
          Caption = #25209#27880#65306
        end
        object SpeedButton3: TSpeedButton
          Left = 303
          Top = 69
          Width = 105
          Height = 25
          Caption = #26597#35810
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100