unit1.~dfm

工作之余做的一些实例,希望对大家有用,共同学习,相互促进

object Form1: TForm1
  Left = 241
  Top = 133
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25226'BMP'#22270#20687#23384#21462#21040#25968#25454#24211#20013
  ClientHeight = 440
  ClientWidth = 690
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000000000000A80800001600000028000000200000004000
    0000010008000000000000040000000000000000000000000000000000000000
    0000423D3B00192A4200243A630020465D00394557003E44550033425C001F41
    61001B4D700012467A001D4178003B4B62003B526E003C506F00424549004446
    4B0043474E005A5A5A005B5C5E00425063005B5E62005C5F62004A5679004259
    7D005E62670055647D0059677F005C687A006062660061656B007C6C60007B72
    6E007F787300777778007A7A7A007A7B7C007B7C7E00827A7600837C7A009387
    7E001B458300174E9F00106293001C5ABD00225FB500315DB1000F70AB000E65
    BE002A6DAE00536D8C005A708C004F6A90004D6A9400516E96005D779C007377
    8400777B85006477970060769900627B9E004466A6004B7BB600607CA600607F
    B200115CC7001D5BC900147CC4001864D7001368D2001E6FDF001070D300127E
    D900396BC3002F75C5003A7FCA001278F3007E8286007E8A9E006881AE00788B
    A4007288AD006C9CAA0078ADBE003C9DCB00278CDD003B81DC003F9CD4003DAA
    D4001BA9F3003CA0E7003DBCEC0029AAF0003BB2F2004980C4004D8CC8005E8B
    C0005C92CC005F94CC005A98D7007DA0CA001DC2FA001DC8FA0020C1FB008181
    81008E8682008F8883008D8A8800968D8700948B88009A928C00898F94008C91
    95008C9299008D94990094939400959596009F9591009296990094979B009198
    9D0095999C0099989900999B9D009A9C9F009D9D9F00A1968E00A0979200A39B
    9500A89E9700A69C9800A99F9A00ACA29C00B0A49C00929AA000939CA200969C
    A200979FA5009C9EA100989BA600999DAA0097A0A6009EA0A20099A1A7009FA1
    A40099A2A8009FA1AA009BA4AB009DA6AC009FA8AF0096A1B3009AA1B300A1A2
    A300AEA4A100A9A8A700A7A7A800ABAAAB00ABABAC00ACABAC00AEADAE00B1A6
    A100B4AAA400B9AEA600B6AEA800BAAEA800BFB0A500BCB2AB00A0A9B000A3AC
    B300A4AEB500ABAFB600A9AFBA00B0AFB000A6B0B700A7B1B800A9B2B900AAB4
    BB00ABB5BC00ACB6BD00AEB8BF00B2B1B200B1B2B400B5B5B500B8B7B700B8B7
    B800BAB9BA00BABABC00BCBBBC00BDBDBD00C0AFA200C4B3A700C2B6AF00C4BB
    B500C9BEB600C1BEBB00CABFB800C2C0BF00CBC2BC0091A7C7009FACC20092AB
    CE0097AEDB00AFB9C000B0BAC200B2BDC400B4BEC600B6C1C800B8C2CA00BAC5
    CC00BCC6CE00BEC9D100B7C9DE00BDCBE200C1C0C100C1C2C400C4C3C400C5C5
    C600C9C7C700C3C5CB00C8C7C800C9C9CA00CDCBCA00CACBCF00CCCBCC00CDCC
    CD00DAD0C900D0CFD000D1D1D100D4D3D400D5D4D500D8D7D800D7D8DD00D9D9
    D900DADADD00DCDBDC00DDDDDD00C1CFE400CED7E700D0D9E800E0DFE000DFE0
    E300E1E1E100E5E5E500E5E6E800E5E7EC00E9E9E900EDEDED00F0EFF000F1F1
    F100F5F5F500F8F7F800F9F9F900FCFBFC00FCFCFC00433B3400000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000008F00000000000000000000000000000000
    00000000000000000000876F7CB5BABAB68E6F78000000000000000000000000
    00000000000000008679DCE8F1F2F5F3F2EFE6DC907200000000000000000000
    0000000000000070D7E8F2F6F8F9F9F9F9F7F5EFE4D770910000000000000000
    00000000000076E0EAF5F8FAFBFCFDFDFBFAF8F6F1E5D8908D00000000000000
    000000000077DFEAF5F8FAF5B9BCC4BCB9B6B49F9F9A8EBB9891000000000000
    0000000070D8E6F2F7FAFBB4276A84A375C2C0A3998085B7D576000000000000
    00000089B9E3F1EAE4E3EB6B27266EA1C56D69206CA6A1C4DFBB710000000000
    00000076D8E8F3EAABC6D4686D6975A1838221266EA4A2D9E5D79B0000000000
    000000B6DFEBF5E81C29411A827583A48375FE0184A4BFDDEADFB97800000000
    000072BCE2EFF5F10C0B4532A184A0C1857F99C2A1C3C3E0EBE2BC7600000000
    000076BCE2EFF2F0030B2A34A4A0A1C01F7E85C5C5C0A2DFEFE3D59B00000000
    000090BCE2EBEFED2C444C2D85A6A6C3812883E1A5BEBDE2EFE3D59F00000000
    000098BCE0EAE6D34A5559485453525458570D3D1738C4F1EBE3D5AC00000000
    00008EB9DCE8E3C84B5C672B2F66653047430A4642C9EFF2EAE0C49F00000000
    00008AB7DBE5E3513E5A5D5B04095B02310856492EEEF2F1E6DFBB9E00000000
    000076B4D7E2E64F406061636205350E075F5E1806F3F5EFE4D8B89800000000
    0000789FBCDBEA3A1B3F333C373B10101136140F4EF2F5EBE2D5B47600000000
    0000009BB7BCE9391D16151916131312121E5064ECF3F5EFDBB99E8900000000
    000000769FB6E9928B8C977125242222234D96C7F4F5F5F1D5B48E0000000000
    000000009BACE4F6F6F3E7DA9B7B73747A8A8AAAF8F6F5EBB89E880000000000
    00000000789EBBF5F7F7F8F9F9F9F6EFE2DED6D6F8F7F6DB9F77000000000000
    0000000000779EE2F8F9F9F9FAFAFAFAFAF9FAFAF8F8EF9F8A00000000000000
    000000000000779EE3F9FAFBFBFBFBFBFBFBFBFAFAEFAC7C0000000000000000
    00000000000000889BBBF5FBFDFDFDFDFDFDFDF7D89C77000000000000000000
    000000000000000000779BB6DCEAF1F1EBE2B99D7BA700000000000000000000
    00000000000000000000008F778E7D7D8E7B8800000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFBFFFFFF003FFFFC000FFFF80003FFF00001FFE00000FFC00
    000FF8000007F8000007F8000003F0000003F0000003F0000003F0000003F000
    0003F0000003F0000003F0000003F8000003F8000007FC000007FC00000FFE00
    001FFF00003FFF80007FFFE000FFFFF807FFFFFFFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 344
    Width = 111
    Height = 19
    Caption = #22270#29255#30340#36335#24452':'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 32
    Top = 376
    Width = 111
    Height = 19
    Caption = #22270#29255#30340#21517#31216':'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 32
    Top = 408
    Width = 131
    Height = 19
    Caption = #24211#20013#20849#26377#22270#29255':'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object labTPZS: TLabel
    Left = 168
    Top = 408
    Width = 80
    Height = 19
    Caption = #22270#29255#24635#25968
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object DBImage1: TDBImage
    Left = 8
    Top = 8
    Width = 673
    Height = 321
    DataField = 'data'
    DataSource = DataSource1
    Stretch = True
    TabOrder = 0
  end
  object Button1: TButton
    Left = 512
    Top = 374
    Width = 145
    Height = 25
    Caption = #25171#24320#19988#20445#23384'BMP'#22270#20687
    TabOrder = 1
    OnClick = Button1Click
  end
  object DBNavigator1: TDBNavigator
    Left = 352
    Top = 374
    Width = 152
    Height = 25
    DataSource = DataSource1
    VisibleButtons = [nbPrior, nbNext]
    TabOrder = 2
    OnClick = DBNavigator1Click
  end
  object txtPATH: TEdit
    Left = 144
    Top = 344
    Width = 513
    Height = 21
    Color = clScrollBar
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    ReadOnly = True
    TabOrder = 3
  end
  object txtNAME1: TEdit
    Left = 144
    Top = 376
    Width = 201
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    TabOrder = 4
  end
  object txtNAME: TDBEdit
    Left = 144
    Top = 376
    Width = 201
    Height = 21
    Color = clScrollBar
    DataField = 'name'
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    ReadOnly = True
    TabOrder = 5
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=exp.m' +
      'db;Mode=Share Deny None;Extended Properties="";Persist Security ' +
      'Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path=' +
      '"";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OL' +
      'EDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;' +
      'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Pass' +
      'word="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt' +
      ' Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet' +
      ' OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'