📄 form3.frm
字号:
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "单位 ：kg"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 0
Left = 5925
TabIndex = 15
Top = 360
Width = 1365
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "Label15"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Index = 0
Left = 2550
TabIndex = 14
Top = 2160
Width = 975
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "Label16"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 252
Index = 0
Left = 1800
TabIndex = 13
Top = 840
Width = 972
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "Label17"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 0
Left = 4275
TabIndex = 12
Top = 2160
Width = 1095
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Caption = "Label18"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Index = 0
Left = 8475
TabIndex = 11
Top = 2160
Width = 975
End
Begin VB.Label Label19
BackStyle = 0 'Transparent
Caption = "Label19"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Index = 0
Left = 5925
TabIndex = 10
Top = 2160
Width = 975
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Caption = "Label20"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Index = 0
Left = 7200
TabIndex = 9
Top = 2160
Width = 1095
End
Begin VB.Label Label21
BackStyle = 0 'Transparent
Caption = "Label21"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 252
Index = 0
Left = 480
TabIndex = 8
Top = 2160
Width = 1728
End
Begin VB.Label Label22
BackStyle = 0 'Transparent
Caption = "Label22"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 252
Index = 0
Left = 1800
TabIndex = 7
Top = 2640
Width = 2412
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = "Label23"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Index = 0
Left = 4680
TabIndex = 6
Top = 3120
Width = 1095
End
Begin VB.Label Label24
BackStyle = 0 'Transparent
Caption = "Label24"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Index = 0
Left = 7245
TabIndex = 5
Top = 3120
Width = 1215
End
Begin VB.Label Label25
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label25"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Index = 0
Left = 1560
TabIndex = 4
Top = 3120
Width = 840
End
Begin VB.Label Label26
BackStyle = 0 'Transparent
Caption = "No.:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 1
Left = 7350
TabIndex = 3
Top = 360
Width = 735
End
Begin VB.Label Label29
BackStyle = 0 'Transparent
Caption = "检斤时间:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Index = 1
Left = 3075
TabIndex = 2
Top = 840
Width = 1215
End
Begin VB.Label Label30
BackStyle = 0 'Transparent
Caption = "Label30"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 372
Index = 1
Left = 4680
TabIndex = 1
Top = 840
Width = 4080
End
Begin VB.Label Label31
BackStyle = 0 'Transparent
Caption = "Label31"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 1
Left = 8325
TabIndex = 0
Top = 360
Width = 735
End
Begin VB.Shape Shape2
BackColor = &H0000FF00&
BorderColor = &H00FF0000&
BorderWidth = 2
FillColor = &H000000FF&
Height = 2292
Index = 0
Left = 360
Top = 720
Width = 9072
End
Begin VB.Line Line9
BorderColor = &H00FF0000&
Index = 0
X1 = 360.035
X2 = 9357.922
Y1 = 2006.716
Y2 = 2006.716
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
'On Error Resume Next
mainfrm.Text3.Text = jl_lsh + 1
Call Command2_Click
Call oprin
mainfrm.Picture1.Visible = True
Unload Form3
End Sub
Private Sub Command2_Click()
On Error Resume Next
'mainfrm.data6.RecordSource = "select * from jlk"
'mainfrm.data6.Refresh
' 如果煤种名不包含“煤”字则不更新合同库，否则更新合同库
'如果是二次计量，则更新数据库，否则则向数据库中进行添加
If jl_ye = False Then
mainfrm.data6.Refresh
mainfrm.data6.Recordset.AddNew
mainfrm.data6.Recordset.Fields("hth") = jl_hth
mainfrm.data6.Recordset.Fields("ch") = jl_ch
mainfrm.data6.Recordset.Fields("mz") = jl_mz
mainfrm.data6.Recordset.Fields("pz") = jl_pz
mainfrm.data6.Recordset.Fields("jz") = jl_jz
mainfrm.data6.Recordset.Fields("hwm") = jl_hwm
mainfrm.data6.Recordset.Fields("fhr") = jl_fhr
mainfrm.data6.Recordset.Fields("shr") = jl_shr
mainfrm.data6.Recordset.Fields("sby") = jl_sby
mainfrm.data6.Recordset.Fields("jby") = jl_jby
mainfrm.data6.Recordset.Fields("zg") = jl_zg
mainfrm.data6.Recordset.Fields("sj") = jl_sj
mainfrm.data6.Recordset.Fields("dhdd") = jl_dhdd
mainfrm.data6.Recordset.Fields("slh") = jl_lsh
mainfrm.data6.Recordset.UpdateBatch adAffectAllChapters
'mainfrm.data6.Recordset.Bookmark = mainfrm.data6.Recordset.LastModified
If InStr(jl_hwm, "煤") > 0 Then
mainfrm.data4.RecordSource = "select * from htk where hth='" & jl_hth & "'"
mainfrm.data4.Refresh
mainfrm.data4.Recordset.Fields("yfl") = mainfrm.data4.Recordset.Fields("yfl") + jl_jz
mainfrm.data4.Recordset.Fields("wfl") = mainfrm.data4.Recordset.Fields("wfl") - jl_jz
mainfrm.data4.Recordset.UpdateBatch adAffectAllChapters
mainfrm.data4.Refresh
End If
Else
mainfrm.data6.Recordset.Fields("hth") = jl_hth
mainfrm.data6.Recordset.Fields("ch") = jl_ch
mainfrm.data6.Recordset.Fields("mz") = jl_mz
mainfrm.data6.Recordset.Fields("pz") = jl_pz
mainfrm.data6.Recordset.Fields("jz") = jl_jz
mainfrm.data6.Recordset.Fields("hwm") = jl_hwm
mainfrm.data6.Recordset.Fields("fhr") = jl_fhr
mainfrm.data6.Recordset.Fields("shr") = jl_shr
mainfrm.data6.Recordset.Fields("sby") = jl_sby
mainfrm.data6.Recordset.Fields("jby") = jl_jby
mainfrm.data6.Recordset.Fields("zg") = jl_zg
mainfrm.data6.Recordset.Fields("sj") = jl_sj
mainfrm.data6.Recordset.Fields("dhdd") = jl_dhdd
mainfrm.data6.Recordset.Fields("slh") = jl_lsh
mainfrm.data6.Recordset.UpdateBatch adAffectAllChapters
'mainfrm.data6.Recordset.Bookmark = mainfrm.data6.Recordset.LastModified
End If
mainfrm.Picture1.Visible = True
Unload Form3
'Call oprin
End Sub
Private Sub Command3_Click()
Call oprin
'Form1.Show
mainfrm.Picture1.Visible = True
Unload Form3
End Sub
Private Sub Command4_Click()
mainfrm.Picture1.Visible = True
Unload Me
End Sub
Private Sub Form_Load()
On Error Resume Next
'jl_no = jl_no + 1
Label1(0).Caption = jl_qym & "过磅单"
i = 0
Label15(i).Caption = jl_ch
Label17(i).Caption = jl_hwm
Label18(i).Caption = jl_jz
Label19(i).Caption = jl_mz
Label20(i).Caption = jl_pz
Label21(i).Caption = jl_fhr
Label22(i).Caption = jl_dhdd
Label23(i).Caption = jl_sby
Label24(i).Caption = jl_shr
Label25(i).Caption = jl_zg
Label30(1).Caption = Format(Now, "yyyy年mm月dd日hh时mm分")
Label31(1).Caption = jl_lsh
Label16(i).Caption = jl_hth
Label33(i).Caption = jl_bz
'Next i
End Sub
Private Sub Form_Unload(Cancel As Integer)
'mainfrm.Visible = True
'jl_ch = ""
'jl_pz1 = 0
'jl_pz = 0
'jl_zg = 0
'jl_mz = 0
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -