📄 frmbasiclabel.frm

📁 企业ERP系统采用VB+SQL2000实现。有客户合约
💻 FRM
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
      Width           =   615
   End
   Begin VB.Label Label21 
      Caption         =   "Label1"
      Height          =   255
      Left            =   7740
      TabIndex        =   149
      Top             =   120
      Width           =   615
   End
End
Attribute VB_Name = "frmBasicLabel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub CmdExit_Click()
    Unload Me
End Sub

Private Sub cmdOk_Click()
    Dim rs As New ADODB.Recordset
    If ComboCode1.Text <> "" Then
        rs.Open "select * from tBasicProduct where FabricCode='" & ComboCode1 & "'", Cn, 1, 3
        If Not rs.EOF Then
            Code1 = NullValue(rs.Fields!FabricCode)
            Composition1 = NullValue(rs.Fields!Composition)
            CompositionType1 = NullValue(rs.Fields!CompositionType)
            Wales1 = NullValue(rs.Fields!Wales)
            Harness1 = NullValue(rs.Fields!Harness)
            YarnType1 = NullValue(rs.Fields!YarnType)
            Construction1 = NullValue(rs.Fields!Construstion)
            YarnCount1 = NullValue(rs.Fields!YarnCount)
            tWidth1 = NullValue(rs.Fields!Width)
            Actualweight1 = NullValue(rs.Fields!Actualweight)
            Finish1 = NullValue(rs.Fields!Finish)
            UpDate1 = NullValue(rs.Fields!UpdateDate)
        End If
        rs.Close
    End If
    If ComboCode2.Text <> "" Then
        rs.Open "select * from tBasicProduct where FabricCode='" & ComboCode2 & "'", Cn, 1, 3
        If Not rs.EOF Then
            Code2 = NullValue(rs.Fields!FabricCode)
            Composition2 = NullValue(rs.Fields!Composition)
            CompositionType2 = NullValue(rs.Fields!CompositionType)
            Wales2 = NullValue(rs.Fields!Wales)
            Harness2 = NullValue(rs.Fields!Harness)
            YarnType2 = NullValue(rs.Fields!YarnType)
            Construction2 = NullValue(rs.Fields!Construstion)
            YarnCount2 = NullValue(rs.Fields!YarnCount)
            tWidth2 = NullValue(rs.Fields!Width)
            Actualweight2 = NullValue(rs.Fields!Actualweight)
            Finish2 = NullValue(rs.Fields!Finish)
            UpDate2 = NullValue(rs.Fields!UpdateDate)
        End If
        rs.Close
    End If
    If ComboCode3.Text <> "" Then
        rs.Open "select * from tBasicProduct where FabricCode='" & ComboCode3 & "'", Cn, 1, 3
        If Not rs.EOF Then
            Code3 = NullValue(rs.Fields!FabricCode)
            Composition3 = NullValue(rs.Fields!Composition)
            CompositionType3 = NullValue(rs.Fields!CompositionType)
            Wales3 = NullValue(rs.Fields!Wales)
            Harness3 = NullValue(rs.Fields!Harness)
            YarnType3 = NullValue(rs.Fields!YarnType)
            Construction3 = NullValue(rs.Fields!Construstion)
            YarnCount3 = NullValue(rs.Fields!YarnCount)
            tWidth3 = NullValue(rs.Fields!Width)
            Actualweight3 = NullValue(rs.Fields!Actualweight)
            Finish3 = NullValue(rs.Fields!Finish)
            UpDate3 = NullValue(rs.Fields!UpdateDate)
        End If
        rs.Close
    End If
    If ComboCode4.Text <> "" Then
        rs.Open "select * from tBasicProduct where FabricCode='" & ComboCode4 & "'", Cn, 1, 3
        If Not rs.EOF Then
            Code4 = NullValue(rs.Fields!FabricCode)
            Composition4 = NullValue(rs.Fields!Composition)
            CompositionType4 = NullValue(rs.Fields!CompositionType)
            Wales4 = NullValue(rs.Fields!Wales)
            Harness4 = NullValue(rs.Fields!Harness)
            YarnType4 = NullValue(rs.Fields!YarnType)
            Construction4 = NullValue(rs.Fields!Construstion)
            YarnCount4 = NullValue(rs.Fields!YarnCount)
            tWidth4 = NullValue(rs.Fields!Width)
            Actualweight4 = NullValue(rs.Fields!Actualweight)
            Finish4 = NullValue(rs.Fields!Finish)
            UpDate4 = NullValue(rs.Fields!UpdateDate)
        End If
        rs.Close
    End If
    If ComboCode5.Text <> "" Then
        rs.Open "select * from tBasicProduct where FabricCode='" & ComboCode5 & "'", Cn, 1, 3
        If Not rs.EOF Then
            Code5 = NullValue(rs.Fields!FabricCode)
            Composition5 = NullValue(rs.Fields!Composition)
            CompositionType5 = NullValue(rs.Fields!CompositionType)
            Wales5 = NullValue(rs.Fields!Wales)
            Harness5 = NullValue(rs.Fields!Harness)
            YarnType5 = NullValue(rs.Fields!YarnType)
            Construction5 = NullValue(rs.Fields!Construstion)
            YarnCount5 = NullValue(rs.Fields!YarnCount)
            tWidth5 = NullValue(rs.Fields!Width)
            Actualweight5 = NullValue(rs.Fields!Actualweight)
            Finish5 = NullValue(rs.Fields!Finish)
            UpDate5 = NullValue(rs.Fields!UpdateDate)
        End If
        rs.Close
    End If
    If ComboCode6.Text <> "" Then
        rs.Open "select * from tBasicProduct where FabricCode='" & ComboCode6 & "'", Cn, 1, 3
        If Not rs.EOF Then
            Code6 = NullValue(rs.Fields!FabricCode)
            Composition6 = NullValue(rs.Fields!Composition)
            CompositionType6 = NullValue(rs.Fields!CompositionType)
            Wales6 = NullValue(rs.Fields!Wales)
            Harness6 = NullValue(rs.Fields!Harness)
            YarnType6 = NullValue(rs.Fields!YarnType)
            Construction6 = NullValue(rs.Fields!Construstion)
            YarnCount6 = NullValue(rs.Fields!YarnCount)
            tWidth6 = NullValue(rs.Fields!Width)
            Actualweight6 = NullValue(rs.Fields!Actualweight)
            Finish6 = NullValue(rs.Fields!Finish)
            UpDate6 = NullValue(rs.Fields!UpdateDate)
        End If
        rs.Close
    End If
    If ComboCode7.Text <> "" Then
        rs.Open "select * from tBasicProduct where FabricCode='" & ComboCode7 & "'", Cn, 1, 3
        If Not rs.EOF Then
            Code7 = NullValue(rs.Fields!FabricCode)
            Composition7 = NullValue(rs.Fields!Composition)
            CompositionType7 = NullValue(rs.Fields!CompositionType)
            Wales7 = NullValue(rs.Fields!Wales)
            Harness7 = NullValue(rs.Fields!Harness)
            YarnType7 = NullValue(rs.Fields!YarnType)
            Construction7 = NullValue(rs.Fields!Construstion)
            YarnCount7 = NullValue(rs.Fields!YarnCount)
            tWidth7 = NullValue(rs.Fields!Width)
            Actualweight7 = NullValue(rs.Fields!Actualweight)
            Finish7 = NullValue(rs.Fields!Finish)
            UpDate7 = NullValue(rs.Fields!UpdateDate)
        End If
        rs.Close
    End If
    If ComboCode8.Text <> "" Then
        rs.Open "select * from tBasicProduct where FabricCode='" & ComboCode8 & "'", Cn, 1, 3
        If Not rs.EOF Then
            Code8 = NullValue(rs.Fields!FabricCode)
            Composition8 = NullValue(rs.Fields!Composition)
            CompositionType8 = NullValue(rs.Fields!CompositionType)
            Wales8 = NullValue(rs.Fields!Wales)
            Harness8 = NullValue(rs.Fields!Harness)
            YarnType8 = NullValue(rs.Fields!YarnType)
            Construction8 = NullValue(rs.Fields!Construstion)
            YarnCount8 = NullValue(rs.Fields!YarnCount)
            tWidth8 = NullValue(rs.Fields!Width)
            Actualweight8 = NullValue(rs.Fields!Actualweight)
            Finish8 = NullValue(rs.Fields!Finish)
            UpDate8 = NullValue(rs.Fields!UpdateDate)
        End If
        rs.Close
    End If
    Set rs = Nothing
