vbaccess企業(yè)工資管理系統(tǒng)-課程設(shè)計(參考版)
2025-08-10 13:45本頁面
【正文】 建立導(dǎo)出工資表的窗體，當(dāng)單擊“保存為”文本框右邊的按鈕，會提示用戶選擇保存路徑，然后單擊“導(dǎo)出”，會導(dǎo)到你所要保存的文件夾里。 39。 amp。 39。 amp。 39。 amp。 Select Case Set rs = getrs(sql, salary) 39。 amp。 ’ 用戶的權(quán)限 Else End Select Call showdata(sql) Call listtopic sql = select * from salarystatistics order by id desc Case 2 Call showother(sql) Call othertopic sql = select * from salaryother Case 1 Call showbasic(sql) Call basictopic sql = select * from salarysetting Case 0 Select Case = 0 End If Wend rs(0) While Not If = False Then Set rs = getrs(sql, salary) sql = select stuffid from salarysetting ’管理員的權(quán)限當(dāng)你是管理員登錄的時候，他的權(quán)限是所有，當(dāng)你是用戶登錄的時候，窗體只顯示登錄用戶本人的相關(guān)信息。不僅是因?yàn)樗脑O(shè)置，還有就是它的代碼和數(shù)據(jù)庫相連的操作。單擊“查詢?nèi)俊卑粹o，系統(tǒng)返回全部員工的信息。 單擊“確定”后，就會出現(xiàn)工資信息列表，這時你將看見所有關(guān)于你想要的信息。否則會出現(xiàn)如下的對話框： 這是用戶登錄所顯示的用戶信息建立計算實(shí)發(fā)工資的窗體，這個窗體的建立和統(tǒng)計出勤記錄的窗體比較相似，選擇月份后，單擊“開始統(tǒng)計”按鈕，即可統(tǒng)計員工工資。 管理員能看到的界面 在統(tǒng)計出勤信息的窗體里，這要和出勤記錄的數(shù)據(jù)庫相連，如果輸入的月份沒有統(tǒng)計將如下的對話框：VB+access企業(yè)工資管理系統(tǒng)如果輸入的月份有統(tǒng)計記錄則彈出如下的對話框： 然后彈出出勤結(jié)果的窗體，顯示數(shù)據(jù)庫中統(tǒng)計信息相關(guān)的記錄。當(dāng)輸入的格式與設(shè)定的格式不一致的時候，會彈出相關(guān)的對話框。這里的恢復(fù)默認(rèn)值功能采用的方法比較簡單，就是在一個函數(shù)中設(shè)置了固定的默認(rèn)值。在建立工資計算公式的窗體時，輸入內(nèi)容后，單擊“確定”按鈕，設(shè)置計算公式中使用的數(shù)字。還有就是每次添加成功后，系統(tǒng)需要初始化，更新一下。在其他項目設(shè)置這個窗體里，我用了一個Frame控件和幾個optionButton控件，目的在于：在添加其他項目時，只能有一個設(shè)置是有效的，而且還可以添加其他的項目，還有備注等等，這些都便于記錄。在建立其他項目設(shè)置的窗體時，也在兩個地方使用，即添加和修改，在載入時也需要判斷狀態(tài)。當(dāng)你沒輸入員工編號的時候，會出現(xiàn)下圖的對話框；選擇員工編號或選擇職務(wù)，然后填寫工資金額，單擊“確定”按鈕，系統(tǒng)就會按照選擇的方式，設(shè)置員工的基本工資。我覺得這是一個很大的問題，在別的書上可能沒注意到這一點(diǎn)，所以我要注重的講一下，這是我做這個窗體時的最大體會。我在做這個窗體時遇到了一個問題：就是輸入的新密碼確認(rèn)后，當(dāng)你再一次的進(jìn)入修改密碼窗體輸入舊密碼時，如果輸入的是剛剛修改過的密碼，就會出現(xiàn)錯誤。單擊“取消”按鈕就卸載此窗體，添加用戶的過程到此完成。 然后輸入與用戶密碼相同的密碼，我這里的密碼都是以*的形式表達(dá)，是不可見的。當(dāng)管理員進(jìn)入的時候他有所有的權(quán)利，單擊哪個模塊就會彈出相對應(yīng)的窗體。選擇“工程—引用”菜單，在“引用”窗體中選擇Microsoft Excel Object Library項，這樣才能夠成功導(dǎo)入到Excel。在工資統(tǒng)計列表窗體里：使用了SSTab控件，在每一個標(biāo)簽上添加一個MSFlexGrid控件，然后設(shè)置它們的屬性。在出勤結(jié)果信息列表的窗體里：使用了Adodc控件和DataGrid控件，控件的Visible屬性一定要設(shè)置為False。在這個模塊里，普通用戶有統(tǒng)計出勤信息和查詢工資的權(quán)利，但是都顯示的是自己的信息。在其他項目設(shè)置的窗體里：使用了一個DTPicker控件獲得添加記錄的時間，要使用這個控件需要添加部件類庫，選擇“工程—部件”命令，選擇Microsoft Windows Common Controls2 (sp4)項，然后設(shè)置相關(guān)的屬性。在這個模塊里，普通用戶沒有任何權(quán)利進(jìn)行相關(guān)的操作。在修改密碼的窗體里：添加了3個標(biāo)簽，用來顯示信息；3個文本框用來輸入用戶名稱和用戶密碼；2個按鈕用來確定和取消操作，然后設(shè)置它們的屬性。在這個模塊里普通用戶只有修改自己的密碼的權(quán)利。當(dāng)輸入的用戶名或密碼不正確的時候，會出現(xiàn)如下的對話框： 導(dǎo)出的工資記錄3．4 單擊“確定”按鈕打開導(dǎo)出的文件，單擊“取消”按鈕回到系統(tǒng)。選擇“工資信息管理”—“導(dǎo)出工資表”菜單，會出現(xiàn)下圖的“導(dǎo)出記錄”窗體中選擇需要導(dǎo)出工資的月份。具體的操作這里就不詳細(xì)介紹。在“員工工資統(tǒng)計列表”中單擊鼠標(biāo)右鍵，會彈出下圖的菜單，在“員工其他項目列表”中單擊鼠標(biāo)右鍵也會出現(xiàn)下圖的菜單。Unload MeElse = 統(tǒng)計結(jié)果列表Call sql = select * from salarystatistics days amp。lastday = Year(Date) amp。 + 1 amp。 Year(Date) amp。 amp。days = DateDiff(d, Year(Date) amp。 amp。firstday = Year(Date) amp。如果系統(tǒng)還沒有統(tǒng)計工資，那么系統(tǒng)開始統(tǒng)計工資，然后在信息結(jié)果列表窗體中顯示統(tǒng)計結(jié)果。 End If 選擇“工資信息管理”—“計算實(shí)發(fā)工資”菜單，在這個窗體中選擇需要統(tǒng)計的月份。 amp。 = sqlSet = Elsesql = select * from attendancestatistics=provider=。 amp。 =provider=。 sd amp。Set rs = getrs(sql, salary)sd = rs(0)sql = select * from attendancestatistics where stuffid=39。 strusername amp。If strusername admin Thensql = select sid from stuffinfo where sname=39。S
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1