【正文】 作為一個(gè)計(jì)算機(jī)應(yīng)用的專 科生，希望可以在這方面有所貢獻(xiàn)。 作 者 簽 名： 日 期： 指導(dǎo)教師簽名： 日 期： 使用授權(quán)說(shuō)明 本人完全了解 大學(xué)關(guān)于收集、保存、使用畢業(yè)設(shè)計(jì)（論文）的規(guī)定，即：按照學(xué)校要求提交畢業(yè)設(shè)計(jì)（論文）的印刷本和電子版本；學(xué)校有權(quán)保存畢業(yè)設(shè)計(jì)（論文）的印刷本和電子版，并提供目錄檢索與閱覽服務(wù)；學(xué)?？梢圆捎糜坝?、縮印、數(shù)字化或其它復(fù)制手段保存論文；在不以贏利為目的前提下，學(xué)?？梢怨颊撐牡牟糠只蛉?jī)?nèi)容。 因此，開發(fā)這樣一套管理軟件成為很有必要的事情 ,在下面的各章中將以開發(fā)一套 公司員工檔案管理系統(tǒng) 為例 ,談?wù)勂溟_發(fā)過(guò)程和所涉及到的問(wèn)題及解決方法。但一直以來(lái)人們使用傳統(tǒng)人工的方式管理文件員工檔案 ，這種管理方式存在著許多缺點(diǎn) ,如 :效率低、保密性差 ,另外時(shí)間一長(zhǎng) ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。 隨著科學(xué)技術(shù)的不斷提高 ,計(jì)算機(jī)科學(xué)日漸成熟 ,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí) ,它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。 2 畢業(yè)設(shè)計(jì)（論文）原創(chuàng)性聲明和使用授權(quán)說(shuō)明 原創(chuàng)性聲明 本人鄭重承諾：所呈交的畢業(yè)設(shè)計(jì)（論文），是我個(gè)人在指導(dǎo)教師的指導(dǎo)下進(jìn) 行的研究工作及取得的成果。 作者簽名： 日 期： 3 第一章 系統(tǒng)概述 1． 1 開發(fā)背景 1． 1． 1 當(dāng)前趨勢(shì) 現(xiàn)代教育技術(shù)特別是網(wǎng)絡(luò)與多媒體技術(shù)的發(fā)展，對(duì)學(xué)習(xí)活動(dòng)產(chǎn)生了具有深遠(yuǎn)意義的沖擊，網(wǎng)絡(luò)中的學(xué)習(xí)者必須是一個(gè)主動(dòng) 行為著的主體，人們可以選擇或者設(shè)計(jì)適合其 學(xué)習(xí)特點(diǎn)的信息采集、加工與重組方式，一種個(gè)性化的學(xué)習(xí)類型。改革 的總設(shè)計(jì)師鄧小平同志說(shuō)過(guò)“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我三 年的所學(xué)編制出一個(gè)實(shí)用 的程序來(lái)幫助中小企 業(yè) 進(jìn)行更有效的 員工檔案 管理。 1． 2． 2 該工程的基本目標(biāo) 開發(fā)此 員工檔案管理系統(tǒng)軟件，以供 企業(yè) 人員及操作者進(jìn)行 員工檔案 管理，方便操作 者隨時(shí)添加、查詢、修改等。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。 利用 Visual Basic 語(yǔ)言編程有以下幾個(gè)特點(diǎn)： 1． 可視化程序設(shè)計(jì) 在 Visual Basic 中開發(fā)的應(yīng)用程序，不但有豐富的圖形界面，同時(shí)由用戶為開發(fā)圖形界面添加的代碼真是少而又少，因?yàn)樵谠O(shè)計(jì)圖形界面的過(guò)程中只需設(shè)置 ActiveX 控件的屬性即可。 當(dāng)然在 Visual Basic 中還有其它特性，例如： ? 面向?qū)ο蟮木幊陶Z(yǔ)言； ? 結(jié)構(gòu)化程序設(shè)計(jì)； 5 ? 事件驅(qū)動(dòng)的程序設(shè)計(jì)： 在傳統(tǒng)的或“過(guò)程化”的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行哪一部分代碼和按何種順序執(zhí)行代碼。這些事件的順序，決定了代碼執(zhí)行的順序，因此應(yīng)用程序每次運(yùn)行時(shí)所經(jīng)過(guò)的路徑都是不同的。 VB 可以訪問(wèn)的數(shù)據(jù)庫(kù)可以簡(jiǎn)單的分為三類，即： Microsoft Access 格式數(shù)據(jù)庫(kù)，外部數(shù)據(jù)庫(kù)和 ODBC 數(shù)據(jù)庫(kù)。 Jet 數(shù)據(jù)庫(kù)引擎提供了多種功能， Jet 的數(shù)據(jù)定義功能支持對(duì)表、索引、查詢的創(chuàng)建、修改和刪除。 Jet 也提供對(duì)安全功能的支持。 除了數(shù)據(jù)操作和數(shù)據(jù)定義任務(wù)外，也可用 Jet 引擎來(lái)執(zhí)行其他的任務(wù)。 數(shù)據(jù)控件是 VB 所提供的基本控件成員之一。借助程序代碼編寫，直接控制 Jet 數(shù)據(jù)庫(kù)引擎，配合數(shù)據(jù)庫(kù)控件，能夠開發(fā)出更具彈性且高效率的數(shù)據(jù)應(yīng)用程序。 0 中新增的對(duì)象，它是一個(gè)更簡(jiǎn)單的對(duì)象模型，它更好的集成了其它數(shù)據(jù)訪問(wèn)技術(shù)，并且對(duì)本地和遠(yuǎn)程數(shù)據(jù)庫(kù)均有共同的界面，可 以取代 DAO和 RDO。 用它可以方便地管理數(shù)據(jù)庫(kù)和開發(fā)應(yīng)用程序，它使用了最先進(jìn)的數(shù)據(jù)庫(kù)構(gòu)架，與 Windows NT/20xx 平臺(tái)緊密集成，具有完全的 Web功能。 在經(jīng)歷了 SQL Server 和 兩個(gè)版本的嘗試后，微軟公司終于開始 了 大規(guī)模的業(yè)務(wù)。有了強(qiáng)大的性能和功能支持，再配合其一向?yàn)槿朔Q道的易用性， SQL Server 可以說(shuō)成為了開發(fā)者手中的一柄利器！ 7 另外，目前國(guó)內(nèi)的一些關(guān)于微軟平臺(tái)的數(shù)據(jù)庫(kù)編程教程，喜歡使用 Access作為數(shù)據(jù)庫(kù)平臺(tái)的案例，并展開相關(guān)的內(nèi)容。 SQL Server 數(shù)據(jù)庫(kù)特點(diǎn) 概括起來(lái)， SQL Server 20xx 數(shù)據(jù)庫(kù)管理系統(tǒng)具有以下主要特點(diǎn)。 2． 動(dòng)態(tài)自動(dòng)管理和優(yōu)化功能。 4． 豐富的編程接口工具，使用戶開發(fā) SQL Server 數(shù)據(jù)庫(kù)應(yīng)用程序更加靈活。 SQL Server 20xx 既能運(yùn)行在 Windows 桌面操作系統(tǒng)下，又可運(yùn)行在服務(wù)器操作系統(tǒng)（包括 Windows NT 和 Windows 20xx）下；既能運(yùn)行在單 CPU 計(jì)算機(jī)上，又能運(yùn)行在對(duì)稱多處理系統(tǒng)下。此外，與 Windows 8 20xx 的集成還使 SQL Server 能夠充分利用操作系統(tǒng)所提供的服務(wù)和功能（如安全管理、事件日志、性能監(jiān)視器、內(nèi)存管理和異步 I/O 等），從而增強(qiáng)了 SQL Server數(shù)據(jù)庫(kù)系統(tǒng)的功能，并且只需要占用很少的系統(tǒng)資源。 ADO 對(duì)象能夠存取到數(shù)據(jù)庫(kù)的內(nèi)容，首先要求數(shù)據(jù)庫(kù)的驅(qū)動(dòng)程序 ( ODBC 驅(qū)動(dòng)程序與 OLE DB 驅(qū)動(dòng)程序 )必須安裝上，否則， ADO 對(duì)象是無(wú)法存取數(shù)據(jù)庫(kù) 中內(nèi)容，其原理示意圖如圖 所示： 圖 ADO 對(duì)象存取數(shù)據(jù)原理示意圖 請(qǐng)注意：上圖中的“各種數(shù)據(jù)庫(kù)所對(duì)應(yīng)的驅(qū)動(dòng)程序”即 ODBC 驅(qū)動(dòng)程序與 OLE DB 驅(qū)動(dòng)程序。 利用 ADO 開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用程序有以下幾個(gè)優(yōu)點(diǎn)： ⑴ 支持客戶機(jī) /服務(wù)器結(jié)構(gòu)（ Client/Server）與 Web 系統(tǒng)開發(fā)技術(shù)。 ⑸ 先進(jìn)的 Recordset數(shù)據(jù)高速緩存管理功能。 Command 對(duì)象：定義對(duì)數(shù)據(jù)庫(kù)源操作的命令。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用立即鎖定數(shù)據(jù)源的記錄的方式。用于與立即更新模式相反的批更新模式。 使用 ADO 對(duì)象可以建立和管理數(shù)據(jù)庫(kù)的連接，按數(shù)據(jù)庫(kù)服務(wù)器的要求獲得數(shù)據(jù)，執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取 ODBC 的錯(cuò)誤信息等。 ⑴ 篩選及排序記錄的 Select 指令 基本句型一： Select 字段串列 From 數(shù)據(jù)表 基本句型二： Select ? From ? Where 篩選條件 10 基本句型三： Select ? From ? Order By 字段串列 Select Top：限定選取數(shù)據(jù)的條數(shù) ⑵ 刪除數(shù)據(jù)記錄的 Delete 指令 基本語(yǔ)法： Delete From 數(shù)據(jù)表 Where 條件式 ⑶ 更新數(shù)據(jù)記錄的 Update 指令 基本語(yǔ)法： Update 數(shù)據(jù)表 Set 表達(dá)式 ⑷ 增加數(shù)據(jù)記錄的 Insert Into 指令 基本句型一： Insert Into 數(shù)據(jù)表 (字段串列 ) Values (字段串列 ) 基本句型二： Insert Into 數(shù)據(jù)表 (字段 1,字段 2,? ,字段 n) Select ? ⑸ 建立新數(shù)據(jù)表的 Select Into 指令 該指令與“ Insert Into ? Select ?”指令的區(qū)別是，這個(gè)指令將建立另一個(gè)新的數(shù)據(jù)表，而 Insert Into 是增加數(shù)據(jù)記錄到“現(xiàn)存的”數(shù)據(jù)表中。pwd=。 + \ ③設(shè)定 SQL 語(yǔ)句，使用“ Execute”命令，即可開始執(zhí)行訪問(wèn)數(shù)據(jù)庫(kù)的動(dòng)作 Dim rs As New 其中 rs為結(jié)果集對(duì)象（ RECORDSET） ④關(guān)閉結(jié)果集對(duì)象，斷開與數(shù)據(jù)庫(kù)的連接 第二章 系統(tǒng)整體規(guī)劃 2． 1 數(shù)據(jù)庫(kù)的設(shè)計(jì) 在 系統(tǒng)設(shè)計(jì)過(guò)程中，首先要建立的就是數(shù)據(jù)庫(kù)。 （三） 部門 設(shè)置： （三）業(yè) 績(jī)管理： （四）查詢員工信息：根據(jù)身份證號(hào)或姓名對(duì)員工 信息進(jìn)行精確 /模糊查詢 （五）用戶管理：定義使用本系統(tǒng)的用戶名稱及密碼 第三章 系統(tǒng)具體實(shí)現(xiàn) 經(jīng)過(guò)需求分析、功能模塊設(shè)計(jì)之后要進(jìn)入詳細(xì)設(shè)計(jì)階 段，本階段將按系統(tǒng)的主要模塊進(jìn)行論述，重在闡述具體的某項(xiàng)功能的實(shí)現(xiàn)方法或運(yùn)用到的相關(guān)技術(shù)。Data Source=amp。 Private Sub Form_Load() loginno = 0 End Sub 這里將“確定”和“取消”兩個(gè)按鈕作為一個(gè)按鈕數(shù)組 cmdOkCancel：確定按鈕的 index 屬性為 0，取消按鈕的 index 屬性為 1。 Userid amp。當(dāng)錯(cuò)誤的密碼次數(shù)達(dá)到 3次時(shí)，不能登陸，退出！ If loginno = 3 Then MsgBox 對(duì)不起，您不能使用該系統(tǒng)！請(qǐng)與管理員聯(lián)系。多文檔界面是一種Windows 用戶界面標(biāo)準(zhǔn)。 3． 3． 2． 2 窗體代碼設(shè)計(jì) 1．在代碼窗口的通用部分，聲明一個(gè) API 函數(shù)用于打開幫助文件和調(diào)用 Outlook發(fā)送郵件。 17 Private Sub MDIForm_Load() (2).Text = 當(dāng)前操作員： amp。 If LoginPower = 普通用戶 Then = False (5).Enabled = False End If End Sub 3． Form 的 QueryUnload 事件 當(dāng)用戶要退出 MDI 窗體時(shí)，需要在 QueryUnload 事件中詢問(wèn)用戶是否真的要退出本系統(tǒng)；如果用戶不要退出，則將 Cancel 置為 1，取消整個(gè)退出過(guò)程。 在這兩個(gè)事件中，均可將 Cancel 設(shè)置為任何非零的值來(lái)防止窗體被刪除。 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ù)，打開 幫助文件。 Private Sub filemenu45_Click() 39。在該窗體的通用部分寫如下代碼： Dim DelNO As Integer 2．窗體加載時(shí)，初始化 Listview 用以顯示 系統(tǒng)用戶列表，代碼如下 Private Sub Form_Load() 39。,請(qǐng)刪除。 39。 的用 戶帳 號(hào) , 22 vbInformation Exit Sub End If Loop : Set rs = Nothing End Sub 如果沒(méi)有重復(fù)，再檢查兩次輸入的密碼是否一致，如果不一致，則提示“兩次密碼不一致”。 amp。 amp。 39。,39。) sqlstr MsgBox 添加用戶 amp。根據(jù)以上的設(shè)計(jì)， DeleteRecord()的代碼如下： Private Sub DeleteRecord() 39。 amp。 amp。添加用戶 End Sub Private Sub menuDel_Click() 39。這時(shí)，先檢查兩次輸入的密碼是否一致，如果不一致，則提示用戶，將焦點(diǎn)設(shè)置到第二個(gè) Text2控件，后面 兩個(gè)文本框清空，代碼如下： Private Sub Command1_Click() Dim Oldpwd As String, pwd As String, confirmpwd As String Oldpwd = Trim() pwd = Trim() confirmpwd = Trim() ?? If Trim(pwd) Trim(confirmpwd) Then MsgBox 兩次輸入的密碼不相同！ , vbInformation = = Exit Sub End If End Sub 如果密碼一致，則判斷輸入的原密碼是否正確，如果正確則將新密碼寫入數(shù)據(jù)庫(kù)，這時(shí)需要一個(gè)字符串變量表達(dá) SQL 語(yǔ)句，一個(gè) Recordset 對(duì)象變量打開系統(tǒng)信息數(shù)據(jù)表。 LoginUser amp。 pwd amp。 LoginUser amp。 在該窗體中，用戶可以查看 /修改員工 的信息，還可以添加 /刪除員工 信息，所以用一個(gè) Treeview和一個(gè) Listview分別顯示部門列 表和該部門 下面的 員工 列表，用 Image 和 PictureBox 來(lái)調(diào)整控件的大小。 Private Sub Form_Resize() If WindowState 1 Then If 3000 Then = 3000 If 3000 Then = 3000 Si