進銷存管理系統的設計與實現

福清龍華職業中專學校 吳章貴

?

進銷存管理系統的設計與實現

福清龍華職業中專學校 吳章貴

進銷存管理是商業企業經營管理中的核心環節，也是一個企業能否取得效益的關鍵。如果能做到合理生產、及時銷售、庫存量最小，減少積壓，那么企業就能取得最佳的效益。面對一些工廠、企業對進銷存相關數據的混亂管理，利用數據庫技術來解決，必然會大大提高工廠、企業的管理效率和競爭力。

進銷存 ACCESS 信息管理系統

下面介紹使用ACCESS 2003開發的使用于企業的進銷存管理系統。

1 系統分析與設計

1.1 系統分析

在開始設計數據庫之前，需要確定數據庫的目的以及如何使用，盡量多了解一些有關數據庫的設計要求，弄清用戶需要明確希望從數據庫得到什么信息，經過實際的研究和分析，對目標系統形成初步的說明。

目標是一個包括訂單管理、產品管理等功能在內的管理信息系統，能及時地為企業決策層中的主要領導、業務員、質檢員以及其他的相關人員提供有關資料。目標系統必須具有可靠性、可維護性、可移植性等，定期地進行數據備份，系統還必須為以后整個企業的信息化提供良好的接口，以備功能擴充。

在創建一個數據庫之前必須明確以下幾點：

(1)數據庫必須能夠管理、生成用戶期望的信息。

(2)數據庫中不保存不必要的信息。

(3)弄清數據庫應該為用戶所做的操作和應解決的問題。

(4)明確用戶通過什么樣的界面來操作數據庫中的數據和輸出。

1.2 功能描述

1.2.1產品管理子系統

產品管理子系統可以實現對各種產品進行管理，包括產品的型號、價格、供應商等。這個子系統包括：產品輸入功能、產品的刪除功能、產品的修改功能、產品統計報表的功能。

1.2.2訂單管理子系統

訂單管理在產品管理中具有舉足輕重的作用，該子系統把訂單處理流程加以電子化，以提供對訂單的管理、處理和查詢，提高訂單處理的效率，通過該子系統可以提高管理的準確性和及時性，減少操作人員的工作壓力，減少人為出錯、降低成本，從而實現對訂單的有效控制。子系統主要包括訂單輸入、訂單確認、訂單修改、訂單刪除、訂單查詢等功能。

1.2.3出貨管理子系統

出貨管理子系統向用戶提供了發貨的時間、客戶、出貨數量、出貨價格等信息。

1.2.4進庫管理子系統

進庫管理子系統向用戶提供了進庫號、進庫數量、進庫時間和負責人等信息，包括添加進庫記錄和修改庫存等。

1.2.5庫存管理子系統

向用戶提供了貨物的庫存量、庫存地點等信息。

2 數據表的創建和設計

2.1 數據庫的創建

先啟動ACCESS 2003，進入ACCESS 2003的設計界面。再新建一個數據庫，數據庫文件名為“進銷存管理系統”。

2.2 數據表的創建

下面分別建立所需的數據表，數據表的結構如下：

① 產品表。產品表的邏輯結構如下表所示。

字段名數據類型長度備注 產品編號產品名稱供應商編號生產地點單價型號文本文本文本文本貨幣文本10201030缺省20 與供應商表有關

設置“產品編號”為主鍵。

② 訂單表。訂單表的邏輯結構如下表所示。

字段名數據類型長度備注 訂單號訂單日期客戶代號產品數量訂單金額目的地訂單業務員確認標識文本日期/時間文本數字貨幣文本文本是/否10缺省10缺省缺省3010缺省 與客戶表有關 記錄客戶是否對訂單確認

設置“訂單號”為主鍵。

③ 出貨表。出貨表的邏輯結構如下表所示。

字段名數據類型長度備注 訂單號出貨日期客戶代號產品編號出貨數量出貨價格目的地出貨負責人文本日期/時間文本文本數字貨幣文本文本10缺省1010缺省缺省3010 與客戶表有關

設置“訂單號”為主鍵。

④ 進庫表。進庫表的邏輯結構如下表所示。

字段名數據類型長度備注 進庫號產品編號進庫數量進庫日期負責人文本文本數字日期/時間文本1010缺省缺省20

設置“進庫號”為主鍵。

⑤ 庫存表。庫存表的邏輯結構如下表所示。

字段名數據類型長度備注 產品編號庫存量存放地點文本數字文本10缺省50

設置“產品編號”為主鍵。

這樣，初步完成了數據表的設計。

3 查詢的設計

使用“進銷存管理系統”的用戶，要查看各方面的數據，就要使用“查詢”。通過設計查詢，使用“進銷存管理系統”的用戶可以瀏覽全部數據或部分該用戶想查看的數據。

