unit1.dfm

本程序是一个比较简单的通讯录 该程序可能比较有参考价值的地方 可能就是它用到了数据库的动太链接

          F0F0E4F0F0E4F0F0E4F0F0D7CEC4A9511FCB6601EC8701E68101E37F01DC7701
          D97401D36E01C96401A33E01C8A997E3F0F0E3F0F0E4EFF0E4EFF0000000E4EF
          F0E4EFF0E4EFF0D2C2B5AB5221AC4E17C09379E5F0F0E4F0F0E4F0F0E4F0F0E4
          F0F0E1E5E2C09279A94B10C96501D46F01E58101D26D01BD5801A24310C8A997
          E4EFF0E3F0F0E3F0F0E4EFF0E4EFF0000000E4EFF0E4EFF0E4EFF0E4F0F0E4F0
          F0E5F0F0E5F0F0E5F0F0E4F0F0E4F0F0E4F0F0E4F0F0E4F0F0E4EFF0E1E4E2C8
          AA97BA866AAC633DB57B5BC8AA97E1E4E2E4EFF0E4EFF0E3F0F0E3F0F0E4EFF0
          E4EFF0000000E4EFF0E4EFF0E4EFF0E4F0F0E4F0F0E5F0F0E5F0F0E5F0F0E4F0
          F0E4F0F0E4F0F0E4F0F0E4F0F0E4EFF0E4EFF0E4F0F0E4F0F0E4F0F0E3F0F0E3
          F0F0E4EFF0E4EFF0E4EFF0E3F0F0E3F0F0E4EFF0E4EFF0000000E4EFF0E4EFF0
          E4EFF0E4F0F0E4F0F0E5F0F0E5F0F0E5F0F0E4F0F0E4F0F0E4F0F0E4F0F0E4F0
          F0E4EFF0E4EFF0E4F0F0E4F0F0E4F0F0E3F0F0E3F0F0E4EFF0E4EFF0E4EFF0E3
          F0F0E3F0F0E4EFF0E4EFF0000000E4EFF0E4EFF0E4EFF0E4F0F0E4F0F0E5F0F0
          E5F0F0E5F0F0E4F0F0E4F0F0E4F0F0E4F0F0E4F0F0E4EFF0E4EFF0E4F0F0E4F0
          F0E4F0F0E3F0F0E3F0F0E4EFF0E4EFF0E4EFF0E3F0F0E3F0F0E4EFF0E4EFF000
          0000}
        OnClick = SpeedButton8Click
      end
      object SpeedButton9: TSpeedButton
        Left = 256
        Top = 400
        Width = 30
        Height = 30
        Caption = '退出'
        Flat = True
        OnClick = SpeedButton9Click
      end
      object Image1: TImage
        Left = 248
        Top = 367
        Width = 29
        Height = 31
        Cursor = crHandPoint
        AutoSize = True
        Picture.Data = {
          07544269746D6170DE0A0000424DDE0A00000000000036000000280000001D00
          00001F0000000100180000000000A80A0000120B0000120B0000000000000000
          0000E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC
          E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3EC
          ECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECEC
          E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3EC
          ECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3
          ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3EC
          ECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3
          ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC
          E3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3
          ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC
          E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3EC
          EC00E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC
          E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3EC
          ECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECEC
          E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE2EBEBE3EC
          ECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3
          ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3EC
          ECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE2EAE9E0E5E3E0E5E3E2
          EAE9E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC
          E3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3
          ECECE3ECECE3ECECDBCDC3CD977CC1724BBD5E30BB5B2EBB663EC3876AD5C3B8
          E2EAEAE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3EC
          EC00E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE4E3DFD79878
          D1794FCF6E40C86D42B27C62AC7860B75D33BB592CB65425BC6C46DBD2CBE3EC
          ECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECEC
          E3ECECE3ECECE3ECECE3ECECE3ECECE7DED7E0946FE08053E18256DE7B4DCE9D
          86D2DBDFC7CFD3B58873BE5D2FBD6034B9592DB75428D7C1B6E3ECECE3ECECE3
          ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3EC
          ECE3ECECE9E7E4E79C79E9895EEA8B61E7885DE27F51DFB5A1FFFFFFD5DFE4B5
          8E7DC25F31C16336BD6134BB5D30B75528DCD2CBE3ECECE3ECECE3ECECE3ECEC
          E3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECECB499ED
          8B5FEE9064EE8F63EA8A60E68558DC845CCCA290BD9582C36C45C66639C16337
          BE6135BD6034BA5B2EBE6D46E3EBEBE3ECECE3ECECE3ECECE3ECECE3ECECE3EC
          EC00E3ECECE3ECECE3ECECE3ECECE3ECECEBE4DDEEA17DF19165F09165EE8F63
          EA8A5FE68456DC916ED6AC98C19581C1714DC76739C36538C06236BE6134BC60
          33B85425D7C3B8E3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECEC
          E3ECECE3ECECE3ECECF1C9B5F49163F19266F09165EE8F63EA8A5FE58050E0AF
          98FEFFFFCED6DBB97E62C96536C36639C16336BE6135BD6035BA592DC78B6EE3
          ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3EC
          ECF4B79AF69468F19266F09165ED8F63E9895FE48050DFA990FFFFFFD1D5D7B9
          8973C66131C56639C16337BE6235BE6135BC5E31BE6B42E3EBEBE3ECECE3ECEC
          E3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3ECECF6B496F69569F3
          9266F09165ED8E62E8885DE48153DA8E6BFAF8F8F0F4F5C3C1C0B48067C16033
          C26336C06235BE6135BC5E32BA6034E2E7E6E3ECECE3ECECE3ECECE3ECECE3EC
          EC00E3ECECE3ECECE3ECECE3ECECE3ECECF7B79AF8966AF39367F09165EC8E62
          E8885DE38356DB794BD49D84F5F6F7F3F7F9C8CCCFB4846EC05E30C06235BE61
          35BC5E32BC673EE2E8E7E3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECEC
          E3ECECE3ECECE3ECECF5C0A5FA986BF59468F19266EE8B5EE78151E37E4EDD7C
          4ED26F40CA8465F1EAE7F0F5F7C6C5C5B56C4BC16032BE6135BB5E31BE6E47E3
          ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3EC
          ECF1D7C6FE996BF7976AF49164E6A081E2B7A3D0A28ED37F56D67648CD6636D0
          9377FDFFFFD5DDDFB38976BC592CBE6135BA592CCB9579E3ECECE3ECECE3ECEC
          E3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3ECECE8EAE7F8B18EFB
          9A6EF89162E6B8A3FCFFFFD3DEE2C7927AD46D3DCD6535C98566EFF0F0D6DDE1
          AD8878BB592CBD6134B85528DBCEC6E3ECECDEE6E6E3ECECE3ECECE3ECECE3EC
          EC00E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECF2D0BBFF9D6EFC986AEAA180
          FAFAFAF0F3F4C8C4C2C19C8BC29782CCC1BAE4E6E7C6CBCEAA7258C05D2FBB5B
          2DC4805FE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECEC
          E3ECECE3ECECE3ECECE3ECECE4ECECF6C0A3FF9F71FA986AE5BDACFEFFFFF7FB
          FCE3E9ECDEE5E8E2E6E8D0D7DBAB978EB65D33BD5D2FBA5E31E0E0DDE3ECECDF
          E7E7E3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3EC
          ECE3ECECE3ECECE6ECEAF5C5A7F8B491F9996DE0AF97E0D7D2DFDFDFD3D3D4BE
          B9B7AD897BB66138BD592BBC6236DED8D2E3ECECE3ECECE3ECECE3ECECE3ECEC
          E3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3
          ECECE3ECECF0D8C8F7B797FA9161E3875ECE8361C37A57BE683FC0592ABE5C2D
          CA9276E1E4E2E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3EC
          EC00E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC
          E5ECEBEEDCD1EDC0AAE2A88CD89676D49B7FD7B9AADFDEDAE3ECECE3ECECE3EC
          ECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECEC
          E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3EC
          ECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3
          ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3EC
          ECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3
          ECECE2EBEBE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC
          E3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3
          ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC
          E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3EC
          EC00E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC
          E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3EC
          ECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECEC
          E3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3EC
          ECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3
          ECECE3ECECE3ECECE3ECECE3ECECE3ECEC00E3ECECE3ECECE3ECECE3ECECE3EC
          ECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3
          ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECECE3ECEC
          E3ECECE3ECECE3ECEC00}
        OnClick = Image1Click
      end
      object DBImage1: TDBImage
        Left = 1
        Top = 0
        Width = 280
        Height = 366
        DataField = '相片'
        DataSource = DataSource1
        TabOrder = 0
        OnClick = DBImage1Click
      end
      object CheckBox1: TCheckBox
        Left = 24
        Top = 376
        Width = 97
        Height = 17
        Caption = '自动大小'
        TabOrder = 1
        OnClick = CheckBox1Click
      end
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
      'Source=D:\Program Files\Borland\CBuilder5\Projects\MyFriend\我的' +
      '同学录.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB' +
      ':System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Databas' +
      'e Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking' +
      ' Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bul' +
      'k Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Cr' +
      'eate System Database=False;Jet OLEDB:Encrypt Database=False;Jet ' +
      'OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact Witho' +
      'ut Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 73
    Top = 361
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    OnFilterRecord = ADOTable1FilterRecord
    TableName = 'MyFriend'
    Left = 105
    Top = 353
    object ADOTable1ID: TAutoIncField
      FieldName = 'ID'
    end
    object ADOTable1DSDesigner2: TWideStringField
      FieldName = '电话'
      Size = 16
    end
    object ADOTable1DSDesigner: TWideStringField
      FieldName = '姓名'
      Size = 10
    end
    object ADOTable1QQ: TWideStringField
      FieldName = 'QQ号'
      Size = 12
    end
    object ADOTable1DSDesigner3: TWideStringField
      FieldName = '手机号'
      Size = 16
    end
    object ADOTable1DSDesigner4: TWideStringField
      FieldName = '住址一'
      Size = 50
    end
    object ADOTable1DSDesigner5: TWideStringField
      FieldName = '住址二'
      Size = 50
    end
    object ADOTable1DSDesigner6: TMemoField
      FieldName = '留言'
      BlobType = ftMemo
    end
    object ADOTable1DSDesigner7: TBlobField
      FieldName = '相片'
      BlobType = ftBlob
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 33
    Top = 361
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Filter = 
      'All (*.jpg;*.bmp)|*.jpg;*.bmp;|JPEG Image File (*.jpg)|*.jpg|Bit' +
      'maps (*.bmp)|*.bmp'
    Left = 324
    Top = 105
  end
end