End Sub

Private Sub CmdPrint_Click()
   With BillReportLabel
   .Title1.SetText "QUALITY FOR APPROVAL"
   .Title2.SetText "QUALITY FOR APPROVAL"
   .Title3.SetText "QUALITY FOR APPROVAL"
   .Title4.SetText "QUALITY FOR APPROVAL"
   .Title5.SetText "QUALITY FOR APPROVAL"
   .Title6.SetText "QUALITY FOR APPROVAL"
   .Title7.SetText "QUALITY FOR APPROVAL"
   .Title8.SetText "QUALITY FOR APPROVAL"
   .Code1.SetText Code1
   .Code2.SetText Code2
   .Code3.SetText Code3
   .Code4.SetText Code4
   .Code5.SetText Code5
   .Code6.SetText Code6
   .Code7.SetText Code7
   .Code8.SetText Code8
   .Composition1.SetText Composition1
   .Composition2.SetText Composition2
   .Composition3.SetText Composition3
   .Composition4.SetText Composition4
   .Composition5.SetText Composition5
   .Composition6.SetText Composition6
   .Composition7.SetText Composition7
   .Composition8.SetText Composition8
   .CompositionType1.SetText CompositionType1
   .CompositionType2.SetText CompositionType2
   .CompositionType3.SetText CompositionType3
   .CompositionType4.SetText CompositionType4
   .CompositionType5.SetText CompositionType5
   .CompositionType6.SetText CompositionType6
   .CompositionType7.SetText CompositionType7
   .CompositionType8.SetText CompositionType8
   .Wales1.SetText Wales1
   .Wales2.SetText Wales2
   .Wales3.SetText Wales3
   .Wales4.SetText Wales4
   .Wales5.SetText Wales5
   .Wales6.SetText Wales6
   .Wales7.SetText Wales7
   .Wales8.SetText Wales8
   .Harness1.SetText Harness1
   .Harness2.SetText Harness2
   .Harness3.SetText Harness3
   .Harness4.SetText Harness4
   .Harness5.SetText Harness5
   .Harness6.SetText Harness6
   .Harness7.SetText Harness7
   .Harness8.SetText Harness8
   .YarnType1.SetText YarnType1
   .YarnType2.SetText YarnType2
   .YarnType3.SetText YarnType3
   .YarnType4.SetText YarnType4
   .YarnType5.SetText YarnType5
   .YarnType6.SetText YarnType6
   .YarnType7.SetText YarnType7
   .YarnType8.SetText YarnType8
   .Construction1.SetText Construction1
   .Construction2.SetText Construction2
   .Construction3.SetText Construction3
   .Construction4.SetText Construction4
   .Construction5.SetText Construction5
   .Construction6.SetText Construction6
   .Construction7.SetText Construction7
   .Construction8.SetText Construction8
   .YarnCount1.SetText YarnCount1
   .YarnCount2.SetText YarnCount2
   .YarnCount3.SetText YarnCount3
   .YarnCount4.SetText YarnCount4
   .YarnCount5.SetText YarnCount5
   .YarnCount6.SetText YarnCount6
   .YarnCount7.SetText YarnCount7
   .YarnCount8.SetText YarnCount8
   .Process1.SetText Process1
   .Process2.SetText Process2
   .Process3.SetText Process3
   .Process4.SetText Process4
   .Process5.SetText Process5
   .Process6.SetText Process6
   .Process7.SetText Process7
   .Process7.SetText Process8
   .tWidth1.SetText tWidth1
   .tWidth2.SetText tWidth2
   .tWidth3.SetText tWidth3
   .tWidth4.SetText tWidth4
   .tWidth5.SetText tWidth5
   .tWidth6.SetText tWidth6
   .tWidth7.SetText tWidth7
   .tWidth8.SetText tWidth8
   .Actualweight1.SetText Actualweight1
   .Actualweight2.SetText Actualweight2
   .Actualweight3.SetText Actualweight3
   .Actualweight4.SetText Actualweight4
   .Actualweight5.SetText Actualweight5
   .Actualweight6.SetText Actualweight6
   .Actualweight7.SetText Actualweight7
   .Actualweight8.SetText Actualweight8
   .Finish1.SetText Finish1
   .Finish2.SetText Finish2
   .Finish3.SetText Finish3
   .Finish4.SetText Finish4
   .Finish5.SetText Finish5
   .Finish6.SetText Finish6
   .Finish7.SetText Finish7
   .Finish8.SetText Finish8
   .UpDate1.SetText UpDate1
   .UpDate2.SetText UpDate2
   .UpDate3.SetText UpDate3
   .UpDate4.SetText UpDate4
   .UpDate5.SetText UpDate5
   .UpDate6.SetText UpDate6
   .UpDate7.SetText UpDate7
   .UpDate8.SetText UpDate8
   End With
   frmReportBasicLabel.Show
