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

　　

【正文】 p。 Trim((i, 2)) amp。 39。and 倉(cāng)庫(kù)=39。 amp。 Trim() amp。 39。, n, adOpenKeyset, adLockOptimistic If 0 Then If (商品名稱(chēng) ) Then (庫(kù)存數(shù)量 ) = (庫(kù)存數(shù)量 ) + Trim(Val((i, 7))) (庫(kù)存金額 ) = Val((庫(kù)存數(shù)量 )) * Val((進(jìn)價(jià) )) End If Else If (i, 1) Then (商品名稱(chēng) ) = (i, 1) If (i, 2) Then (商品編號(hào) ) = (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 (庫(kù)存數(shù)量 ) = Val((i, 7)) If (i, 8) Then (庫(kù)存金額 ) = Val((i, 8)) If Then (倉(cāng)庫(kù) ) = 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。 amp。 ]購(gòu)進(jìn) amp。 [ amp。 (i, 1) amp。 , amp。 (i, 3) amp。 ]等 End If Next i = select * from gysmx where 供應(yīng)商全稱(chē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)商全稱(chē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 (填寫(xiě)數(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 5. 商品 銷(xiāo)售 39。定義數(shù)據(jù)集對(duì)象 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, 商品名稱(chēng) , 商品編號(hào) , 規(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 客戶全稱(chēng) like 39。 + Trim() + 39。+ 39。%39。or 簡(jiǎn)稱(chēng) 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(商品名稱(chēng) ) Then If .Fields(商品名稱(chēng) ) Then (, 1) = Trim(.Fields(商品名稱(chēng) )) If .Fields(商品編號(hào) ) Then (, 2) = Trim(.Fields(商品編號(hào) )) 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 (無(wú)數(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