【正文】 續(xù)開發(fā)指定方向。 ? 規(guī)范標(biāo)準(zhǔn)統(tǒng)一 按照軟件 工程思想，采用統(tǒng)一的標(biāo)準(zhǔn)，統(tǒng)一的處理流程，統(tǒng)一的數(shù)據(jù)參數(shù)，提議標(biāo)準(zhǔn)的數(shù)據(jù)字典。設(shè)計(jì)系統(tǒng)時(shí)應(yīng)單獨(dú)設(shè)計(jì)組件進(jìn)行系統(tǒng)管理。概括起來說，即整個(gè)軟件設(shè)計(jì)中架構(gòu)要簡(jiǎn)單清晰，用戶操作要簡(jiǎn)單。 9 系統(tǒng)概要設(shè)計(jì) 系統(tǒng)設(shè)計(jì) 流程 系統(tǒng) 結(jié)構(gòu)設(shè)計(jì) 設(shè)計(jì)采用自上而下的結(jié)構(gòu)化分析（ Structured Analysis，簡(jiǎn)稱 SA）方法。 倉(cāng)庫(kù)業(yè)務(wù)管理系統(tǒng) 出入庫(kù)管理模 塊 基礎(chǔ)數(shù)據(jù)維護(hù)模塊 系統(tǒng)管理模塊 賬目管理模塊 圖 總結(jié)構(gòu) 圖 讀取數(shù)據(jù) 正確 登錄界面 身份驗(yàn)證 主控程序界面 基礎(chǔ)數(shù)據(jù)維護(hù)模塊 系統(tǒng)管理模塊 賬目管理模塊 出入庫(kù)管理模塊 主控程序界面 錯(cuò)誤提示 數(shù)據(jù)庫(kù) 圖 10 3) 賬 務(wù)管理模塊結(jié)構(gòu)圖 賬 務(wù)管理由三個(gè)組件組成，分別是收發(fā)物明細(xì) 賬 ，結(jié)存 賬 和清庫(kù)對(duì) 賬 。 基礎(chǔ)數(shù)據(jù)維護(hù)模塊 物資信息維護(hù)組件 存儲(chǔ)點(diǎn)維護(hù)組件 成套物資信息維護(hù) 人員情況管理 圖 圖 系統(tǒng) 管理 模塊 用戶信息管理 用戶角色功能權(quán)限 用戶角色管理 角色信息管理 圖 圖 賬目管理模塊 出入庫(kù)明細(xì)賬 清庫(kù)對(duì)賬 結(jié)存賬 圖 圖 出入庫(kù)管理模塊 入庫(kù)管理組件 出庫(kù)管理組件 圖 圖 11 4 系統(tǒng) 詳細(xì) 設(shè)計(jì) 與實(shí)現(xiàn) 經(jīng)過前面的需求分析已經(jīng)確定了系統(tǒng)的設(shè)計(jì)目 標(biāo)，經(jīng)過概要設(shè)計(jì)已經(jīng)確定了系統(tǒng)的總體框架，本章將采用結(jié)構(gòu)化設(shè)計(jì)方法及面向?qū)ο蟮脑O(shè)計(jì)方法描述應(yīng)用組件進(jìn)行開發(fā)的具體過程，即完成系統(tǒng)設(shè)計(jì)的詳細(xì)設(shè)計(jì)部分。 1) 通用注冊(cè)組件說明 模塊名稱 ： CLogin（通用注冊(cè)組件客戶端）， SLogin（通用注冊(cè)組件服務(wù)端） 模塊描述 ：注冊(cè)組件是整個(gè)系統(tǒng)非常關(guān)鍵的一個(gè)組件，它是主控程序首先要調(diào)用的一個(gè)組件，該組件負(fù)責(zé)創(chuàng)建與數(shù)據(jù)庫(kù)的連接。在服務(wù)端組件主要完成創(chuàng)建數(shù)據(jù)庫(kù)的連接，以及獲取數(shù)據(jù)庫(kù)的信息的操作。操作員編碼 Public OperatorName As String 39。賬 務(wù)路徑 Public CommandLine As String 39。機(jī)器名 39。數(shù)據(jù)庫(kù)口令 Public Companyname As String 39。角色代碼 Public RoleName As String 39。人員單位代碼 Public UserDwName As String 39。數(shù)據(jù)權(quán)限 Public rsSysManage As 39。保存 msgbox 標(biāo)題 通用注冊(cè)組件的注冊(cè)流程 ：模塊入口為 () ? 函數(shù)首先生成服務(wù)端的注冊(cè)類對(duì)象，并創(chuàng)建服務(wù)端對(duì)象HYConCls（注：在 HYConCls 對(duì)象初始化的時(shí)候，將創(chuàng)建服務(wù)端的另一個(gè)類對(duì)象 SysLoginCls）。其中 Combo_RollerID 控件是為了幫助程序處理角色名和角色代碼而設(shè)置的輔助控件，不在運(yùn)行時(shí)顯示。 2) 主控程序模塊說明 模塊名稱： PcssCkxtMain 模塊描述： 主控程序是程序的核心，負(fù)責(zé)程序啟動(dòng)、創(chuàng)建程序的主界面和菜單主界面以及調(diào)用程序中的各個(gè)組件的功能。以下是實(shí)現(xiàn)該功能的部分程序： Sub Main() ‘ 啟動(dòng)函數(shù) On Error Resume Next 39。 得到 注冊(cè)類 信息 If Not GetResource() Then Exit Sub 39。（建立子系統(tǒng)功能節(jié)點(diǎn)樹的算法我將結(jié)合 節(jié)對(duì)系統(tǒng)數(shù)據(jù)表結(jié)構(gòu)的分析加以說明） 16 圖 二 ? 至此，系統(tǒng)的功能節(jié)點(diǎn)就顯示在用戶面前了，在用戶點(diǎn)擊TreeView 控件中的一個(gè)節(jié)點(diǎn)時(shí)，如果不是葉子節(jié)點(diǎn)，程序?qū)言摴?jié)點(diǎn)展開，并將子節(jié)點(diǎn)顯示在界面右邊的 ListView 控件中；如果是葉子節(jié)點(diǎn)，用戶在點(diǎn)擊該項(xiàng)功能后，根據(jù)該功能的類別，系統(tǒng)調(diào)用相應(yīng)的函數(shù)啟動(dòng)該模塊進(jìn)行業(yè)務(wù)處理。 17 平臺(tái)部分 數(shù)據(jù)庫(kù)結(jié)構(gòu) 程序中涉及到的數(shù)據(jù)庫(kù)表一共有三種，分別是供平臺(tái)程序使用的系統(tǒng)表、保證系統(tǒng)正常運(yùn)行所需的基 礎(chǔ)數(shù)據(jù)的基礎(chǔ)數(shù)據(jù)表以及收發(fā)物和賬目管理等涉及到的業(yè)務(wù)數(shù)據(jù)表。 表 XT_JSXX 系統(tǒng)角色信息表 字段 含義 類型 長(zhǎng)度 主鍵 JSDM 角色代碼 Varchar2 20 key JSMC 角色名稱 Varchar2 20 JSMS 角色描述 Varchar2 50 BZ 備注 Varchar2 50 DWDM 單位代碼 Varchar2 20 T_JC_DWXX表主鍵 表 XT_YHXX 系統(tǒng)用戶信息表 字段 含義 類型 長(zhǎng)度 主鍵 YHDM 用戶代碼 Varchar2 10 key YHKL 用戶口令 Varchar2 20 RYDM 人員代碼 Varchar2 18 T_JC_RYQK表的主鍵 BZ 備注 Varchar2 40 表 XT_YHJS 系統(tǒng)用戶角色信息對(duì)照表 字段 含義 類型 長(zhǎng)度 主鍵 YHDM 用戶代碼 Varchar2 20 Key（ XT_YHXX表的主鍵） JSDM 角色代碼 Varchar2 20 Key（ XT_JSXX表的主鍵） 18 表 XT_JDXX 系統(tǒng)節(jié)點(diǎn)信息表 字段 含義 類型 長(zhǎng)度 主鍵 JDDM 節(jié)點(diǎn)代碼 Varchar2 20 key JDLXDM 節(jié)點(diǎn)類型代碼 Varchar2 20 YCXMC 源程序名稱（工程名） Varchar2 100 JDHZMC 節(jié)點(diǎn)漢字名稱 Varchar2 30 SJJDDM 上級(jí)節(jié)點(diǎn)代碼 Varchar2 30 DYLB 調(diào)用類別 int 4 DYCS 調(diào)用參數(shù) int 2 對(duì)節(jié)點(diǎn)信息表的說明 節(jié)點(diǎn)信息表中保存的就是系統(tǒng) 的功能樹。 3) YCXMC（源程序名稱） ,DYLB（調(diào)用類別） ,DYCS（調(diào)用參 數(shù)）三個(gè)數(shù)據(jù)項(xiàng)與程序模塊的啟動(dòng)有關(guān)。 DYLB 為 3 說明是使用配置 XML 文件的形式生成的節(jié)點(diǎn)，YCXMC 中包括了該 XML 文件的文件名和調(diào)用通用配置模塊所需要的參數(shù)。 strModuleId, strMFName, 1, 2) = 1 = 2 Call CreateTree(oNodex, aCount) End If If strMFName And StrYeziFlag = 01 And t + strUpper = Then 39。 strDycs, strMFName, 1, 2) = CStr(iDylb) 20 = 2 End If If iDylb = 1 Or iDylb = 2 Then Set oNodex = (, tvwChild, t amp。 sttmp amp。 strModulePath amp。 表 MARELATION 成配套物資信息對(duì)照表 字段 含義 類型 長(zhǎng)度 主鍵 CHENGTAOID 成套物資代碼 Varchar2 20 Key(T_JC_WZDM表主鍵 ) PEITAOID 配套物資代碼 Varchar2 20 Key（ T_JC_WZDM表主鍵） SHULIANG 配套物資數(shù)量 Number 7,2 22 表 T_JC_WZDL 物資大類表 字段 含義 類型 長(zhǎng)度 主鍵 DLDM 大類代碼 Varchar2 2 Key DLMC 大類名稱 Varchar2 20 表 T_JC_DWXX 單位信息表 字段 含義 類型 長(zhǎng)度 主鍵 DWLB 單位類別 Number 2 DWDM 單位代碼 Varchar2 20 Key DWDZ 單位地址 Varchar2 60 DWMC 單位名稱 Varchar2 20 表 T_JC_RYQK 人員情況表 字段 含義 類型 長(zhǎng)度 主鍵 DWDM 單位代碼 Varchar2 2 JMSFZH 居 民身份證號(hào) Varchar2 20 Key XB 性別 Number 2 XM 姓名 Varchar2 10 CSSJ 出生時(shí)間 Date WHCD 文化程度 Varchar2 10 BZ 備注 Varchar2 400 至此，軟件平臺(tái)的分析就結(jié)束了，通過上面的分析可以看出，平臺(tái)程序與系統(tǒng)、基礎(chǔ)數(shù)據(jù)表相關(guān)聯(lián)構(gòu)成了一個(gè)完整的軟件平臺(tái)。 下面對(duì)他們分別進(jìn)行分析： 23 1) ActiveX DLL 組件：每個(gè) ActiveX DLL 組件都分為兩個(gè)工程來創(chuàng)建，分別是客戶端和服務(wù)端組件。如果 objCommonInfo 不是錯(cuò)誤的并且不為空，則將該對(duì)象賦值給客戶端組件中的 LoginObj 對(duì)象保存，否則將 LoginObj對(duì)象留空。 2) 通用配置組件是中軟公司根據(jù)本公司的業(yè) 務(wù)需求，使用 VB 開發(fā)出來的一個(gè)公共組件，它本身也是一個(gè) Active DLL 組件。調(diào)用個(gè)性化組件 Public Sub LoadActiveDLL(ByVal pstrId As String, ByVal pstrOrder As String, ByVal pstrName) Dim strtemp As String Dim iTemp As Integer On Error Resume Next strtemp = pstrId amp。調(diào)用通用列表組件 Public Sub LoadActiveList(ByVal pstrId As String, ByVal pstrOrder As String, ByVal pstrName) Dim strtemp, strxml As String Dim strmd As String Dim strpath As String Dim iTemp As Byte On Error Resume Next strxml = Trim(Right(pstrId, Len(pstrId) InStr(1, pstrId, ?))) strtemp = Trim(Left(pstrId, InStr(1, pstrId, ?) 1)) strmd = If InStr(1, strtemp, ) 0 Then strmd = Trim(Right(strtemp, Len(strtemp) InStr(1, strtemp, ))) strtemp = Trim(Left(strtemp, InStr(1, strtemp, ) 1)) End If strpath = + \xml strtemp = strtemp amp。調(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=。Persist Security Info=True。Data Source= amp。所以對(duì)通用 XML 配置組件以及 Exe 程序的調(diào)用與 實(shí)現(xiàn)不是很了解，在這里就不再深入討論了。 在本地客戶端應(yīng)用程序讀取數(shù)據(jù)庫(kù)的過程中，首先要通過訪問 ACCESS 數(shù)據(jù)表單來讀取數(shù)據(jù)庫(kù)鏈接信息，在本地建