【正文】 型 關(guān)鍵字 說(shuō)明 SID CHAR Yes 存儲(chǔ)記錄 SbBaleID CHAR 存儲(chǔ)貨品編號(hào) SDepotID CHAR 存儲(chǔ)倉(cāng)庫(kù)編號(hào) STotal CHAR 存儲(chǔ)數(shù)量 ? ADO程序接口設(shè)計(jì) A) 數(shù)據(jù)庫(kù)的訪問(wèn)控制方法： 目前在 VB 中 可以通過(guò)三種方式訪問(wèn)數(shù)據(jù)庫(kù)： IDC（ Inter Database Connector）方式； IDC 是一個(gè)傳統(tǒng)的數(shù)據(jù)庫(kù)查詢工具，用來(lái)定義和執(zhí)行數(shù)據(jù)庫(kù)查詢的 SQL命令，并向?yàn)g覽器返回一個(gè)指定數(shù)據(jù)格式的頁(yè)面。 ADO（ ActiveX Data Objects）方式； ADO 訪問(wèn)數(shù)據(jù)庫(kù)，更像編寫(xiě)數(shù)據(jù)庫(kù)應(yīng)用程序。 ADO 是 ASP 技術(shù)的核心之一，它集中體現(xiàn)了 ASP 技術(shù)豐富而靈活的數(shù)據(jù)庫(kù)訪問(wèn)功能。 一般使用 ADO訪問(wèn)數(shù)據(jù)庫(kù)的程序應(yīng)該使用 Connection對(duì)象建立并管理與遠(yuǎn)程數(shù)據(jù)庫(kù)的連接，用 Command 對(duì)象提供靈活的查詢，用 Recordset 對(duì)象訪問(wèn)數(shù)據(jù)庫(kù)查詢所返回的結(jié)果。 這種方式將是我的設(shè) 計(jì)中用到的主要數(shù)據(jù)庫(kù)訪問(wèn)方式。 RDS 提供訪問(wèn)遠(yuǎn)程數(shù)據(jù)庫(kù)的功能。而 RDS 支持?jǐn)?shù)據(jù)遠(yuǎn)程操作。 B) ADO 定義編程模型，即訪問(wèn)和更新數(shù)據(jù)源所必需的活動(dòng)順序。 編程 模型意味著對(duì)象模型，即響應(yīng)并執(zhí)行編程模型的“對(duì)象”組。 與對(duì)象關(guān)聯(lián)的是“事件”，事件是某些操作已經(jīng)發(fā)生或?qū)⒁l(fā)生的通知。同時(shí)，可確定對(duì)數(shù)據(jù)源的所有更改是否已成功或沒(méi)有發(fā)生。 3. 執(zhí)行命令。 5. 適當(dāng)情況下，可使用緩存 行的更改內(nèi)容來(lái)更新數(shù)據(jù)源。 在典型情況下，需要在編程模型中采用所有這些步驟。例如：將數(shù)據(jù)從文件直接存儲(chǔ)到緩存行，然后僅用 ADO 資源對(duì)數(shù)據(jù)進(jìn)行檢查。通過(guò)如 Microsoft174。 對(duì)象模型使用 Connection 對(duì)象使連接概念得以具體化。 ADO 可明確事務(wù)中的操作造成的對(duì)數(shù)據(jù)源的更改或者成功發(fā)生，或者根本沒(méi)有發(fā)生。 對(duì)象模型無(wú)法清楚地體現(xiàn)出事務(wù)的概念，而是用一組 Connection 對(duì)象方法來(lái)表示。一般 情況下，命令可以在數(shù)據(jù)源中添加、刪除或更新數(shù)據(jù)，或者在表中以行的格式檢索數(shù)據(jù)。 Command 對(duì)象使 ADO 能夠優(yōu)化對(duì)命令的執(zhí)行。例如，可重復(fù)發(fā)出相同的數(shù)據(jù)檢索命令，但每一次均可更改指定的檢索信息。例如，可發(fā)出一項(xiàng)銀行過(guò)戶命令，從一方借出貸給另一方。 對(duì)象模型用 Parameter 對(duì)象來(lái)體現(xiàn)參數(shù)概念。 對(duì)象模型將該存儲(chǔ)體現(xiàn)為 Recordset 對(duì)象。 記錄集是在行中檢查和修改數(shù)據(jù)最主要的方法。 2. 移動(dòng)行。 4. 添加、更改或刪除行。 6. 管理 Recordset 的總體狀態(tài)。如果將記錄集看作二維網(wǎng) 格，字段將排列構(gòu)成“列”。 對(duì)象模型以 Field 對(duì)象體現(xiàn)字段。作為選項(xiàng)， Connection 對(duì)象的事務(wù)管理方法能夠可靠地保證更改要么全部成功，要么全部失敗。 對(duì)象模型以 Error 對(duì)象體現(xiàn)錯(cuò)誤。 屬性 每個(gè) ADO 對(duì)象都有一組唯一的“屬性”來(lái)描述或控制對(duì)象的行為。內(nèi)置屬性是 ADO 對(duì)象的一部分并且隨時(shí)可用。 對(duì)象模型以 Property 對(duì)象體現(xiàn)屬性。使用集合方法可按名稱（文本 字符串）或序號(hào)（整型數(shù)）對(duì)集合中的對(duì)象進(jìn)行檢索。 Command 對(duì)象具有 Parameters 集合，包含應(yīng)用于 Command 對(duì)象的所有 Parameter 對(duì)象。 另外， Connection、 Command、 Recordset 和 Field 對(duì)象都具有 Properties 集合。 ADO 對(duì)象擁有可在其上使用的諸如“整型”、“字符型”或“布爾型”這樣的普通數(shù)據(jù)類(lèi)型來(lái)設(shè)置或檢索值的屬性。相應(yīng)的，集合對(duì)象具有存儲(chǔ)和檢索適合該集合的其他對(duì)象的方法。一般情況下，可用事件高效地編寫(xiě)包含幾個(gè)異步任務(wù)的應(yīng)用程序。 在操作開(kāi)始之前調(diào)用的事件處理程序便于對(duì)操作參數(shù)進(jìn)行檢查或修改，然后取消或允許操作完成。多個(gè)操作經(jīng)過(guò)增強(qiáng)可以有選擇地異步執(zhí)行。 E) ADO 常用對(duì)象和方法： Connection 對(duì)象： ADO 數(shù)據(jù)庫(kù)連接對(duì)象，用于實(shí)現(xiàn) ADO 與數(shù)據(jù)庫(kù)之間的連接。 Recordset 對(duì)象： ADO 記錄集對(duì)象，用于保存 SQL 執(zhí)行命令結(jié)果。 Delete 方法：刪除數(shù)據(jù)庫(kù)中的記錄。 ? VB程序設(shè)計(jì) 名稱 類(lèi)型 說(shuō)明 MDIFrmMain MDI Form 主 MDI窗體 FrmBaleAdd Form(MDI Child) 貨品添加窗體 FrmBaleDel Form(MDI Child) 貨品刪除窗體 FrmBaleUpdate Form(MDI Child) 貨品資料更改窗體 FrmDepotAdd Form(MDI Child) 倉(cāng)庫(kù)添加窗體 FrmDepotDel Form(MDI Child) 倉(cāng)庫(kù)刪除窗體 FrmDepotUpdate Form(MDI Child) 倉(cāng)庫(kù)資料更改窗體 FrmBaleIn Form(MDI Child) 進(jìn)貨管理窗體 FrmBaleOut Form(MDI Child) 出活管理窗體 FrmBaleUpdate Form(MDI Child) 貨品流動(dòng)管理窗體 FrmSysManage Form(MDI Child) 系統(tǒng)管理窗體 FrmLogin Form(MDI Child) 登陸窗體 FrmAbout Form 關(guān)于窗體 DataEnv DataEnvironment 報(bào)表數(shù)據(jù)環(huán)境 DataRepBale DataReport 貨品報(bào)表 DataRepDepot DataReport 倉(cāng)庫(kù)報(bào)表 ModBoot Module 啟動(dòng)模塊 七、模塊詳細(xì)設(shè)計(jì) A. 貨品添加窗體： ? 窗體控件： 控件名稱 說(shuō)明 FrmBaleAdd 貨品添加窗體 FraMain 主框架 TxtBaleID 貨品 ID信息文本框 TxtBaleName 貨品名稱信息文本框 TxtBlaeFrom 貨品產(chǎn)地信息文本框 TxtBaleSpec 貨品規(guī)格信息文本框 TxtBalePrice 貨品價(jià)格信息文本框 TxtBaleMemeo 貨品備注信息文本框 CmdAddNew 添加按鈕 CmdConfirm 確定操作按鈕 CmdCancel 撤消操作按鈕 CmdRefresh 刷新按鈕 CmdExit 退出按鈕 AdoMain 主 ADO控件 AdoTest 測(cè)試 ADO控件 ? 該窗體在用戶登陸時(shí)列出所有貨品清單，但用 戶選擇添加貨品記錄后，會(huì)激活資料輸入功能，若用戶輸入完成后點(diǎn)擊確認(rèn)后，會(huì)自動(dòng)檢測(cè)是否在數(shù)據(jù)庫(kù)中有沒(méi)有重復(fù)編號(hào)的數(shù)據(jù)。檢查是否有重復(fù)的貨品 ID = SELECT * FROM Bale WHERE BaleID=39。 amp。 If Not Then aa = MsgBox(相同貨品編號(hào)已經(jīng)存在，請(qǐng)重新輸入！ , vbOKOnly, ) Else = True = True = False = False = SELECT * FROM Bale End If End If End Sub Private Sub CmdCancel_Click() //撤消添加 = True = True = False = False UnActiveTextBox End Sub B. 貨品刪除窗體： 控件名稱 說(shuō)明 FrmBaleDel 貨品刪 除窗體 FraMain 主框架 TxtBaleID 貨品 ID信息文本框 TxtBaleName 貨品名稱信息文本框 TxtBlaeFrom 貨品產(chǎn)地信息文本框 TxtBaleSpec 貨品規(guī)格信息文本框 TxtBalePrice 貨品價(jià)格信息文本框 TxtBaleMemeo 貨品備注信息文本框 CmdDel 刪除按鈕 CmdConfirm 確定操作按鈕 CmdCancel 撤消操作按鈕 CmdRefresh 刷新按鈕 CmdExit 退出按鈕 AdoMain 主 ADO控件 AdoTest 測(cè)試 ADO控件 ? 在該窗體中當(dāng)用戶點(diǎn)擊了刪除按鈕會(huì)提示是否真正要?jiǎng)h除，如果用戶確認(rèn)，則刪除當(dāng)前記錄，否則撤消操作。若有，拒絕添加，具體代碼如下： Private Sub CmdCancel_Click() //撤消更新 = True = True = False = False UnActiveTextBox End Sub Private Sub CmdConfirm_Click() //確認(rèn)更新 If = Or = Then aa = MsgBox(請(qǐng)?zhí)顚?xiě)貨品編號(hào)和名稱 , vbOKOnly, ) Else 39。 amp。 39。 ? 窗體代碼： Private Sub M_About_Click() //關(guān)于菜單單擊事件 End Sub Private Sub M_BaleAdd_Click() //貨品資料添加菜單單擊事件 End Sub Private Sub M_BalecMove_Click() //貨品流動(dòng)菜單單擊事件 End Sub Private Sub M_BaleUpdate_Click() //貨品資料修改菜單單擊事件 End Sub Private Sub M_BaleDel_Click() //貨品刪除菜單單擊事件 End Sub Private Sub M_DepotAdd_Click() //倉(cāng)庫(kù)添加菜單單擊事件 End Sub Private Sub M_DepotDel_Click() //倉(cāng)庫(kù)刪除菜單單擊事件 End Sub Private Sub M_DepotUpdate_Click() //倉(cāng)庫(kù)資料修改菜單單擊事件 End Sub Private Sub M_Exit_Click() //退出菜單單擊事件 If PubLogin Then aa = MsgBox(用戶 39。 PubLogin amp。 正在登錄中，確實(shí)要退出嗎？ , vbYesNo, ) If aa = vbYes Then End End If Else End End If End Sub Private Sub M_Login_Click() //登陸菜單單擊事件 If PubLogin Then aa = MsgBox(用戶 39。 PubLogin amp。 已經(jīng)在登錄狀態(tài)！ , vbOKOnly, ) Else End If End Sub Private Sub M_Logout_Click() //登出菜單單擊事件 If PubLogin Then aa = MsgBox(用戶 39。 PubLogin amp。 正在登錄中，確實(shí)要更換用戶嗎？ , vbYesNo, ) If aa = vbYes Then Unload FrmLogin PubLogin = = False = False = False = False = False End If Else Unload FrmLogin End If End Sub Private Sub M_ReportBale_Click() //貨品報(bào)表菜單單擊事件 End Sub Private Sub M_ReportDepot_Click() //倉(cāng)庫(kù)報(bào)表菜單單擊事件 End Sub Private Sub M_SysManage_Click() //系統(tǒng)設(shè)置