4 窗體的設計

對應于需要經常輸入及更改數據的表，有必要創建相應的窗體對表中的數據進行操作，下面介紹有關窗體的創建。

4.1 產品表窗體的創建和設計

4.1.1產品表窗體的創建

結果如下圖所示。

4.1.2為產品表窗體加入命令按鈕

加入“添加記錄”和“查看庫存”按鈕，這樣就實現添加記錄和查看庫存記錄的功能了。結果如下圖所示。

4.1.3編寫代碼

“產品表”窗體具有“添加記錄”、“查看庫存”兩項功能，可通過編寫VBA代碼來實現：

輸入如下代碼：

Option Compare Database

Private Sub cmdAdd_Click()

On Error GoTo Err_cmdAdd_Click

DoCmd.GoToRecord,,acNewRec

cmdMod.Enabled=True

cmdMod.SetFocus

cmdAdd.Enabled=False

Exit_cmdAdd_Click:

Exit Sub

Err_cmdAdd_Click:

MsgBox Err.Description

Resume Exit_cmdAdd_Click

End Sub

Private Sub cmdMod_click()

DoCmd.OpenReport "庫存報表", acViewPreview

End Sub

4.2 訂單表窗體的創建和設計

4.2.1訂單表窗體的創建

結果如下圖所示：

4.2.2為訂單表窗體加入命令按鈕

加入“打印訂單”按鈕，這樣就實現了訂單表的打印功能，結果如下圖所示。

4.2.3編寫代碼

“打印訂單”的功能由編寫VBA代碼來實現：

輸入如下代碼：

Option Compare Database

Private Sub 命令16_Click()

On Error GoTo err_printinvoice_click

Dim strdocname As String

strdocname = "訂單表"

DoCmd.OpenReport strdocname, acViewPreview, "訂單報表"

exit_printinvoice_click:

Exit Sub

err_printinvoice_click:

Const conErrDoCmdCancelled = 2501

If (Err = conErrDoCmdCancelled) Then

Resume exit_printinvoice_click

Else

MsgBox Err.Description

Resume exit_printinvoice_click

End If

End Sub

4.3 出貨表窗體的創建和設計

結果如下圖所示：

4.4 進庫表窗體的創建和設計

4.4.1進庫表窗體的創建

結果如下圖所示：

4.4.2為進庫表窗體加入命令按鈕

加入“添加記錄”和“修改庫存”按鈕，這樣就實現添加記錄和修改庫存記錄的功能了。結果如下圖所示：

4.4.3編寫代碼

“進庫表”窗體，具有“添加記錄”和“修改庫存”的功能，可通過編寫VBA代碼來實現：

輸入如下代碼：

Option Compare Database

Private Sub cmdAdd_Click()

On Error GoTo Err_cmdAdd_Click

DoCmd.GoToRecord , , acNewRec

cmdMod.Enabled = True

cmdMod.SetFocus

cmdAdd.Enabled = False

Exit_cmdAdd_Click:

Exit Sub

Err_cmdAdd_Click:

MsgBox Err.Description

Resume Exit_cmdAdd_Click

End Sub

Private Sub cmdMod_click()

Dim curdb As Database

Dim curRs As Recordset

Dim deviceCnt As Integer

Dim selectstring As String

Set curdb = CurrentDb

Set curRs = New Recordset

selectstring = "select * from 庫存表 where 產品編號='" & 產品編號.Value & "'"

curRs.Open selectstring, CurrentProject.Connection, , adLockPessimistic

If Not curRs.EOF Then

deviceCnt = curRs.Fields("庫存量")

deviceCnt = deviceCnt + CInt(進庫數量.Value)

curdb.Execute "update 庫存表 set 庫存量=" & deviceCnt & " where 產品編號='" & 產品編號.Value & "'"

Else

With curRs

.AddNew

.Fields("產品編號") = 產品編號.Value

.Fields("庫存量") = CInt(進庫數量.Value)

.Fields("存放地點") = "廣州"

.Update

End With

End If

cmdAdd.Enabled = True

cmdAdd.SetFocus

cmdMod.Enabled = False

End Sub

4.5 庫存表窗體的創建和設計

結果如下圖所示：

現在這個系統就可以進行發布了，只要把這個數據庫完全地拷貝到其他任何支持ACCESS的環境中，就可以啟動這個系統了。

[1] [美]Cary N.Prague,Michael R.Irwin. 林麗閩、李文義等譯. 中文版Access 2000寶典[M]. 北京: 電子工業出版社, 1999.

[2] 孫瑞新, 費昀, 孫億圳. 數據庫應用基礎——Access[M]. 北京: 高等教育出版社, 2002.