find2.~dfm

一个小型的酒店管理系统

object Find2Frm: TFind2Frm
  Left = 174
  Top = 86
  Width = 736
  Height = 605
  Caption = #31934#30830#26597#35810
  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 = 728
    Height = 217
    Align = alTop
    Caption = #35831#22312#21508#26639#20013#36755#20837#31934#30830#26465#20214
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 288
      Top = 160
      Width = 145
      Height = 41
      Caption = #26597#35810'(&F)'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 456
      Top = 160
      Width = 145
      Height = 41
      Caption = #23548#20986#21040'EXCEL(&E)'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
        333333333333337FF3333333333333903333333333333377FF33333333333399
        03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
        99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
        99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
        03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
        33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
        33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
        3333777777333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton2Click
    end
    object StaticText1: TStaticText
      Left = 24
      Top = 32
      Width = 64
      Height = 17
      Caption = #32852#31995#26102#38388#65306
      TabOrder = 7
    end
    object StaticText2: TStaticText
      Left = 48
      Top = 77
      Width = 40
      Height = 17
      Caption = #32844#21153#65306
      TabOrder = 8
    end
    object StaticText3: TStaticText
      Left = 48
      Top = 122
      Width = 40
      Height = 17
      Caption = #21160#24577#65306
      TabOrder = 9
    end
    object StaticText4: TStaticText
      Left = 36
      Top = 168
      Width = 52
      Height = 17
      Caption = #32479#35745#20154#65306
      TabOrder = 10
    end
    object StaticText5: TStaticText
      Left = 296
      Top = 32
      Width = 40
      Height = 17
      Caption = #22995#21517#65306
      TabOrder = 11
    end
    object StaticText6: TStaticText
      Left = 296
      Top = 77
      Width = 40
      Height = 17
      Caption = #30005#35805#65306
      TabOrder = 12
    end
    object StaticText7: TStaticText
      Left = 296
      Top = 122
      Width = 40
      Height = 17
      Caption = #25209#27880#65306
      TabOrder = 13
    end
    object Edit1: TEdit
      Left = 88
      Top = 32
      Width = 169
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#21697#20116#31508#36755#20837#27861' '
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 344
      Top = 32
      Width = 169
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#21697#20116#31508#36755#20837#27861' '
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 88
      Top = 74
      Width = 169
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#21697#20116#31508#36755#20837#27861' '
      TabOrder = 2
    end
    object Edit4: TEdit
      Left = 344
      Top = 75
      Width = 169
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#21697#20116#31508#36755#20837#27861' '
      TabOrder = 3
    end
    object Edit5: TEdit
      Left = 88
      Top = 120
      Width = 169
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#21697#20116#31508#36755#20837#27861' '
      TabOrder = 4
    end
    object Edit7: TEdit
      Left = 88
      Top = 168
      Width = 169
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#21697#20116#31508#36755#20837#27861' '
      TabOrder = 6
    end
    object ComboBox1: TComboBox
      Left = 344
      Top = 120
      Width = 169
      Height = 21
      ItemHeight = 13
      TabOrder = 5
      Items.Strings = (
        #21487#29992
        #19981#29992)
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 217
    Width = 728
    Height = 358
    Align = alClient
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#26497#21697#20116#31508#36755#20837#27861' '
    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
    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 = 656
    Top = 144
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 688
    Top = 144
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 624
    Top = 176
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 656
    Top = 176
  end
  object ExcelWorksheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 688
    Top = 176
  end
end