⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unit_rubb_prtrepcard2.dfm

📁 此代码为企业原料管理代码
💻 DFM
📖 第 1 页 / 共 2 页
字号:
        Transparent = False
        WordWrap = True
        FontSize = 11
      end
      object QRLabel8: TQRLabel
        Left = 328
        Top = 4
        Width = 76
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          867.833333333333
          10.5833333333333
          201.083333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '实验日期:'
        Color = clWhite
        Transparent = False
        WordWrap = True
        FontSize = 11
      end
      object QRDBText5: TQRDBText
        Left = 47
        Top = 2
        Width = 56
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          124.354166666667
          5.29166666666667
          148.166666666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        DataSet = Table1
        DataField = 'Bianhao'
        Transparent = False
        WordWrap = True
        FontSize = 11
      end
      object QRDBText6: TQRDBText
        Left = 408
        Top = 24
        Width = 61
        Height = 16
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          42.3333333333333
          1079.5
          63.5
          161.395833333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Table1
        DataField = '胶料名称'
        Transparent = False
        WordWrap = True
        FontSize = 11
      end
    end
    object PageHeaderBand1: TQRBand
      Left = 38
      Top = 38
      Width = 491
      Height = 68
      Frame.Color = clBlack
      Frame.DrawTop = True
      Frame.DrawBottom = True
      Frame.DrawLeft = True
      Frame.DrawRight = True
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        179.916666666667
        1299.10416666667)
      BandType = rbPageHeader
      object QRLabel1: TQRLabel
        Left = 141
        Top = 8
        Width = 191
        Height = 25
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          66.1458333333333
          373.0625
          21.1666666666667
          505.354166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '宁波巨龙橡塑有限公司'
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -19
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 14
      end
      object QRLabel6: TQRLabel
        Left = 154
        Top = 37
        Width = 169
        Height = 27
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          71.4375
          407.458333333333
          97.8958333333333
          447.145833333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '技术指标报告单'
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -24
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 18
      end
    end
    object ColumnHeaderBand1: TQRBand
      Left = 38
      Top = 151
      Width = 491
      Height = 23
      Frame.Color = clBlack
      Frame.DrawTop = True
      Frame.DrawBottom = True
      Frame.DrawLeft = True
      Frame.DrawRight = True
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        60.8541666666667
        1299.10416666667)
      BandType = rbColumnHeader
      object QRLabel15: TQRLabel
        Left = 22
        Top = 2
        Width = 74
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          58.2083333333333
          5.29166666666667
          195.791666666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = '试验项目 '
        Color = clWhite
        Transparent = False
        WordWrap = True
        FontSize = 12
      end
      object QRLabel16: TQRLabel
        Left = 126
        Top = 2
        Width = 52
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          333.375
          5.29166666666667
          137.583333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = ' 单位  '
        Color = clWhite
        Transparent = False
        WordWrap = True
        FontSize = 12
      end
      object QRLabel17: TQRLabel
        Left = 199
        Top = 2
        Width = 66
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          526.520833333333
          5.29166666666667
          174.625)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = '试验结果'
        Color = clWhite
        Transparent = False
        WordWrap = True
        FontSize = 12
      end
      object QRLabel18: TQRLabel
        Left = 337
        Top = 2
        Width = 74
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          891.645833333333
          5.29166666666667
          195.791666666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = '试验条件 '
        Color = clWhite
        Transparent = False
        WordWrap = True
        FontSize = 12
      end
      object QRShape11: TQRShape
        Left = 115
        Top = 0
        Width = 8
        Height = 22
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          58.2083333333333
          304.270833333333
          0
          21.1666666666667)
        Shape = qrsVertLine
      end
      object QRShape1: TQRShape
        Left = 185
        Top = 0
        Width = 10
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          55.5625
          489.479166666667
          0
          26.4583333333333)
        Shape = qrsVertLine
      end
      object QRShape2: TQRShape
        Left = 272
        Top = 0
        Width = 8
        Height = 21
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          55.5625
          719.666666666667
          0
          21.1666666666667)
        Shape = qrsVertLine
      end
    end
  end
  object Table1: TTable
    DatabaseName = 'JL2000'
    OnFilterRecord = Table1FilterRecord
    FieldDefs = <
      item
        Name = '标识号'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = '主表标识号'
        DataType = ftInteger
      end
      item
        Name = '试验项目'
        DataType = ftString
        Size = 20
      end
      item
        Name = '单位'
        DataType = ftString
        Size = 10
      end
      item
        Name = '试验结果'
        DataType = ftString
        Size = 10
      end
      item
        Name = '试验条件'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'Bianhao'
        DataType = ftInteger
      end
      item
        Name = '胶料名称'
        DataType = ftString
        Size = 14
      end
      item
        Name = 'Shiyanrq'
        DataType = ftDate
      end
      item
        Name = 'Shiyanyuan'
        DataType = ftString
        Size = 8
      end>
    IndexDefs = <
      item
        Name = 'Table1Index1'
        Fields = '标识号'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = '主表标识号'
        Fields = '主表标识号'
      end>
    IndexName = '主表标识号'
    MasterFields = '标识号'
    MasterSource = Form_Rubb_ProcCard.DS_ProcCard
    StoreDefs = True
    TableName = '炼胶指标报告单2.db'
    Left = 56
    Top = 24
    object Table1BDEDesigner: TAutoIncField
      FieldName = '标识号'
      ReadOnly = True
    end
    object Table1BDEDesigner6: TIntegerField
      FieldName = '主表标识号'
    end
    object Table1BDEDesigner2: TStringField
      DisplayWidth = 20
      FieldName = '试验项目'
    end
    object Table1BDEDesigner3: TStringField
      FieldName = '单位'
      Size = 10
    end
    object Table1BDEDesigner4: TStringField
      FieldName = '试验结果'
      Size = 10
    end
    object Table1BDEDesigner5: TStringField
      DisplayWidth = 40
      FieldName = '试验条件'
      Size = 40
    end
    object Table1Bianhao: TIntegerField
      FieldName = 'Bianhao'
    end
    object Table1BDEDesigner7: TStringField
      FieldName = '胶料名称'
      Size = 14
    end
    object Table1Shiyanrq: TDateField
      FieldName = 'Shiyanrq'
    end
    object Table1Shiyanyuan: TStringField
      FieldName = 'Shiyanyuan'
      Size = 8
    end
  end
end

⌨️ 快捷键说明

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