tpgmunit2.~dfm

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

object TPGMForm: TTPGMForm
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #22270#29255#25913#21517
  ClientHeight = 353
  ClientWidth = 457
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  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
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object lblXGTPMC: TLabel
    Left = 11
    Top = 10
    Width = 136
    Height = 29
    Caption = #20462#25913#21517#31216':'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -29
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object btnQD: TSpeedButton
    Left = 304
    Top = 8
    Width = 144
    Height = 33
    Caption = #30830#23450
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = btnQDClick
  end
  object lstTPGM: TListBox
    Left = 8
    Top = 48
    Width = 137
    Height = 297
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    ItemHeight = 14
    TabOrder = 0
    OnClick = lstTPGMClick
  end
  object penal1: TPanel
    Left = 152
    Top = 48
    Width = 297
    Height = 297
    BevelInner = bvLowered
    BorderStyle = bsSingle
    TabOrder = 1
    object imageTPGM: TImage
      Left = 2
      Top = 2
      Width = 289
      Height = 289
      Hint = #21333#20987#21491#38190#21487#20197#20445#23384#22270#29255
      Align = alClient
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = True
      Stretch = True
    end
  end
  object txtXGTPMC: TEdit
    Left = 152
    Top = 8
    Width = 145
    Height = 32
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    ParentFont = False
    TabOrder = 2
  end
  object ADOTPMGTable: TADOTable
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'image'
    Left = 64
    Top = 240
  end
  object ADOTPMGQuery: TADOQuery
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 32
    Top = 240
  end
  object DataTPMGSource: TDataSource
    DataSet = ADOTPMGTable
    Left = 96
    Top = 240
  end
  object PopupMenu1: TPopupMenu
    Left = 200
    Top = 80
    object bcctp: TMenuItem
      Caption = #20445#23384#27492#22270#29255
      OnClick = bcctpClick
    end
  end
  object SavePictureDialog1: TSavePictureDialog
    Left = 232
    Top = 80
  end
end