【正文】 amp。根據(jù)以上設(shè)計，在 Form_Load 中添加如下代碼： Private Sub Form_Load() 39。顯示出該 員工 全部信息表單 Call (SelectNum) Else Exit Sub End If End If End Sub 在 frmstuinfo 的代碼窗口中添入以下代碼用來顯示該員工 的詳細資料。 amp。顯示窗口 Dim EditNum As String If Then EditNum = CStr() Call (EditNum) Else Exit Sub End If End Sub 刪除員工 資料的設(shè)計思路： 在刪除記錄之前彈出詢問框，確認用戶是否真的要刪除當前記錄，如果用戶選擇了“是”，則刪除該條記錄，否則就不執(zhí)行任何操作。 在本系統(tǒng)中，在系統(tǒng)默認情況下，部門編號作為身份證號的前面六位。設(shè)置 Width 屬性 If X 1500 Then X = 1500 28 If X ( 1500) Then X = 1500 = X = X = X + 50 = ( + 100) = 50 = = = = End Sub 單擊 Treeview 中的部門 號 碼 則調(diào) 用 TreeView_NodeClick 事件和ListviewLoad 事件在 Listview 中顯示該部門下面員工 的信息列表 。 39。 39。刪除用戶 DeleteRecord End Sub 3． 3． 4 修 改密碼窗體（ frmchgPWD） 當用戶要更改密碼時，單擊“系統(tǒng)選項 /修改個人密碼”菜單，彈出如圖 所示窗體。 amp。 amp。 amp。 Userid amp。 sqlstr, con, 1, 1 End Sub 如果當前記錄不為空，則逐條記錄檢查是否有重復(fù) Private Sub Command4_Click() ?? Userid = Trim() Userpwd = MD5(Trim()) Username = Trim() Userpower = Trim() DelNO = Do While Not ?? Loop ?? End Sub 如果有重復(fù)，則提示已存在這個用戶，然后將焦點設(shè)置給 Text1，并將所有的文本框清空。初始化 ListView Dim clmX As ColumnHeader Set clmX = (, , 用戶名 , / 3) Set clmX = (, , 密碼 , / 6, 2) Set clmX = (, , 姓名 , / 4, 2) Set clmX = (, , 用戶權(quán)限 , / 4, 2) 普通用戶 超級用戶 = 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 sqlstr, con, 1, 1 DelNO = Do While Not Set Listit = (, , (UserID)) (1) = *** 隱藏用戶的密碼，用 ***來替代。 Private Sub filemenu21_Click() ShellExecute 0, open, 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 事件 當一個子窗體或一個 Form 對象關(guān)閉時，在那個窗體中的 QueryUnload 事件先于該 窗體的 Unload 事件發(fā)生， Unload 事件在 Terminate 事件之前發(fā)生。 Private Declare Function ShellExecuteamp。 , vbInformation Unload Me Exit Sub End If ?? Else LoginUser = Userid 39。 利用 SQL 語句，在數(shù)據(jù)庫中查詢，如果查到相應(yīng)的記錄，則調(diào)用 Case 0 事件，15 用戶的登陸獲得通過，此時可以退出登陸窗口，并進入 MDI 主窗口，同時將用戶類型和用戶名分別傳遞到 MDI 主窗口和 frmmanage 中；如果沒有相應(yīng)的記錄，則給出提示錯誤信息，同時將用戶輸入錯誤密碼次數(shù)增加 1，如果錯誤超過 3次，則退出整個系統(tǒng)；若次數(shù) 還沒有超過 3 次，則提示用戶重新輸入。 3． 1 準備工作 1． 添加引用：單擊工程菜單中的引用選項，添加 Microsoft ActiveX Data Objects Library 和 Microsoft Excel Object Library 兩個引用。database=student。 用來操縱數(shù)據(jù)的 SQL 命令 SQL 命令是發(fā)送給數(shù)據(jù)庫并要求數(shù)據(jù)庫操作的指令，它是專門為數(shù)據(jù)庫設(shè)計的語言，比一般的計算機程序語言簡單的多。 adLockOptimistic 3 開放式記錄鎖定（逐條）。 ⑹ 允許在程序中使用多個 Recordset 對象或者多個分批修改區(qū)塊傳送。 利用 ADO 開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫應(yīng)用程序 ADO（ Active Date Objects,即 ActiveX 數(shù)據(jù)對象）是一個 ASP 內(nèi)置的 ActiveX服務(wù)器組件（ ActiveX Server Component）。所以，它具有很好的伸縮性，能夠滿足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。即使 SQL Server 數(shù)據(jù)庫管理員不做任何設(shè)置，SQL Server 也能夠在運行過程中根據(jù)環(huán)境配置和用戶訪問情況動態(tài)自動配置，以達到最優(yōu)性能，從而減輕管理員工作。這其實對于開發(fā)真正的數(shù)據(jù)庫應(yīng)用并沒有直接的幫助作用，只能使大家停留在應(yīng)用的初級階段。通過對高端硬件平臺、網(wǎng)絡(luò)和存儲技術(shù)的支持，為 WEB 站和企業(yè)的應(yīng)用最大限度地提供了可擴展性和高 可靠性，能在 Inter 商業(yè)領(lǐng)域快速建立并應(yīng)用。 RDO 是處理遠程數(shù)據(jù)庫的一些專門需要的對象集合。 Jet還具備在數(shù)據(jù)庫開發(fā)工作中所需的其他功能，這些功能包括：數(shù)據(jù)庫修復(fù)，數(shù)據(jù)庫壓縮（以使 消除不同的空間）和重新索引。 Jet 以主鍵標和表間引用完整性的形式支持數(shù)據(jù)完整性。 ? 支持動態(tài)鏈接庫； ? 應(yīng)用程序之間的資源共享。 2． 強大的數(shù)據(jù)庫和網(wǎng)絡(luò)功能 隨著 Visual Basic 語言的向前發(fā)展，它 在數(shù)據(jù)庫和網(wǎng)絡(luò)方面的功能優(yōu)勢就愈加明顯，利用 Visual Basic 中的 ODBC—— 開放式的數(shù)據(jù)庫訪問技術(shù)可以很方便地開發(fā)出自己的數(shù)據(jù)庫應(yīng)用程序；利用 Visual Basic 自帶的可視化數(shù)據(jù)管理器和報表生成器，完全可以在 Visual Basic 就完成數(shù)據(jù)庫的開發(fā)工作。為了我們提高軟件開發(fā)的能力，學習漢語編程的技巧，提高工作設(shè)計思想，通過本次的工程開發(fā)，開發(fā)小組成員與輔助老4 師，公司的技師交流，能從中學習知識吸取經(jīng)驗，再技術(shù)和軟件思想上同時得到鍛煉和提高，從而使總體水升到一個新的高度。該檔案 管 理系統(tǒng)采用多層架構(gòu)的系統(tǒng)，是真正適應(yīng)教育信息化發(fā)展三大趨勢的企業(yè)網(wǎng)絡(luò)應(yīng)用系統(tǒng)，全面支持 Inter 功能、遠程訪問功能，全部采用最先進的B/S(瀏覽器 /服務(wù)器 ) 模式來開發(fā)，支持有關(guān) 公司信息交流、日常教學、教務(wù)管理等的各種應(yīng)用，提供了一個基于企業(yè)內(nèi)聯(lián)網(wǎng)中支持各種類型的企業(yè) 應(yīng)用產(chǎn)品的服務(wù)平臺和開發(fā)平臺，基本目標是在 公司內(nèi)部和外部建立起順暢的信息通道，讓信息技術(shù)成為推動企業(yè) 生產(chǎn)力的有力工具，提高 公司的管理 水平和效率，同時充分利用全球的人力 資源為 公司的信息 服務(wù)，克服了目前大部分 公司的企業(yè) 網(wǎng)建設(shè)只起到宣傳作用的通病。 作為計算機應(yīng)用的一 部分 ,使用 計算機對員工檔案 信息進行管理 ,具有著手工管理所無法比擬的優(yōu)點 .例如 :檢索迅速、查找方便、可靠性高、存儲 量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高員工檔案 管理的效率 ,也是企業(yè)的科學化、正規(guī)化管理 ,與世界接軌的重要條件。 1． 1． 2 用計算機管理公司員工檔案 的意義 現(xiàn)在我國的中小 公司 中 員工檔案 的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機制已經(jīng)不能適應(yīng)時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎(chǔ)的信息管理所取代。 1． 3 開發(fā)環(huán)境以及開發(fā)工具介紹 該軟件是在 Windows 20xx Advanced Server + Visual Basic + SQL Server 20xx 的環(huán)境下完成的。 3．其它特性 在 Visual Basic 以前的版本中，由于仍然擺脫不了解釋執(zhí)行的代碼運行機制，所以在相當?shù)某潭壬现萍s了 Visual Basic 的發(fā)展。 1． 3． 1． 2 VB 支持的數(shù)據(jù)庫系統(tǒng) VB 支持對多格式的數(shù)據(jù)庫的訪問和維護，無論是 Access 還是 Foxpro 中創(chuàng)建的數(shù)據(jù)庫，都可以用 VB 打開，對其進行查詢、修改和刪除等操作。 對于數(shù)據(jù) 操縱， Jet 支持使用 SQL。 1． 3． 1． 4 數(shù)據(jù)庫開發(fā)中的三大工具 Visual Basic 在數(shù)據(jù)庫應(yīng)用程序的開發(fā)領(lǐng)域中，提供包含數(shù)據(jù)管理（ DataManager），數(shù)據(jù)控件（ Data Control）以及數(shù)據(jù)編程對象（數(shù)據(jù)訪問對象（ DAO）、遠程數(shù)據(jù)對象（ RDO）和 ActiveX數(shù)據(jù)對象（ ADO））等功能強大的工具，6 協(xié)助設(shè)計人員輕松的連接數(shù)據(jù)庫文件，并訪問其中的數(shù)據(jù)，在功能方面與其他一些專業(yè)數(shù)據(jù)庫軟件（如 FoxPro， Microsoft Access 等）不相上下。使用 RDO 可以不用本地的查詢機就能訪問 ODBC 數(shù)據(jù)源，這無疑將大大提高應(yīng)用程序的性能。此外，還增強了安全性，保護防火墻內(nèi)外的數(shù)據(jù)。 SQL Server 20xx提供的非常傻瓜的缺省安裝和使用模式，其上手難度并不比 Access 大。 3． 充分的 Inter 技術(shù)支持。 6． 簡單的管理方式?？砂阉c ASP 結(jié)合起來，建立提供數(shù)據(jù)庫信息的網(wǎng)頁內(nèi)容，對數(shù)據(jù)庫進行查詢、插入、更新、刪除等操作，并可以把 在用戶端實現(xiàn)“網(wǎng)上實時更新顯示”的最新 Web 數(shù)據(jù)庫技術(shù)。 ⑺ ADO屬于 Free_threaded對象，利用它可以開發(fā)出更有效的 Web應(yīng)用程序。提供者使用開放式鎖定，只在調(diào)用 Updata 方法時鎖定記錄。 SQL 命令主要分成兩部分： DDL(Data Definition Language)和 DML(Data Manipulation Language),其中 DDL 是建立數(shù)據(jù)表及數(shù)據(jù)列的指令群，而 DML 則是操作數(shù)據(jù)庫記錄的指令群，如數(shù)據(jù)庫記錄的添加、更新、刪除、和查詢等。 而對于 Access 數(shù)據(jù)庫，連接語句為 Provider=。 2． 添加部件：單擊工程菜單中的部件選項，添加 Microsoft ADO Data Control (OLEDB)、 Microsoft Common Dialog Control (SP3) 、 Microsoft FlexGrid Control 、 Microsoft Windows Common Controls (SP4)和Microsoft Windows Common Controls2 五項。 根據(jù)以上的設(shè)計， cmdOkCancel 的 Click 事件的代碼如下： Private Sub cmdOkCancel_Click(Index As Integer) Select Case Index Case 0 ?? Userid = Trim() Userpwd = MD5(Trim()) sqlstr = select * from UserInfo where UserID