insert.~dfm

一个小型的酒店管理系统

object InsertFrm: TInsertFrm
  Left = 172
  Top = 139
  Width = 732
  Height = 579
  Caption = #25968#25454#24405#20837
  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 GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 724
    Height = 201
    Align = alTop
    Caption = #26032#25968#25454#24405#20837
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 456
      Top = 152
      Width = 105
      Height = 33
      Caption = #25554#20837'(&I)'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333FF33333333FF333993333333300033377F3333333777333993333333
        300033F77FFF3333377739999993333333333777777F3333333F399999933333
        33003777777333333377333993333333330033377F3333333377333993333333
        3333333773333333333F333333333333330033333333F33333773333333C3333
        330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
        333333333337733333FF3333333C333330003333333733333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 600
      Top = 152
      Width = 105
      Height = 33
      Caption = #21462#28040'(&C)'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
        555557777F777555F55500000000555055557777777755F75555005500055055
        555577F5777F57555555005550055555555577FF577F5FF55555500550050055
        5555577FF77577FF555555005050110555555577F757777FF555555505099910
        555555FF75777777FF555005550999910555577F5F77777775F5500505509990
        3055577F75F77777575F55005055090B030555775755777575755555555550B0
        B03055555F555757575755550555550B0B335555755555757555555555555550
        BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
        50BB555555555555575F555555555555550B5555555555555575}
      NumGlyphs = 2
      OnClick = SpeedButton2Click
    end
    object ConnTime: TPanel
      Left = 16
      Top = 24
      Width = 233
      Height = 25
      BorderStyle = bsSingle
      Caption = #32852#31995#26102#38388#20026#65306
      Color = clGradientActiveCaption
      TabOrder = 0
    end
    object Panel2: TPanel
      Left = 16
      Top = 62
      Width = 113
      Height = 25
      BorderStyle = bsSingle
      Caption = #22995'        '#21517
      Color = clGradientActiveCaption
      TabOrder = 1
    end
    object Panel3: TPanel
      Left = 382
      Top = 61
      Width = 113
      Height = 25
      BorderStyle = bsSingle
      Caption = #32844'        '#21153
      Color = clGradientActiveCaption
      TabOrder = 2
    end
    object Panel4: TPanel
      Left = 16
      Top = 105
      Width = 113
      Height = 25
      BorderStyle = bsSingle
      Caption = #30005'        '#35805
      Color = clGradientActiveCaption
      TabOrder = 3
    end
    object Panel5: TPanel
      Left = 384
      Top = 106
      Width = 113
      Height = 25
      BorderStyle = bsSingle
      Caption = #21160'        '#24577
      Color = clGradientActiveCaption
      TabOrder = 4
    end
    object Panel6: TPanel
      Left = 16
      Top = 145
      Width = 113
      Height = 25
      BorderStyle = bsSingle
      Caption = #25209'        '#27880
      Color = clGradientActiveCaption
      TabOrder = 5
    end
    object StaPerson: TPanel
      Left = 383
      Top = 24
      Width = 233
      Height = 25
      BorderStyle = bsSingle
      Caption = #32479#35745#20154#20026#65306
      Color = clGradientActiveCaption
      TabOrder = 6
    end
    object PName: TEdit
      Left = 146
      Top = 61
      Width = 201
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#21697#20116#31508#36755#20837#27861' '
      TabOrder = 7
    end
    object PPosition: TEdit
      Left = 512
      Top = 60
      Width = 201
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#21697#20116#31508#36755#20837#27861' '
      TabOrder = 8
    end
    object Tel: TEdit
      Left = 146
      Top = 105
      Width = 201
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#21697#20116#31508#36755#20837#27861' '
      TabOrder = 9
    end
    object News: TEdit
      Left = 513
      Top = 107
      Width = 201
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#21697#20116#31508#36755#20837#27861' '
      TabOrder = 10
    end
    object Note: TComboBox
      Left = 146
      Top = 147
      Width = 201
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#21697#20116#31508#36755#20837#27861' '
      ItemHeight = 13
      TabOrder = 11
      Text = #21487#29992
      Items.Strings = (
        #21487#29992
        #19981#29992)
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 201
    Width = 724
    Height = 348
    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 = []
    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 ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=MSDASQL.1;Password=sa;Persist Security Info=True;User I' +
      'D=sa;Data Source=DLHH'
    Parameters = <>
    Left = 392
    Top = 168
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery2
    Left = 360
    Top = 168
  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 = 424
    Top = 168
  end
end