unit1.dfm

精彩编程百例75～100 其中有媒体播放器 SQL语言编辑器 ADO方法连接多个数据库 用户密码验证系统 获取Man地址 信史服务 ping命令等待

object Form1: TForm1
  Left = 367
  Top = 164
  Width = 406
  Height = 285
  Caption = #29992#25143#23494#30721#39564#35777#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 72
    Top = 24
    Width = 258
    Height = 29
    Caption = #38134#34892#29992#25143#20449#24687#31995#32479'           '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 64
    Top = 80
    Width = 68
    Height = 20
    Caption = #29992#25143#65306'     '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 64
    Top = 136
    Width = 68
    Height = 20
    Caption = #23494#30721#65306'     '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 144
    Top = 80
    Width = 145
    Height = 21
    TabOrder = 0
  end
  object Edit2: TEdit
    Left = 144
    Top = 136
    Width = 145
    Height = 21
    PasswordChar = '*'
    TabOrder = 1
    OnKeyPress = Edit2KeyPress
  end
  object Ok1: TBitBtn
    Left = 80
    Top = 184
    Width = 97
    Height = 41
    Caption = #30830#35748
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = OK1Click
    Glyph.Data = {
      BA040000424DBA04000000000000BA0000002800000020000000200000000100
      08000000000000040000120B0000120B0000210000002100000016151A00918D
      98008080000018C77B0021BE7B00219E6B0031CF8C0021CF8C0031D794002171
      52001051390052C79C0094EFD6009CCFCD009EFEFE00D2FEFE00E7FFFF002232
      330097AEB1004E99A600B5EBFA00D6E4E9009CAEB500BDCFD60045788F007C86
      8C005F9FD500E0EFFD009ECEFE0063697300CDD8EC009C9ECE00000000000202
      0202020202020202020202020202020202020202020202020202020202020202
      0202020202020202020202020202020202020202181818181818181818020202
      02020202020202020202020202020202020202130D0D0D0D0D0D0D1A18180202
      020202020202020202020202020202020202130D1414141414140E1412020202
      0202020202020202020202020202020202120D1414141414141414141A020202
      18131212011212121312011A011A01121312140F141414141414140D01020218
      0D1E0F1B1B0F1B1B1B0F1B0F0F150F140F140F14141414141414141C1318011F
      141B101D111111111D1010101D1111111119101019111111111D10140D13130D
      0F150B04040404040A1D0C04040404040409100B04040404030A19140D13010D
      0F0F07040606090404000B03110000040709170607000A09070A19141413130D
      0F0F07090000000904110B07060606110705170811070700090919140D13010D
      1B1508090006000607000B07000606000809170600070600090A19141413130D
      0F0F06060000000604110B03000900090705170800001107070919141C13010D
      0F0F07070600000404110B07090006060709170805000606050A19141E13130D
      1B1406040706110404110B0700110000080917060409000A070A19141413010D
      140F06030404040404170B0304040404030B100704070404030B17141419130D
      0F0F0C04060608060C100C04060608060B10100B06060606060C10141413010D
      140F10171616161617101010171616161617101017161616121710141E13130D
      0F0F0C09090909091116100C090909090A1D101705090909091117141E13010D
      0F1406070707070705000B03070707070705170603070707070A190F1413130D
      140F0604040A090704110B07090A1109070917080411000A050919141E13010D
      0F140704040A09070411060709060607070517080606060A050A190F1413130D
      141406030700090704110B07090000050709170805090A00090919141401010D
      140F06040A00090704000B070707000906051706060606000509190F1E13130D
      141406040900090704110607090000090709170805000000070A19141E13010D
      0F0F070407090507041D0B03050909050305170607050905070A190F1401130D
      14140B03030303030B170C0303030303030C100603030303030B100F1E13010D
      1414100C0C0C0C0C1010100C0C0C0C0C1010100C0C0C0C0C0C1010150D130D18
      0D14141414141414140F140F0F0F0F0F0F0F0F1B0F0F1B1B0F0F0F1412180201
      181A121212121212121212121212121212121212121212121F12120118020202
      0202020202020202020202020202020202020202020202020202020202020202
      020202020202020202020202020202020202020202020202020202020202}
  end
  object Exit1: TBitBtn
    Left = 224
    Top = 184
    Width = 97
    Height = 41
    Caption = #36864#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = exit1Click
    Glyph.Data = {
      36080000424D3608000000000000360400002800000020000000200000000100
      08000000000000040000120B0000120B000000010000000000004944B600463C
      A6005A4EBB00EEEBE900F8F7F500857B65006D6B480084833C00808000009F9F
      6800FFFFFA00FFFFFC00BDBEA50075844E00A8BC9D00A9CD9E00EFF3EF0096BC
      98006A8D6F00CBD5CD00ACD7BB0099AFA1009ECAB000FDFFFE00B2E7D0005B94
      7C0087B0A20056EADC00CBE9E600EBF7F600CAFCF90068D0CC0096D3D0000BEF
      ED0012EFED00D4FFFE0011FFFF0012FFFF0014FCFF0015FFFF0015FCFC0015F9
      FA0016FFFF0015F3F30033F2F500E1FDFD00EBFFFF00F1FFFF0005E5EB0006EA
      EE0008F6FF0008F1F80012F6FF0013EEF60014F9FF0015F7FF0014E5EB0016FB
      FF009AF6F90010F2FF0012E7F50014F3FF007BD5DA0092E1E50091B2B40009D7
      E50011EDFF0012ECFF0013EFFF0012DBE90014F0FF0018EAFD0049E7F50006E7
      FF0011E9FF0013E8FF0013EAFF0013E6FB0012CEE30017EAFF00B7EBF10005DE
      FF000DE1FF0010E1FF000FD4EF0011E4FF0011DBF40012E2FC0014E0FE0017C6
      DF001FDDF80063CCDB0008DDFF000FDDFF0010DAFE0011DEFF0011D6FA0011D3
      F500AECED3000DD4FF000ED8FF000DC5EB0010D6FF0010D4FE0010CCF00010C0
      E40012D5FE0012D2FA0015D4FD0015BCDE0028D4F4000AB6E0000FCFFF000FC9
      F80010CBF90010C9F40011D2FF0013CFFB0016D2FC0016CFFB0007CBFF000ABB
      EE000EC0F3000FCAFF0010CCFF0010C8FD0012C6F90017C9FB0018C2F10025AF
      D60003B8F20007C4FF000CAFE2000EBBF1000FC6FF000EB7EA0001BDFD000CBE
      FE000EBFFF000EC2FE0013BAF80015BEFB0007B6FF0009A3DE000BB9FF000DB8
      FF000EB9FF000FBCFF000FB3F4000AACF8000BB5FF000BB1FF000EB6FF0013AC
      ED001498D6000BAFFF000DAEFF000EB1FF000EA8F3000FABFB002BA9E7003EA4
      D70091B4C6000AAAFF000AA6FF000AA5FA000EA7FF000EA9FE0032B1F60057AF
      DE007FA2B500CEEEFF00039EFF0007A1FE000DA2FF0010A1FA001598EB004799
      CD006AACD400139CF8000F7CC7002A97DF0055A4DB000094FE000D98FF007FC8
      FF00E7F5FF00D1DDE600038EFF000D95FF002194F4002391EC00EBF5FD000186
      F9000C8AFF000D8DFF001791FE001B92FE001F89E9002382DA0069B5F8005A99
      D400097FF8000C89FF000C86FD001262B200439BF200FBFDFF00007AFC000377
      F1000473EC000472E6000A78F1000D74E7000D70DC00006FF1000069E7002766
      B2004281CE00919DAB00055DCE000B4185001D6CD600546C8C000A54BE003670
      C300235CB300285EB4002267E0002C5CB8002C59AC003F72D2007081A3002C5C
      C200386AD1002A3D65002A56BB002952B7003762C9003359B7003559B8005470
      C0001B3896003150B1003859C400395ABC002947A9001C39A8002945B0002135
      88002A3E9A003B4AB7004453BF003743AC00535BC000FFFFFF00080808080808
      0808080808080808080808080808080808080808080808080808080808080808
      0808080808080909080808080808080808080808080808080808080808080808
      080808080808131D0C0808080808080808080808080808080808080808080808
      0808080808080862500E09080808080808080808080808080808080808080808
      0808080808080808153F3F150808080808080808080808080808080808080808
      08080808080808080809203A2008080808080808080808080808080808080808
      080808080808080808080815501818140808080F141814080808080808191919
      190D061212120D0D0D0D0705DF622D231E13232323231E1E08080808199A8499
      94CDF9B09FAFAFB3B3B3B3B0F2EB401D2F2F2F2F2E2E2E2D1C0808818F847985
      89D9FA9E90979BA3A3A4A4ADF6F2B41CFFFFFFFFFF0A100B2F0808818487657A
      86D9FA948A9198989D9C9DA7F6F2A82FFFFFFFFFC0B2F0DB0408086D6F657372
      7CE3FA8C868A8A939292919DEDF7B60AFFFFFFCFC8D7D8DD1308085969686167
      66E5F67E7086868B8B8A8B92ECF7C90AFFFFFFBAC4D0D7C96208084E6554565D
      5EE5F3756470707C7B7D7B86E9F8B51D1717FFCFB9BEC8ABDA08084168565755
      5FEFF0605D6667677470707CEEFB95B2031717FFFF2DABCEDC080841543C4D43
      57F0F558555F5D5E5E665E74EEFB8D82A162BBBB50C8C5D0D608083054354634
      4DF5EE4C4A555553535D5F5EEAFB8D63889ED9C7A6B7BCCBD508083054293927
      47FCE737343D44434C4C424AE7FC7F5D6778DEC68EAEBDC2D20808304E4E4E41
      6FF6E26160737E7D7D7D7185F4FD99859479DEC691AEB8C3D108082138454545
      69FD01B573736B756B6ACDB49A9A87878FE6FDBE89A6B8C2D40808212B282724
      5AFE02A03455262A2A69E0562736444277FC00BE89A6B8C2D20808222B292724
      6EFE02A0274F5F70A5D685273D464B4276F401BF89AEBDCBD20808222B292724
      6EFE02A0242A4664895527373D464B4376F400C696AEBDCCD20808222B292724
      6EFE02A825272A2A2A2739373D444B4A6CF401C796AEC3CAD308083031333332
      80FC0099323D3232494949494951525188EC01DEACC1D1D8DC08080816161616
      40E8E8403E6E1A1A161611111111B1B6AADFDFAAA2A2A2AA0808080808080808
      080808081F2C0808080808080808F1B608080808080808080808080808080808
      08080808081B1F080808080808B6E10808080808080808080808080808080808
      0808080808082C5B08080808B6E4B60808080808080808080808080808080808
      080808080808081B485BA9B6B1B6080808080808080808080808080808080808
      08080808080808081F1F1F1F0808080808080808080808080808080808080808
      0808080808080808080808080808080808080808080808080808}
  end
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'password.db'
    Left = 32
    Top = 32
  end
end