unitsulfinput.dfm

此代码为企业原料管理代码

          Expanded = False
          FieldName = 'MaterWeight'
          Title.Alignment = taCenter
          Title.Caption = '料重/只'
          Width = 46
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'QcNum'
          Title.Alignment = taCenter
          Width = 56
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'LackNum'
          Title.Alignment = taCenter
          Width = 44
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ImpuNum'
          Title.Alignment = taCenter
          Width = 43
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'PoleNum'
          Title.Alignment = taCenter
          Width = 43
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'RipNum'
          Title.Alignment = taCenter
          Width = 45
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ElseNum'
          Title.Alignment = taCenter
          Width = 44
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'SubSalary'
          Title.Alignment = taCenter
          Width = 45
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'DisSalary'
          Title.Alignment = taCenter
          Width = 48
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = '生产批号'
          Title.Alignment = taCenter
          Width = 78
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'SourceID'
          Title.Alignment = taCenter
          Title.Caption = '模具编号'
          Width = 48
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Check'
          Title.Alignment = taCenter
          Width = 43
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Moshu'
          Title.Alignment = taCenter
          Title.Caption = '模 数'
          Width = 41
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'RubbMixID'
          Title.Alignment = taCenter
          Width = 95
          Visible = True
        end>
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 792
      Height = 33
      Align = alTop
      BevelInner = bvLowered
      Caption = '硫化车间日生产记录登记卡'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -21
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object Panel10: TPanel
      Left = 24
      Top = 213
      Width = 759
      Height = 28
      BevelInner = bvRaised
      BorderStyle = bsSingle
      Caption = '硫化车间日生产记录表'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object Panel20: TPanel
      Left = 683
      Top = 61
      Width = 89
      Height = 154
      BevelInner = bvLowered
      Color = clHighlightText
      TabOrder = 5
      OnMouseMove = Panel20MouseMove
      object Label1: TLabel
        Left = 27
        Top = 57
        Width = 48
        Height = 12
        Caption = '辅助输入'
        OnClick = CheckBoxdicClick
      end
      object Label2: TLabel
        Left = 24
        Top = 88
        Width = 48
        Height = 12
        Cursor = crHandPoint
        Caption = '打印空白'
        OnClick = Label2Click
        OnMouseMove = Label3MouseMove
      end
      object Label3: TLabel
        Left = 26
        Top = 104
        Width = 36
        Height = 12
        Cursor = crHandPoint
        Caption = '登记卡'
        OnClick = Label2Click
        OnMouseMove = Label3MouseMove
      end
      object Panel23: TPanel
        Left = 2
        Top = 2
        Width = 85
        Height = 25
        Caption = '备 注'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object CheckBoxdic: TCheckBox
        Left = 7
        Top = 36
        Width = 73
        Height = 17
        Caption = '使用字典'
        Checked = True
        State = cbChecked
        TabOrder = 1
        OnClick = CheckBoxdicClick
      end
    end
  end
  object Table1: TTable
    AutoCalcFields = False
    DatabaseName = 'JL2000'
    FieldDefs = <
      item
        Name = 'Name'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'TDate'
        DataType = ftDate
      end
      item
        Name = 'ProdNameID'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'FigID'
        DataType = ftString
        Size = 25
      end
      item
        Name = 'ProdName'
        DataType = ftString
        Size = 20
      end
      item
        Name = '生产批号'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'SourceID'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'RubbMixID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'DrawWeight'
        DataType = ftFloat
      end
      item
        Name = 'MaterWeight'
        DataType = ftFloat
      end
      item
        Name = 'QcNum'
        DataType = ftInteger
      end
      item
        Name = 'LackNum'
        DataType = ftSmallint
      end
      item
        Name = 'ImpuNum'
        DataType = ftSmallint
      end
      item
        Name = 'PoleNum'
        DataType = ftSmallint
      end
      item
        Name = 'RipNum'
        DataType = ftSmallint
      end
      item
        Name = 'ElseNum'
        DataType = ftSmallint
      end
      item
        Name = 'SubSalary'
        DataType = ftFloat
      end
      item
        Name = 'DisSalary'
        DataType = ftFloat
      end
      item
        Name = 'TMonth'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'Check'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'Moshu'
        DataType = ftSmallint
      end
      item
        Name = 'Rate'
        DataType = ftFloat
      end>
    StoreDefs = True
    TableName = 'SulfCard.DB'
    Left = 49
    Top = 361
    object Table1Name: TStringField
      DisplayLabel = '姓名'
      DisplayWidth = 8
      FieldName = 'Name'
      Size = 8
    end
    object Table1TMonth: TStringField
      DisplayLabel = '月份'
      DisplayWidth = 8
      FieldName = 'TMonth'
      Size = 8
    end
    object Table1TDate: TDateField
      DisplayLabel = '日期'
      DisplayWidth = 9
      FieldName = 'TDate'
    end
    object Table1ProdNameID: TStringField
      DisplayLabel = '产品编号'
      DisplayWidth = 10
      FieldName = 'ProdNameID'
      Size = 10
    end
    object Table1ProdName: TStringField
      DisplayLabel = '产品名称'
      DisplayWidth = 18
      FieldName = 'ProdName'
      Size = 18
    end
    object Table1FigID: TStringField
      DisplayLabel = '图  号'
      DisplayWidth = 19
      FieldName = 'FigID'
      Size = 25
    end
    object Table1DrawWeight: TFloatField
      Alignment = taLeftJustify
      DisplayLabel = '领料/克'
      DisplayWidth = 10
      FieldName = 'DrawWeight'
    end
    object Table1MaterWeight: TFloatField
      Alignment = taLeftJustify
      DisplayLabel = '料重/克'
      DisplayWidth = 9
      FieldName = 'MaterWeight'
    end
    object Table1QcNum: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = '合格品/只'
      DisplayWidth = 9
      FieldName = 'QcNum'
    end
    object Table1LackNum: TSmallintField
      Alignment = taLeftJustify
      DisplayLabel = '缺料/只'
      DisplayWidth = 8
      FieldName = 'LackNum'
    end
    object Table1ImpuNum: TSmallintField
      Alignment = taLeftJustify
      DisplayLabel = '杂质/只'
      DisplayWidth = 8
      FieldName = 'ImpuNum'
    end
    object Table1PoleNum: TSmallintField
      Alignment = taLeftJustify
      DisplayLabel = '气泡/只'
      DisplayWidth = 8
      FieldName = 'PoleNum'
    end
    object Table1RipNum: TSmallintField
      Alignment = taLeftJustify
      DisplayLabel = '撕裂/只'
      DisplayWidth = 9
      FieldName = 'RipNum'
    end
    object Table1ElseNum: TSmallintField
      Alignment = taLeftJustify
      DisplayLabel = '其它/只'
      DisplayWidth = 8
      FieldName = 'ElseNum'
    end
    object Table1SubSalary: TFloatField
      Alignment = taLeftJustify
      DisplayLabel = '补贴/元'
      DisplayWidth = 8
      FieldName = 'SubSalary'
    end
    object Table1DisSalary: TFloatField
      Alignment = taLeftJustify
      DisplayLabel = '扣款/元'
      DisplayWidth = 8
      FieldName = 'DisSalary'
    end
    object Table1RubbCardID: TStringField
      DisplayWidth = 15
      FieldName = '生产批号'
      Size = 15
    end
    object Table1SourceID: TStringField
      DisplayLabel = '货源号'
      DisplayWidth = 15
      FieldName = 'SourceID'
      Size = 15
    end
    object Table1Check: TStringField
      DisplayLabel = '检验员'
      DisplayWidth = 8
      FieldName = 'Check'
      Size = 8
    end
    object Table1RubbMixID: TStringField
      DisplayLabel = '备注'
      DisplayWidth = 12
      FieldName = 'RubbMixID'
      Size = 8
    end
    object Table1Moshu: TSmallintField
      FieldName = 'Moshu'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 88
    Top = 368
  end
  object Qry_exe: TQuery
    DatabaseName = 'JL2000'
    Left = 80
    Top = 312
  end
end