【導(dǎo)讀】小型企業(yè)進(jìn)銷存管理系統(tǒng)。隨著我國市場經(jīng)濟(jì)的蓬勃發(fā)展和人們對計(jì)算機(jī)的普遍應(yīng)用，批發(fā)、零售行業(yè)正處在一。個(gè)高速發(fā)展的時(shí)期。行業(yè)的快速發(fā)展必然導(dǎo)致競爭的加劇，要想在激烈的市場競爭中謀求。發(fā)展，客觀上要求企業(yè)必須加強(qiáng)內(nèi)部管理，提高運(yùn)營效率。而我國大部分小型批發(fā)、零售。企業(yè)在信息機(jī)制上還沒有擺脫原有的手工模式，企業(yè)內(nèi)部沒有形成完善的、有效的信息化。管理機(jī)制，企業(yè)發(fā)展的動(dòng)力不足，從而影響企業(yè)的持續(xù)、穩(wěn)定、快速的發(fā)展。本文介紹了筆者編寫的一個(gè)用于小型企業(yè)進(jìn)銷存管理系統(tǒng)。其中擁有功能比較全面的。該系統(tǒng)包括用戶注冊和登錄、日常業(yè)務(wù)管理、庫存管理、查詢統(tǒng)計(jì)管理、應(yīng)收應(yīng)付管理、統(tǒng)計(jì)報(bào)表管理、基礎(chǔ)信息管理和系統(tǒng)設(shè)置幾個(gè)模塊。企業(yè)的各項(xiàng)管理實(shí)現(xiàn)現(xiàn)代化，在確定了本系統(tǒng)的設(shè)計(jì)目標(biāo)之后，特開發(fā)了本管理系統(tǒng)，來。開發(fā)工具：VisualBasic中文版，后臺所用數(shù)據(jù)庫是SQL2020，同時(shí)建立ODBC數(shù)。處理器必須以最低166MHz的速度運(yùn)行。操作員驗(yàn)證登錄進(jìn)入系統(tǒng)

　　

【正文】 p。 Trim((i, 2)) amp。 39。and 倉庫=39。 amp。 Trim() amp。 39。, 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 (商品編號 ) = (i, 2) If (i, 3) Then (185。規(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 (票號 ) = 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。 amp。 ]購進(jìn) amp。 [ amp。 (i, 1) amp。 , amp。 (i, 3) amp。 ]等 End If Next i = select * from gysmx where 供應(yīng)商全稱 =39。 + + 39。and 累計(jì)余額 0 order by 日期 ,時(shí)間 If = False Then If 0 Then If (累計(jì)余額 ) Then = (累計(jì)余額 ) End If = select * from gysmx where 供應(yīng)商全稱 =39。 + + 39。order by日期 ,時(shí)間 If = False Then If 0 Then (欠款記賬 ) = Val() (累計(jì)余額 ) = Val() + Val() End If 39。 = 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。定義數(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。 操作員： 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)地 , 單位 , 零售價(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 jsr_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub kh_Change() = select * from kh where 客戶全稱 like 39。 + Trim() + 39。+ 39。%39。or 簡稱 like 39。 + Trim() + 39。+ 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(零售價(jià) ) Then (, 6) = .Fields(零售價(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 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 Combo1