modify.dfm

一个小型的酒店管理系统

            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
            300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
            330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
            333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
            339977FF777777773377000BFB03333333337773FF733333333F333000333333
            3300333777333333337733333333333333003333333333333377333333333333
            333333333333333333FF33333333333330003333333333333777333333333333
            3000333333333333377733333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = SpeedButton3Click
        end
        object Edit13: TEdit
          Left = 88
          Top = 15
          Width = 137
          Height = 21
          TabOrder = 0
        end
        object Edit14: TEdit
          Left = 304
          Top = 15
          Width = 137
          Height = 21
          TabOrder = 1
        end
        object Edit15: TEdit
          Left = 536
          Top = 15
          Width = 137
          Height = 21
          TabOrder = 2
        end
        object Edit16: TEdit
          Left = 88
          Top = 44
          Width = 137
          Height = 21
          TabOrder = 3
        end
        object Edit17: TEdit
          Left = 304
          Top = 44
          Width = 137
          Height = 21
          TabOrder = 4
        end
        object Edit18: TEdit
          Left = 88
          Top = 71
          Width = 137
          Height = 21
          TabOrder = 5
        end
        object ComboBox2: TComboBox
          Left = 536
          Top = 40
          Width = 137
          Height = 21
          ItemHeight = 13
          TabOrder = 6
          Items.Strings = (
            #21487#29992
            #19981#29992)
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #36873#25321#24335#20462#25913
      ImageIndex = 1
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 739
        Height = 97
        Align = alTop
        Caption = #25968#25454#20449#24687
        TabOrder = 0
        object Label1: TLabel
          Left = 15
          Top = 16
          Width = 60
          Height = 13
          Caption = #32852#31995#26102#38388#65306
        end
        object Label3: TLabel
          Left = 265
          Top = 16
          Width = 36
          Height = 13
          Caption = #22995#21517#65306
        end
        object Label2: TLabel
          Left = 496
          Top = 16
          Width = 36
          Height = 13
          Caption = #32844#21153#65306
        end
        object Label6: TLabel
          Left = 496
          Top = 44
          Width = 36
          Height = 13
          Caption = #25209#27880#65306
        end
        object Label5: TLabel
          Left = 267
          Top = 44
          Width = 36
          Height = 13
          Caption = #21160#24577#65306
        end
        object Label4: TLabel
          Left = 39
          Top = 44
          Width = 36
          Height = 13
          Caption = #30005#35805#65306
        end
        object Label7: TLabel
          Left = 27
          Top = 72
          Width = 48
          Height = 13
          Caption = #32479#35745#20154#65306
        end
        object SpeedButton1: TSpeedButton
          Left = 304
          Top = 68
          Width = 105
          Height = 25
          Caption = #20462#25913'(&M)'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
            7700333333337777777733333333008088003333333377F73377333333330088
            88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
            000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
            FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
            99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
            99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
            99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
            93337FFFF7737777733300000033333333337777773333333333}
          NumGlyphs = 2
          OnClick = SpeedButton1Click
        end
        object Edit1: TEdit
          Left = 88
          Top = 15
          Width = 137
          Height = 21
          TabOrder = 0
        end
        object Edit2: TEdit
          Left = 305
          Top = 15
          Width = 137
          Height = 21
          TabOrder = 1
        end
        object Edit3: TEdit
          Left = 536
          Top = 15
          Width = 137
          Height = 21
          TabOrder = 2
        end
        object Edit5: TEdit
          Left = 304
          Top = 42
          Width = 137
          Height = 21
          TabOrder = 3
        end
        object Edit4: TEdit
          Left = 88
          Top = 42
          Width = 137
          Height = 21
          TabOrder = 4
        end
        object Edit7: TEdit
          Left = 88
          Top = 69
          Width = 137
          Height = 21
          TabOrder = 5
        end
        object ComboBox1: TComboBox
          Left = 536
          Top = 41
          Width = 137
          Height = 21
          ItemHeight = 13
          TabOrder = 6
          Items.Strings = (
            #21487#29992
            #19981#29992)
        end
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 97
        Width = 739
        Height = 402
        Align = alClient
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid1CellClick
        OnTitleClick = DBGrid1TitleClick
        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
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=sa;Persist Security Info=True;User I' +
      'D=sa;Data Source=DLHH'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select ConnTime as '#32852#31995#26102#38388',PName as '#22995#21517',PPosition as '#32844#21153',Tel as '#30005#35805',Ne' +
        'ws as '#21160#24577',Note as '#25209#27880',StaPerson as '#32479#35745#20154' from HHMain order by ConnTi' +
        'me desc')
    Left = 652
    Top = 88
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 684
    Top = 88
  end
  object ADOQuery2: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=sa;Persist Security Info=True;User I' +
      'D=sa;Data Source=DLHH'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select ConnTime as '#32852#31995#26102#38388',PName as '#22995#21517',PPosition as '#32844#21153',Tel as '#30005#35805',Ne' +
        'ws as '#21160#24577',Note as '#25209#27880',StaPerson as '#32479#35745#20154' from HHMain order by ConnTi' +
        'me desc')
    Left = 540
    Top = 88
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 572
    Top = 88
  end
end