End Sub

Private Sub Form_Load()
    FormInit Me, True
    SetObjectWH Frame1
    Initcbb ComboCode1, "FabricCode", "tBasicProduct"
    Initcbb ComboCode2, "FabricCode", "tBasicProduct"
    Initcbb ComboCode3, "FabricCode", "tBasicProduct"
    Initcbb ComboCode4, "FabricCode", "tBasicProduct"
    Initcbb ComboCode5, "FabricCode", "tBasicProduct"
    Initcbb ComboCode6, "FabricCode", "tBasicProduct"
    Initcbb ComboCode7, "FabricCode", "tBasicProduct"
    Initcbb ComboCode8, "FabricCode", "tBasicProduct"
    Initcbb CompositionType1, "eCompositionType", "tBasicCompositionType"
    Initcbb CompositionType2, "eCompositionType", "tBasicCompositionType"
    Initcbb CompositionType3, "eCompositionType", "tBasicCompositionType"
    Initcbb CompositionType4, "eCompositionType", "tBasicCompositionType"
    Initcbb CompositionType5, "eCompositionType", "tBasicCompositionType"
    Initcbb CompositionType6, "eCompositionType", "tBasicCompositionType"
    Initcbb CompositionType7, "eCompositionType", "tBasicCompositionType"
    Initcbb CompositionType8, "eCompositionType", "tBasicCompositionType"
    Initcbb YarnType1, "eYarnType", "tBasicYarnType"
    Initcbb YarnType2, "eYarnType", "tBasicYarnType"
    Initcbb YarnType3, "eYarnType", "tBasicYarnType"
    Initcbb YarnType4, "eYarnType", "tBasicYarnType"
    Initcbb YarnType5, "eYarnType", "tBasicYarnType"
    Initcbb YarnType6, "eYarnType", "tBasicYarnType"
    Initcbb YarnType7, "eYarnType", "tBasicYarnType"
    Initcbb YarnType8, "eYarnType", "tBasicYarnType"
    Initcbb Process1, "eProcess", "tBasicProcess"
    Initcbb Process2, "eProcess", "tBasicProcess"
    Initcbb Process3, "eProcess", "tBasicProcess"
    Initcbb Process4, "eProcess", "tBasicProcess"
    Initcbb Process5, "eProcess", "tBasicProcess"
    Initcbb Process6, "eProcess", "tBasicProcess"
    Initcbb Process7, "eProcess", "tBasicProcess"
    Initcbb Process8, "eProcess", "tBasicProcess"
End Sub

Private Sub VScroll1_Change()
Picture1.Top = 180 - VScroll1.Value
End Sub
上一页 1 2 3 45
⌨️ 快捷键说明

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