unit4.~dfm

《Delphi案例设计》源代码

        613.833333333333
        1891.77083333333)
      Shape = qrsRectangle
    end
    object QRLabel17: TQRLabel
      Left = 376
      Top = 240
      Width = 49
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        994.833333333333
        635
        129.645833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #25187#38500#39033#30446
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 9
    end
    object QRLabel18: TQRLabel
      Left = 54
      Top = 276
      Width = 61
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        142.875
        730.25
        161.395833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #20445#38505#37329#25187#38500
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 9
    end
    object QRLabel19: TQRLabel
      Left = 254
      Top = 276
      Width = 61
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        672.041666666667
        730.25
        161.395833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #27700#30005#27668#25187#38500
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 9
    end
    object QRLabel20: TQRLabel
      Left = 455
      Top = 276
      Width = 85
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        1203.85416666667
        730.25
        224.895833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #20303#25151#20445#35777#37329#25187#38500
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 9
    end
    object QRLabel21: TQRLabel
      Left = 656
      Top = 276
      Width = 73
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        1735.66666666667
        730.25
        193.145833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #38381#36335#22825#32447#25187#38500
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 9
    end
    object QRExpr15: TQRExpr
      Left = 64
      Top = 300
      Width = 103
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        169.333333333333
        793.75
        272.520833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Color = clWhite
      ParentFont = False
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'Table1.'#20445#38505#37329#25187#38500
      FontSize = 9
    end
    object QRExpr16: TQRExpr
      Left = 266
      Top = 300
      Width = 103
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        703.791666666667
        793.75
        272.520833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Color = clWhite
      ParentFont = False
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'Table1.'#27700#30005#27668#25187#38500
      FontSize = 9
    end
    object QRExpr17: TQRExpr
      Left = 469
      Top = 300
      Width = 127
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        1240.89583333333
        793.75
        336.020833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Color = clWhite
      ParentFont = False
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'Table1.'#20303#25151#20445#35777#37329#25187#38500
      FontSize = 9
    end
    object QRExpr18: TQRExpr
      Left = 672
      Top = 300
      Width = 127
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        1778
        793.75
        336.020833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Color = clWhite
      ParentFont = False
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'Table1.'#38381#36335#22825#32447#36153#25187#38500
      FontSize = 9
    end
    object QRShape3: TQRShape
      Left = 39
      Top = 324
      Width = 715
      Height = 1
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        2.64583333333333
        103.1875
        857.25
        1891.77083333333)
      Shape = qrsRectangle
    end
    object QRLabel22: TQRLabel
      Left = 184
      Top = 344
      Width = 37
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        486.833333333333
        910.166666666667
        97.8958333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #24635#24037#36164
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 9
    end
    object QRLabel23: TQRLabel
      Left = 328
      Top = 344
      Width = 37
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        867.833333333333
        910.166666666667
        97.8958333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #24635#25187#38500
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 9
    end
    object QRLabel24: TQRLabel
      Left = 473
      Top = 344
      Width = 49
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        1251.47916666667
        910.166666666667
        129.645833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #23454#21457#24037#36164
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 9
    end
    object QRExpr19: TQRExpr
      Left = 187
      Top = 376
      Width = 79
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        494.770833333333
        994.833333333333
        209.020833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Color = clWhite
      ParentFont = False
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'Table1.'#24635#24037#36164
      FontSize = 9
    end
    object QRExpr20: TQRExpr
      Left = 333
      Top = 376
      Width = 79
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        881.0625
        994.833333333333
        209.020833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Color = clWhite
      ParentFont = False
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'Table1.'#24635#25187#38500
      FontSize = 9
    end
    object QRExpr21: TQRExpr
      Left = 480
      Top = 376
      Width = 91
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        1270
        994.833333333333
        240.770833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Color = clWhite
      ParentFont = False
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'Table1.'#23454#21457#24037#36164
      FontSize = 9
    end
  end
  object Memo1: TMemo
    Left = 48
    Top = 72
    Width = 465
    Height = 57
    Lines.Strings = (
      'Memo1')
    TabOrder = 3
    Visible = False
  end
  object Table1: TTable
    Active = True
    TableName = #24037#36164#31649#29702'.db'
    Left = 520
    Top = 181
    object Table1BDEDesigner: TStringField
      FieldName = #20010#20154#24037#36164#21495
      Size = 16
    end
    object Table1BDEDesigner2: TStringField
      FieldName = #21333#20301#32534#21495
      Size = 18
    end
    object Table1BDEDesigner3: TStringField
      FieldName = #21333#20301#21517#31216
    end
    object Table1BDEDesigner4: TStringField
      FieldName = #32844#24037#22995#21517
      Size = 10
    end
    object Table1BDEDesigner5: TStringField
      FieldName = #24037#36164#24180#20221
    end
    object Table1BDEDesigner6: TStringField
      FieldName = #24037#36164#26376#20221
      Size = 6
    end
    object Table1BDEDesigner7: TCurrencyField
      FieldName = #22522#26412#24037#36164
    end
    object Table1BDEDesigner8: TCurrencyField
      FieldName = #28014#21160#24037#36164
    end
    object Table1BDEDesigner9: TCurrencyField
      FieldName = #24037#40836#24037#36164
    end
    object Table1BDEDesigner10: TCurrencyField
      FieldName = #31918#24046
    end
    object Table1BDEDesigner11: TCurrencyField
      FieldName = #29289#36148
    end
    object Table1BDEDesigner12: TCurrencyField
      FieldName = #32905#36148
    end
    object Table1BDEDesigner13: TCurrencyField
      FieldName = #21355#29983#36153
    end
    object Table1BDEDesigner14: TCurrencyField
      FieldName = #29123#26009#34917#36148
    end
    object Table1BDEDesigner15: TCurrencyField
      FieldName = #20445#38505#37329#25187#38500
    end
    object Table1BDEDesigner16: TCurrencyField
      FieldName = #27700#30005#27668#25187#38500
    end
    object Table1BDEDesigner17: TCurrencyField
      FieldName = #20303#25151#20445#35777#37329#25187#38500
    end
    object Table1BDEDesigner18: TCurrencyField
      FieldName = #38381#36335#22825#32447#36153#25187#38500
    end
    object Table1BDEDesigner19: TCurrencyField
      FieldName = #24635#24037#36164
    end
    object Table1BDEDesigner20: TCurrencyField
      FieldName = #24635#25187#38500
    end
    object Table1BDEDesigner21: TCurrencyField
      FieldName = #23454#21457#24037#36164
    end
  end
end