公司員工工資管理系統(tǒng)課程設(shè)計(jì)(編輯修改稿)
2025-05-04 20:19 本頁面
【文章內(nèi)容簡介】 老師的指點(diǎn)后，終于找到了問題的所在。順利的完成了邏輯結(jié)構(gòu)設(shè)計(jì)。查詢嵌套的實(shí)現(xiàn)和計(jì)算工資這個(gè)環(huán)節(jié)也遇到了很大的困難，這一切都源自對操作環(huán)境的不熟悉，所以我們盡量使我們的應(yīng)用程序簡單化，重點(diǎn)放在基本功能的實(shí)現(xiàn)上，沒有追求一些高難度的應(yīng)用編寫。 ：功能不是很全面,可是適當(dāng)添加一些功能使程序更加完善. 例如可添加員工參加工作的時(shí)間，工齡等使員工信息更加系統(tǒng)全面。（3） 系統(tǒng)詳細(xì)設(shè)計(jì)說明 創(chuàng)建數(shù)據(jù)庫本次設(shè)計(jì)中的表一律是通過手工自己創(chuàng)建。 ①員工基本資料管理表[yuangong]的創(chuàng)建； ②員工獎(jiǎng)勵(lì)管理表的創(chuàng)建； ③員工懲罰管理表的創(chuàng)建； ④工資發(fā)放查詢表的創(chuàng)建此時(shí)生成的界面如下圖：：使用窗體向?qū)У姆椒ㄒ来翁砑印奥殕T信息管理”窗體和“職員信息管理”子窗體此處添加子窗體代碼為：Private Sub Form_Current()On Error GoTo Err_Form_CurrentForms![員工基本資料管理]![職員ID] = Me![職員ID]Forms![員工基本資料管理]![部門ID] = Me![部門ID]Forms![員工基本資料管理]![職務(wù)] = Me![職務(wù)]Forms![員工基本資料管理]![工資] = Me![工資]Forms![員工基本資料管理]![姓名] = Me![姓名]Forms![員工基本資料管理]![性別] = Me![性別]Forms![員工基本資料管理]![身份證ID] = Me![身份證ID]Forms![員工基本資料管理]![備注] = Me![備注]Exit_Form_Current:Exit SubErr_Form_Current:MsgBox Resume Exit_Form_CurrentEnd Sub運(yùn)行后界面為：窗體及子窗體調(diào)整后如下圖所示：，代碼添加為：Private Sub 新建職員_Click()On Error GoTo Err_新建職員_Click39。把窗體中所有控件都置空Me![職員ID] = NullMe![部門ID] = NullMe![職務(wù)] = NullMe![工資] = NullMe![姓名] = NullMe![性別] = NullMe![身份證ID] = NullMe![備注] = NullExit_新建職員_Click:Exit SubErr_新建職員_Click: MsgBox Resume Exit_新建職員_ClickEnd Sub運(yùn)行后界面如下圖所示：，添加代碼為:Private Sub 添加職員_Click()On Error GoTo Err_添加職員_clickDim STemp As StringIf IsNull(Me![職員ID]) = True ThenMsgBox 請輸入 職員ID 它不能為空！, vbOKOnly, 輸入職員IDMe![職員ID].SetFocusElseIf IsNull(Me![部門ID]) = True ThenMsgBox 請輸入 部門ID 它不能為空！, vbOKOnly, 輸入部門IDMe![部門ID].SetFocusElseIf IsNull(Me![職務(wù)]) = True ThenMsgBox 請輸入 職務(wù) 它不能為空！, vbOKOnly, 輸入職務(wù)Me![職務(wù)].SetFocusElseIf IsNull(Me![工資]) = True ThenMsgBox 請輸入 工資 它不能為空！, vbOKOnly, 輸入工資Me![工資].SetFocusElseIf IsNull(Me![姓名]) = True ThenMsgBox 請輸入 姓名 它不能為空！, vbOKOnly, 輸入姓名Me![姓名].SetFocusElseIf IsNull(Me![性別]) = True ThenMsgBox 請輸入 性別 它不能為空！, vbOKOnly, 輸入性別Me![性別].SetFocusElseIf IsNull(Me![身份證ID]) = True ThenMsgBox 請輸入 身份證ID 它不能為空！, vbOKOnly, 輸入身份證IDMe![身份證ID].SetFocusElseIf IsNull(Me![備注]) = True ThenMsgBox 請輸入 備注 它不能為空！, vbOKOnly, 輸入備注Me![備注].SetFocusElse
公司管理相關(guān)推薦
鄂ICP備17016276號-1