員工信息管理系統(tǒng)設(shè)計(jì)說(shuō)明書(shū)(編輯修改稿)
2025-05-14 07:52 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 各個(gè)功能模塊的創(chuàng)建之后，就可以運(yùn)行整個(gè)系統(tǒng)了。運(yùn)行程序，進(jìn)入系統(tǒng)，界面如圖10所示：圖10 系統(tǒng)主窗體 沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說(shuō)明書(shū) 登錄系統(tǒng)由用戶登錄、修改密碼、退出系統(tǒng)等組成。系統(tǒng)管理由添加用戶、修改密碼和退出系統(tǒng)組成,其中管理員中可以對(duì)員工的基本信息進(jìn)行添加，修改，查詢，刪除操作；還可以對(duì)員工的調(diào)動(dòng)信息進(jìn)行添加，修改，查詢，刪除操作；還可以將員工的基本信息和員工的調(diào)動(dòng)信息打印報(bào)表。界面如圖11所示：圖11 員工信息打印報(bào)表 沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說(shuō)明書(shū) ４．設(shè)計(jì)體會(huì) 通過(guò)本次課程設(shè)計(jì)，使我從更深的層次了解了VB的設(shè)計(jì)技巧和應(yīng)用方法。在程序的編制和調(diào)試過(guò)程中，我從中學(xué)到了很多有用的方法，比如通過(guò)本次設(shè)計(jì)，我更深刻的體會(huì)到了VB系統(tǒng)的方便與實(shí)用。在課程設(shè)計(jì)的過(guò)程中，我對(duì)課本上的知識(shí)進(jìn)行了復(fù)習(xí)，從中找出了不少盲點(diǎn)，由衷地感覺(jué)到學(xué)習(xí)過(guò)程中應(yīng)該把學(xué)的知識(shí)作扎實(shí)，多動(dòng)手多思考，這樣才能最大限度的減少知識(shí)的漏洞。 把課本上的東西變成實(shí)際的東西，讓其有使用的價(jià)值，是一件很讓人高興的事。我切實(shí)的體會(huì)到VB這門(mén)課程是有用處的，它解釋了我平時(shí)學(xué)習(xí)中的很多疑惑，讓我增長(zhǎng)了很多見(jiàn)識(shí)。 [1] Basic程序設(shè)計(jì)教程[M]. 北京: 清華大學(xué)大學(xué)出版社， [2] Basic程序設(shè)計(jì)教程[M]. 高等教育出版社, [3] Basic程序設(shè)計(jì)教程[M].北京: 北京郵電大學(xué)出版社，[4] Microsoft .Visual Basic 中文版控件大全[M]北京：電子工業(yè)出版社,－23 源程序代碼如下：（１）用戶登錄窗體Private Sub cmdOK_Click() Dim SQL As String Dim rs As 沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說(shuō)明書(shū) If Trim( = ) Then MsgBox 沒(méi)有輸入用戶名稱(chēng)，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 Else 39。查詢用戶 SQL = select * from UserInfo where UserID=39。 amp。 amp。 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。保存用戶名稱(chēng) Unload Me Else MsgBox 密碼不正確，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 = 沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說(shuō)明書(shū) End If End IfElse Unload Me End IfEnd IfpwdCount = pwdCount + 1 39。判斷輸入次數(shù) If pwdCount = 3 Then Unload Me Exit Sub End IfEnd SubPrivate Sub Form_Load() pwdCount = 0 gUserName = End SubPrivate Sub PassWord_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCodeEnd SubPrivate Sub UserName_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCodeEnd Sub
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1