【正文】 DB。DB是一種底層編程接口，用來訪問許多不同類型的數(shù)據(jù)源，其中包括消息、文件系統(tǒng)以及其他一些非傳統(tǒng)的數(shù)據(jù)源。DB是一個(gè)由ComponentModel（COM）接口組成的集合，用來隱藏創(chuàng)建數(shù)據(jù)訪問服務(wù)過程中的細(xì)節(jié)。 .NET的ADO組件無需依靠BDE而是使用ADO技術(shù)，提供了可以通過數(shù)據(jù)控制組件訪問數(shù)據(jù)的新方法。ADO組件的使用使得DELPHI在訪問數(shù)據(jù)的類型和采用的技術(shù)方面都有了很大的突破。豐富的 XML 和 Internet 標(biāo)準(zhǔn)支持允許您使用內(nèi)置的存儲過程以 XML 格式輕松存儲和檢索數(shù)據(jù)。1.有了 SQL Server 2000，您可以使用 HTTP 來向數(shù)據(jù)庫發(fā)送查詢、對數(shù)據(jù)庫中存儲的文檔執(zhí)行全文搜索、以及通過 Web 進(jìn)行自然語言查詢。強(qiáng)大而靈活的基于 Web 的分析。您可以通過 Web 瀏覽器來訪問和控制多維數(shù)據(jù)。通過向上伸縮和向外擴(kuò)展的能力，SQL Server 滿足了苛刻的電子商務(wù)和企業(yè)應(yīng)用程序要求。向上伸縮。SQL Server Enterprise Edition 最多可以使用 32 個(gè)處理器和 64 GB RAM。向外擴(kuò)展。 5.通過增強(qiáng)的故障轉(zhuǎn)移群集、日志傳送和新增的備份策略，SQL Server 2000 達(dá)到了最大的可用性。它的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進(jìn)行溝通。SQL語句可以用來執(zhí)行各種各樣的操作，例如更新數(shù)據(jù)庫中的數(shù)據(jù)、從數(shù)據(jù)庫中提取數(shù)據(jù)等。SQL語言集數(shù)據(jù)查詢、數(shù)據(jù)操縱、數(shù)據(jù)定義和數(shù)據(jù)控制功能于一體，主要特點(diǎn)包括：1) 綜合統(tǒng)一非關(guān)系模型的數(shù)據(jù)語言一般都分為模式數(shù)據(jù)定義語言（模式DDL）、外模式數(shù)據(jù)定義語言（外模式DDL）、與數(shù)據(jù)存儲有關(guān)的描述語言（DSDL）及數(shù)據(jù)操縱語言（DML），分別用于定義模式、外模式、內(nèi)模式和進(jìn)行數(shù)據(jù)的存取與處置。SQL語言則集數(shù)據(jù)定義語言DDL、數(shù)據(jù)操縱語言DML、數(shù)據(jù)控制語言DCL的功能于一體，語言風(fēng)格統(tǒng)一，可以獨(dú)立完成數(shù)據(jù)庫生命周期中的全部活動，包括定義關(guān)系模式、建立數(shù)據(jù)庫、插入數(shù)據(jù)、查詢、更新、維護(hù)、數(shù)據(jù)庫重構(gòu)、數(shù)據(jù)庫安全性控制等一系列操作要求，這就為數(shù)據(jù)庫應(yīng)用系統(tǒng)的開發(fā)提供了良好的環(huán)境。2) 高度非過程化非關(guān)系數(shù)據(jù)模型的數(shù)據(jù)操縱語言是面向過程的語言，用其完成某項(xiàng)請求必須指定存取路徑。這不但大大減輕了用戶負(fù)擔(dān)，而且有利于提高數(shù)據(jù)獨(dú)立性。而SQL語言采用集合操作方式，不僅操作對象、查找結(jié)果可以是元組的集合，而且一次插入、刪除、更新操作的對象也可以是元組的集合。作為自含式語言，他能夠獨(dú)立地用于聯(lián)機(jī)交互的使用方式，用戶何以在終端鍵盤上直接鍵入SQL命令對數(shù)據(jù)庫進(jìn)行操作；作為嵌入式語言，SQL語句能夠嵌入到高級語言中，供程序員設(shè)計(jì)程序時(shí)使用。5) 語言簡捷，易學(xué)易用SQL語言功能極強(qiáng)，但由于設(shè)計(jì)巧妙，語言十分簡捷，完成核心功能只用了9個(gè)動詞，SQL語言接近英語口語，因此容易學(xué)習(xí)，容易使用。admin管理用戶表序號字段名中文解釋字段類型備注1userid用戶名Varchar（50）2password密碼Varchar（50）3ulevel是否為超級用戶Char(10)值為1表示為超級用員，0表示普通用戶5username真是姓名Char(30)6remark備注Char(200)7pop_emp_s查詢權(quán)限Char(20)值為1表示具有權(quán)限，為0表示無權(quán)限8pop_emp_a錄入權(quán)限Char(20)值為1表示具有權(quán)限，為0表示無權(quán)限pop_emp_e修改權(quán)限Char(20)值為1表示具有權(quán)限，為0表示無權(quán)限pop_emp_d刪除權(quán)限Char(20)值為1表示具有權(quán)限，為0表示無權(quán)限pop_emp_p報(bào)表權(quán)限Char(20)值為1表示具有權(quán)限，為0表示無權(quán)限說明：為了便于多個(gè)用戶管理該系統(tǒng)，設(shè)立不同的管理權(quán)限，建立此表，記錄用戶的登錄帳號、密碼和權(quán)限。DptInfo部門信息表序號字段名中文解釋字段類型備注1ID部門編號Int（4）2ConText部門名稱Nvarchar（50）3ParentID部門級別Int（4）4Depth部門級別Int（4）5dperson部門經(jīng)理Char（20）dtel部門電話Char（30）ddate建立日期Datetime（8）dpnum編制人員Char（20）dremark備注Char（200）說明：建立公司部門信息，設(shè)置部門間隸屬關(guān)系。 數(shù)據(jù)庫連接模塊 本系統(tǒng)中數(shù)據(jù)庫連接采用定義公共類形式完成，調(diào)用時(shí)只要在每個(gè)窗體中引入庫函數(shù)，再調(diào)用數(shù)據(jù)庫連接函數(shù)即可完成數(shù)據(jù)數(shù)據(jù)庫連接操作。database=employeeDB。打開數(shù)據(jù)庫 Try connection = New = Conn () Return True Catch ex As Exception MsgBox() Return False End Try End Function Public Function DBclose() As Boolean 39。按照不同的用戶登陸的權(quán)限審核，登陸后通過不同的權(quán)限操作。 amp。 39。 amp。 39。否則，進(jìn)入 下一個(gè)界面 MsgBox(你輸入的用戶名或口令有誤！, , 提示) Else//用戶權(quán)限的讀取，并存儲到變量 userid = (0).Item(0).ToString user_Pwd = (0).Item(1).ToString userlevel = (0).Item(2).ToString user_s = (0).Item(5).ToString user_a = (0).Item(6).ToString user_e = (0).Item(7).ToString user_d = (0).Item(8).ToString user_p = (0).Item(9).ToString Dim f1 As New main () () End If Call DBclose() End If 主窗口設(shè)計(jì)界面采用MDI方式，可同時(shí)打開幾處子窗口體，在界面上放置了菜單欄和工具欄、狀態(tài)欄；菜單欄集中了系統(tǒng)操作的入口，各功能模塊的執(zhí)行從此進(jìn)入；工具框顯示了系統(tǒng)菜單中常用項(xiàng)目的快鍵圖標(biāo)，使用戶只需點(diǎn)擊相應(yīng)圖標(biāo)即可進(jìn)入相應(yīng)功能模塊，當(dāng)鼠標(biāo)移動到相應(yīng)圖標(biāo)時(shí)，系統(tǒng)會出現(xiàn)提示信息。系統(tǒng)主界面//菜單按鈕的連接（由于實(shí)現(xiàn)方法相似，只列舉了其中一段代碼）Private Sub MenuItem2_Click(ByVal sender As , ByVal e As ) Handles Dim f1 As New jichudangan = Me ()End Sub//狀態(tài)欄信息的顯示Private Sub mainmenufrom_Load(ByVal sender As , ByVal e As ) Handles = True (0).Text = 操作員： amp。 End Sub//獲取當(dāng)前時(shí)間和日期，用于狀態(tài)欄的顯示Private Sub Timer1_Elapsed(ByVal sender As Object, ByVal e As ) Handles (2).Text = 日期： amp。 End Sub//用戶查看自己權(quán)限代碼實(shí)現(xiàn)，通過彈出窗口顯示Private Sub MenuItem24_Click(ByVal sender As , ByVal e As ) Handles Dim str As String str = 你的權(quán)限有: amp。 查詢 √ amp。 查詢 amp。 增加 √ amp。 增加 amp。 修改 √ amp。 修改 amp。 刪除 √ amp。 刪除 amp。 報(bào)表輸出 √ amp。 報(bào)表輸出 amp。 系統(tǒng)管理員 MsgBox(str, , 查看權(quán)限) End Sub//單擊退出時(shí)，彈出確認(rèn)提示，防止用戶誤點(diǎn)造成意外退出Private Sub MenuItem20_Click(ByVal sender As , ByVal e As ) Handles If MsgBox(你確定是否退出系統(tǒng)?, + , 提示) = Then End End IfEnd Sub//用戶自定義界面，可以選擇顯示工具欄和狀態(tài)欄Private Sub MenuItem18_Click(ByVal sender As , ByVal e As ) Handles If = True Then = False Else = True End If End Sub完成新員工人事檔案的建立。員工姓名、編號、部門為必填項(xiàng)?？梢蕴砑訂T工照片，如果沒有默認(rèn)為系統(tǒng)照片，輸入完成后點(diǎn)擊保存即可完成員工基本信息的添加。 amp。 amp。 39。 amp。 39。 Trim() amp。 Trim() amp。 amp。 39。同時(shí)應(yīng)具有查詢標(biāo)專為無效的員工的作用。全面廣泛的記錄員工信息，具備查詢功能，按任意條件查找員工，方便查看員工的雇傭信息和待遇信息，方便查看待遇歷史記錄，培訓(xùn)記錄，出勤記錄等一切與員工相關(guān)的信息。2. 通用性能好，實(shí)用性強(qiáng)，易于推廣，可擴(kuò)展好，系統(tǒng)運(yùn)行可以在Windows 2000/Windows XP/Windows2003操作系統(tǒng)上，數(shù)據(jù)庫采用SQl2000，通用性強(qiáng)。具體地說，不能由系統(tǒng)控制登陸的使用時(shí)間，而且身份驗(yàn)證模塊比較簡單。改進(jìn)方案對于此系統(tǒng)要求從美觀、功能和技術(shù)上三個(gè)方面做重點(diǎn)改進(jìn)。參 考 書 目[1]楊學(xué)會 李英杰 劉輝，《Visual 程序設(shè)計(jì)》，第一版，北京：中國鐵道出版社，[2]丁兆海 杜軍 ，《Visual 案例教程》，第一版，北京：電子科技出版社，[3]張秀玉，《SQl Server 數(shù)據(jù)庫程序設(shè)計(jì)》，第二版，北京：機(jī)械工業(yè)出版社，[4]程曉林 宋曉林 黃志超，《Visual 數(shù)據(jù)庫高級編程》，第一版，北京：清華大學(xué)出版設(shè)，