📄 form3.frm
字号:
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 = 6120
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 = 255
Index = 1
Left = 7560
TabIndex = 1
Top = 840
Width = 1800
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 = "dyyl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
'##################################################################
'## 过程名称：Command1_Click
'## 参数： 无
'##################################################################
Private Sub Command1_Click()
On Error Resume Next
mainfrm.Text3.Text = jl_lsh
Call oprin
Call Command2_Click
mainfrm.Picture1.Visible = True
jl_jz = 0
jl_pz = 0
jl_mz = 0
'‘Unload dyyl
End Sub
'##################################################################
'## 过程名称：Command2_Click
'## 参数： 无
'##################################################################
Private Sub Command2_Click()
On Error Resume Next
mainfrm.data6.RecordSource = "select * from jlktem where sj >'" & Format(Now - 30, "yyyy-mm-dd") & "'"
mainfrm.data6.refresh
' 如果煤种名不包含“煤”字则不更新合同库，否则更新合同库
'如果是二次计量，则更新数据库，否则则向数据库中进行添加
If jl_ye = False Then
'cn.Execute "INSERT INTO " & jl_sqlstr & " (hth,ch, mz, pz,jz,hwm,fhr,shr,sby,jby,zg,sj,dhdd,slh,zfjl) VALUES (jl_hth, jl_ch, jl_mz, jl_pz,jl_jz,jl_hwm,jl_fhr,jl_shr,jl_sby,jl_jby,jl_zg,jl_sj,jl_dhdd,jl_slh,jl_zfjl)"
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_dhddk
mainfrm.data6.Recordset.Fields("slh") = jl_lsh
mainfrm.data6.Recordset.Fields("zflj") = 0
mainfrm.data6.Recordset.UpdateBatch adAffectAllChapters
'调整合同库
mainfrm.data4.RecordSource = "select * from htk where hth='" & jl_hth & "'"
mainfrm.data4.refresh
If IsNull(mainfrm.data4.Recordset.Fields("htl")) = False Then
mainfrm.data4.Recordset.Fields("yfl") = mainfrm.data4.Recordset.Fields("yfl") + jl_jz
mainfrm.data4.Recordset.Fields("wfl") = mainfrm.data4.Recordset.Fields("htl") - mainfrm.data4.Recordset.Fields("yfl")
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_dhddk
mainfrm.data6.Recordset.Fields("lsh") = jl_lsh
mainfrm.data6.Recordset.UpdateBatch adAffectAllChapters
'mainfrm.data6.Recordset.Bookmark = mainfrm.data6.Recordset.LastModified
End If
'从车皮库除掉已用皮重记录
mainfrm.Adodc5.RecordSource = "select * from chk where ch='" & jl_ch & "'"
mainfrm.Adodc5.refresh
mainfrm.Adodc5.Recordset.delete
mainfrm.Picture1.Visible = True
mainfrm.Adodc5.refresh
mainfrm.Adodc5.Recordset.MoveLast
mainfrm.Adodc5.Recordset.Close
mainfrm.Adodc7.RecordSource = "select jl_fahuohao as 发货号,jl_fapiaohao as 合同号,jl_jinrifan as 今日发运量 from fyjh where jl_fapiaohao ='" & jl_hth & "'"
mainfrm.Adodc7.refresh
mainfrm.Adodc7.Recordset.Fields(2) = mainfrm.Adodc7.Recordset.Fields(2) + jk_jz
mainfrm.Adodc7.Recordset.UpdateBatch adAffectAllChapters
mainfrm.Adodc7.RecordSource = "select jl_fahuohao as 发货号,jl_fapiaohao as 合同号,jl_jinrifan as 今日发运量 from fyjh where jl_fayunshijian like '%" & Format(Now, "yyyy-mm-dd") & "%'"
mainfrm.Adodc7.refresh
cn.Execute "update fyjh set jl_jinrifan=jl_jinrifan+" & jl_jz & " where jl_fapiaohao='" & jl_hth & "'"
'dyyl.Hide
'Call oprin
End Sub
'##################################################################
'## 过程名称：Command3_Click
'## 参数： 无
'##################################################################
Private Sub Command3_Click()
Call oprin
'Form1.Show
mainfrm.Picture1.Visible = True
dyyl.Hide
End Sub
'##################################################################
'## 过程名称：Command4_Click
'## 参数： 无
'##################################################################
Private Sub Command4_Click()
mainfrm.Picture1.Visible = True
Unload Me
End Sub
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
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_dhddk
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
'##################################################################
'## 过程名称：Form_Unload
'## 参数：Cancel 为Integer型
'##################################################################
Private Sub Form_Unload(Cancel As Integer)
'mainfrm.Visible = True
jl_ch = ""
jl_pz1 = 0
jl_pz = 0
jl_zg = 0
mainfrm.Picture1.Visible = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -