📄 fhwh.frm
字号:
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 5400
TabIndex = 21
Top = 3960
Width = 1455
End
Begin VB.Label Label7
Caption = "备 注:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 360
TabIndex = 20
Top = 4920
Width = 1455
End
Begin VB.Label Label9
Caption = "总 金 额:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 5400
TabIndex = 19
Top = 3120
Width = 1695
End
Begin VB.Label Label10
Caption = "运 输 人:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 360
TabIndex = 18
Top = 3960
Width = 1695
End
Begin VB.Label Label11
Caption = "数 量:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 360
TabIndex = 17
Top = 3120
Width = 1575
End
Begin VB.Label Label4
Caption = "发货日期："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 5400
TabIndex = 16
Top = 4920
Width = 1455
End
End
Begin VB.Label Label8
Caption = "操 作 员:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 8040
TabIndex = 27
Top = 8040
Width = 1575
End
End
Attribute VB_Name = "frmfhwh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
txtfh.Enabled = True
txtfh.Locked = False
txtcp.Enabled = True
txtdw.Enabled = True
txtdw.Locked = True
txtdj.Enabled = True
txtsl.Enabled = True
txtzje.Enabled = True
txtname.Enabled = True
txtname.Locked = True
txtysr.Enabled = True
txtch.Enabled = True
txtkh.Enabled = True
txtkh.Locked = True
txtbz.Enabled = True
txtdate.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
txtfh.SetFocus
End Sub
Private Sub Command2_Click()
DefaultType = dbUseODBC
Dim wk As Workspace
Set wk = DBEngine.Workspaces(0)
Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset
Dim zje As Currency
zje = 0
Dim cx As Boolean
Dim str As String
Dim sql As String
sql = "fdk" & CStr(Year(Now))
str = "select * from " + sql + ""
cx = False
Set db = OpenDatabase("xsys", dbDriverNoPrompt, False, "odbc;database=glxt;uid=;pwd=;dsn=xsys")
wk.BeginTrans
Set rs = db.OpenRecordset(str, dbOpenDynaset, dbwrite, dbOptimistic)
If txtfh.Text = "" Then
If MsgBox("发货单编号不能为空,请重新输入!", vbOKCancel, "错误") = vbOK Then
Command3.SetFocus
Else
Command3.SetFocus
End If
Else
rs.MoveFirst
Do While rs.EOF <> True
If rs.Fields("发货单编号") = Trim(txtfh.Text) And rs.Fields("产品编号") = Trim(txtcp.Text) Then
cx = True
Exit Do
Else
rs.MoveNext
End If
Loop
If MsgBox("请确认填写无误,否则修改!", vbOKCancel, "提示") = vbOK Then
If cx = True Then
With rs
.Edit
.Fields("单价") = CCur(LTrim(txtdj.Text))
.Fields("总金额") = CCur(LTrim(txtdj.Text) * CLng(Trim(txtsl.Text)))
.Fields("运输人") = LTrim(txtysr.Text)
.Fields("车号") = LTrim(txtch.Text)
.Fields("备注") = LTrim(txtbz.Text)
.Update
End With
rs.Close
str = "select * from " + sql + " where 发货单编号='" + txtfh.Text + "'"
Set rs = db.OpenRecordset(str, dbOpenDynaset, dbwrite, dbOptimistic)
rs.MoveFirst
Do While rs.EOF <> True
zje = zje + rs.Fields("总金额")
rs.MoveNext
If rs.EOF = True Then
Exit Do
End If
Loop
rs.Close
str = "select * from sm where 发货单编号='" + txtfh.Text + "' "
Set rs = db.OpenRecordset(str, dbOpenDynaset, dbwrite, dbOptimistic)
rs.Edit
rs.Fields("本次金额") = zje
rs.Fields("下欠货款") = rs.Fields("本次金额") + rs.Fields("上次欠款") - rs.Fields("汇款1") - rs.Fields("汇款2") - rs.Fields("汇款3")
rs.Update
txtfh.Text = ""
txtcp.Text = ""
txtdw.Text = ""
txtdj.Text = ""
txtsl.Text = ""
txtzje.Text = ""
txtysr.Text = ""
txtch.Text = ""
txtbz.Text = ""
txtdate.Text = ""
txtname.Text = ""
txtname.Enabled = False
txtkh.Text = ""
Command2.Enabled = False
Command1.Enabled = True
txtfh.Enabled = False
txtcp.Enabled = False
txtkh.Enabled = False
txtdw.Enabled = False
txtdj.Enabled = False
txtsl.Enabled = False
txtzje.Enabled = False
txtysr.Enabled = False
txtch.Enabled = False
txtbz.Enabled = False
txtdate.Enabled = False
Else
MsgBox "此编号不存在,请重新输入!", vbCritical, "错误"
txtfh.Text = ""
txtfh.SetFocus
End If
Else
txtfh.SetFocus
End If
rs.Close
wk.CommitTrans
db.Close
End If
End Sub
Private Sub Command3_Click()
Unload Me
frmmenu.Show
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim nexttabindex As Integer, i As Integer
If KeyAscii = 13 Then
If Screen.ActiveControl.TabIndex = Count - 1 Then
nexttabindex = 0
Else
nexttabindex = Screen.ActiveControl.TabIndex + 1
End If
For i = 0 To Count - 1
If Me.Controls(i).TabIndex = nexttabindex Then
Me.Controls(i).SetFocus
Exit For
End If
If nexttabindex = 12 Then
Command2.SetFocus
Exit For
End If
Next i
KeyAscii = 0
End If
End Sub
Private Sub Form_Load()
txtfh.Enabled = False
txtcp.Enabled = False
txtdw.Enabled = False
txtdj.Enabled = False
txtsl.Enabled = False
txtname.Enabled = False
txtzje.Enabled = False
txtysr.Enabled = False
txtch.Enabled = False
txtbz.Enabled = False
txtdate.Enabled = False
txtkh.Enabled = False
txtczy.Text = frmlogin.Combo1.Text
txtczy.Locked = True
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub txtcp_LostFocus()
DefaultType = dbUseODBC
Dim db As Database
Dim rs As Recordset
Dim str As String
Dim sql As String
Dim cx As Boolean
cx = False
sql = "fdk" & CStr(Year(Now))
str = "select * from " + sql + " where [发货]=true"
Set db = OpenDatabase("xsys", dbDriverNoPrompt, False, "odbc;database=glxt;uid=;pwd=;dsn=xsys")
Set rs = db.OpenRecordset(str, dbOpenDynaset, dbwrite, dbOptimistic)
If txtfh.Text = "" Then
MsgBox "您必须先填写发货单号!"
Command3.SetFocus
Else
rs.MoveFirst
Do While rs.EOF <> True
If rs.Fields("发货单编号") = Trim(txtfh.Text) And rs.Fields("产品编号") = Trim(txtcp.Text) Then
cx = True
Exit Do
Else
rs.MoveNext
End If
Loop
If cx = True Then
txtcp.Text = rs.Fields("产品编号")
txtdw.Text = rs.Fields("单位")
txtdj.Text = rs.Fields("单价")
txtsl.Text = rs.Fields("数量")
txtzje.Text = rs.Fields("总金额")
txtysr.Text = rs.Fields("运输人")
txtch.Text = rs.Fields("车号")
txtbz.Text = rs.Fields("备注")
txtname.Locked = True
txtkh.Locked = True
txtfh.Locked = True
txtdw.Locked = True
txtsl.Locked = True
txtzje.Locked = True
txtdate.Locked = True
Else
MsgBox "此产品编号不存在,请重新输入!", vbCritical, "错误"
txtcp.SetFocus
End If
End If
rs.Close
db.Close
a:
If Err.Number = 94 Then
txtdw.SetFocus
End If
End Sub
Private Sub txtfh_LostFocus()
On Error GoTo a
DefaultType = dbUseODBC
Dim db As Database
Dim rs As Recordset
Dim str As String
Dim sql As String
Dim cx As Boolean
cx = False
sql = "fdk" & CStr(Year(Now))
str = "select * from " + sql + " where [发货]=true"
Set db = OpenDatabase("xsys", dbDriverNoPrompt, False, "odbc;database=glxt;uid=;pwd=;dsn=xsys")
Set rs = db.OpenRecordset(str, dbOpenDynaset, dbwrite, dbOptimistic)
If txtfh.Text = "" Then
If MsgBox("发货单编号不能为空,请重新输入!", vbOKCancel, "错误") = vbOK Then
Command3.SetFocus
Else
Command3.SetFocus
End If
Else
rs.MoveFirst
Do While rs.EOF <> True
If rs.Fields("发货单编号") = LTrim(txtfh.Text) Then
cx = True
Exit Do
Else
rs.MoveNext
End If
Loop
If cx = True Then
txtdate.Text = rs.Fields("发货单日期")
txtkh.Text = rs.Fields("客户编号")
txtname.Text = rs.Fields("单位名称")
txtname.Locked = True
txtkh.Locked = True
txtfh.Locked = True
txtdw.Locked = True
txtsl.Locked = True
txtzje.Locked = True
txtdate.Locked = True
Else
MsgBox "此发货单号不存在,请重新输入!", vbCritical, "错误"
txtfh.Text = ""
Command3.SetFocus
End If
End If
rs.Close
db.Close
a:
If Err.Number = 94 Then
txtdw.SetFocus
End If
End Sub
Private Sub txtzje_GotFocus()
On Error GoTo a
txtzje.Text = CCur(CCur(txtdj.Text) * CInt(txtsl.Text))
a:
If Err.Number = 13 Then
MsgBox "单价或数量不能为空!"
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -