【正文】 刷本和電子版本；學(xué)校有權(quán)保存畢業(yè)設(shè)計（論文）的印刷本和電子版，并提供目錄檢索與閱覽服務(wù)；學(xué)?？梢圆捎糜坝?、縮印、數(shù)字化或其它復(fù)制手段保存論文；在不以贏利為目的前提下，學(xué)校可以公布論文的部分或全部內(nèi)容。但一直以來人們使用傳統(tǒng)人工的方式管理文件員工檔案 ，這種管理方式存在著許多缺點 ,如 :效率低、保密性差 ,另外時間一長 ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這對于查找、更新和維護(hù)都帶來了不少的困難。 2 畢業(yè)設(shè)計（論文）原創(chuàng)性聲明和使用授權(quán)說明 原創(chuàng)性聲明 本人鄭重承諾：所呈交的畢業(yè)設(shè)計（論文），是我個人在指導(dǎo)教師的指導(dǎo)下進(jìn) 行的研究工作及取得的成果。改革 的總設(shè)計師鄧小平同志說過“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我三 年的所學(xué)編制出一個實用 的程序來幫助中小企 業(yè) 進(jìn)行更有效的 員工檔案 管理。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運行效率和可靠性。 當(dāng)然在 Visual Basic 中還有其它特性，例如： ? 面向?qū)ο蟮木幊陶Z言； ? 結(jié)構(gòu)化程序設(shè)計； 5 ? 事件驅(qū)動的程序設(shè)計： 在傳統(tǒng)的或“過程化”的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行哪一部分代碼和按何種順序執(zhí)行代碼。 VB 可以訪問的數(shù)據(jù)庫可以簡單的分為三類，即： Microsoft Access 格式數(shù)據(jù)庫，外部數(shù)據(jù)庫和 ODBC 數(shù)據(jù)庫。 Jet 也提供對安全功能的支持。 數(shù)據(jù)控件是 VB 所提供的基本控件成員之一。 0 中新增的對象，它是一個更簡單的對象模型，它更好的集成了其它數(shù)據(jù)訪問技術(shù)，并且對本地和遠(yuǎn)程數(shù)據(jù)庫均有共同的界面，可 以取代 DAO和 RDO。 在經(jīng)歷了 SQL Server 和 兩個版本的嘗試后，微軟公司終于開始 了 大規(guī)模的業(yè)務(wù)。 SQL Server 數(shù)據(jù)庫特點 概括起來， SQL Server 20xx 數(shù)據(jù)庫管理系統(tǒng)具有以下主要特點。 4． 豐富的編程接口工具，使用戶開發(fā) SQL Server 數(shù)據(jù)庫應(yīng)用程序更加靈活。此外，與 Windows 8 20xx 的集成還使 SQL Server 能夠充分利用操作系統(tǒng)所提供的服務(wù)和功能（如安全管理、事件日志、性能監(jiān)視器、內(nèi)存管理和異步 I/O 等），從而增強了 SQL Server數(shù)據(jù)庫系統(tǒng)的功能，并且只需要占用很少的系統(tǒng)資源。 利用 ADO 開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫應(yīng)用程序有以下幾個優(yōu)點： ⑴ 支持客戶機(jī) /服務(wù)器結(jié)構(gòu)（ Client/Server）與 Web 系統(tǒng)開發(fā)技術(shù)。 Command 對象：定義對數(shù)據(jù)庫源操作的命令。用于與立即更新模式相反的批更新模式。 ⑴ 篩選及排序記錄的 Select 指令 基本句型一： Select 字段串列 From 數(shù)據(jù)表 基本句型二： Select ? From ? Where 篩選條件 10 基本句型三： Select ? From ? Order By 字段串列 Select Top：限定選取數(shù)據(jù)的條數(shù) ⑵ 刪除數(shù)據(jù)記錄的 Delete 指令 基本語法： Delete From 數(shù)據(jù)表 Where 條件式 ⑶ 更新數(shù)據(jù)記錄的 Update 指令 基本語法： 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ū)別是，這個指令將建立另一個新的數(shù)據(jù)表，而 Insert Into 是增加數(shù)據(jù)記錄到“現(xiàn)存的”數(shù)據(jù)表中。 + \ ③設(shè)定 SQL 語句，使用“ Execute”命令，即可開始執(zhí)行訪問數(shù)據(jù)庫的動作 Dim rs As New 其中 rs為結(jié)果集對象（ RECORDSET） ④關(guān)閉結(jié)果集對象，斷開與數(shù)據(jù)庫的連接 第二章 系統(tǒng)整體規(guī)劃 2． 1 數(shù)據(jù)庫的設(shè)計 在 系統(tǒng)設(shè)計過程中，首先要建立的就是數(shù)據(jù)庫。Data Source=amp。 Userid amp。多文檔界面是一種Windows 用戶界面標(biāo)準(zhǔn)。 17 Private Sub MDIForm_Load() (2).Text = 當(dāng)前操作員： amp。 在這兩個事件中，均可將 Cancel 設(shè)置為任何非零的值來防止窗體被刪除。 Private Sub filemenu45_Click() 39。,請刪除。 的用 戶帳 號 , 22 vbInformation Exit Sub End If Loop : Set rs = Nothing End Sub 如果沒有重復(fù)，再檢查兩次輸入的密碼是否一致，如果不一致，則提示“兩次密碼不一致”。 amp。,39。根據(jù)以上的設(shè)計， DeleteRecord()的代碼如下： Private Sub DeleteRecord() 39。 amp。這時，先檢查兩次輸入的密碼是否一致，如果不一致，則提示用戶，將焦點設(shè)置到第二個 Text2控件，后面 兩個文本框清空，代碼如下： 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ù)庫，這時需要一個字符串變量表達(dá) SQL 語句，一個 Recordset 對象變量打開系統(tǒng)信息數(shù)據(jù)表。 pwd amp。 在該窗體中，用戶可以查看 /修改員工 的信息，還可以添加 /刪除員工 信息，所以用一個 Treeview和一個 Listview分別顯示部門列 表和該部門 下面的 員工 列表，用 Image 和 PictureBox 來調(diào)整控件的大小。開始在 ListView 中顯示數(shù)據(jù) classid = Left(, 6) Call ListviewLoad(classid) ElseIf = S Then Call SqlListview(SqlSearch) Else End If End Sub Public Sub ListviewLoad(ByVal classid As String) Dim Listit As ListItem = lvwManual = 3 29 Dim ef As New classid = Left(classid, 6) sqlstr = select * from StuInfo where SID like 39。O）”。 Private Sub pop5_Click() 39。在 Listview 中列出了各 員工檔案 信息的身份證 號 和姓名以供用戶進(jìn)行導(dǎo)航，但是在實際管理中，還需要顯示出某一條員工 信息的詳細(xì)列表。 StuNum amp。 ） = 添加（ amp。 sqlstr, con 39。 EditNum amp。 sqlstr, con, 1, 1 StuInfo(0).Caption = (SID) StuInfo(1).Caption = (SName) StuInfo(2).Caption = (SGender) StuInfo(3).Caption = (SZhengzhi) StuInfo(4).Caption = (SPlace) StuInfo(5).Caption = (SMinzu) StuInfo(6).Caption = (SBirthday) StuInfo(7).Caption = (SDormitory) StuInfo(8).Caption = (SAddress) StuInfo(9).Caption = (SCode) StuInfo(10).Caption = (STel) StuInfo(11).Caption = (SRemark) : Set rs = Nothing 1 End Sub 3． 3． 6 添加 /修改員工 信息窗體 (frmAddstu) 當(dāng)窗體加載時，首先判斷是修改員工資料還是添加新的員工資料，如果身份證 號為“ 00000000”，則為添加新的員工資料，反之則為修改員工 資 料。當(dāng)用戶單擊“顯示該生詳細(xì)資料”子菜單時，顯示 frmstuinfo 窗體（圖 ），并以員工的身份證號為關(guān)鍵字，將該員工 的全部資料賦值給 frmstuinfo 中的對應(yīng)文本框。 amp。添加員工 資料 Call End Sub Public Sub AddStu() Call (00000000) 30 End Sub 修改員工 資料的 Click 事件的設(shè)計思路和添加員工 資料的設(shè)計思路類似，但是由于只是對記錄進(jìn)行修改，不需要調(diào)用 AddNew 操作，只要對數(shù)據(jù)進(jìn)行 Update操作即可。 classid amp。 Private Sub Form_Load() Call TreeviewLoad Dim clmX As ColumnHeader Set clmX = (, , 身份證 號 , / 7) ?? End Sub 在 Form_Load 事件中調(diào)用了 TreeviewLoad 函數(shù)，由于篇幅省略該函數(shù)的代碼，具體實現(xiàn)見源程序。 where UserID=39。 Private Sub Command1_Click() ?? sqlstr = select UserPWD from UserInfo where UserID=39。 39。 amp。Userpower amp。 39。 Private Sub Command4_Click() sqlstr = insert into UserInfo(UserID,UserPWD,UserName,UserPower) sqlstr = sqlstr amp。 amp。窗體的控件設(shè)計如圖 所示 圖 用戶管理界面 如果登陸的用戶類型是管理員，用戶管理一項是可用的，當(dāng)單擊該子菜單時，19 將會出現(xiàn)用戶管理窗口，管理員可以對系統(tǒng)用戶進(jìn)行添加和刪除操作。有介于此，通常來說都是在 QueryUnload 中詢問用戶是否要退出當(dāng)前窗體。 amp。 在工程中添加一個 MDI 窗口，取名為“ ”，并為 MDI 窗體進(jìn) 行菜單和代碼的設(shè)計。 sqlstr, con, 1, 1 If Not Then If rs(UserPWD) Userpwd Then 39。這里附上本程序的登陸界面。 1． 用戶信息表（ UserInfo）： 11 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 UserID 文本 用戶名 Not Null Primary Key UserPWD 文本 用戶密碼 Not Null UserName 文本 姓名 Not Null UserPower 文本 使用權(quán)限 Not Null 2． 公司員工 信息表（ StuInfo）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 SID 文本 身份證 號 Not Null Primary Key SName 文本 姓名 Not Null SGender 文本 性別 Not Null SPlace 文本 籍貫 Not Null SBirthday 日期 /時間 出生日期 Not Null SMinzu 文本 民族 Not Null SZhengzhi 文本 政治面貌 Not Null SDormitory 文本 移動電話 號碼 Not Null SAddress 文本 家庭住址 Not Null SCode 文本 郵政編碼 Not Null STel 文本 聯(lián)系電話 Not Null SRemark 備注 備注 Not Null 3． 公司 信息表（ Class）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 ID 文本 公司 代碼 Not Null