📄 frmbar.frm
字号:
Begin VB.ComboBox cmbLl1
Height = 300
Left = 240
TabIndex = 32
Top = 3120
Width = 1455
End
Begin VB.ComboBox cmbMl4
Height = 300
Left = 3000
TabIndex = 28
Top = 2400
Width = 1455
End
Begin VB.TextBox txtCf3
Height = 270
Left = 1800
TabIndex = 26
Top = 2400
Width = 855
End
Begin VB.ComboBox cmbMl3
Height = 300
Left = 240
TabIndex = 24
Top = 2400
Width = 1455
End
Begin VB.ComboBox cmbMl2
Height = 300
Left = 3000
TabIndex = 20
Top = 1800
Width = 1455
End
Begin VB.TextBox txtCf1
Height = 270
Left = 1800
TabIndex = 18
Top = 1800
Width = 855
End
Begin VB.ComboBox cmbMl1
Height = 300
Left = 240
TabIndex = 16
Top = 1800
Width = 1455
End
Begin VB.TextBox txtTypeName
Height = 270
Left = 2400
TabIndex = 14
Top = 1200
Width = 3015
End
Begin VB.TextBox txtTypeID
Height = 270
Left = 240
TabIndex = 13
Top = 1200
Width = 2055
End
Begin VB.TextBox txtPrice
Alignment = 1 'Right Justify
Height = 270
Left = 4080
TabIndex = 10
Top = 600
Width = 1335
End
Begin VB.TextBox txtPrintQty
Alignment = 1 'Right Justify
Height = 270
Left = 3000
TabIndex = 9
Top = 600
Width = 975
End
Begin VB.TextBox txtSize
Height = 270
Left = 2400
TabIndex = 8
Top = 600
Width = 495
End
Begin VB.TextBox txtColor
Height = 270
Left = 1800
TabIndex = 7
Top = 600
Width = 495
End
Begin VB.TextBox txtStyle
Height = 270
Left = 240
TabIndex = 6
Top = 600
Width = 1455
End
Begin VB.Label Label23
Caption = "检验员："
Height = 255
Left = 240
TabIndex = 46
Top = 5040
Width = 855
End
Begin VB.Label Label22
Caption = "质量等级："
Height = 255
Left = 240
TabIndex = 43
Top = 4320
Width = 1215
End
Begin VB.Label Label21
Caption = "规格："
Height = 255
Left = 1920
TabIndex = 41
Top = 3600
Width = 735
End
Begin VB.Label Label20
Caption = "执行标准："
Height = 255
Left = 240
TabIndex = 39
Top = 3600
Width = 975
End
Begin VB.Label Label19
Caption = "成分："
Height = 255
Left = 4560
TabIndex = 37
Top = 2880
Width = 615
End
Begin VB.Label Label18
Caption = "里料2："
Height = 255
Left = 3000
TabIndex = 35
Top = 2880
Width = 855
End
Begin VB.Label Label17
Caption = "成分："
Height = 255
Left = 1800
TabIndex = 33
Top = 2880
Width = 615
End
Begin VB.Label Label16
Caption = "里料1："
Height = 255
Left = 240
TabIndex = 31
Top = 2880
Width = 855
End
Begin VB.Label Label15
Caption = "成分："
Height = 255
Left = 4560
TabIndex = 29
Top = 2160
Width = 615
End
Begin VB.Label Label14
Caption = "面料4："
Height = 255
Left = 3000
TabIndex = 27
Top = 2160
Width = 855
End
Begin VB.Label Label13
Caption = "成分："
Height = 255
Left = 1800
TabIndex = 25
Top = 2160
Width = 615
End
Begin VB.Label Label12
Caption = "面料3："
Height = 255
Left = 240
TabIndex = 23
Top = 2160
Width = 855
End
Begin VB.Label Label11
Caption = "成分："
Height = 255
Left = 4560
TabIndex = 21
Top = 1560
Width = 615
End
Begin VB.Label Label10
Caption = "面料2："
Height = 255
Left = 3000
TabIndex = 19
Top = 1560
Width = 855
End
Begin VB.Label Label9
Caption = "成分："
Height = 255
Left = 1800
TabIndex = 17
Top = 1560
Width = 615
End
Begin VB.Label Label8
Caption = "面料1："
Height = 255
Left = 240
TabIndex = 15
Top = 1560
Width = 855
End
Begin VB.Label Label7
Caption = "名称："
Height = 255
Left = 2400
TabIndex = 12
Top = 960
Width = 615
End
Begin VB.Label Label6
Caption = "代码："
Height = 255
Left = 240
TabIndex = 11
Top = 960
Width = 735
End
Begin VB.Label Label5
Caption = "单价："
Height = 255
Left = 4200
TabIndex = 5
Top = 360
Width = 615
End
Begin VB.Label Label4
Caption = "打印数量："
Height = 255
Left = 3000
TabIndex = 4
Top = 360
Width = 975
End
Begin VB.Label Label3
Caption = "尺寸："
Height = 255
Left = 2400
TabIndex = 3
Top = 360
Width = 735
End
Begin VB.Label Label2
Caption = "色号："
Height = 255
Left = 1800
TabIndex = 2
Top = 360
Width = 615
End
Begin VB.Label Label1
Caption = "款号："
Height = 255
Left = 240
TabIndex = 1
Top = 360
Width = 855
End
End
Begin VB.Menu mnuAbout
Caption = "关于"
Begin VB.Menu mnuHelpAbout
Caption = "关于程序(&A)..."
End
End
End
Attribute VB_Name = "frmBar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Public m_strStyle As String
Private Sub cmbGrade_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtChecker.SetFocus
End If
End Sub
Private Sub cmbLl1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtLlCf1.SetFocus
End If
End Sub
Private Sub cmbLl2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtLlCf2.SetFocus
End If
End Sub
Private Sub cmbMl1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtCf1.SetFocus
End If
End Sub
Private Sub cmbMl2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtCf2.SetFocus
End If
End Sub
Private Sub cmbMl3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtCf3.SetFocus
End If
End Sub
Private Sub cmbMl4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtCf4.SetFocus
End If
End Sub
Private Sub cmbStandard_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtSpec.SetFocus
End If
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdClear_Click()
txtStyle.Text = ""
txtColor.Text = ""
txtSize.Text = ""
txtPrintQty.Text = ""
txtPrice.Text = ""
txtTypeID.Text = ""
txtTypeName.Text = ""
cmbMl1.Text = ""
cmbMl2.Text = ""
cmbMl3.Text = ""
cmbMl4.Text = ""
txtCf1.Text = ""
txtCf2.Text = ""
txtCf3.Text = ""
txtCf4.Text = ""
cmbLl1.Text = ""
cmbLl2.Text = ""
txtLlCf1.Text = ""
txtLlCf2.Text = ""
cmbStandard.ListIndex = -1
txtSpec.Text = ""
cmbGrade.ListIndex = -1
txtChecker.Text = "01"
End Sub
Private Sub cmdPrint_Click()
'Combo1.AddItem "0 - UPC-A"
'Combo1.AddItem "1 - UPC-E"
'Combo1.AddItem "2 - EAN-13"
'Combo1.AddItem "3 - EAN-8"
'Combo1.AddItem "4 - CASE CODE"
'Combo1.AddItem "5 - CODABARE"
'Combo1.AddItem "6 - CODE-39"
'Combo1.AddItem "7 - CODE-128"
'Combo1.AddItem "8 - U.S.POSTNET"
'Combo1.AddItem "9 - U.S.POSTAL FIM"
'Combo1.AddItem "10 - JP POST"
Dim intCopies As Integer
On Error GoTo errHandle
If txtPrintQty.Text = "" Then
MsgBox "打印数量未填"
Exit Sub
End If
If txtPrice.Text = "" Then
MsgBox "单价未填"
Exit Sub
End If
If txtSpec.Text = "" Then
MsgBox "规格未填"
Exit Sub
End If
If txtChecker.Text = "" Then
MsgBox "检验员未填"
Exit Sub
End If
If cmbMl1.Text = "" Then
MsgBox "面料未填"
Exit Sub
End If
If txtCf1.Text = "" Then
MsgBox "面料成分未填"
Exit Sub
End If
If cmbStandard.Text = "" Then
MsgBox "执行标准未填"
Exit Sub
End If
If cmbGrade.Text = "" Then
MsgBox "质量等级未填"
Exit Sub
End If
intCopies = txtPrintQty.Text
m_strStyle = txtTypeID.Text & txtColor.Text & txtSize.Text
'frmPrintBar.Show
Printer.Copies = intCopies '打印份数
frmPrintBar.PrintForm
Exit Sub
errHandle:
MsgBox Err.Description
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -