unit1.~dfm

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

    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 200
    Top = 24
  end
  object table1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'image'
    Left = 232
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = table1
    Left = 264
    Top = 24
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 328
    Top = 24
  end
  object PopupMenu1: TPopupMenu
    Images = ImageList1
    Left = 296
    Top = 24
    object tpcz: TMenuItem
      Caption = #22270#29255#26597#25214
      ImageIndex = 0
      OnClick = tpczClick
    end
    object tpgm: TMenuItem
      Caption = #22270#29255#25913#21517
      OnClick = tpgmClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object bbll: TMenuItem
      Caption = #25253#34920#27983#35272
      OnClick = bbllClick
    end
  end
  object SkinData1: TSkinData
    Active = True
    DisableTag = 99
    SkinControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcCheckBox, xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcPanel, xcGroupBox, xcStatusBar, xcTab, xcSystemMenu]
    Skin3rd.Strings = (
      'TTBDock=Panel'
      'TTBToolbar=Panel'
      'TImageEnMView=scrollbar'
      'TImageEnView=scrollbar'
      'TRzButton=button'
      'TRzCheckGroup=CheckGroup'
      'TRzRadioGroup=Radiogroup'
      'TRzRadioButton=Radiobutton'
      'TRzCheckBox=Checkbox'
      'TRzButtonEdit=Edit'
      'TRzDBRadioGroup=Radiogroup'
      'TRzDBRadioButton=Radiobutton'
      'TRzDBCheckBox=Checkbox'
      'TDBCheckboxEh=Checkbox'
      'TDBCheckboxEh=Checkbox'
      'TLMDCHECKBOX=Checkbox'
      'TLMDDBCHECKBOX=Checkbox'
      'TLMDRadiobutton=Radiobutton'
      'TLMDGROUPBOX=Panel'
      'TLMDSIMPLEPANEL=Panel'
      'TLMDDBCalendar=Panel'
      'TLMDButtonPanel=Panel'
      'TLMDLMDCalculator=Panel'
      'TLMDHeaderPanel=Panel'
      'TLMDTechnicalLine=Panel'
      'TLMDLMDClock=Panel'
      'TLMDTrackbar=trackbar'
      'TLMDListCombobox=combobox'
      'TLMDCheckListCombobox=combobox'
      'TLMDHeaderListCombobox=combobox'
      'TLMDImageCombobox=combobox'
      'TLMDColorCombobox=combobox'
      'TLMDFontCombobox=combobox'
      'TLMDFontSizeCombobox=combobox'
      'TLMDFontSizeCombobox=combobox'
      'TLMDPrinterCombobox=combobox'
      'TLMDDriveCombobox=combobox'
      'TLMDCalculatorComboBox=combobox'
      'TLMDTrackBarComboBox=combobox'
      'TLMDCalendarComboBox=combobox'
      'TLMDRADIOGROUP=radiogroup'
      'TLMDCheckGroup=CheckGroup'
      'TLMDDBRADIOGROUP=radiogroup'
      'TLMDDBCheckGroup=CheckGroup'
      'TLMDEDIT=Edit'
      'TLMDMASKEDIT=Edit'
      'TLMDBROWSEEDIT=Edit'
      'TLMDEXTSPINEDIT=Edit'
      'TLMDCALENDAREDIT=Edit'
      'TLMDFILEOPENEDIT=Edit'
      'TLMDFILESAVEEDIT=Edit'
      'TLMDCOLOREDIT=Edit'
      'TLMDDBEDIT=Edit'
      'TLMDDBMASKEDIT=Edit'
      'TLMDDBEXTSPINEDIT=Edit'
      'TLMDDBSPINEDIT=Edit'
      'TLMDDBEDITDBLookup=Edit'
      'TLMDEDITDBLookup=Edit'
      'TDBLookupCombobox=Combobox'
      'TWWDBCombobox=Combobox'
      'TWWDBLookupCombo=Combobox'
      'TWWDBCombobox=Combobox'
      'TWWKeyCombo=Combobox'
      'TWWTempKeyCombo=combobox'
      'TWWDBDateTimePicker=Combobox'
      'TWWRADIOGROUP=radiogroup'
      'TDXDBPICKEDIT=Combobox'
      'TDXDBCALCEDIT=Combobox'
      'TDXDBIMAGEEDIT=Combobox'
      'TDXDBPOPUPEDIT=Combobox'
      'TDXDBEXTLOOKUPEDIT=Combobox'
      'TDXDBLOOKUPEDIT=Combobox'
      'TDXDBDATEEDIT=Combobox'
      'TDXDATEEDIT=Combobox'
      'TDXPICKEDIT=Combobox'
      'TDXPOPUPEDIT=Combobox'
      'TDXDBCURRENCYEDIT=Edit'
      'TDXDBEDIT=Edit'
      'TDXDBMASKEDIT=Edit'
      'TDXDBHYPERLINKEDIT=Edit'
      'TDXEDIT=Edit'
      'TDXMASKEDIT=Edit'
      'TWWDBEDIT=Edit'
      'TDXBUTTONEDIT=Edit'
      'TDXCURRENCYEDIT=Edit'
      'TDXHYPERLINKEDIT=Edit'
      'TOVCPICTUREFIELD=Edit'
      'TOVCDBPICTUREFIELD=Edit'
      'TOVCSLIDEREDIT=Edit'
      'TOVCDBSLIDEREDIT=Edit'
      'TOVCSIMPLEFIELD=Edit'
      'TOVCDBSIMPLEFIELD=Edit'
      'TO32DBFLEXEDIT=Edit'
      'TOVCNUMERICFIELD=Edit'
      'TOVCDBNUMERICFIELD=Edit')
    SkinStore = '(Good)'
    SkinFormtype = sfMainform
    Version = '2.62.5.26'
    MenuUpdate = True
    Left = 360
    Top = 24
    SkinStream = {
      0CB00000A0C10400D676B1986318EC180477DD3B8663007FFFAFE803E3FEF5FB
      BF7F005B3B6B1FE6EACBF35D99CB4A8528509D4A9D660C2FF8B5F9474415B4B8
      F9FD28A16925024D53DBEFFBD10290A75B80C9042C22CAD0B73F2E47BFDD1710
      2E5F04E527976726BBB2D148C66F1EC781508BC870384D868DC76F544287CD47
      6E3B37A12ECA197EE356B0ADA8B84C86D36534551F3C751948CC40E24D30C764
      242BA9815314F58E2614265347042969AA7C871069368CD9258A997B7C32D26F
      865A62E5852092600903D6619E8AAF3C58A455F83FE923B4C6C81610FFFBDB28
      54DED58E1C549DA34D6B4D0B8ABAA4A03FC5B94D0CD9A8966201D69C1BF7502A
      F01244F0474AE00BD295F401947507950C2302F4E9992F3E5AE726CA9FF1DCC4
      315BE6D07C2B107C87601AC20A03E06F80075C6CE72D0D9C02FDE01CA1C1AD3C
      9FBB4BDF00035760332760717F80F00F8161DD16E70C5026955974019783E7E4
      4F99B802C480A7C05E002B002BE02E202EE02A005580AE016002D405C00BA017
      602900A602450118BEA705005501580560158057016405A016C04E401461D891
      39015152823D02C0022703B9E026310561F5905F40D71C23C8053059361AA851
      5A1F9F79759871BCEA27A1DC2A8B8902A2A99E00B2580B8D37A0242466A6A5CF
      3964CCB3F984B2874771334ED8015E042F405DC2E069E11AB0A03076102CA0E1
      40048132519C9938332D2076005F884DA3326D0293295893F10EDE32DB704C36
      D20462BA8133783B90326214CC24CBCAE7073C8F669636B32285F489F06A1C88
      C7772CFA450BD456FAC425D56FD50722492020EB85F08D644812393EA4C958A2
      7A998B25EC883099BCA8E487752166045DA2DBD204D856A1BB89B620E1171BDA
      394F886DDB40117EE5309FC6017540598884540161523F85F01482F7809114A5
      17C114CB241602D0869E103705F389FB62FBCCCB0C64855A734953FCE0BACC3B
      A633532071838CE512A7B1C9D9E1A454828A0643C262C66640081D46CA2F1D63
      1873A08BA65B681C35046A179A7B56B02A82CA502C252794A7A1D2161C4C5087
      E09CAFE3C761FB1DEF430CBCBBD582303AE087068E705AE30152E8A014A3206F
      3821102D01AFC040041A8829013401030A48403808A356C52519143A61D95611
      4F85E39093069224CF21E3933617530FBE8ED721FD26440E8496FC35E1E60349
      C0EFC7B04AE247C5015A7CB8632204013E19E62D858CF1904542A213F0831BD2
      77FA70C11AEAB4185E008FE82B06BF57FC6A586AA085A4249BB545E32CF43431
      67C23903A91488D85E7E7CE0E0874754C3A3AD8B30B350C1A2044EF408DDD108
      BD4402F360202EF82000B4C22D88DC14005FF08FE40C232E88771333C78D7F0A
      7642183538094319424FC137E7B241D01E1B05C0577D166E3EFA8D2111326AA0
      BD92F79569D2CF48F8E02497A5A47C2A8F4587468C557C0090421A40B4A1142C
      314B2940EF9F8A70667192EB96C5AC635BA6AB3A0D0A046A0D66AFB7480A7839
      A1EA4A4BF47D3B4ABB6B04180AC0D201680EAA79FCD811FE1DC0BD202C8CB41A
      EC1DD82D4012C3A9206E3BD145E14B72E8235E876332746608C94933622B72AC
      80BC1B081F585E24174515CF6C8537178C967017A191149A117D9E1F0AF7673F
      1452087CAB718D4CB0EEAF4E9D9D42717C9CF3BA599106423D29C9B08DD4E18B
      AB029A9398243750EA18773ABBCE0EEE321763A0B84E1AF4814B6A6B821C1B7C
      C28209B4023ADD13130E81FFD38047202D83B617D86AE0EE01781728B08CA14B
      88F0499238B80AA2FA48D8A02DCB1D1025212258E49CF4BAF97B8207E35903B6
      0A5605C109B1B0021F245689FC9F9F391D476B3AB258CCB4C0EE673CD5A5AF60
      22548F24E50A5C96982A3E1401B74483634B26F68FC2529D2F3AA8D987695B17
      1FF2B32AA5E05F3769B8319F9808E917740CE652CCCEA6483BBC043398046411
      5F2E0BE80ACDE82FC0EA852A0EB82C59E104C296165C5FE07741718830058C5F
      F21264FDCA2E87DE164065D85F06958C3818D7145B392805E157183BB2DC68BD
      084B13F04C8685C441F4502AD04B3E85121A702297B4E171E1655712D0458DC4
      E3434E3FE276ECB3EFEB4BEB9211F8F707972A9D6487D072BD358166E82182D0
      42014088467F09D00AB1214A67C0C0AD052C02D0BEC17A00BA0EAA02567623C0
      3B20B880B2427C4D08E3E35F869A23880BE3EF95DD21A6881DF67B644DF30E85
      EC043FD02410FB42079FF92C5A423D05CA17E3E645A50B1AAB40203D2C6C99F7
      587C074046E87E39E170CD1A7A81F11533572BB7C176022F0A3F40B8B0FA9361
      5A35873E7E6C8765C61954D952D29649A98E4FA91218604137980C2675EEDB22
      0ED4CA7BC05ECDC11C01337417C80A20A7C0A80264D8082C3BE229099D87760B
      4017811B24322642EB44829819187A272E49B4C9F169038606DF408B945E1968
      9CEE7870EC6BD1ABA3014DB691B03F3835698DB2976B1B07C57BD42C917B9626
      058963A4FA04ECCDBC2A2352191C4920C8BC8ED71F9955DA4A782B9496913E88
      A4D4C3F2172BF0598663C0C18BB1CAFF93047E9C847E3C6E38DFDB5A0B900B40
      8D83A3260E6C05A0A380A435D0BC070814F82C041905A083223517C029017F04
      E3E0E6325B278260E80F9B0D38EA900BE3E6411489C402F55686087CEDCA4CF2
      69096952C5C4B6C022A7E3EB914205E65F3F3E5717CC3F1C82FDCAE86F31DC4D
      B4F4CBEAE9F1023A1EB6004634A8470CC171306C2E09F0135840BE058847E176
      A802CC10229F914405410785281100EF881222B0060520D0F7E52E04C0A44808
      81A883C5A219F1012151F0B812DE0D541080E43FFC61880BE0BB0052A5411262
      30C920128711FFE2A3CAF40E1F2C6299872B9CA4EA94DC344B48546906BCAB92
      AE843AE1C79903126BB17FB2355B1F4380226CB0C41F670F9F92823A8CBD655D
      DD49725BE3091791CD77D7A60DF823BF42AC23D94933880996805E9EEF104002