【正文】 庫信息表：（商品編號為主鍵） 字段名稱 數(shù)據(jù)類型 字段大小 商品編號 Char 8 商品名稱 Char 100 規(guī)格 Char 40 產(chǎn)地 Char 50 單位 Char 6 進價 Money 數(shù)量 Numeric 18 金額 Money 倉庫 Char 10 供應商 Char 50 操作員 Char 10 經(jīng)手人 Char 10 日期 Datetime 票號 Char 30 供貨退貨信息表：（商品編號為主鍵） 字段名稱 數(shù)據(jù)類型 字段大小 商品編號 Char 8 商品名稱 Char 100 規(guī)格 Char 40 產(chǎn)地 Char 50 單位 Char 6 進價 Money 數(shù)量 Numeric 18 金額 Money 倉庫 Char 10 供應商全稱 Char 50 操作員 Char 10 經(jīng)手人 Char 10 日期 Datetime 票號 Char 30 供應商賬款往來信息表：（供應商全稱為主鍵） 字段名稱 數(shù)據(jù)類型 字段大小 日期 Datetime 時間 Datetime 摘要 Varchar 200 數(shù)量 Numeric 18 單位 Char 10 單價 Money 金額小計 Money 欠款記賬 Money 付款合計 Money 累計金額 Money 供應商全稱 Char 50 票號 Char 30 備注 Char 60 銷售信息表：（商品編號為主鍵） 字段名稱 數(shù)據(jù)類型 字段大小 商品編號 Char 8 商品名稱 Char 100 簡稱 Char 10 規(guī)格 Char 40 產(chǎn)地 Char 50 單位 Char 6 進價 Money 數(shù)量 Numeric 18 金額 Money 倉庫 Char 10 客戶全稱 Char 50 操作員 Char 10 經(jīng)手人 Char 10 日期 Datetime 票號 Char 30 銷售退貨信息表：（商品編號為主鍵） 字段名稱 數(shù)據(jù)類型 字段大小 商品編號 Char 8 商品名稱 Char 100 規(guī)格 Char 40 產(chǎn)地 Char 50 單位 Char 6 單價 Money 數(shù)量 Numeric 18 金額 Money 倉庫 Char 10 客戶全稱 Char 50 操作員 Char 10 經(jīng)手人 Char 10 日期 Datetime 票號 Char 30 客戶往來賬款信息表：（客戶全稱為主鍵） 字段名稱 數(shù)據(jù)類型 字段大小 日期 Datetime 時間 Datetime 摘要 Varchar 200 數(shù)量 Numeric 18 單位 Char 10 單價 Money 金額小計 Money 欠款記賬 Money 收款合計 Money 累計金額 Money 客戶全稱 Char 50 票號 Char 30 備注 Char 60 總體設計 主要功能模塊分析 一）、系統(tǒng)登錄模塊 .F. .T. 功能：用戶登錄驗證成功后進入進銷存管理系統(tǒng)。 說明：入庫采用智能化表單錄入，可一次錄入多種商品，在“商品名稱”欄內(nèi)輸入商品名稱或簡稱的前幾個字或找〈 PageDown〉鍵，系統(tǒng)將自動利用表格顯示相關(guān)商品信息。 說明：同商品入庫工作相似，同商品入庫成正反關(guān)系。 功能：完成客戶退貨的工作。 （二）、庫存盤點 功能：查詢各倉庫中商品庫存情況。 （二）、出庫查詢 功能：查詢退供應商貨物信息。 （四）、銷售退貨 功能：查詢客戶退貨信息。 （二）、收款單 功能：實現(xiàn)向客戶收款的功能。 （四 ）、應付款查詢 功能：查詢向供應商付款信息。 （三）、客戶銷售報表 功能：統(tǒng)計所有客戶銷售商品的情況。 八）、基礎信息管理 （一）、商品信息管理 功能：完成商品基本信息的錄入、保存、修改、刪除，支持鍵盤操作，選擇字段查詢商品基本信息，并可列表瀏覽商品信息。 （三）、倉庫信息管理 功能：完成倉庫基本信息的錄入、保存、修改、刪除，可按列表方式查詢倉庫信息。 （二）、操作員及密碼 功能：操作員信息的添加、修改、刪 除、密碼的修改及操作員信息瀏覽。 （二）、關(guān)于 功能：版權(quán)說明及查看計算機系統(tǒng)信息。Data Source Gcgl。 版本： 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 MsgBox 查無此操作員 ,請重新輸入操作員 ! Else If 密碼 Then MsgBox 密碼錯誤 ,請重新輸入密碼 ! TIM TIM + 1 End If End If End If End If End If End Sub Private Sub cmd2_Click End End Sub 主程序模塊 Private Sub ckcx_Click Load main_cxtj_ckcx False End Sub Private Sub Form_Load amp。 amp。 . 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)地 , 單位 , 進價 , 數(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 供應商全稱 like 39。or 簡稱 like 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 進價 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 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 Key