vb員工信息管理系統(tǒng)(完整版)
【正文】 me= amp。 SQL = SQL amp。 amp。 amp。Data Source= + + \ = SQL If SQL Then End IfElse 39。 SQL = SQL amp。 39。 39。在程序的編制和調(diào)試過(guò)程中，我從中學(xué)到了很多有用的方法，比如通過(guò)本次設(shè)計(jì)，我更深刻的體會(huì)到了VB系統(tǒng)的方便與實(shí)用。 沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說(shuō)明書(shū) 員工信息管理系統(tǒng)在啟動(dòng)時(shí)首先顯示登錄窗體，用戶輸入用戶名和密碼后，單擊“確定”按鈕登錄。然后右鍵點(diǎn)擊選中的員工信息，則會(huì)彈出員工基本信息表，此時(shí)，就可以修改員工信息了。單擊“確定”按鈕，開(kāi)始查詢，單擊“取消”按鈕可取消此操作。其中單擊“刪除工信息”子菜單，進(jìn)入員工刪除信息窗體。在窗體中可根據(jù)員工編號(hào)，員工姓名以及員工的入職時(shí)間，其中任意一項(xiàng)信息，都可以查詢。數(shù)據(jù)庫(kù)的uerinfo表中則相應(yīng)的修改這一條紀(jì)錄。單擊”添加用戶”子菜單,則進(jìn)入用戶管理窗體。其中“用戶名”字段定義為主鍵（Primary Key）.not null表示不允許空值。2．概要設(shè)計(jì) 沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說(shuō)明書(shū) 管理員登錄修改口令輸入用戶名和密碼判斷用戶名和密碼進(jìn)入主界面退 出員工信息管理系統(tǒng)1系統(tǒng)2 員工基本信息3員工調(diào)動(dòng)信息5幫助退 出添加員工信息修改員工信息查詢員工信息添加調(diào)動(dòng)信息修改密碼添加用戶刪除員工信息修改調(diào)動(dòng)信息查詢調(diào)動(dòng)信息員工基本信息員工調(diào)動(dòng)信息刪除調(diào)動(dòng)信息關(guān)于4打印報(bào)表圖1員工信息管理信息 沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說(shuō)明書(shū) 數(shù)據(jù)庫(kù)設(shè)計(jì)是數(shù)據(jù)庫(kù)管理系統(tǒng)的第二個(gè)步驟，應(yīng)根據(jù)系統(tǒng)功能模塊繪制系統(tǒng)數(shù)據(jù)流圖，總數(shù)據(jù)字典，設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)。修改、添加、查詢、刪除數(shù)據(jù)方便簡(jiǎn)單，數(shù)據(jù)穩(wěn)定性好。本員工信息管理系統(tǒng)使用Access創(chuàng)建員工信息管理系統(tǒng)的數(shù)據(jù)庫(kù)。窗體作為程序的啟動(dòng)窗體。用戶管理窗體如圖3所示圖3 用戶管理窗體 沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說(shuō)明書(shū) 單擊”修改密碼”子菜單,則進(jìn)入修改密碼窗體。單擊“確定”按鈕，可保存當(dāng)前設(shè)置，單擊“取消”按鈕可取消記錄的設(shè)置。然后右鍵點(diǎn)擊選中的員工信息，則會(huì)彈出員工基本信息表，此時(shí)，就可以修改員工信息了。單擊“員工調(diào)動(dòng)信息”子菜單可以看到它有四個(gè)子菜單。添加員工調(diào)動(dòng)信息窗體如圖8所示。然后右鍵點(diǎn)擊選中的員工信息，則會(huì)彈出員工基本信息表，此時(shí)，就可以刪除員工信息了。運(yùn)行程序，進(jìn)入系統(tǒng)，界面如圖10所示：圖10 系統(tǒng)主窗體 沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說(shuō)明書(shū) 登錄系統(tǒng)由用戶登錄、修改密碼、退出系統(tǒng)等組成。查詢用戶 SQL = select * from UserInfo where UserID=39。保存記錄編號(hào)Private baddflag As Booleanrivate Sub AID_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCodeEnd SubPrivate Sub AID_LostFocus() Dim SQL As String Dim rs As New SQL = select SName,SDept,SPosition from StuffInfo where SID=39。 amp。 amp。 39。 39。 39。 39。 amp。 1 todate = Format(todate, yyyymmdd)End Sub 沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說(shuō)明書(shū) Private Sub setSQL() If = vbChecked Then query = select * from StuffInfo where SID=39。End IfEnd SubPrivate Sub cmdOK_Click() Call CombineDate Call setSQL (query) Unload MeEnd SubPrivate Sub Fo
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1