【正文】 = : = = + : = + = True Dim lsph As Integer select * from rkd order by 票號 , n, adOpenKeyset, adLockOptimistic If 0 Then If Not Then If (票 號 ) Then lsph = Right(Trim((票號 )), 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 (商品編號 ) = 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 (進 價 ) = 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 (票號 ) = Trim() If Then (倉庫 ) = Trim() select * from kc where 商品編號 =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((進價 )) End If Else If (i, 1) Then (商品名稱 ) = (i, 1) If (i, 2) Then (商品編號 ) = (i, 2) If (i, 3) Then (185。 amp。 [ amp。 , amp。 ]等 End If Next i = select * from gysmx where 供應(yīng)商全稱 =39。and 累計余額 0 order by 日期 ,時間 If = False Then If 0 Then If (累計余額 ) Then = (累計余額 ) End If = select * from gysmx where 供應(yīng)商全稱 =39。order by日期 ,時間 If = False Then If 0 Then (欠款記賬 ) = Val() (累計余額 ) = Val() + Val() End If 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 Private Sub Command1_Click() End Sub Private Sub Form_Activate() = Date (現(xiàn)金 ): (轉(zhuǎn)帳支票 ) (匯票 ): = 0 = amp。 (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)地 , 單位 , 零售價 , 數(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 jsr_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub kh_Change() = select * from kh where 客戶全稱 like 39。+ 39。or 簡稱 like 39。+ 39。 If And 0 Then = True End Sub Private Sub kh_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(零售價 ) Then (, 6) = .Fields(零售價 ) = = 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 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 End If 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 sf_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub sl_Change() = Format((Val() * (Val() / 10)) + (Val() * (Val() / 100)), ) End Sub Private Sub sl_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub zk_Change() sl_Change End Sub Private Sub hjje_Change() sl_Change = Format((Val() Val()), ) End Sub Private Sub zk_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Com