【正文】 rm_Load() Dim i As Integer Dim SQL As String Dim rs As New SQL = select distinct datepart(yy,SInTime) from StuffInfo Set rs = TransactSQL(SQL) If Not Then While Not If Not IsNull((0)) Then 沈 陽 大 學(xué)課程設(shè)計(jì)說明書 rs(0) rs(0) End If Wend = 0 = 0 End If For i = 1 To 12 i i Next i = 0 = 0End Sub至此,整個(gè)程序系統(tǒng)的實(shí)現(xiàn)就完成了。 Trim() amp。 1 fromdate = Format( amp。 SQL = SQL amp。 amp。 amp。 SQL = SQL amp。 TransactSQL (SQL) MsgBox 已經(jīng)添加調(diào)動(dòng)信息！, vbOKOnly + vbExclamation, 添加結(jié)果！ SQL = select * from AlterationInfo order by ID 沈 陽 大 學(xué)課程設(shè)計(jì)說明書 = Provider=。, SPosition=39。 amp。 amp。界面如圖11所示：圖11 員工信息打印報(bào)表 沈 陽 大 學(xué)課程設(shè)計(jì)說明書 ４．設(shè)計(jì)體會(huì) 通過本次課程設(shè)計(jì)，使我從更深的層次了解了VB的設(shè)計(jì)技巧和應(yīng)用方法。單擊“取消”按鈕可取消此操作。在窗體中可根據(jù)員工編號(hào)、員工的調(diào)出時(shí)間，其中任意一項(xiàng)信息，都可以確定員工的信息。在窗體中可根據(jù)員工編號(hào)，員工的調(diào)出時(shí)間，其中任意一項(xiàng)信息，都可以查詢。單擊“取消”按鈕可取消此操作。 沈 陽 大 學(xué)課程設(shè)計(jì)說明書 圖5員工信息管理信息其中單擊“查詢員工信息”子菜單，進(jìn)入查詢員工基本信息窗體。單擊“確定”按鈕可添加修改密碼。系統(tǒng)主窗體如圖2所示 沈 陽 大 學(xué)課程設(shè)計(jì)說明書 圖2 主窗體系統(tǒng)管理菜單下共有3個(gè)子菜單,分別是添加用戶，修改密碼和退出。各個(gè)數(shù)據(jù)表的的結(jié)構(gòu)分別如下:1)用戶數(shù)據(jù)表用戶數(shù)據(jù)表命名為“用戶表”，其結(jié)構(gòu)如表1所示。真正實(shí)現(xiàn)了員工信息管理的自動(dòng)化和信息化。本系統(tǒng)可以對(duì)員工基本信息進(jìn)行添加，修改，刪除，查詢操作，還可以對(duì)員工的調(diào)動(dòng)信息進(jìn)行添加，刪除，修改，查詢等操作。根據(jù)前面分析的數(shù)據(jù)字典，為每一個(gè)數(shù)據(jù)建立一個(gè)數(shù)據(jù)表。使用菜單編輯器為主窗體添加多級(jí)子菜單：添加員工信息，修改員工信息，刪除員工信息，查詢員工信息，添加員工調(diào)動(dòng)信息，刪除員工調(diào)動(dòng)信息，修改員工調(diào)動(dòng)信息，查詢員工調(diào)動(dòng)信息，幫助。窗體中使用文本框顯示舊密碼，新密碼，確認(rèn)密碼數(shù)據(jù)。添加員工信息窗體如圖5所示。單擊“確定”按鈕，則會(huì)彈出提示框，提示修改成功，數(shù)據(jù)庫中也會(huì)相應(yīng)的修改。其中單擊“查詢員工調(diào)動(dòng)信息”子菜單，進(jìn)入員工調(diào)動(dòng)信息窗體。 沈 陽 大 學(xué)課程設(shè)計(jì)說明書 圖8添加員工調(diào)動(dòng)信息其中單擊“修改員工調(diào)動(dòng)信息”子菜單，進(jìn)入員工基本信息窗體。單擊“確定”按鈕，則會(huì)彈出提示框，提示刪除成功，數(shù)據(jù)庫中也會(huì)相應(yīng)的修改。系統(tǒng)管理由添加用戶、修改密碼和退出系統(tǒng)組成,其中管理員中可以對(duì)員工的基本信息進(jìn)行添加，修改，查詢，刪除操作；還可以對(duì)員工的調(diào)動(dòng)信息進(jìn)行添加，修改，查詢，刪除操作；還可以將員工的基本信息和員工的調(diào)動(dòng)信息打印報(bào)表。 amp。 amp。 39。 39。, SPosition=39。TransactSQL (SQL) SQL = update AlterationInfo set AOldDept=39。,AOldPosition=39。,AOutTime= amp。 amp。 amp。 沈 陽 大 學(xué)26 / 2