【正文】 %39。 + Trim() + 39。%39。 + Trim() + 39。 操作員： amp。 = False: = True: = False = False: = False = False: = False: = False Else MsgBox (填寫數(shù)據(jù)不完 整 ,請核實(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 5. 商品 銷售 39。 + + 39。 + + 39。 (i, 3) amp。 (i, 1) amp。 ]購進(jìn) amp。規(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 (日期 ) = (時間 ) = Time If Then (票號 ) = 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。 39。 amp。 39。 amp。 rk amp。 rk amp。%39。 + + 39。%39。 + + 39。 If And 0 Then = True End Sub Private Sub gys_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = False End If If KeyCode = vbKeyPageDown Then = True End If End Sub Private Sub grid1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then With If .RecordCount 0 Then If .Fields(商品名稱 ) Then If .Fields(商品名稱 ) Then (, 1) = Trim(.Fields(商品名稱 )) If .Fields(商品編號 ) Then (, 2) = Trim(.Fields(商品編號 )) If .Fields(規(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à) ) = = 6 = False Else MsgBox (無數(shù)據(jù)選擇 !!!) = False End If End If End With End If If KeyCode = vbKeyEscape Then = False End If End Sub Private Sub DataList1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = Trim() = False End If End Sub Private Sub jsr_Change() = Trim() End Sub Private Sub jsr_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub MS1_Click() If = 1 And ( 1, 7) Then = True End If End Sub Private Sub MS1_entercell() Dim X As String, y As String, p As String If = 0 Or = 0 Then Exit Sub X = (, ): y = (, 0) If y Then If = 3 Then = + 1 If 0 And 0 Then = : = = + : = + End If X = (, ): y = (, 0) p = (, ) = = 0 = Len() End If End Sub Private Sub MS1_RowColChange() For i = 1 To 101 If (i, 1) Then (, 6) = Format((, 6), ) (, 8) = Val((, 7)) * Val((, 6)) (, 8) = Format((, 8), ) End If Next i End Sub Private Sub sf_Change() = Format((Val() Val()), ) End Sub Private Sub sl_Change() Call yfje_exp End Sub Private Sub sl_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub zk_Change() Call yfje_exp End Sub Private Sub zk_KeyDown(KeyCode 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(商品編號 ) Then (, 2) = Trim(.Fields(商品編號 )) If .Fields(185。+ 39。or 簡稱 like 39。+ 39。 (3).Text End Sub Private Sub Form_Load() = 102: = 9 s = Array(300, 2100, 1200, 1800, 1500, 765, 1200, 1200, 1200) y = Array(xh, 商品名稱 , 商品編號 , 規(guī)格 , 產(chǎn)地 , 單位 , 進(jìn)價(jià) , 數(shù)量 , 金額 ) For i = 0 To 8 (i) = s(i): (0, i) = y(i) Next i = 1: = 1 For i = 1 To 101 (i, 0) = i Next i = Date End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub ck_Change() = Trim() End Sub Private Sub ck_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = 1: = 1 = True End If End Sub Private Sub gys_Change() = select * from gys where 供應(yīng)商全稱 like 39。定義數(shù)據(jù)集對象 Dim rs1 As New Dim rs2 As New Dim rs3 As New Dim rs4 As New Dim rs5 As New Dim s, y, i, j Public Sub yfje_exp() = Format((Val() * (Val() / 10)) + (Val() * (Val() / 100)), ) End Sub Private Sub Form_Activate() = Date (現(xiàn)金 ): (轉(zhuǎn)帳支票 ) (匯票 ): = 0 = amp。 amp。 . amp。 . amp。 Dim i As Integer For i = 0 To 1 Label1(i).Caption = Next i = 版本： V amp。 amp。 amp。 If And = Trim((密碼 )) Then Load frm_main (3).Text = Trim() Unload Me Else If TIM = 3 Then MESSAGE = MsgBox(密碼輸入錯誤 ,請向系統(tǒng)管理員查詢 !, 0, ) If MESSAGE = vbOK Then End End If If = Then MsgBox (請輸入操作員 !) Else If Trim() Trim((操作員名稱 )) Then MsgBo