【導(dǎo)讀】不斷變化的市場(chǎng)做出快速反應(yīng)。倉(cāng)庫(kù)綜合業(yè)務(wù)的管理在整個(gè)物流（商品、貨物、軍。事等物流）體系中起著舉足輕重的作用，整個(gè)物資的入與出都要經(jīng)過(guò)倉(cāng)庫(kù)的管理。所以，對(duì)倉(cāng)庫(kù)管理系統(tǒng)進(jìn)行信息化改造的要求也就越來(lái)越迫切了。它的特點(diǎn)概括起來(lái)有以下幾點(diǎn)：完善的用戶/角色雙重權(quán)限管理。機(jī)制；程序平臺(tái)獨(dú)立于業(yè)務(wù)，不直接訪問(wèn)數(shù)據(jù)庫(kù)；程序平臺(tái)與業(yè)務(wù)之間的相互獨(dú)立，使得軟件的維護(hù)及其功能升級(jí)比較容易。文章前言部分介紹了項(xiàng)目的來(lái)源和開(kāi)發(fā)環(huán)境等信息，并介紹了系統(tǒng)的主要特點(diǎn)。庫(kù)的結(jié)構(gòu)和應(yīng)用需求。詳細(xì)設(shè)計(jì)部分重點(diǎn)分析了倉(cāng)庫(kù)管理系統(tǒng)。最后在系統(tǒng)展望部分分別針對(duì)平臺(tái)和業(yè)務(wù)處理程序?qū)ο到y(tǒng)提出了改進(jìn)意見(jiàn)。寫(xiě)出了在開(kāi)發(fā)中的體會(huì)與感受。

　　

