📄 jlzf.frm
字号:
ForeColor = &H00404040&
Height = 345
Left = 240
TabIndex = 19
Top = 2160
Width = 1440
End
Begin VB.Label Label8
BackColor = &H00C0FFC0&
BorderStyle = 1 'Fixed Single
Caption = "负责人"
BeginProperty Font
Name = "宋体"
Size = 13.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 345
Left = 240
TabIndex = 18
Top = 2520
Width = 1440
End
Begin VB.Label Label9
BackColor = &H00C0FFC0&
BorderStyle = 1 'Fixed Single
Caption = "监磅员"
BeginProperty Font
Name = "宋体"
Size = 13.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 345
Left = 3540
TabIndex = 17
Top = 2160
Width = 1440
End
Begin VB.Label Label26
BackColor = &H00C0FFC0&
BorderStyle = 1 'Fixed Single
Caption = "到货地点"
BeginProperty Font
Name = "宋体"
Size = 13.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3540
TabIndex = 16
Top = 1800
Width = 1440
End
Begin VB.Label Label31
BackColor = &H00C0FFC0&
BorderStyle = 1 'Fixed Single
Caption = "检斤时间"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 350
Left = 240
TabIndex = 15
Top = 120
Width = 1440
End
Begin VB.Label Label32
BackColor = &H00C0FFC0&
BorderStyle = 1 'Fixed Single
DataField = "sj"
DataSource = "Adodc1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 350
Left = 1680
TabIndex = 14
Top = 120
Width = 2895
End
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 3000
TabIndex = 32
Top = 1440
Visible = 0 'False
Width = 2055
_ExtentX = 3625
_ExtentY = 661
_Version = 393216
Format = 30277632
CurrentDate = 37584
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 2160
Top = 4800
Visible = 0 'False
Width = 3135
_ExtentX = 5530
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 3
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Label Label30
BackColor = &H00FFFFC0&
BorderStyle = 1 'Fixed Single
Caption = "流水号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 348
Left = 1800
TabIndex = 36
Top = 1440
Width = 1212
End
Begin VB.Line Line1
BorderStyle = 4 'Dash-Dot
BorderWidth = 3
DrawMode = 5 'Not Copy Pen
X1 = 2280
X2 = 8520
Y1 = 1080
Y2 = 1080
End
Begin VB.Label Label14
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "发货打印票据作废标记单"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 2520
TabIndex = 34
Top = 600
Width = 5055
End
Begin VB.Label Label12
Caption = "检斤日期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1680
TabIndex = 33
Top = 1440
Visible = 0 'False
Width = 1215
End
End
End
Attribute VB_Name = "jlzf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mma As String
Dim adoPrimaryRS As ADODB.Recordset
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Dim db As ADODB.Connection
Private Sub clos_Click()
Command4_Click
End Sub
'##################################################################
'## 过程名称：Command1_Click
'## 参数： 无
'##################################################################
Private Sub Command1_Click()
On Error Resume Next
If Adodc1.Recordset.BOF = True Then
Adodc1.Recordset.MoveFirst
End If
Adodc1.Recordset.MovePrevious
Call loaddata
End Sub
'##################################################################
'## 过程名称：Command2_Click
'## 参数： 无
'##################################################################
Private Sub Command2_Click()
On Error Resume Next
Me.Adodc1.Recordset.Fields("jz") = Me.Adodc1.Recordset.Fields("zflj")
Me.Adodc1.Recordset.Fields("zflj") = 0
Me.Adodc1.Recordset.UpdateBatch adAffectAllChapters
End Sub
'##################################################################
'## 过程名称：Command3_Click
'## 参数： 无
'##################################################################
Private Sub Command3_Click()
'采用将净重置空的方法来标志本记录的作废。,同时将本合同中冲减的该车重量补充调整过来。
On Error Resume Next
jl_hth = Trim(Text1.Text)
Dim df As Integer
df = MsgBox(" 你将要把该车记录标记为作废，一旦标记成功" + Chr(10) + Chr(13) + "你将无法恢复，请慎重！", 36, "标记作废")
If df = 6 Then
' Me.Adodc1.Recordset.Fields("jz") = 1
Me.Adodc1.Recordset.Fields("zfjl") = 1
Me.Adodc1.Recordset.UpdateBatch adAffectAllChapters
cn.Execute "update htk set yfl= yfl-" & Val(Text6.Text) & ",wfl=wfl+" & Val(Text6.Text)
End If
End Sub
'##################################################################
'## 过程名称：Command4_Click
'## 参数： 无
'##################################################################
Private Sub Command4_Click()
Unload Me
End Sub
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
Set db = New ADODB.Connection
db.Open connetstr
db.Execute "update " & jl_sqlstr & " set lsh=id"
db.Close
Adodc1.ConnectionString = connetstr
Adodc1.RecordSource = "select * from " & jl_sqlstr & " where sj>='" & Format(Now - 1, "yyyy-mm-dd") & "'"
Adodc1.refresh
If Adodc1.Recordset.EOF = False Then
Adodc1.Recordset.MoveLast
End If
'Call loaddata
Me.DTPicker1.Value = Now
'mainfrm.Hide
Form_Resize
End Sub
Private Sub Form_Resize()
'Dim pw, ph, mw, mh, ii, jj As Integer
' Dim x1, y1 As Integer
' pw = Me.Image1.Width
' ph = Me.Image1.Height
' mw = Me.Width
' mh = Me.Height
' x1 = Fix(mw / pw)
' y1 = Fix(mh / ph)
' For ii = 1 To x1
' For jj = 1 To y1
' Me.PaintPicture Me.Image1.Picture, (ii - 1) * pw, (jj - 1) * ph
' Next jj
' Next ii
End Sub
'##################################################################
'## 过程名称：Form_Unload
'## 参数：Cancel 为Integer型
'##################################################################
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
'Adodc1.refresh
'Adodc1.Recordset.MoveLast
DTPicker1.Value = Now
mainfrm.Show
End Sub
Private Sub hyt_Click()
Command2_Click
End Sub
Private Sub print_Click()
Command3_Click
End Sub
Private Sub qyt_Click()
Command1_Click
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
' On Error Resume Next
If KeyAscii = 13 Then
jl_lsh = Val(Text3.Text)
Adodc1.RecordSource = " select * from " & jl_sqlstr & " where id = " & jl_lsh & ""
Adodc1.refresh
If Adodc1.Recordset.EOF = False Then
Call loaddata
End If
End If
End Sub
'##################################################################
'## 过程名称：Text7_KeyPress
'## 参数：KeyAscii 为Integer型
'##################################################################
Private Sub loaddata()
jl_hth = Adodc1.Recordset.Fields("hth")
jl_mz = Adodc1.Recordset.Fields("mz")
jl_pz = Adodc1.Recordset.Fields("pz")
jl_jz = Adodc1.Recordset.Fields("jz")
'jl_jz = jl_mz - jl_pz '毛重减皮重
jl_hwm = Adodc1.Recordset.Fields("hwm")
jl_fhr = Adodc1.Recordset.Fields("fhr")
jl_shr = Adodc1.Recordset.Fields("shr")
jl_sj = Adodc1.Recordset.Fields("sj")
jl_dhddk = Adodc1.Recordset.Fields("dhdd")
jl_lsh = Adodc1.Recordset.Fields("id")
jl_sby = Adodc1.Recordset.Fields("sby")
jl_zg = Adodc1.Recordset.Fields("zg")
jl_sj = Adodc1.Recordset.Fields("sj")
Text1.Text = jl_hth
Text4.Text = jl_mz
Text5.Text = jl_pz
Text6.Text = jl_jz
jl_jz = jl_mz - jl_pz '毛重减皮重
Text9.Text = jl_hwm
Text11.Text = jl_fhr
Text10.Text = jl_shr
Label32.Caption = jl_sj
Text12.Text = jl_dhddk
Text3.Text = jl_lsh
Text13.Text = jl_sby
Text8.Text = jl_zg
Label32.Caption = jl_sj
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -