【正文】 =39。保存當(dāng)前登陸用戶名 LoginPower = (3) 39。 Lib Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) 2．判斷用戶權(quán)限 如果登陸的為普通用戶類型的用戶，則用戶不能使用“用戶管理”這一功能，而對于管理員類型的用戶，則沒有此限制。 當(dāng)一個應(yīng)用程序關(guān)閉時，可使用 QueryUnload 或 Unload 事件過程將 Cancel屬性設(shè)置為 True 來阻止關(guān)閉過程。 \, , , 1 End Sub 6．“給我發(fā)郵件”子菜單的代碼 如果用戶單擊了“給我發(fā)郵件”子菜單，則會調(diào)用 API 函數(shù)，調(diào)用 Outlook。 (2) = ef(UserName) (3) = ef(UserPower) Loop Set ef = Nothing End Sub 3． 添加用戶 在 Textbox 中輸入了相應(yīng)的數(shù)據(jù)以后，按添加按鈕則調(diào)用該按鈕的 Click事件，代碼如下 當(dāng)單擊“添加”按鈕時，首先檢查輸入的用戶名和密碼是否 為空，代碼如下： Private Sub Command4_Click() If Trim() = Then MsgBox 登陸用戶名不允許為空！ , vbOKOnly + 48, 提示： Exit Sub End If If InStr(1, Trim(), 39。 Private Sub Command4_Click() ?? Do While Not If = (UserID) Then MsgBox 已經(jīng) 存在 用戶 名為 amp。 39。 Username amp。 成功 , vbOKOnly, 添加系統(tǒng)用戶 = = = = 39。 39。在 MDI 主窗體編輯窗口中，單擊“系統(tǒng)選項 /修改個人密碼”，添加如下代碼： Private Sub filemenu12_Click() 39。 sqlstr, con, 1, 1 If Not Then 26 If rs(UserPWD) Oldpwd Then MsgBox 你輸入的原密碼不對！ , vbInformation = = = Exit Sub Else sqlstr = update UserInfo set UserPWD=39。 sqlstr MsgBox 您的密碼更新成功，請牢記你的密碼！ , vbInformation Unload Me End If Else MsgBox 異常錯誤！ , vbInformation End If : Set rs = Nothing End Sub 修改完畢后，單擊“取消”退出此窗體。 Private Sub TreeView_NodeClick(ByVal Node As ) 39。為了體現(xiàn)這一關(guān)系，需要將部門編號賦給顯示身份證 號的文本框。 在刪除記錄過程中，使用員工的身份證 號作為關(guān)鍵字，調(diào)用 Execute 方法來刪除當(dāng)前記錄。 39。 Public Sub LoadStuInfo(StuNum As String) 32 sqlstr = select * from StuInfo where SID=39。確定添加或者修改，保存數(shù)據(jù) 男 女 = 0 33 團員 黨員 預(yù)備黨員 = 1 漢族 瑤族 土家族 侗族 白族 苗族 回族 壯族 = 0 If EditNum = 00000000 Then = 添加 員工資料（部門 ： amp。 EditNum amp。M） Dim rs As New , sqlstr As String sqlstr = select * from StuInfo where SID=39。如果為添加新的 員工 資料，則將 身份證號 的前 6 位置為該部門 的 ID，并將 身份證號輸入框的 SelStart 屬性設(shè)為 6。顯示詳細資料 Call End Sub Public Sub ListView_DblClick() On Error Resume Next If Then SelectNum = If SelectNum Then 39。 amp。修改員工 資料 Call End Sub Public Sub ModifyStu() 39。 order by SID sqlstr, con, 1, 1 Do While Not Set Listit = (, , (SID)) (1) = (SName) (2) = (SGender) (3) = (SMinzu) (4) = (SZhengzhi) (5) = (SDormitory) (6) = (SAddress) Loop : Set ef = Nothing End Sub 在顯示該部門 下面所 有員工 信息的同時，用戶可以對記錄進行管理：添加新記錄、編輯或者刪除當(dāng)前記錄，為此在 Listview 中創(chuàng)建右鍵菜單，用來對記錄進行操作。 Private Sub Form_Resize() If WindowState 1 Then If 3000 Then = 3000 If 3000 Then = 3000 SizeControls End If = (0).Width = 5000 End Sub Sub SizeControls(X As Single) On Error Resume Next 39。 LoginUser amp。 LoginUser amp。添加用戶 End Sub Private Sub menuDel_Click() 39。 amp。) sqlstr MsgBox 添加用戶 amp。 39。 amp。 39。在該窗體的通用部分寫如下代碼： Dim DelNO As Integer 2．窗體加載時，初始化 Listview 用以顯示 系統(tǒng)用戶列表，代碼如下 Private Sub Form_Load() 39。 Private Sub filemenu15_Click() If MsgBox(若重新登陸，所有窗體都將關(guān)閉！是否重新登陸？ , vbYesNo + 18 vbQuestion, 重新登陸 ) = vbYes Then Unload Me End If End Sub 5．“幫助主題”子菜單的代碼 調(diào)用 Windows API 函數(shù)，打開 幫助文件。 If LoginPower = 普通用戶 Then = False (5).Enabled = False End If End Sub 3． Form 的 QueryUnload 事件 當(dāng)用戶要退出 MDI 窗體時，需要在 QueryUnload 事件中詢問用戶是否真的要退出本系統(tǒng)；如果用戶不要退出，則將 Cancel 置為 1，取消整個退出過程。 3． 3． 2． 2 窗體代碼設(shè)計 1．在代碼窗口的通用部分，聲明一個 API 函數(shù)用于打開幫助文件和調(diào)用 Outlook發(fā)送郵件。當(dāng)錯誤的密碼次數(shù)達到 3次時，不能登陸，退出！ If loginno = 3 Then MsgBox 對不起，您不能使用該系統(tǒng)！請與管理員聯(lián)系。 Private Sub Form_Load() loginno = 0 End Sub 這里將“確定”和“取消”兩個按鈕作為一個按鈕數(shù)組 cmdOkCancel：確定按鈕的 index 屬性為 0，取消按鈕的 index 屬性為 1。 （三） 部門 設(shè)置： （三）業(yè) 績管理： （四）查詢員工信息：根據(jù)身份證號或姓名對員工 信息進行精確 /模糊查詢 （五）用戶管理：定義使用本系統(tǒng)的用戶名稱及密碼 第三章 系統(tǒng)具體實現(xiàn) 經(jīng)過需求分析、功能模塊設(shè)計之后要進入詳細設(shè)計階 段，本階段將按系統(tǒng)的主要模塊進行論述，重在闡述具體的某項功能的實現(xiàn)方法或運用到的相關(guān)技術(shù)。pwd=。 使用 ADO 對象可以建立和管理數(shù)據(jù)庫的連接，按數(shù)據(jù)庫服務(wù)器的要求獲得數(shù)據(jù)，執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取 ODBC 的錯誤信息等。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用立即鎖定數(shù)據(jù)源的記錄的方式。 ⑸ 先進的 Recordset數(shù)據(jù)高速緩存管理功能。 ADO 對象能夠存取到數(shù)據(jù)庫的內(nèi)容，首先要求數(shù)據(jù)庫的驅(qū)動程序 ( ODBC 驅(qū)動程序與 OLE DB 驅(qū)動程序 )必須安裝上，否則， ADO 對象是無法存取數(shù)據(jù)庫 中內(nèi)容，其原理示意圖如圖 所示： 圖 ADO 對象存取數(shù)據(jù)原理示意圖 請注意：上圖中的“各種數(shù)據(jù)庫所對應(yīng)的驅(qū)動程序”即 ODBC 驅(qū)動程序與 OLE DB 驅(qū)動程序。 SQL Server 20xx 既能運行在 Windows 桌面操作系統(tǒng)下，又可運行在服務(wù)器操作系統(tǒng)（包括 Windows NT 和 Windows 20xx）下；既能運行在單 CPU 計算機上，又能運行在對稱多處理系統(tǒng)下。 2． 動態(tài)自動管理和優(yōu)化功能。有了強大的性能和功能支持，再配合其一向為人稱道的易用性， SQL Server 可以說成為了開發(fā)者手中的一柄利器！ 7 另外，目前國內(nèi)的一些關(guān)于微軟平臺的數(shù)據(jù)庫編程教程，喜歡使用 Access作為數(shù)據(jù)庫平臺的案例，并展開相關(guān)的內(nèi)容。 用它可以方便地管理數(shù)據(jù)庫和開發(fā)應(yīng)用程序，它使用了最先進的數(shù)據(jù)庫構(gòu)架，與 Windows NT/20xx 平臺緊密集成，具有完全的 Web功能。借助程序代碼編寫，直接控制 Jet 數(shù)據(jù)庫引擎，配合數(shù)據(jù)庫控件，能夠開發(fā)出更具彈性且高效率的數(shù)據(jù)應(yīng)用程序。 除了數(shù)據(jù)操作和數(shù)據(jù)定義任務(wù)外，也可用 Jet 引擎來執(zhí)行其他的任務(wù)。 Jet 數(shù)據(jù)庫引擎提供了多種功能， Jet 的數(shù)據(jù)定義功能支持對表、索引、查詢的創(chuàng)建、修改和刪除。這些事件的順序，決定了代碼執(zhí)行的順序，因此應(yīng)用程序每次運行時所經(jīng)過的路徑都是不同的。 利用 Visual Basic 語言編程有以下幾個特點： 1． 可視化程序設(shè)計 在 Visual Basic 中開發(fā)的應(yīng)用程序，不但有豐富的圖形界面，同時由用戶為開發(fā)圖形界面添加的代碼真是少而又少，因為在設(shè)計圖形界面的過程中只需設(shè)置 ActiveX 控件的屬性即可。 1． 2． 2 該工程的基本目標(biāo) 開發(fā)此 員工檔案管理系統(tǒng)軟件，以供 企業(yè) 人員及操作者進行 員工檔案 管理，方便操作 者隨時添加、查詢、修改等。 作者簽名： 日 期： 3 第一章 系統(tǒng)概述 1． 1 開發(fā)背景 1． 1． 1 當(dāng)前趨勢 現(xiàn)代教育技術(shù)特別是網(wǎng)絡(luò)與多媒體技術(shù)的發(fā)展，對學(xué)習(xí)活動產(chǎn)生了具有深遠意義的沖擊，網(wǎng)絡(luò)中的學(xué)習(xí)者必須是一個主動 行為著的主體，人們可以選擇或者設(shè)計適合其 學(xué)習(xí)特點的信息采集、加工與重組方式，一種個性化的學(xué)習(xí)類型。 隨著科學(xué)技術(shù)的不斷提高 ,計算機科學(xué)日漸成熟 ,其強大的功能已為人們深刻認識 ,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。 因此，開發(fā)這樣一套管理軟件成為很有必要的事情 ,在下面的各章中將以開發(fā)一套 公司員工檔案管理系統(tǒng) 為例 ,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。 作為一個計算機應(yīng)用的專 科生，希望可以在這方面有所貢獻。下面就對這些開發(fā)工具進行介紹： 1． 3． 1 Visual Basic 微軟公司的 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。 從 Visual 版本開始，在 Visual Basic 中制作的應(yīng)用 程序都改變