【正文】 f objActive Is Nothing Then MsgBox pstrName amp。 調(diào)用失??！ , vbOKOnly + vbExclamation, g_strHyNotice Else Call (strpath) If strmd = sc Then Call (Clogin, strxml, iTemp) End If If strmd = cx Then Call (Clogin, strxml, iTemp) End If If strmd = Then Call (Clogin, strxml, iTemp) End If If strmd = qu Then Call (Clogin, strxml, iTemp, 3) 25 End If End If Set objActive = Nothing End Sub 39。調(diào)用可執(zhí)行程序 Public Sub LoadExe(ByVal pstrId As String, ByVal pstrOrder As String, ByVal pstrName) Dim strtemp As String Dim strMl As String Dim strParm As String Dim iTemp, iPos As Integer Dim connectstring As String Dim I As Long On Error GoTo Errorline If pstrOrder = 1 Then Shell pstrId Else iTemp = InStr(1, pstrId, \) strMl = pstrId Do While iTemp 0 iPos = iPos + iTemp strMl = Right(strMl, Len(strMl) iTemp) iTemp = InStr(1, strMl, \) Loop strMl = Left(pstrId, iPos) strtemp = strMl = strtemp + strMl connectstring = Provider=。Password= amp。 amp。 。Persist Security Info=True。User ID= amp。 amp。 。Data Source= amp。 strParm = Chr(34) + connectstring + Chr(34) If pstrOrder Then strParm = strParm + + Trim(pstrOrder) End If strtemp = strtemp + pstrId I = ShellExecute(I, open, strtemp, strParm, strMl, I) End If Exit Sub Errorline: MsgBox pstrName amp。 調(diào)用失敗！ , vbOKOnly + vbExclamation, g_strHyNotice End Sub 這三種程序模塊的實(shí)現(xiàn)方式使得系統(tǒng)的開(kāi)發(fā)變得十分靈活方便，程序員不需要 26 對(duì)平臺(tái)部分程序有多少了解，只需要根據(jù)統(tǒng)一規(guī)定選擇自己程 序的實(shí)現(xiàn)方式，搭建好模塊框架后就可以專心于對(duì)業(yè)務(wù)流程的處理上，這樣可以大大縮短開(kāi)發(fā)時(shí)間，并且可以增強(qiáng)系統(tǒng)得穩(wěn)定性。 我在公司 做畢業(yè)設(shè)計(jì) 過(guò)程中所做的工作都是開(kāi)發(fā) ActiveX DLL 組件。所以對(duì)通用 XML 配置組件以及 Exe 程序的調(diào)用與 實(shí)現(xiàn)不是很了解，在這里就不再深入討論了。 業(yè)務(wù)部分 數(shù)據(jù)庫(kù)結(jié)構(gòu) 在數(shù)據(jù)庫(kù)應(yīng)用程序啟動(dòng)時(shí)，首先要正確地連接到相應(yīng)的物理數(shù)據(jù)庫(kù)上。在前面的章節(jié)中已經(jīng)知道根據(jù)具體的開(kāi)發(fā)過(guò)程和因素，應(yīng)合理選用數(shù)據(jù)庫(kù)以及數(shù)據(jù)庫(kù)的連接方式。本系統(tǒng)既可作為本地?cái)?shù)據(jù)庫(kù)應(yīng)用程序也可被遠(yuǎn)程數(shù)據(jù)庫(kù)服務(wù)器調(diào)用，應(yīng)用擴(kuò)展性較強(qiáng)，因此選用 ORACLE 數(shù)據(jù)庫(kù)并采用 ADO模型進(jìn)行數(shù)據(jù)訪問(wèn)。 在本地客戶端應(yīng)用程序讀取數(shù)據(jù)庫(kù)的過(guò)程中，首先要通過(guò)訪問(wèn) ACCESS 數(shù)據(jù)表單來(lái)讀取數(shù)據(jù)庫(kù)鏈接信息，在本地建立 HyEims20 .cfg 之下的名為 DatManager 的ACCESS 表： 數(shù)據(jù)套數(shù)號(hào) DataName DataFile 服務(wù)器名 登錄用戶 登錄口令 1 測(cè)試 Orachen CKGL CKGL 表中的服務(wù)器名和登陸用戶以及用戶口令被注冊(cè)組件從 Access 表讀取出來(lái)，建立數(shù)據(jù)庫(kù)鏈接串，從而建立數(shù)據(jù)庫(kù)鏈接。本倉(cāng)庫(kù)管理系統(tǒng)所有要用到的數(shù)據(jù)表單可以分為三類：供主控程序使用的系統(tǒng)表，保存系統(tǒng)基礎(chǔ)數(shù)據(jù)如人員信息、單位信息、物資信息的基礎(chǔ)數(shù)據(jù)表以及進(jìn)行出入庫(kù)操作和 賬 務(wù)管理的業(yè)務(wù)數(shù)據(jù)表。其中基礎(chǔ)表和系統(tǒng)表在第一章的 節(jié)已經(jīng)詳細(xì)分析過(guò)了。下面 就僅對(duì)業(yè)務(wù)數(shù)據(jù)表進(jìn)行詳細(xì)地說(shuō)明。 4) 出入庫(kù)管理業(yè)務(wù)數(shù)據(jù)表 出入庫(kù)單管理需要為每一次出入庫(kù)操作開(kāi)具出入庫(kù)單，單據(jù)的信息包括基本信息和物資明細(xì)信息。 基本 信息中包含發(fā)物單位和收物單位號(hào)，以及開(kāi)單時(shí)間，負(fù)責(zé)人，單據(jù)的執(zhí)行狀態(tài)標(biāo)記等；物資明細(xì)信息中包含每種出入庫(kù)物資的物資代碼，應(yīng)執(zhí)行數(shù)量和實(shí)際執(zhí)行數(shù)量。下面是為出入庫(kù)管 27 理業(yè)務(wù)設(shè)計(jì)的數(shù)據(jù)表的結(jié)構(gòu)： 表 INVADDR 存儲(chǔ)點(diǎn)表 字段 含義 類型 長(zhǎng)度 主鍵 InvID 存儲(chǔ)點(diǎn)編號(hào) Varchar 20 key InvNAME 存儲(chǔ)點(diǎn)名稱 Varchar 20 InvLB 存儲(chǔ)點(diǎn)類別 Varchar 10 表 INVINMAIN 入庫(kù)單主表 字段 含義 類型 長(zhǎng)度 主鍵 說(shuō)明 INVINID 入庫(kù)單號(hào) varchar 20 key 發(fā)號(hào)組件生成 InvDate 入庫(kù)日期 Date SWDW 入庫(kù)庫(kù)房號(hào) Varchar 15 FWDW 發(fā)物單位號(hào) Varchar2 15 JIZHANGFLAG 執(zhí)行狀態(tài)（記 賬 標(biāo)記） Number 1 FZR 負(fù)責(zé)人 Varchar2 18 表 INVINDETAIL 入庫(kù)明細(xì)表 字段 含義 類型 長(zhǎng)度 主鍵 說(shuō)明 InvInID 入庫(kù)單號(hào) Varchar 20 key 來(lái)自 INVINMAIN表 MaID 物品編碼 Varchar 20 YQuantity 應(yīng)入庫(kù)數(shù)量 Float 8 用戶填寫(xiě) Quantity 實(shí)際入庫(kù)數(shù) Float 8 用戶填寫(xiě) 表 INVOUTMAIN出庫(kù)單主表 字段 含義 類型 長(zhǎng)度 主鍵 說(shuō)明 INVOUTID 出庫(kù)單號(hào) varchar 20 key 發(fā)號(hào)組件生成 InvDate 出庫(kù)日期 Date SWDW 收物單位號(hào) Varchar 15 FWDW 出庫(kù)庫(kù)房號(hào) Varchar2 15 JIZHANGFLAG 執(zhí)行狀態(tài)（記 賬 標(biāo)記） Number 1 FZR 負(fù)責(zé)人 Varchar2 18 28 表 INVOUTDETAIL出庫(kù)明細(xì)表 字段 含義 類型 長(zhǎng)度 主鍵 說(shuō)明 InvOUTID 出庫(kù)單號(hào) Varchar 20 key 來(lái)自 INVOUTMAIN表 MaID 物品編碼 Varchar 20 YQuantity 應(yīng)出庫(kù)數(shù)量 Float 8 用戶填寫(xiě) Quantity 實(shí)際出庫(kù)數(shù) Float 8 用戶填寫(xiě) 5) 賬物管理業(yè)務(wù)數(shù)據(jù)表 賬 務(wù)管理部分涉及到的業(yè)務(wù)包括：出入庫(kù)明細(xì) 賬 查詢，庫(kù)存 賬 查詢以及對(duì) 賬 。 出入庫(kù)明細(xì) 賬 是 流水賬 ，要包括每一種物資每一條出入庫(kù)的信息記錄，所以它的內(nèi)容包括出入庫(kù)單號(hào)、出入庫(kù)時(shí)間、庫(kù)房號(hào)、物品編碼、實(shí)際出入庫(kù)數(shù)量以及出入庫(kù)后物資的庫(kù)存數(shù)。 庫(kù)存 賬 則是對(duì)現(xiàn)有庫(kù)存情況進(jìn)行查詢，每種物資只查看總的出入庫(kù)數(shù)量和結(jié)存數(shù)量就可以了。所以表中數(shù)據(jù)項(xiàng)應(yīng)該為：物品編碼、庫(kù)房號(hào)、最后一次出入庫(kù)時(shí)間、累積的出、入庫(kù)數(shù)量和結(jié)存數(shù)量。 對(duì) 賬 模塊與上兩個(gè)模塊不同，它不是對(duì) 賬 目的查詢，而是維護(hù)。對(duì) 賬模塊是根據(jù)用戶的需求，為了防止在記 賬 過(guò)程中出現(xiàn)人為操作失誤而設(shè)置的?？梢灾苯訉?duì)庫(kù)房進(jìn)行庫(kù)存數(shù)量的修改。但是，為了防止操作員隨意修改庫(kù)存，要對(duì)對(duì) 賬 操作的情況進(jìn)行詳細(xì)監(jiān)控，所以在對(duì) 賬 單的結(jié)構(gòu)中專門設(shè)置了制單人、審核人、記 賬 人三個(gè)數(shù)據(jù)項(xiàng)以備日后清查。 表 MAINVOUTDETAIL 發(fā)物明細(xì) 賬 表 字段 含義 類型 長(zhǎng)度 主鍵 InvOutID 出庫(kù)單號(hào) varchar 20 key Kfh 庫(kù)房號(hào) varchar 30 InvID 存儲(chǔ)點(diǎn)編碼 varchar 30 MaID 物品編碼 Varchar 20 InvDate 出庫(kù)日期 datetime 4 29 Quantity 實(shí)際出庫(kù)數(shù)量 Float 8 OutStock 出庫(kù)后庫(kù)存數(shù) Float 8 表 MAINVINDETAIL 收物明細(xì) 賬 表 字段 含義 類型 長(zhǎng)度 主鍵 InvInID 入庫(kù)單據(jù)號(hào) varchar 20 key Kfh 庫(kù)房號(hào) varchar 30 InvID 存儲(chǔ)點(diǎn)編碼 varchar 30 MaID 物品編碼 Varchar 20 InvDate 入庫(kù)日期 datetime 4 Quantity 實(shí)際入庫(kù)數(shù)量 Float 8 InStock 入庫(kù)后庫(kù)存數(shù) Float 8 表 MAINV結(jié)存表 字段 含義 類型 長(zhǎng)度 主鍵 MAID 物品編碼 varchar 16 key KFH 庫(kù)房號(hào) varchar 15 KDRQ 最后一次出入庫(kù)時(shí)間 DATE SLIN 入庫(kù)總計(jì) NUMBER 14， 2 SLOUT 出庫(kù)總計(jì) NUMBER 14， 2 JCSL 結(jié)存數(shù)量 NUMBER 14， 2 SJJHFLAG 賬目類別標(biāo)志 INTEGER 1 表 DUIZHANG_MAIN 對(duì) 賬 單主表 字段 含義 類型 長(zhǎng)度 主鍵 DZDH 對(duì) 賬 單編號(hào) Varchar2 25 key KFH 庫(kù)房號(hào) Varchar2 15 TJND 開(kāi)單時(shí)間 DATE Flag 單據(jù)狀態(tài) NUMBER 1 ZDR 制單人 Varchar2 18 SHR 審核人 Varchar2 18 JZR 記 賬 人 Varchar2 18 表 DUIZHANG_DETAIL 對(duì) 賬 單明細(xì)表 30 字段 含義 類型 長(zhǎng)度 主鍵 DZDH 對(duì) 賬 單編號(hào) Varchar2 25 Key KFH 庫(kù)房號(hào) Varchar2 15 MAID 物品編碼 Varchar2 16 Key INQUANTITY 增加數(shù)量 NUMBER 14， 2 OUTQUANTITY 減少數(shù)量 NUMBER 14， 2 業(yè)務(wù) 功能實(shí)現(xiàn)和界面設(shè)計(jì) 用戶使用軟件首先見(jiàn)到的是系統(tǒng)的界面，界面設(shè)計(jì)應(yīng)力求美觀大方，有生動(dòng)的圖片和背景。同時(shí)界面涉及到用戶邏輯的處理，與程序的實(shí)現(xiàn)也有很大關(guān)系，所以我將這兩者結(jié)合在一起來(lái)討論。 1) 出入庫(kù)子系統(tǒng)功能與界面 倉(cāng)庫(kù)的業(yè)務(wù)管理 主要是圍繞倉(cāng)庫(kù)的出庫(kù)與入庫(kù)來(lái)進(jìn)行的，入庫(kù)與出庫(kù)管理是整個(gè)業(yè)務(wù)的核心。從操作上倉(cāng)庫(kù)出庫(kù)與入庫(kù)是兩項(xiàng)完全不同的操作，但是出入庫(kù)設(shè)計(jì)到的數(shù)據(jù)庫(kù)表結(jié)構(gòu)是完全相同的，并且在操作流程上也是十分接近的，可以用一個(gè)ActiveX DLL模塊來(lái)完成這兩項(xiàng)操作，在模塊接口中設(shè)置出入庫(kù)標(biāo)記，根據(jù)出入庫(kù)標(biāo)記來(lái)區(qū)分究竟是出庫(kù)還是入庫(kù)操作。在詳細(xì)設(shè)計(jì)中也將這兩個(gè)組件和為一體進(jìn)行設(shè)計(jì)描述。 出入庫(kù)管理模塊，分別由客戶端組件和服務(wù)端組件構(gòu)成，在客戶端由窗體、標(biāo)準(zhǔn)模塊、類模塊構(gòu)成，服務(wù)端組件由標(biāo)準(zhǔn)模塊、類模塊兩部份構(gòu)成，所有與用戶進(jìn)行交互的 操作主要由客戶端來(lái)完成，客戶端提供出入庫(kù)入庫(kù)單列表界面和出入庫(kù)單界面；所有與數(shù)據(jù)庫(kù)進(jìn)行存取的操作主要服務(wù)端來(lái)完成。 31 圖 出入庫(kù)單管理主界面中左邊是出入庫(kù)單信息區(qū)，右邊是按鈕區(qū)，信息區(qū)內(nèi)設(shè)置了兩個(gè) Spread表格控件。上半部表格為出庫(kù)單列表，表中每一項(xiàng)代表一條出入庫(kù)單的基本信息，當(dāng)用戶點(diǎn)擊表格中某一條出入庫(kù)單記錄時(shí)，下半部的出入庫(kù)單物資明細(xì)表將顯示出該出入庫(kù)單所有的物資