unit8.~dfm

来自「中鼎百货进销存系统」· ~DFM 代码 · 共 2,337 行 · 第 1/5 页

~DFM
2,337 行
字号
12345
object Form8: TForm8
  Left = 192
  Top = 107
  Width = 784
  Height = 606
  HorzScrollBar.Position = 34
  Caption = #20986#24211#25171#21360
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object QuickRep1: TQuickRep
    Left = -34
    Top = 0
    Width = 794
    Height = 1123
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    DataSet = ADOQuery1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    Functions.Strings = (
      'PAGENUMBER'
      'COLUMNNUMBER'
      'REPORTTITLE')
    Functions.DATA = (
      '0'
      '0'
      #39#39)
    Options = [FirstPageHeader, LastPageFooter]
    Page.Columns = 1
    Page.Orientation = poPortrait
    Page.PaperSize = A4
    Page.Values = (
      100
      2970
      60
      2100
      120
      100
      0)
    PrinterSettings.Copies = 1
    PrinterSettings.Duplex = False
    PrinterSettings.FirstPage = 0
    PrinterSettings.LastPage = 0
    PrinterSettings.OutputBin = Auto
    PrintIfEmpty = True
    SnapToGrid = True
    Units = MM
    Zoom = 100
    object QRBand1: TQRBand
      Left = 45
      Top = 23
      Width = 711
      Height = 106
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        280.458333333333
        1881.1875)
      BandType = rbTitle
      object QRLabel1: TQRLabel
        Left = 208
        Top = 8
        Width = 369
        Height = 25
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          66.1458333333333
          550.333333333333
          21.1666666666667
          976.3125)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #38271'  '#27801'  '#20013'  '#40718'  '#30334'  '#36135'  '#36152'  '#26131'  '#26377'  '#38480'  '#20844'  '#21496
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #26041#27491#32508#33402#31616#20307
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 12
      end
      object QRImage1: TQRImage
        Left = 128
        Top = 7
        Width = 65
        Height = 50
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          132.291666666667
          338.666666666667
          18.5208333333333
          171.979166666667)
        Picture.Data = {
          0A544A504547496D616765C7060000FFD8FFE000104A46494600010202000000
          000000FFE100C845786966000049492A00080000000700120103000100000001
          0000001A01050001000000620000001B010500010000006A0000002801030001
          0000000200000031010200140000007200000032010200140000008600000069
          870400010000009A000000000000004800000001000000480000000100000041
          646F62652050686F746F73686F7020372E3000323030353A30353A3232203138
          3A33343A353600030001A0030001000000FFFF000002A00400010000004F0000
          0003A00400010000003A000000FFFE001E4143442053797374656D7320446967
          6974616C20496D6167696E6700FFC0001108002E003F03012200021101031101
          FFDB00840007040506050407060506070707080A110B0A09090A150F100C1119
          161A1A181618181C1F28221C1D261E1818232F2326292A2D2D2D1B213134312B
          34282C2D2B010B0B0B0F0D0F1E11111E402B242B404040404040404040404040
          4040404040404040404040404040404040404040404040404040404040404040
          404040404040FFC4008800000203010100000000000000000000000607030508
          04011000010302050105030A0700000000000001020304051100060712213113
          4151618108147115223242526291A1B1C1172443536372E10100030101010000
          0000000000000000000102030500041100020202020104030000000000000000
          01020003041112213113415181326171FFDA000C03010002110311003F00D1B8
          E3ACD5605169AECFAACA6A2C5645D6EB8AB01FF71254A746A6407E64E752CC78
          E82E3AE28F0948EA7191F55F50A767DADA9656B6694CA888916FC01F6D5E2A3F
          963D38B8C6F6FD4566D461677F689794EAE364E8084B60DBDF66024ABCD281FB
          9C2EA7EA9E799CE153B99A735737DB1F6B407A01812C7A2E540004926C001724
          F80C6E262D558D01225898594ED55CF305614CE659CED8DCA646D741F8DC6197
          907DA064BCE7619B29A14D26FBE742490100752B41FD8E164328B741A7B552CE
          8EBB0C3C9DD1694D2AD2A4F9ABFB48FBC79F0189D695FF000E6A35C7586A2B73
          64A2994F8CC8B21B403DA3BB7BC9E002A3C9E711B2AA2C1AD7DC60489ACE8F53
          8358A7333E9925A9515E1B9B75A55D2463AF190B4935126E43AD24A96B768EFA
          FF009B8D7E00FB691DCA1F98C6B6813189F0599711C4BB1DF4071B712785248B
          838C9C9C66A1B5ED28ADB89CF6ABCD0A87468597232ECB9EA2F48B1FE924F03E
          055FA633CFC793863FB47BEF4FD5D9115B4ADD5B11D861A6900A8A8905560079
          9C5F69BE85BD283750CEBBE3B3F4934E42ACB50FF2287D11E439F3C6AD0F5E3D
          00B7BC9B02CD17192B2656F394FF0076A2442B42480EC973E6B4D7FB2BF61727
          0C1A90CADA3EDF6300335FCDE53CBEF26ED4227BF6F71F01D7C6D8EFD4ED5585
          408272CE9D86184B43B3765B09010D7886BC55F7FF000C2494A538A52DC5296B
          59DCA528DCA89EF27BCE1903DFDBF4BF1F3FD83A5F13B264CA9662AD17E5BCEC
          DA8CD74277ACDD4B528D80F21CF4C3175E61B39728D94F2946236C088B7DE23E
          B2D44024FC4EE3883D9C32CFCB19DCD52423746A423B417E8A795C207A727136
          AAC76B34EB05557509821D1E929699972CF3B12917294F8AD44900603D8BEB85
          1E17B8478DCAFD1CC8CCD724BB983312911F2F530F68EB8EAB6A5E58E76DFEC8
          EF3E830EBD21CFB4BCD355AE53A8CDB8D4588EA5D8C17C6F42B8514A7EAA770E
          079E33EE7ACECEE608F1E914A63E4DCBD06C9890527ADBA2DC3F5947AF96083D
          98E6AA3EAAB4C855932A1BC850BF5DB650FD312C8A5ACADAC7FA1F108201D4D0
          9228140A557A4E6276224D4E6A9B68BFB4B8B26DB5294F076FA639E7D3E9D9FB
          2E18BEF95486C3C9429E4475961C295A4282544A49B588E9D704736131359ECA
          534DBA80A0A0169B80A1D0FC4620A0D222D169CCC484DA1296DB420A82402BDA
          90904DBBEC318FCCF9DF72914399F47B4F32DA5833DDAE92FEFECDB664A4A884
          A6E4DB68E0703D462C299A0D916A301997124D616CBA9DC922627F03F37A8370
          7CF07B9BB2A45CCAEC75CC7DD6FDDF96C207795027F102D8B3A2539BA5531A84
          C2D4B6DA2ADA55D6C544DBD2F6C5CE55BC7F230711016829CA7A6624D0A9E89C
          A505890E970A56B5A88161736BF040F5B63CACE8A658AD487644E935805E7972
          16DA65009ED146E556DBD79B790E305757CB88A8D4FDF572DD69D421296B6213
          6494924137EBC93C71D7E18BB0936E48EB84F59C1E40F73B51211B48B203F981
          5496D198FB643AB696E17C76614948575DBDE08B60CB27E8EE5ACA75D66B14A5
          D45529942D28EDE405A6CA163C6D1DD8BB6726C26EBE2A81E794F76E5E215CDC
          DB817F2F1EFB01E37231C0182F91630D72338289FFD9}
      end
      object QRShape40: TQRShape
        Left = 128
        Top = 53
        Width = 401
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          55.5625
          338.666666666667
          140.229166666667
          1060.97916666667)
        Pen.Mode = pmBlack
        Pen.Style = psInsideFrame
        Pen.Width = 3
        Shape = qrsHorLine
      end
      object QRLabel14: TQRLabel
        Left = 235
        Top = 27
        Width = 211
        Height = 19
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          50.2708333333333
          621.770833333333
          71.4375
          558.270833333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'ChangSha ZhongDing  Trade  CO.,LTD.'
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #26041#27491#38582#20070#31616#20307
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 9
      end
      object QRLabel17: TQRLabel
        Left = 223
        Top = 44
        Width = 274
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          590.020833333333
          116.416666666667
          724.958333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #38271#27801#24066#19996#29615#36335#26472#23478#23665#23453#24198#37329#37117'D'#24231'9'#27004'    0731-4764833'
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = #26041#27491#38582#21464#31616#20307
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      object QRLabel18: TQRLabel
        Left = 266
        Top = 67
        Width = 123
        Height = 23
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          60.8541666666667
          703.791666666667
          177.270833333333
          325.4375)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '['#21830#21697#36865#36135#21333']'
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26041#27491#38582#20070#31616#20307
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 14
      end
      object QRLabel20: TQRLabel
        Left = 8
        Top = 91
        Width = 45
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          21.1666666666667
          240.770833333333
          119.0625)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #35746#21333#32534#21495
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = #24188#22278
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      object QRLabel21: TQRLabel
        Left = 272
        Top = 93
        Width = 45
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          719.666666666667
          246.0625
          119.0625)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #23458#25143#32534#21495
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = #24188#22278
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      object QRLabel22: TQRLabel
        Left = 520
        Top = 92
        Width = 23
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1375.83333333333
          243.416666666667
          60.8541666666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #26085#26399
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = #24188#22278
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      object QRLabel28: TQRLabel
        Left = 72
        Top = 92
        Width = 25
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          190.5
          243.416666666667
          66.1458333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '    '
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = #24188#22278
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      object QRLabel29: TQRLabel
        Left = 333
        Top = 94
        Width = 25
        Height = 12
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          31.75
          881.0625
          248.708333333333
          66.1458333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '    '
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = #24188#22278
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 8
      end
      object QRLabel30: TQRLabel
        Left = 560
        Top = 91
        Width = 25
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1481.66666666667
          240.770833333333
          66.1458333333333)
        Alignment = taLeftJustify
12345

unit8.~dfm - 源码说明

本页面展示了「中鼎百货进销存系统」中的 unit8.~dfm 源码文件，采用 ~DFM 编程语言编写，共 2,337 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与进销存系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?