【正文】 指標(biāo)在各方面都有趕超 Oracle 數(shù)據(jù)庫(kù)的趨勢(shì)。通過對(duì)高端硬件平臺(tái)、網(wǎng)絡(luò)和存儲(chǔ)技術(shù)的支持，為 WEB 站和企業(yè)的應(yīng)用最大限度地提供了可擴(kuò)展性和高 可靠性，能在 Inter 商業(yè)領(lǐng)域快速建立并應(yīng)用。支持基于角色的安全并擁有安全審計(jì)工具。記得在以前各種關(guān)于 SQL Server 的文章，都會(huì)將其定位成中小型應(yīng)用方面，這種感覺被大家自然的延續(xù)到了 20xx 版之中。在過去的很長(zhǎng)一段時(shí)間中，微軟公 司聘請(qǐng) 了世界上最優(yōu)秀的數(shù)據(jù)庫(kù)專家以及專門搭建了信息量可謂空前的地理信息系統(tǒng)，勵(lì)精圖治，就是為了摘掉扣在自己頭上的這頂 帽子。這其實(shí)對(duì)于開發(fā)真正的數(shù)據(jù)庫(kù)應(yīng)用并沒有直接的幫助作用，只能使大家停留在應(yīng)用的初級(jí)階段。另外，SQL Server 20xx 可以兼顧小、中、大規(guī)模的應(yīng)用，有著遠(yuǎn)遠(yuǎn)比 Access 強(qiáng)大的伸縮性。 1． 豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。此外， SQL Server 20xx 還提供了 SQL事件探查器、 SQL 查詢分析器、 SQL Server 服務(wù)管理器和多 種操作向?qū)У葓D形界面管理工具，大大簡(jiǎn)化了用戶操作，從而增強(qiáng)了系統(tǒng)的易用性。即使 SQL Server 數(shù)據(jù)庫(kù)管理員不做任何設(shè)置，SQL Server 也能夠在運(yùn)行過程中根據(jù)環(huán)境配置和用戶訪問情況動(dòng)態(tài)自動(dòng)配置，以達(dá)到最優(yōu)性能，從而減輕管理員工作。 Inter 網(wǎng)絡(luò)發(fā)展到今天已經(jīng)成為一條重要的信息發(fā)布渠道， SQL Server 增強(qiáng)了對(duì) Inter 技術(shù)支持，它除保留了前期版本中的數(shù)據(jù)庫(kù) Web 出版工具“ Web 助手”外，還增強(qiáng)了對(duì) XML 和 HTTP 技術(shù) 的支持，這使得電子商務(wù)系統(tǒng)能夠通過 XML 等訪問 SQL Server 數(shù)據(jù)庫(kù)系統(tǒng)，也擴(kuò)展了 SQL Server 在數(shù)據(jù)挖掘和分析服務(wù)領(lǐng)域的應(yīng)用。SQL Server 提供了 TransactSQL、 DBLibrary for C、嵌入式 SQL（ ESQL）等開發(fā)工具， TransactSQL 與工業(yè)標(biāo)準(zhǔn) SQL 語言兼容，并在其基礎(chǔ)上加以擴(kuò)充，使它更適合事務(wù)處理方面的需要。 5． 具有很好的伸縮性和可靠性。所以，它具有很好的伸縮性，能夠滿足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。 SQL Server 20xx 與 Microsoft Windows 20xx 有機(jī)集成，所以可以使用 Windows 20xx 的活動(dòng)目錄（ Active Directory）功能對(duì) SQL Server 進(jìn)行集中管理，大大簡(jiǎn)化大型企業(yè)中的系統(tǒng)管理工作。 1． 3． 3 ADO 對(duì)象概述 ADO 對(duì)象是針對(duì)當(dāng)前微軟的軟件所支持的數(shù)據(jù)進(jìn)行操作的最為有效、簡(jiǎn)單并且功能強(qiáng)大的方 法。其中：Connection 對(duì)象主要負(fù)責(zé)打開或連接數(shù)據(jù)庫(kù)文件； Recordset 對(duì)象主要是存取數(shù)據(jù)庫(kù)的內(nèi)容； Command 對(duì)象主要是對(duì)數(shù)據(jù)庫(kù)下達(dá)行動(dòng)查詢指令以及 SQL Server的 Stored Proceduce。 利用 ADO 開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用程序 ADO（ Active Date Objects,即 ActiveX 數(shù)據(jù)對(duì)象）是一個(gè) ASP 內(nèi)置的 ActiveX服務(wù)器組件（ ActiveX Server Component）。 要 執(zhí)行 ADO，服 務(wù)器 端 必須 安裝 Windows NT Server 和 Inter Information Server(IIS)，而客戶端只要有 IE 或 NETSCAPE 較新版本的瀏覽器即可。 客戶端 客戶端 客戶端 ADO 對(duì)象 各種數(shù)據(jù)庫(kù)所對(duì)應(yīng)的驅(qū)動(dòng)程序 各種數(shù)據(jù)庫(kù) (如 Access、 SQL Server 以及 Oracle 等 ) 9 ⑵ 內(nèi)部有多個(gè)互相獨(dú)立的對(duì)象模型。 ⑷ 支持多種不同的數(shù)據(jù)控制指標(biāo)形式。 ⑹ 允許在程序中使用多個(gè) Recordset 對(duì)象或者多個(gè)分批修改區(qū)塊傳送。 ADO 組件的主要對(duì)象及其功能 ADO 組件又稱為數(shù)據(jù)庫(kù)訪問組件，它提供了以下七種對(duì)象： Connection 對(duì)象：提供對(duì)數(shù)據(jù)庫(kù)的連接服務(wù)。 Recordset 對(duì)象：由數(shù)據(jù)庫(kù)服務(wù)器所返回的記錄集。無法更改數(shù)據(jù) adLockPressimistic 2 保守式記錄鎖定（逐條）。 adLockOptimistic 3 開放式記錄鎖定（逐條）。 adLockBatchOptimistic 4 開放式批更新。 Fields 對(duì)象：由數(shù)據(jù)庫(kù)服務(wù)器所返回的單一數(shù)據(jù)字段 Parametes對(duì)象：表示 Command 對(duì)象的參數(shù)。 Error 對(duì)象：提供處理錯(cuò)誤的功能。 用來操縱數(shù)據(jù)的 SQL 命令 SQL 命令是發(fā)送給數(shù)據(jù)庫(kù)并要求數(shù)據(jù)庫(kù)操作的指令，它是專門為數(shù)據(jù)庫(kù)設(shè)計(jì)的語言，比一般的計(jì)算機(jī)程序語言簡(jiǎn)單的多。 SQL 命令，包括 Select、 Delete、 Update、 Insert Into、 Select Into 等。 1． 2． 4 Visual Basic 訪問數(shù)據(jù)庫(kù)的過程 ①定義數(shù)據(jù)庫(kù)組建 Dim con As New ②打開數(shù)據(jù)庫(kù) 對(duì)于 SQL 數(shù)據(jù)庫(kù)，其連接語句為 driver={sql server}。uid=sa。database=student。Data Source= amp。本數(shù)據(jù)庫(kù)采用 SQL Server 20xx 來構(gòu)造，共使用了 7個(gè)表，它們分別是用戶信息表（ UserInfo）、 員工 信息表（ StuInfo）、部門 信息表（ Class）、職 業(yè)信息表（ Major）、公司 信息表（ Depart）、職位 信息表（ Lesson）、 員工 業(yè) 績(jī)表（ Result）。 （二）職員管理：對(duì)職員 進(jìn)行添加、修改、刪除操作。 3． 1 準(zhǔn)備工作 1． 添加引用：?jiǎn)螕艄こ滩藛沃械囊眠x項(xiàng)，添加 Microsoft ActiveX Data Objects Library 和 Microsoft Excel Object Library 兩個(gè)引用。 3． 2 模塊設(shè)計(jì) 添加兩個(gè)模塊 module1 和 module2，在 module1 中添加如下代碼 Option Explicit Global con As New Global rs As New Global classid As String, stuid As String Global LoginUser As String, LoginPower As String LoginUser 記錄當(dāng)前登陸用戶的用戶名 ,LoginPower 記錄當(dāng)前登陸用戶的權(quán)限 Dim Userid As String, Userpwd As String, Username As String, Userpower As String Dim sqlstr As String 14 Sub Main() If = True Then MsgBox 注意程序已經(jīng)運(yùn)行，不能再次裝載！ , vbOKOnly Exit Sub Else Provider=。+\ End If End Sub 在 module2 中添加代碼 (MD5 算法 ) 詳細(xì)代碼見程序中 3． 3 用戶界面實(shí)現(xiàn) 3． 3． 1 登陸界面 (frmlogin) 因?yàn)楸鞠到y(tǒng)是按 員工檔案 管理的思想設(shè)計(jì)的，故而登陸部分主要完成密碼校驗(yàn)、確定管理員等功能，對(duì)于密碼本系統(tǒng)采用的是 MD5 算法。 在代碼窗口的“通用”部分，定義一個(gè)模塊級(jí)的公共變量 loginno 用來記錄當(dāng)前密碼輸入錯(cuò)誤的次數(shù) Dim loginno As Integer 在 Form 的 Load 事件中，將 txtuser 設(shè)置為焦點(diǎn)，初始化 loginno。 利用 SQL 語句，在數(shù)據(jù)庫(kù)中查詢，如果查到相應(yīng)的記錄，則調(diào)用 Case 0 事件，15 用戶的登陸獲得通過，此時(shí)可以退出登陸窗口，并進(jìn)入 MDI 主窗口，同時(shí)將用戶類型和用戶名分別傳遞到 MDI 主窗口和 frmmanage 中；如果沒有相應(yīng)的記錄，則給出提示錯(cuò)誤信息，同時(shí)將用戶輸入錯(cuò)誤密碼次數(shù)增加 1，如果錯(cuò)誤超過 3次，則退出整個(gè)系統(tǒng)；若次數(shù) 還沒有超過 3 次，則提示用戶重新輸入。 amp。 39。密碼錯(cuò)誤時(shí) MsgBox 您輸入的密碼不正確！ , vbQuestion = 請(qǐng)輸入用戶名和密碼： loginno = loginno + 1 39。 , vbInformation Unload Me Exit Sub End If ?? Else LoginUser = Userid 39。將當(dāng)前登陸用戶的權(quán)限保存到 LoginPower 中 16 Unload Me End If Else MsgBox 沒有您輸入的用戶名！ , 32 ?? End If : Set rs = Nothing Case 1 ‘ 退出整個(gè)程序 Unload Me End Select End Sub 3． 3． 2 MDI 主窗口 (frmmain) 本系統(tǒng)采取多文檔界面 (MultiDocument Interface)。它有一個(gè)父窗口，在典型情況下，父窗口用來顯示程序菜單以及包含子窗口。 3． 3． 2． 1 菜單設(shè)計(jì) MDI 主窗體是整個(gè)系統(tǒng)的容器，為了方便用戶的使用，應(yīng)設(shè)計(jì)相應(yīng)的菜單和代碼。 Private Declare Function ShellExecuteamp。所以在 MDIForm 的 Load 事件中需要判斷用戶類型。 LoginUser amp。 LoginPower amp。 Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(確定要退出員工 檔案管理系統(tǒng)嗎？是 /否 , vbYesNo+vbQuestion+ vbDefaultButton1) = vbNo Then Cancel = 1 End If End Sub QueryUnload 和 Unload 事件 當(dāng)一個(gè)子窗體或一個(gè) Form 對(duì)象關(guān)閉時(shí)，在那個(gè)窗體中的 QueryUnload 事件先于該 窗體的 Unload 事件發(fā)生， Unload 事件在 Terminate 事件之前發(fā)生。但是， QueryUnload 事件是在任一個(gè)卸載之前在所有窗體中發(fā)生，而 Unload 是在每個(gè)窗體卸載時(shí)發(fā)生。但 Unload 不能阻止其他事件，諸如從 Microsoft Windows 操作環(huán)境中退出等；而 QueryUnload 事件則可以阻止從 Windows 中的退出。 4．“重新登陸”子菜單的代碼 當(dāng)單擊了“重新登陸”或者按下了“ F2”鍵時(shí)，將會(huì)給出提示，如果用戶在提示框中按下了“確定”按鈕，則退出整個(gè) MDI 主窗體，并顯示登陸窗體。 Private Sub filemenu21_Click() ShellExecute 0, open, amp。 Private Sub filemenu22_Click() ShellExecute , open, mailto:, , , 1 End Sub 7．當(dāng)用戶單擊查詢員工 資料菜單項(xiàng)或者按下 F3 鍵時(shí)，將會(huì)出現(xiàn)“查找員工”窗體，供用戶查找滿足特定要求的員工 信息。查找員工 1 End Sub 3． 3． 3 用戶管理窗體（ frmmanage） 向項(xiàng)目中添加窗體，并命名為 。 3． 3． 3． 1 窗體代碼設(shè)計(jì) 1． 定義一個(gè)整型變量 DelNO 用來存儲(chǔ)當(dāng)前系統(tǒng)用戶的數(shù)目，當(dāng) DelNO=1 時(shí)提示用戶不能再刪除用戶。初始化 ListView Dim clmX As ColumnHeader Set clmX = (, , 用戶名 , / 3) Set clmX = (, , 密碼 , / 6, 2) Set clmX = (, , 姓名 , / 4, 2) Set clmX = (, , 用戶權(quán)限 , / 4, 2) 普通用戶 超級(jí)用戶 = 0 LoadOperator End Sub 其中調(diào)用了 LoadOperator 函數(shù)，該函數(shù)用來顯示和刷新 Listview 中的數(shù)據(jù) Private Sub LoadOperator() On Error Resume Next Dim Listit As ListItem = lvwAuto = 3 Dim ef As New 20 sqlstr = select * from UserInfo sql