【正文】 yCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then End Sub Private Sub hjje_Change Call yfje_exp Format Val Val , End Sub Private Sub Combo1_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then End Sub Private Sub sf_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then End Sub Private Sub Text1_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then If 1 Then With If 0 Then If .Fields 商品名稱 Then , 1 Trim .Fields 商品名稱 If .Fields 商品編號(hào) Then , 2 Trim .Fields 商品編號(hào) If .Fields 1 規(guī)格 Then , 3 Trim .Fields 規(guī)格 If .Fields 產(chǎn)地 Then , 4 Trim .Fields 產(chǎn)地 If .Fields 單位 Then , 5 Trim .Fields 單位 If .Fields 進(jìn)價(jià) Then , 6 .Fields 進(jìn)價(jià) False 5 End If End With End If If 8 Then + 1 1 Else If + 1 1 Then + 1 Else If + 1 1 Then + 1 1 End If End If End If End If If KeyCode vbKeyUp Then If 1 Then 1 End If If KeyCode vbKeyDown Then If 99 Then + 1 End If If KeyCode vbKeyLeft Then If Then 0 Len End If If 8 + 1 Then 1 If 0 Then 1 Else If + 1 1 Then + 1 1 End If End If End If If KeyCode vbKeyRight Then If Then 0 Len End If If + 1 1 Then + 1 Else If + 1 1 Then + 1 1 End If End If End If If KeyCode vbKeyPageDown And 1 Then select * from spinf True End If End Sub Private Sub Text1_Change If 1 Then If Then False Else select * from spinf where 商品名稱 like 39。+ 39。 or 簡稱 like 39。+39。 If 0 Then True End If End If End If If 3 Then If , 1 Then MsgBox 無商品名稱，請(qǐng)重新輸入 !!! 1 End If End If If 6 Then , 8 Val , 7 * Val , 6 If 7 Then , 8 Val , 7 * Val , 6 Dim a, b As Single For i 1 To 101 If i, 1 And i, 7 Then i a Val i, 8 + a b Val i, 7 + b End If Next i b: Format a, End Sub Private Sub Comdj_Click : + : + True Dim lsph As Integer select * from rkd order by 票號(hào) , n, adOpenKeyset, adLockOptimistic If 0 Then If Not Then If 票號(hào) Then lsph Right Trim 票號(hào) , 4 + 1 Date amp。 Format lsph, 0000 End If Else Date amp。 0001 End If True: True: True True: False True: True For i 1 To 100 For j 1 To 8 i, j Next j Next i : 0: 0 0: 0: 0 End Sub Private Sub Combc_Click select * from rkd, n, adOpenKeyset, adLockOptimistic If 1, 1 And 1, 7 Then For i 1 To 100 If i, 1 And i, 7 Then If i, 1 Then 商品名稱 Trim i, 1 If i, 2 Then 商品編號(hào) Trim i, 2 If i, 3 Then 規(guī)格 Trim i, 3 If i, 4 Then 產(chǎn)地 Trim i, 4 If i, 5 Then 單位 Trim i, 5 If i, 6 Then 進(jìn)價(jià) Val i, 6 If i, 7 Then 數(shù)量 Val i, 7 If i, 8 Then 金額 Val i, 8 If Then 供應(yīng)商 Trim 操作員 3 .Text If Then 經(jīng)手人 Trim If Then 日期 Trim If Then 票號(hào) Trim If Then 倉庫 Trim select * from kc where 商 品 編 號(hào) 39。 Trim i, 2 amp。and 倉庫 39。 Trim amp。, n, adOpenKeyset, adLockOptimistic If 0 Then If 商品名 稱 Then 庫存數(shù)量 庫存數(shù)量 + Trim Val i, 7 庫存金額 Val 庫存數(shù)量 * Val 進(jìn)價(jià) End If Else If i, 1 Then 商品名稱 i, 1 If i, 2 Then 商品編號(hào) i, 2 If i, 3 Then 1 規(guī)格 i, 3 If i, 4 Then 產(chǎn)地 i, 4 If i, 5 Then 單位 i, 5 If i, 6 Then 進(jìn)價(jià) Val i, 6 If i, 7 Then 庫存數(shù)量 Val i, 7 If i, 8 Then 庫存金額 Val i, 8 If Then 倉庫 End If select * from gysmx, n, adOpenKeyset, adLockOptimistic If False Then If Then 日期 時(shí)間 Time If Then 票號(hào) If i, 7 Then 數(shù)量 i, 7 If i, 8 Then 金額小計(jì) i, 8 If i, 6 Then 單價(jià) i, 6 If i, 5 Then 單位 i, 5 If Then 供應(yīng)商 If Then 摘要 進(jìn)貨：從 [ amp。 ]購進(jìn) amp。 i, 1 amp。 i, 3 amp。 + + 39。 + + 39。 False: True: False False: False False: False: False Else MsgBox 填寫數(shù)據(jù)不完整 ,請(qǐng)核實(shí) , 再保存 1: 1 False End If End Sub Private Sub Comqx_Click For i 1 To 101 For j 1 To 8 i, j Next j Next i False: True: False False: False 0: 0: 0 0: 0: End Sub Private Sub Comend_Click True Unload Me End Sub 商品銷售 39。 操作員： amp。 + Trim + 39。%39。 + Trim + 39。%39。 + + 39。%39。 + + 39。%