【正文】 不存在科研人員 ID 編號(hào)刪除失敗 ,退出 MsgBox 錯(cuò)誤，不存在的科研人員 ID 編號(hào)記錄！ , vbExclamation Set rs = Nothing Exit Sub End If = True = ( ) / 2 39?？蒲腥藛T電話 rs(SELLER_XUEL) = () 39。判斷科研人員電話輸入框不為空 MsgBox 科研人員電話不能為空！ , vbCritical Exit Sub End If If = 1 Then 39。其代碼如下： Private Sub Form_Load() Dim sql As String Dim rs As New = ( ) / 2 39。 strDataSource End If 39。 。從 ini 文件中得到連接SqlServer 的用戶名 strPassword = 39。退出管理系統(tǒng) End Sub Private Sub menu_FixOrder_Click() 1 39。登錄窗體信息清空 = 39。 2）科研人員相關(guān)信息：包括科研人員代碼，名稱，職稱，電子郵件，電話，學(xué)歷，政治面貌，名族等。 圖 13登錄窗界面 主窗口界面用于調(diào)用各種功能的主窗口的操作，其上有菜單選項(xiàng)，界面上也放置有各選項(xiàng)對(duì)應(yīng)的快捷按鈕可供選擇。判斷數(shù)據(jù)庫是否已經(jīng)打開 如果打開則先關(guān)閉 6. If = adStateOpen Then 7. 8. End If 9. 10. Dim strConnect As String 11. = 3 第 2 章 科研人員信息管理系統(tǒng)的開發(fā)平臺(tái) 7 12. 13. Select Case bs 14. Case 0: 15. 39。39。39。39。39。39。 第 2 章 科研人員信息管理系統(tǒng)的開發(fā)平臺(tái) 5 VisualBasic 的特點(diǎn) （ 1） Visual BASIC 提供可視化的編程工具 用傳統(tǒng)的高級(jí)語言編程時(shí)，程序的各種功能、用戶界面和顯示的結(jié)果全要由程序語句來實(shí)現(xiàn)，這就增加了編程難度。模塊化的功能設(shè)計(jì) ,使其可以很簡(jiǎn)單的添加新的功能 .本文主要介紹的是訪問 SQL Server 數(shù)據(jù)庫。 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計(jì)論文 2 第 2 章 科研人員信息管理系統(tǒng)的開發(fā)平臺(tái) 開發(fā)環(huán)境 本系統(tǒng)在設(shè)計(jì)時(shí)采用了基于微軟公司 Windows XP SP3 操作系統(tǒng)的平臺(tái) ,前臺(tái)客戶端程序運(yùn)用美國(guó)著名的微軟公司開發(fā)的信息 系統(tǒng)編程語言 visualBasic進(jìn)行編寫 ,后臺(tái)數(shù)據(jù)庫系統(tǒng)則是使用了微軟公司在大型關(guān)系庫領(lǐng)域的旗艦產(chǎn)品SQL Server ,開發(fā)工具在當(dāng)今的數(shù)據(jù)庫開發(fā)領(lǐng)域使用也是及其廣泛 ,這樣可以保證程序能夠最大程度上兼容現(xiàn)在大多數(shù)工作平臺(tái) ,也使得本系統(tǒng)可以更好的與時(shí)代接軌 . 需要加以說明的是 ,本系統(tǒng)在設(shè)計(jì)時(shí)雖然采用的是這樣的開發(fā)環(huán)境 ,但是其中大部分內(nèi)容在不同的軟件版本環(huán)境下有一定的通用性 . 后臺(tái)數(shù)據(jù)庫 SQL Server 2021 簡(jiǎn)介 本系統(tǒng)的 后臺(tái)數(shù)據(jù)庫采用的是微軟公司開發(fā)的 SQL Server 2021,它是目前Windows 平臺(tái)上安裝最多的數(shù)據(jù)庫產(chǎn)品之一 .SQL Server 2021 所代表的不僅僅是一個(gè)軟件 ,它和它的相關(guān)聯(lián)產(chǎn)品 ,如數(shù)據(jù)倉庫軟件 ,內(nèi)容管理軟件等 ,一起構(gòu)成了一整套數(shù)據(jù)庫應(yīng)用和數(shù)據(jù)分析的解決方案 ,從而成為廣大 Windows 平臺(tái)企業(yè)用戶在電子商務(wù)應(yīng)用領(lǐng)域的首要選擇 . SQL Server 2021 是一個(gè)非常典型的客戶機(jī) /服務(wù)器體系結(jié)構(gòu)應(yīng)用程序 .根據(jù)各模塊功能的不同 ,SQL Server 2021 可以被劃分為 :客戶端組件 ,服務(wù)器端組件 和通信組件三部分 .本系統(tǒng)主要是利用 SQL Server 2021 來建立數(shù)據(jù)庫服務(wù)器以及對(duì)其進(jìn)行的操作 ,客戶端程序的編寫是靠 PowerBuilder 來實(shí)現(xiàn) ,所以應(yīng)用到的主要是其中的服務(wù)器端組件和通信組件 . 其中服務(wù)器端組件主要應(yīng)用到的組件有 : .SQL Server 以服務(wù)的形式實(shí)現(xiàn) ,是 SQL Server 2021 數(shù)據(jù)庫管理系統(tǒng)的 核心數(shù)據(jù)庫引擎 ,管理著系統(tǒng)擁有的所有文件 ,是系統(tǒng)內(nèi)唯一可以直接讀取和修改數(shù)據(jù)的組件 .主要功能是負(fù)責(zé)協(xié)調(diào)和安排客戶端服務(wù)請(qǐng)求的執(zhí)行順序 ,然后逐一解釋和執(zhí)行 SQL 指令 ,并返回執(zhí)行 結(jié)果 . .SQL Server Agent 以服務(wù)的形式存在 ,提供 SQL Server 的調(diào)度服務(wù) ,第 2 章 科研人員信息管理系統(tǒng)的開發(fā)平臺(tái) 3 通過對(duì)其配置和使用 ,用戶可以實(shí)現(xiàn)數(shù)據(jù)庫系統(tǒng)的定時(shí) ,自動(dòng)管理 . 由于設(shè)計(jì)的考慮 ,本系統(tǒng)沒有采用分布式數(shù)據(jù)庫 ,用來協(xié)調(diào)和處理分布式事務(wù)的 MS DTC 組件就沒有得到應(yīng)用 . SQL Server 2021 的客戶端組件在本文中主要得到應(yīng)用的是企業(yè)管理器 .企業(yè)管理器是圖形化的集成管理工具 ,使用企業(yè)管理器可以實(shí)現(xiàn) SQL Server 2021服務(wù)器有效的配置和管理 ,本文主要利用其來創(chuàng)建和修改數(shù)據(jù)庫服務(wù)器 . 通信組件的分析 由于涉及到具體的操作 ,所以放在后面章節(jié)加以介紹 . 企業(yè)管理器 本系統(tǒng)對(duì) SQL Server 2021 的使用主要是通過操作企業(yè)管理器來加以實(shí)現(xiàn)的 ,在這里就主要對(duì) SQL Server 2021 的企業(yè)管理器加以簡(jiǎn)要介紹 : SQL Server 2021 提供了功能強(qiáng)大而又使用方便的數(shù)據(jù)庫管理工具 .其中 ,企業(yè)管理器是最主要的管理工具 ,絕大部分的數(shù)據(jù)庫管理工作都可以在企業(yè)管理器中完成 .企業(yè)管理器與 Windows 系統(tǒng)在功能上緊密集成 ,它以樹型結(jié)構(gòu)的形式來管理 SQL Server數(shù)據(jù)庫服務(wù)器 ,數(shù)據(jù)庫以及數(shù)據(jù)庫 中的對(duì)象 ,能夠在單一的控制界面上實(shí)現(xiàn)對(duì)位于同一企業(yè)網(wǎng)絡(luò)結(jié)構(gòu)中多個(gè) SQL Server數(shù)據(jù)庫服務(wù)器的有效管理 . 執(zhí)行企業(yè)管理器的步驟如下 : (1)打開 ” 開始 ” 菜單 . (2)在 Microsoft SQL Server 2021 程序組里選擇企業(yè)管理器 . 系統(tǒng)將打開企業(yè)管理器 .在窗口中可以看出 ,企業(yè)管理器使用了類似于資源管理器的樹型結(jié)構(gòu) .在左邊的樹型結(jié)構(gòu)圖上 ,根節(jié)點(diǎn)是 ” 控制臺(tái)根目錄 ” ,表示它是所有服務(wù)器控制臺(tái)的根 .在第一層節(jié)點(diǎn)上有一個(gè)默認(rèn)的節(jié)點(diǎn)是 Microsoft SQL Servers,所有的 SQL Server 服務(wù)器組都是 Microsoft SQL Server 節(jié)點(diǎn)的子節(jié)點(diǎn) . 可以在 Microsoft SQL Server 節(jié)點(diǎn)下面 ,自己定義新的服務(wù)器組 .服務(wù)器組一般按照不同的用途和功能對(duì)服務(wù)器進(jìn)行分類 . 按照模塊化管理的原則 ,所有的服務(wù)器都必須按組進(jìn)行分類 .當(dāng)安裝完 SQL Server 2021 后 ,系統(tǒng)會(huì)默認(rèn)地提供一個(gè)名叫 ” SQL Server 組 ” 的服務(wù)器組 .剛安裝成功的服務(wù)器就注冊(cè)在該服務(wù)器組下面 .在每個(gè)服務(wù)器下面是該服務(wù)器的所有管理對(duì)象和可以執(zhí)行的管理任務(wù) ,分為數(shù)據(jù)庫 ,數(shù)據(jù)轉(zhuǎn)換服務(wù) ,管理 ,安全性 ,電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計(jì)論文 4 復(fù)制 ,支持服 務(wù)和元數(shù)據(jù)服務(wù) (Meta Data Services)七大類 .在每一類下面又可以進(jìn)一步進(jìn)行細(xì)分 . 在企業(yè)管理器提供的系統(tǒng)菜單中 ,工具菜單包含了 SQL Server 2021 提供的各種管理工具的調(diào)用途徑 .可以通過單擊 ” 工具 ” 菜單中的命令 ,進(jìn)入實(shí)現(xiàn)具體管理功能的管理工具環(huán)境中 . 使用企業(yè)管理器是進(jìn)入其他 SQL Server 工具的捷徑 .如果要進(jìn)入 SQL 查詢分析器來編寫 TransactSQL 語句或執(zhí)行存儲(chǔ)過程 ,可以從工具菜單中執(zhí)行 ” SQL 查詢分析器 ” 命令 . SQL Server 在企業(yè)管理器中提供了很多的向?qū)?.這些 向?qū)?,可以用圖形化的方式 ,一步一步地指導(dǎo)用戶完成相應(yīng)地?cái)?shù)據(jù)庫操作 .例如 :創(chuàng)建存儲(chǔ)過程 ,創(chuàng)建數(shù)據(jù)庫 ,創(chuàng)建索引等 . 前臺(tái)應(yīng)用程序的開發(fā)平臺(tái) VisualBasic 簡(jiǎn)介 一、 Visual Basic 是什么？ Visual Basic,簡(jiǎn)稱 VB，是 Microsoft 公司推出的一種 Windows 應(yīng)用程序開發(fā)工具。 總之， Visual BASIC 是面向?qū)ο蟮?、結(jié)構(gòu)化的計(jì)算機(jī)語言。39。39。39。39。39。 。在主窗口菜單欄的“科研項(xiàng)目管理”菜單中選擇相關(guān)功能按鈕，或從主窗口界面上單擊對(duì)應(yīng)的快捷按鈕，即可彈出相應(yīng)的子窗口來 。顯示增加管理員窗體 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計(jì)論文 20 End Sub Private Sub Command10_Click() 1 39。顯示增加科研項(xiàng)目單窗體 End Sub Private Sub menu_AddSeller_Click() 1 39。打開數(shù)據(jù)庫 Dim e As Dim strUserid, strPassword, strInitialCatalog, strDataSource As String Dim fso As New FileSystemObject Dim ts 39。Persist Security Info=False _ amp。password= amp。單擊系統(tǒng)主界面的“增加管理員”和“更改管理員密碼 ” 兩個(gè)按鈕，分別如下圖所示的界面。窗體關(guān)閉時(shí)關(guān)閉數(shù)據(jù)庫連接 End Sub 3）單擊“確定”按鈕判斷輸入的信息是否完整和合理，然后向數(shù)據(jù)庫中添加。 sql, DbFinance If (rs) = 1 Then 39。其代碼如下： Private Sub Command1_Click() If = Then 39。初始化所有輸入控件默認(rèn)值 = rs(SELLER_NAME) = rs(SELLER_ZHIC) 1 = rs(SELLER_EMAIL) 第 4 章 詳細(xì)設(shè)計(jì) 45 =。 圖 26 修改科研人員記錄 界面 1 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計(jì)論文 42 圖 27修改科研人員記錄彈出 界面 2 修 改科研人員信息的第一個(gè)窗口的控件屬性如下表 5 表 5 2）編寫代碼 Command1 控件添加 Click 事件，用于判斷填寫的科研人員 ID 不為空且存在數(shù)據(jù)庫中，然后調(diào)出第二個(gè)窗口并把此科研人員原有信息預(yù)先填入。 amp。打開連接失敗則退出 MsgBox 數(shù)據(jù)庫錯(cuò)誤！ , vbExclamation End 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計(jì)論文 36 End If = 39。返回結(jié)果集中的記錄數(shù) On Error Resume Next resultcount = 0 Do While = False resultcount = resultcount + 1 Loop End Function 登錄與系統(tǒng)模塊設(shè)計(jì) 用戶在打開系統(tǒng)，或單擊啟動(dòng)的 EXE 可執(zhí)行文件后，首先是要求使用者登錄系統(tǒng)的窗口，其界面如下圖 所示，這里已經(jīng)在數(shù)據(jù)庫默認(rèn)存放了一個(gè)公用登陸者 aaa,密碼也是 aaa。 strUserid _ amp。得到服務(wù)器名 If strUserid = And strPassword = And strInitialCatalog = And strDataSource = Then MsgBox 請(qǐng)確認(rèn)數(shù)據(jù)庫資源連接文件正確！ , vbOKOnly, 數(shù)據(jù)庫連接錯(cuò)誤－ Set DbFinance = Nothing Exit Function 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計(jì)論文 26 End If If strPassword = Then 39。所以我們向工程中添加一個(gè)模塊，命名為 ： Option Explicit Public DbFinance As New 39。顯示科研項(xiàng)目對(duì)話框 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計(jì)論文 22 End Sub （ 2） 另外，當(dāng)單擊界面上方的菜單欄中