delete.~dfm

一个小型的酒店管理系统

object DeleteFrm: TDeleteFrm
  Left = 216
  Top = 102
  Width = 733
  Height = 608
  Caption = #25968#25454#21024#38500
  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 RadioGroup1: TRadioGroup
    Left = 0
    Top = 0
    Width = 725
    Height = 145
    Align = alTop
    Caption = #35831#36873#25321#24744#24819#21024#38500#30340#26041#24335
    Columns = 3
    ItemIndex = 0
    Items.Strings = (
      #25353#29031#32852#31995#26102#38388#21024#38500
      #25353#29031#22995#21517#21024#38500
      #25353#29031#32844#21153#21024#38500
      #25353#29031#25209#27880#21024#38500
      #25353#29031#32479#35745#20154#21024#38500)
    TabOrder = 0
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 210
    Width = 725
    Height = 368
    Align = alClient
    DataSource = DataSource1
    TabOrder = 2
    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 GroupBox1: TGroupBox
    Left = 0
    Top = 145
    Width = 725
    Height = 65
    Align = alTop
    Caption = #25968#25454#24405#20837#21306
    TabOrder = 1
    object SpeedButton2: TSpeedButton
      Left = 556
      Top = 16
      Width = 105
      Height = 41
      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 SpeedButton1: TSpeedButton
      Left = 416
      Top = 16
      Width = 105
      Height = 41
      Caption = #21024'  '#38500'(&D)'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        300033FFFFFF3333377739999993333333333777777F3333333F399999933333
        3300377777733333337733333333333333003333333333333377333333333333
        3333333333333333333F333333333333330033333F33333333773333C3333333
        330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
        333333377F33333333FF3333C333333330003333733333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object Edit1: TEdit
      Left = 160
      Top = 20
      Width = 217
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#21697#20116#31508#36755#20837#27861' '
      TabOrder = 0
    end
    object StaticText1: TStaticText
      Left = 29
      Top = 24
      Width = 112
      Height = 17
      Caption = #35831#36755#20837#30456#24212#30340#25968#25454#65306
      TabOrder = 1
    end
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=MSDASQL.1;Password=sa;Persist Security Info=True;User I' +
      'D=sa;Data Source=DLHH'
    Parameters = <>
    Left = 504
    Top = 104
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery2
    Left = 584
    Top = 104
  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 = 544
    Top = 104
  end
end