tpczunit2.dfm

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

object FormTPCZ: TFormTPCZ
  Left = 222
  Top = 116
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #22270#29255#26597#25214'/'#21024#38500
  ClientHeight = 542
  ClientWidth = 681
  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 lblDQTPNAME: TLabel
    Left = 168
    Top = 18
    Width = 91
    Height = 19
    Caption = #24403#21069#22270#29255':'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label1: TLabel
    Left = 24
    Top = 18
    Width = 120
    Height = 19
    Caption = #21333#20987#22270#29255#21517#31216
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object lblTS: TLabel
    Left = 24
    Top = 474
    Width = 51
    Height = 19
    Caption = #25552#31034':'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object lblDJS: TLabel
    Left = 24
    Top = 498
    Width = 71
    Height = 19
    Caption = #20498#35745#26102':'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object lblTPZS: TLabel
    Left = 24
    Top = 450
    Width = 131
    Height = 19
    Caption = #24211#20013#20849#26377#22270#29255':'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object lstTPNAME: TListBox
    Left = 24
    Top = 42
    Width = 137
    Height = 399
    Hint = #21452#20987#21015#34920#26694#20013#35201#21024#38500#30340#22270#29255','#21363#21487#21024#38500
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    ItemHeight = 14
    Items.Strings = (
      '')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = lstTPNAMEClick
    OnDblClick = lstTPNAMEDblClick
  end
  object DBTPCZImage: TDBImage
    Left = 120
    Top = 122
    Width = 31
    Height = 28
    AutoDisplay = False
    Stretch = True
    TabOrder = 1
    Visible = False
  end
  object penal1: TPanel
    Left = 168
    Top = 42
    Width = 489
    Height = 399
    BevelInner = bvLowered
    BorderStyle = bsSingle
    TabOrder = 2
    object imageTPCZ: TImage
      Left = 2
      Top = 2
      Width = 481
      Height = 391
      Align = alClient
      Stretch = True
    end
  end
  object DataTPCZSource: TDataSource
    DataSet = ADOTPCZTable
    Left = 24
    Top = 122
  end
  object ADOTPCZTable: TADOTable
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'image'
    Left = 56
    Top = 122
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 88
    Top = 122
  end
  object tmrJSPKTS: TTimer
    Enabled = False
    OnTimer = tmrJSPKTSTimer
    Left = 344
    Top = 8
  end
end