基于ＶＢ的食堂庫房管理系統

[摘要] 食堂餐廳庫房管理系統是用計算機對餐廳食堂的庫房進行電子化管理，對處理入庫、出庫、庫存查詢、積壓報警、采購計劃等數據進行自動化處理，從而實現食堂的管理的無紙化、高效化、規范化。

[關鍵詞] 食堂 庫房管理 VB SQL Server

“國以民為本，民以食為天”，學校食堂工作關系著學生的日常飲食生活，其管理是否科學規范，飲食是否安全可靠，是學校食堂管理的重中之重，是直接關系到創建和諧校園的重要因素。通過開發食堂庫房管理系統，做到信息的規范管理、科學統計和快速查詢，從而實現了庫房管理信息管理的辦公無紙化和高效化。

一、開發工具的選擇

Visual Basic 6.0(VB)是一種可視化的、面向對象和采用事件驅動方式的結構化高級程序設計語言，VB系統提供了各種對象供用戶使用，因此其程序設計的過程就是使用對象對相應的事件的編碼過程。可視化程序設計環境提供給程序員的界面稱為可視化界面，使用可視化界面，程序員在設計用戶界面時可以直接根據視覺通過鼠標拖動而不用編寫過多的代碼。此外，可視化程序設計環境也提供了每個控件與代碼相關聯的方法。其優點在于：

1.圖形用戶界面的可視化開發。

2.面向對象的程序設計方法，把程序和數據封裝起來作為一個對象，控件的添加、移動、刪改以及修改屬性方便快捷，屬性的修改可以使用語句的方式，也可以使用在屬性框中修改的方式。

3.VB本身提供與各種數據庫相鏈接的接口，可以快速方便的對數據庫進行讀寫操作。

4.VB也提供與MSOFFICE相連接的接口，傳輸數據方便，如可以直接生成EXCEL文檔。

5.VB中可以使用Active X控件，很容易在VB中增加新功能，降低使用者的編程壓力。

二、數據庫的選擇

目前，可應用于開發工作的數據庫很多，SQL Server、Oracle是面向網絡計算的數據庫，適合開發大型網絡應用軟件;Access和Visual Foxpro 系統適合開發小型數據庫應用軟件。雖然本系統數據量不算很大，但日積月累也會有一定的數據量存在，并且為了方便多機共同協作，故采用SQL Server 2000數據庫，同時也可采用其桌面版MSDE2000，以兼顧無專門服務器的用戶正常使用。

三、系統的結構、功能設計

1.功能模塊。

(1)入庫:是對所經營物品的入庫管理，由于食堂入庫進貨時有的貨物并不進庫房，而是點貨后直接進入食堂，因此入庫類型應該有直入直出型，即入庫馬上自動出庫。在此模塊中同時可對入庫記錄進行檢索與管理，管理包括添加、修改、刪除等具體操作。

(2)出庫:是把庫存物品分發給各個食堂。

(3)庫存:可對當前庫存進行查詢管理，在此模塊可查詢具體過期物品。

(4)報警:當系統啟動時，會自動檢索庫存中即將過期與已經過期物品，并給出過期提示。

(5)采購計劃:可按當前庫典中的物品，以及當前庫存量自動生成采購計劃，并可對計劃進行調整（刪除、修改、重生成等）。

(6)結算:分為日結與月結，可對當日或當月的出庫、入庫、退貨、報損、當前庫存進行匯總結算。

2.特色功能

(1)查詢檢索:各功能模塊中都有查詢檢索功能，其最大特色為可以多條件檢索，其實現是利用記錄集的過濾器來進行過濾查詢。如:Adodc1.Recordset.Filter=”CNAME=‘大米’”。

(2)生成EXCEL文檔：每個模塊中都可以把當前檢索到的數據導出到EXCEL表格中

Set xlApp = CreateObject(“Excel.Application”)

Set xlBook = xlApp.Workbooks.Add

Set xlsheet = xlBook.Worksheets(1)

HS=1

Do While Not Adodc1.Recordset.EOF

For LS = 1 To Adodc1.Recordset.Fields.Count

xlsheet.Cells(HS， LS) = Adodc1.Recordset(LS - 1)

Next

Adodc1.Recordset.MoveNext

HS = HS + 1

Loop

(3)方便的排序功能：數據是通過把DataSource屬性設置為Adodc1的DataGrid來顯示的，以下代碼即可實現可按各種字段進行升序或降序的排序顯示。

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)

If Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField “ desc” Then

Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField

Else

Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField “ desc”

End If

End Sub

(4)圖表功能:此功能是通過控件MSChart1來實現的，用各種圖表方式來顯示出入庫等各種數據。

參考文獻:

[1]李洪泊趙學作許娜:用VB編寫打印程序[J].商場現代化，2008年2月上旬刊

[2]趙學作李洪泊:MSDE2000故障及解決方案[J].網管員世界，2008.03B

[3](美)荷茲納(Steven Holzner):Visual Basic 6技術內幕[M].北京:機械工業出版社，1999

[4]林永張樂強:Visual Basic 6.0用戶編程手冊[M].北京:人民郵電出版社，2002