【文章內(nèi)容簡(jiǎn)介】 創(chuàng)建與數(shù)據(jù)庫(kù)的連接。整個(gè)注冊(cè)組件由客戶端（ Client）和服務(wù)端（ Server）兩部分組成。其中客戶端組件由窗體、標(biāo)準(zhǔn)模塊、類模塊構(gòu)成，而服務(wù)端組件由標(biāo)準(zhǔn)模塊、類模塊兩部份構(gòu)成。在客戶端主要完成用戶登陸，以及處理由服務(wù)端獲取的數(shù)據(jù)庫(kù)信息等操作。在服務(wù)端組件主要完成創(chuàng)建數(shù)據(jù)庫(kù)的連接，以及獲取數(shù)據(jù)庫(kù)的信息的操作。 模塊組成： 客戶端包括類模塊 Interface 和標(biāo)準(zhǔn)模塊 StartMain 以及窗體 frmRegisterADO；服務(wù)端包括類模塊 HYConCls 和 SysLoginCls 以及標(biāo)準(zhǔn)模塊 HyLoginMain。此外注冊(cè)組件的服務(wù)端與客戶端模塊都包含注冊(cè)類 LoginCls 對(duì)象，注冊(cè)類對(duì)象是注冊(cè)組件在注冊(cè)成功后生成的，并將作為默認(rèn)的參數(shù)由主控程序傳遞給所有被調(diào)用的模塊。 12 注冊(cè)類 (LoginCls)的結(jié)構(gòu)如下： Public OperatorID As String 39。操作員編碼 Public OperatorName As String 39。操作員名稱 Public Password As String 39。密碼 Public GXCPath As String 39。供銷存路徑 Public ZWPath As String 39。賬 務(wù)路徑 Public CommandLine As String 39。命令行 Public ModuleId As String 39。模塊編碼 Public DataID As Byte 39。賬 套號(hào) Public DataName As String Public MachineName As String 39。機(jī)器名 39。與連接數(shù)據(jù)庫(kù)相關(guān) Public Servername As String 39。數(shù)據(jù)庫(kù)服務(wù)名 Public Serveruser As String 39。數(shù)據(jù)庫(kù)用戶名 Public serverpassword As String 39。數(shù)據(jù)庫(kù)口令 Public Companyname As String 39。公司名 Public AccountYear As String 39。記 賬 年度 Public SysType As Integer 39。系統(tǒng)分類 0 被裝 1 給養(yǎng) Public UserRole As String 39。角色代碼 Public RoleName As String 39。角色描述 Public UserID As String 39。人員代碼 Public UserName As String 39。人員姓名 Public UserDwID As String 39。人員單位代碼 Public UserDwName As String 39。人員單位描述 39。數(shù)據(jù)和控制權(quán)限 Public rsCtlLimit As 39。用戶 控制權(quán)限 Public rsDataLimit As 39。數(shù)據(jù)權(quán)限 Public rsSysManage As 39。系統(tǒng)管理權(quán)限 39。讀取系統(tǒng)資源 Public m_MainIcon As Object 39。用于保存主圖標(biāo) 13 Public m_strm_strHyNoticeAs String 39。保存 msgbox 標(biāo)題 通用注冊(cè)組件的注冊(cè)流程 ：模塊入口為 () ? 函數(shù)首先生成服務(wù)端的注冊(cè)類對(duì)象，并創(chuàng)建服務(wù)端對(duì)象HYConCls（注：在 HYConCls 對(duì)象初始化的時(shí)候，將創(chuàng)建服務(wù)端的另一個(gè)類對(duì)象 SysLoginCls）。 ? 然后調(diào)用服務(wù)端的 GetgxcZt 方法來(lái)獲得系統(tǒng)配置文件中數(shù)據(jù)庫(kù)連接的信息，包括數(shù)據(jù)庫(kù)服務(wù)名，數(shù)據(jù)庫(kù)用戶名和用戶口令。 ? 在獲得上述信息后，客戶端將初始化登陸界面。 圖 系統(tǒng)登 錄 界面 注釋：本系統(tǒng)是基于用戶、角色雙重權(quán)限管理的，所以在登陸界面中，設(shè)置了用戶名（ txtOperator）、用戶口令（ txtPassword）兩個(gè) TextBox控件，角色名（ Combo_Roller）和角色代碼（ Combo_RollerID）兩個(gè) ComboBox控件以及“登陸”和“退出”兩個(gè)按鈕。其中 Combo_RollerID 控件是為了幫助程序處理角色名和角色代碼而設(shè)置的輔助控件，不在運(yùn)行時(shí)顯示。 ? 用 戶 先 輸入 用戶 名 ，然 后 在輸 入密 碼 的時(shí) 候 ，將 引發(fā)txtOperator 控件的 LostFocus 事件，該事件中，程序調(diào)用服務(wù)端 14 SysLoginCls 的 GetRollerInfo 方法來(lái)獲取用戶可用的角色信息，并顯示在 Combo_Roller 控件中。 ? 用戶輸入了密碼并選擇 了自己希望使用的角色后，點(diǎn)擊“登陸”按鈕，程序?qū)z查用戶輸入的密碼是否正確，如果不正確，將提示用戶重新輸入密碼，通過(guò)密碼檢查后，程序?qū)⒂脩舻漠?dāng)前可用權(quán)限從數(shù)據(jù)庫(kù)中取出，保存在注冊(cè)類中的名為 rsCtlLimit 的 對(duì)象中，并正常退出程序。至此注冊(cè)操作完成。 2) 主控程序模塊說(shuō)明 模塊名稱： PcssCkxtMain 模塊描述： 主控程序是程序的核心，負(fù)責(zé)程序啟動(dòng)、創(chuàng)建程序的主界面和菜單主界面以及調(diào)用程序中的各個(gè)組件的功能。 模塊組成： 主控程序由主窗體 FrmMain 分模塊菜單窗體 FrmZbglMain、標(biāo)準(zhǔn)模塊 Mpublic 和類模塊 CMainFun 構(gòu)成。 主控程序的執(zhí)行流程： ? 在標(biāo)準(zhǔn)模塊 Mpublic 中，包含了系統(tǒng)的啟動(dòng)函數(shù)。啟動(dòng)函數(shù)首先調(diào)用注冊(cè)組件進(jìn)行注冊(cè)以獲得注冊(cè)類信息，注冊(cè)組件調(diào)用結(jié)束后，進(jìn)入系統(tǒng)主界面 FrmMain。以下是實(shí)現(xiàn)該功能的部分程序： Sub Main() ‘ 啟動(dòng)函數(shù) On Error Resume Next 39。遇到錯(cuò)誤則跳過(guò)，執(zhí)行下一條語(yǔ)句 Set objLogin = CreateObject() 39。創(chuàng)建注冊(cè)組件的客戶端對(duì)象 If objLogin Is Nothing Then MsgBox 調(diào)用注冊(cè)組件失敗，程序無(wú)法進(jìn)行 , vbOKOnly Exit Sub End If Call 39。 應(yīng)用 objLogin對(duì)象調(diào)用注冊(cè)方法進(jìn)行注冊(cè) Call (m_CLogin) 39。 得到 注冊(cè)類 信息 If Not GetResource() Then Exit Sub 39。 獲取外部資源（包括程序圖標(biāo)和窗體標(biāo)題） If Not m_CLogin Is Nothing And Not m_objFrmMain Is Nothing Then ‘ 注冊(cè)無(wú)誤，初始化系統(tǒng)得主窗體 15 End If If m_CLogin Is Nothing And Not m_objFrmMain Is Nothing Then Unload m_objFrmMain ‘ 注冊(cè)信息有誤，將主窗體卸載 End If End Sub 圖 主控程序界面一 ? FrmMain 窗體中 設(shè)置了四個(gè) Image 控件作為子系統(tǒng)的功能選擇按鈕，并且還有兩個(gè) Image 控件作為“退出系統(tǒng)”和“重新登錄”的按鈕。進(jìn)入系統(tǒng)主界面后，用戶單擊子系統(tǒng)功能按鈕會(huì)引發(fā)相應(yīng) Image控件的 Click 事件，在事件函數(shù)中，程序?qū)⑾鄳?yīng)子系統(tǒng)的代碼和名稱作為參數(shù)傳遞給 FrmZbglMain 窗體中的 CreateTreeMenu 方法以初始化窗體中的 TreeView 控件建立子系統(tǒng)功能樹。之后進(jìn)入 FrmZbglMain窗體中。（建立子系統(tǒng)功能節(jié)點(diǎn)樹的算法我將結(jié)合 節(jié)對(duì)系統(tǒng)數(shù)據(jù)表結(jié)構(gòu)的分析加以說(shuō)明） 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ù)處理。 3) 平臺(tái)部分程序總結(jié) 平臺(tái)程序是與業(yè)務(wù)無(wú)關(guān)的，所以他們的獨(dú)立性非常強(qiáng)。在注冊(cè)模塊中，數(shù)據(jù)庫(kù)鏈接 字符串 是通過(guò)讀取配置文件中得數(shù)據(jù)庫(kù)類型和鏈接信息來(lái) 獲取 的，可以通過(guò)設(shè)置配置文件修改系統(tǒng)鏈接的數(shù)據(jù)庫(kù)；而主控程序則不訪問(wèn)數(shù)據(jù)庫(kù)，用戶的權(quán)限信息以及 用戶的基本信息都是保存在注冊(cè)類中的所以平臺(tái)程序的可擴(kuò)充性也非常強(qiáng)，只需要修改數(shù)據(jù)庫(kù)中的系統(tǒng)信息表，就可以完成系統(tǒng)的升級(jí)改造。對(duì)于企業(yè)來(lái)說(shuō)，這樣的結(jié)構(gòu)，可以為企業(yè)進(jìn)行快速開發(fā)和產(chǎn)品升級(jí)維護(hù)帶來(lái)便利。 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ù)表。本節(jié)介紹的是軟件平臺(tái)，所以這里只對(duì)數(shù)據(jù)庫(kù)中的系統(tǒng)表以及 基礎(chǔ)數(shù)據(jù)表進(jìn)行說(shuō)明。對(duì)業(yè)務(wù)數(shù)據(jù)表的說(shuō)明，請(qǐng)參閱 節(jié) 中對(duì)業(yè)務(wù)數(shù)據(jù)表的設(shè)計(jì)。 1) 系統(tǒng)表設(shè)計(jì) 系統(tǒng)表是供主控程序使用的數(shù)據(jù)表，本系統(tǒng)使用用戶和角色兩套權(quán)限管理 機(jī)制 ， 所以 系統(tǒng)表最少需要用戶信息、角色信息、用戶角色相應(yīng)關(guān)系、系統(tǒng)節(jié)點(diǎn)信息、用戶權(quán)限、角色權(quán)限這六張數(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)信息表的說(shuō)明 節(jié)點(diǎn)信息表中保存的就是系統(tǒng) 的功能樹。其中節(jié)點(diǎn)代碼是主鍵。 1) JDDM(節(jié)點(diǎn)代碼 )的命名規(guī)則：節(jié)點(diǎn)代碼以兩位為一個(gè)單位，如 0 02?代表系統(tǒng)中子系統(tǒng)的根節(jié)點(diǎn)；而 0101代表節(jié)點(diǎn) 01下的第一個(gè)孩子節(jié)點(diǎn)， 0102代表 0101的兄弟節(jié)點(diǎn)， 010101 代表 0101 的孩子節(jié)點(diǎn)?以此類推。 2) JDLXDM（節(jié)點(diǎn)類型代碼）表示該節(jié)點(diǎn)是否是葉子節(jié)點(diǎn)，如果該鍵為 00 說(shuō)明該節(jié)點(diǎn)不是葉子節(jié)點(diǎn)，如果為 01說(shuō)明該節(jié)點(diǎn)是葉子節(jié)點(diǎn)，配合 SJJDDM（上級(jí)節(jié)點(diǎn)代碼）項(xiàng)，可以建立任何一個(gè)節(jié)點(diǎn)開始的節(jié)點(diǎn)樹。 3) YCXMC（源程序名稱） ,DYLB（調(diào)用類別） ,DYCS（調(diào)用參 數(shù)）三個(gè)數(shù)據(jù)項(xiàng)與程序模塊的啟動(dòng)有關(guān)。前面已經(jīng)說(shuō)明，除了平臺(tái)程序外，系統(tǒng)中的應(yīng)用程序模塊有三種實(shí)現(xiàn)方式： DYLB 為 1 時(shí)說(shuō)明該節(jié)點(diǎn)是以單獨(dú)的 ActiveX DLL 形式來(lái)實(shí)現(xiàn)的，并且該模塊的接口一定為 (LoginObj,DYCS)。主控程序可以調(diào)用 CreateObject（“ ”）來(lái)生成上面的對(duì)象，并將主控程序中的注冊(cè)類和 DYCS 作為參數(shù)傳遞給該接口。 DYLB 為 2 說(shuō)明該節(jié)點(diǎn)是一個(gè)Exe 文件， YCXMC 就是該 Exe 文件的路徑名，主控程序?qū)⒄{(diào)用 ShellExecute 方法來(lái)啟動(dòng)該 Exe 程序。 DYLB 為 3 說(shuō)明是使用配置 XML 文件的形式生成的節(jié)點(diǎn)，YCXMC 中包括了該 XML 文件的文件名和調(diào)用通用配置模塊所需要的參數(shù)。 下面，我給出主控程序模塊中，生成功能節(jié)點(diǎn)樹的程序代碼段： Public Sub CreateTree(aNode As Node, ByVal aCount As Integer) Dim oNodex As Node Dim strMFCount As String Dim strMFName As String 19 Dim tyeFontInfo As FontInfo Dim objCMainFun As CMainFun Dim inti As Integer Dim strRegId As String Dim intPicIndex As Integer Dim StrYeziFlag