vbaccess企業(yè)工資管理系統(tǒng)-課程設(shè)計(jì)-資料下載頁
2025-08-07 13:45本頁面
【正文】 來記錄添加其他項(xiàng)目的時(shí)間，我覺得這個(gè)控件非常好。還有就是每次添加成功后，系統(tǒng)需要初始化，更新一下。在設(shè)置完這個(gè)窗體后將會(huì)彈出查詢工資的窗體。在建立工資計(jì)算公式的窗體時(shí)，輸入內(nèi)容后，單擊“確定”按鈕，設(shè)置計(jì)算公式中使用的數(shù)字。在計(jì)算公式設(shè)置的窗體里，單擊“恢復(fù)默認(rèn)值”按鈕系統(tǒng)將會(huì)恢復(fù)公式中的默認(rèn)值。這里的恢復(fù)默認(rèn)值功能采用的方法比較簡單，就是在一個(gè)函數(shù)中設(shè)置了固定的默認(rèn)值。如果需要使用可變的默認(rèn)值，可以在數(shù)據(jù)庫中設(shè)置一項(xiàng)默認(rèn)值字段，這樣可以方便的更改默認(rèn)值。當(dāng)輸入的格式與設(shè)定的格式不一致的時(shí)候，會(huì)彈出相關(guān)的對(duì)話框。建立出勤統(tǒng)計(jì)窗體，選擇月份后，單擊“確定”按鈕，開始統(tǒng)計(jì)出勤記錄。在統(tǒng)計(jì)出勤信息的窗體里，這要和出勤記錄的數(shù)據(jù)庫相連，如果輸入的月份沒有統(tǒng)計(jì)將如下的對(duì)話框：VB+access企業(yè)工資管理系統(tǒng)如果輸入的月份有統(tǒng)計(jì)記錄則彈出如下的對(duì)話框： 然后彈出出勤結(jié)果的窗體，顯示數(shù)據(jù)庫中統(tǒng)計(jì)信息相關(guān)的記錄。 管理員能看到的界面 這是用戶登錄所顯示的用戶信息建立計(jì)算實(shí)發(fā)工資的窗體，這個(gè)窗體的建立和統(tǒng)計(jì)出勤記錄的窗體比較相似，選擇月份后，單擊“開始統(tǒng)計(jì)”按鈕，即可統(tǒng)計(jì)員工工資。在計(jì)算實(shí)發(fā)工資的窗體里，如果輸入的月份的工資沒統(tǒng)計(jì)會(huì)彈出如下的對(duì)話框：否則會(huì)出現(xiàn)如下的對(duì)話框： 單擊“確定”后，就會(huì)出現(xiàn)工資信息列表，這時(shí)你將看見所有關(guān)于你想要的信息。建立工資查詢的窗體，在選擇員工編號(hào)后，單擊“查詢單人”按鈕，返回選擇員工的相關(guān)信息。單擊“查詢?nèi)俊卑粹o，系統(tǒng)返回全部員工的信息。在建立工資查詢（即工資統(tǒng)計(jì)結(jié)果列表）的窗體時(shí)，我覺得這是一個(gè)最難的窗體。不僅是因?yàn)樗脑O(shè)置，還有就是它的代碼和數(shù)據(jù)庫相連的操作。在這個(gè)窗體中使用了SSTab控件，在每一個(gè)標(biāo)簽上添加一個(gè)MSFlexGrid控件。當(dāng)你是管理員登錄的時(shí)候，他的權(quán)限是所有，當(dāng)你是用戶登錄的時(shí)候，窗體只顯示登錄用戶本人的相關(guān)信息。他沒有任何權(quán)限，只能看到自己的信息，這是我做這個(gè)窗體的特色。 窗體的部分代碼為：If strusername = admin Then ’管理員的權(quán)限 sql = select stuffid from salarysetting Set rs = getrs(sql, salary) If = False Then While Not rs(0) Wend End If = 0 Select Case Case 0 sql = select * from salarysetting Call basictopic Call showbasic(sql) Case 1 sql = select * from salaryother Call othertopic Call showother(sql) Case 2 sql = select * from salarystatistics order by id desc Call listtopic Call showdata(sql) End Select Else ’ 用戶的權(quán)限 sql = select sid from stuffinfo where sname=39。 amp。 strusername amp。 39。 Set rs = getrs(sql, salary) While Not rs(0) Wend sd = rs(0) = 0 Select Case Case 0 sql = select * from salarysetting where stuffid=39。 amp。 sd amp。 39。 Call basictopic Call showbasic(sql) Case 1 sql = select * from salaryother where stuffid=39。 amp。 sd amp。 39。 Call othertopic Call showother(sql) Case 2 sql = select * from salarystatistics where stuffid=39。 amp。 sd amp。 39。 Call listtopic Call showdata(sql是非常復(fù)雜的，尤其是從VB導(dǎo)入到表格中。建立導(dǎo)出工資表的窗體，當(dāng)單擊“保存為”文本框右邊的按鈕，會(huì)提示用戶選擇保存路徑，然后單擊“導(dǎo)出”，會(huì)導(dǎo)到你所要保存的文件夾里。
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1