員工信息管理系統(tǒng)設(shè)計(jì)說(shuō)明書(shū)-wenkub
2023-05-02 07:52:54 本頁(yè)面
【正文】 單 。其中“用戶名”字段定義為主鍵（Primary Key）.not null表示不允許空值。(4)員工人數(shù)信息數(shù)據(jù)：包括的數(shù)據(jù)項(xiàng)有員工人數(shù)。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)。該系統(tǒng)主要考慮了員工信息管理需求:，支持多條件查詢。修改、添加、查詢、刪除數(shù)據(jù)方便簡(jiǎn)單，數(shù)據(jù)穩(wěn)定性好。根據(jù)員工信息管理系統(tǒng)的需求，總結(jié)出下面的數(shù)據(jù)字典：(1)用戶數(shù)據(jù)：內(nèi)部工作人員使用員工信息管理系統(tǒng)的身份數(shù)據(jù)，包括的數(shù)據(jù)項(xiàng)有用戶名、密碼。本員工信息管理系統(tǒng)使用Access創(chuàng)建員工信息管理系統(tǒng)的數(shù)據(jù)庫(kù)。表1 用戶表結(jié)構(gòu)字段名數(shù)據(jù)類型說(shuō)明用戶名Char主鍵，字段大小為6密碼Char字段大小為62)員工基本信息表：其結(jié)構(gòu)如表2所示。窗體作為程序的啟動(dòng)窗體。窗體中使用文本框顯示記錄用戶名和密碼字段數(shù)據(jù)。用戶管理窗體如圖3所示圖3 用戶管理窗體 沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說(shuō)明書(shū) 單擊”修改密碼”子菜單,則進(jìn)入修改密碼窗體。單擊“取消”按鈕，可取消修改用戶的密碼。單擊“確定”按鈕，可保存當(dāng)前設(shè)置，單擊“取消”按鈕可取消記錄的設(shè)置。單擊“確定”按鈕，開(kāi)始查詢，單擊“取消”按鈕可取消此操作。然后右鍵點(diǎn)擊選中的員工信息，則會(huì)彈出員工基本信息表，此時(shí)，就可以修改員工信息了。在窗體中可根據(jù)員工編號(hào)，員工姓名以及員工的入職時(shí)間，其中任意一項(xiàng)信息，都可以確定員工的信息。單擊“員工調(diào)動(dòng)信息”子菜單可以看到它有四個(gè)子菜單。添加員工信息窗體如圖7所示。添加員工調(diào)動(dòng)信息窗體如圖8所示。單擊“確定”按鈕，則會(huì)彈出提示框，提示修改成功，數(shù)據(jù)庫(kù)中也會(huì)相應(yīng)的修改。然后右鍵點(diǎn)擊選中的員工信息，則會(huì)彈出員工基本信息表，此時(shí)，就可以刪除員工信息了。如果用戶名和密碼正確，則啟動(dòng)系統(tǒng)主窗體。運(yùn)行程序，進(jìn)入系統(tǒng)，界面如圖10所示：圖10 系統(tǒng)主窗體 沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說(shuō)明書(shū) 登錄系統(tǒng)由用戶登錄、修改密碼、退出系統(tǒng)等組成。在課程設(shè)計(jì)的過(guò)程中，我對(duì)課本上的知識(shí)進(jìn)行了復(fù)習(xí)，從中找出了不少盲點(diǎn)，由衷地感覺(jué)到學(xué)習(xí)過(guò)程中應(yīng)該把學(xué)的知識(shí)作扎實(shí)，多動(dòng)手多思考，這樣才能最大限度的減少知識(shí)的漏洞。查詢用戶 SQL = select * from UserInfo where UserID=39。 Set rs = TransactSQL(SQL) If iflag = 1 Then If = True Then MsgBox 沒(méi)有這個(gè)用戶，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then gUserName = Trim() 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。 Set rs = TransactSQL(SQL) If = False Then = rs(0) 39。 amp。 amp。 amp。修改記錄 39。 39。 39。 39。 39。 39。 39。 39。 amp。 amp。 amp。 1 todate = Format(todate, yyyymmdd)End Su
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1