【正文】 lect * from xx order by ID , , adOpenKeyset, adLockPessimisticSet JlRs = New select * from 獎(jiǎng)勵(lì)表 order by ID , , adOpenKeyset, adLockPessimisticSet CfRs = New select * from 懲罰表 order by ID , , adOpenKeyset, adLockPessimisticEnd SubPrivate Sub List1_Click()Dim tempId As LongtempId = () id= amp。 tempIdIf Not Then = Trim(rs(姓名)) = Trim(rs(性別)) = Trim(rs(職務(wù))) = Trim(rs(工資)) = Trim(rs(ID)) = Trim(rs(部門ID)) = Trim(rs(身份證號(hào)))Else = = = = = = = End IfEnd SubPrivate Sub Text2_Click() = 0 = Len()End SubPrivate Sub Text3_Click() = 0 = Len()End SubPrivate Sub Text4_Click() = 0 = Len()End SubPrivate Sub Text1_Click() = 0 = Len()End SubPrivate Sub Text6_Click() = 0 = Len()End SubPrivate Sub Text7_Click() = 0 = Len()End SubPrivate Sub Text8_Click() = 0 = Len()End Sub 報(bào)表打印窗體報(bào)表打印窗體的代碼:Private Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Command4_Click()End SubPrivate Sub Form_Load() = 0 = ( ) / 2End Sub單擊任何一按鈕即出現(xiàn)相應(yīng)的窗體如單擊按鈕“員工基本信息報(bào)表”即出現(xiàn)如下報(bào)表：信息查詢窗體的代碼:Option ExplicitDim As Dim rs As Dim JlRs As Dim CfRs As Private Sub CmdCf_Click() select * from 懲罰表 order by ID , , adOpenKeyset, adLockPessimisticSet = CfRsEnd SubPrivate Sub CmdJl_Click() select * from 獎(jiǎng)勵(lì)表 order by ID , , adOpenKeyset, adLockPessimisticSet = JlRsEnd SubPrivate Sub CmdNo_Click() select ID as 編號(hào),姓名 as 姓名,性別 as 性別,職務(wù) as 職務(wù),工資 as 工資 from xx where 性別 =39。男39。 order by , , adOpenKeyset, adLockPessimisticSet = rsEnd SubPrivate Sub CmdWeman_Click() select ID as 編號(hào),姓名 as 姓名,性別 as 性別,職務(wù) as 職務(wù),工資 as 工資,總工資是否發(fā)放 as 總工資是否發(fā)放 from xx where 總工資是否發(fā)放 =39。是39。 order by ID, , adOpenKeyset, adLockPessimisticSet = rsEnd SubPrivate Sub CmdXx_Click() select ID as 編號(hào),姓名 as 姓名,性別 as 性別,職務(wù) as 職務(wù),部門ID as 部門ID,工資 as 工資 from xx order by , , adOpenKeyset, adLockPessimisticSet = rsEnd SubPrivate Sub CmdMan_Click() select ID as 編號(hào),姓名 as 姓名,性別 as 性別,職務(wù) as 職務(wù),工資 as 工資,總工資是否發(fā)放 as 總工資是否發(fā)放 from xx where 總工資是否發(fā)放 =39。否39。 order by ID, , adOpenKeyset, adLockPessimisticSet = rsEnd SubPrivate Sub CmdUnite_Click() select as 編號(hào), as 姓名, as 性別, as 職務(wù), as 工資, as 獎(jiǎng)勵(lì)金額, as 懲罰金額, as 實(shí)際工資, as 總工資是否發(fā)放 from xx,獎(jiǎng)勵(lì)表,懲罰表 where = and = order by , , adOpenKeyset, adLockPessimisticSet = rsEnd SubPrivate Sub CmdYes_Click() select ID as 編號(hào),姓名 as 姓名,性別 as 性別,職務(wù) as 職務(wù),工資 as 工資 from xx where 性別 =39。女39。 order by , , adOpenKeyset, adLockPessimisticSet = rsEnd SubPrivate Sub Command1_Click()Dim a As Stringa = amp。 amp。 amp。 amp。 amp。 Trim(Text1) amp。 select ID as 編號(hào),姓名 as 姓名,性別 as 性別,職務(wù) as 職務(wù),工資 as 工資,獎(jiǎng)勵(lì)金額 as 獎(jiǎng)勵(lì)金額,懲罰金額 as 懲罰金額 from xx where amp。 a, , adOpenKeyset, adLockPessimisticSet = rsEnd SubPrivate Sub Form_Load() (獎(jiǎng)勵(lì)金額) (懲罰金額) (工資) (實(shí)際工資) () () (=) = 0 = ( ) / 2Set = New = Provider=。Data Source= amp。 amp。 \。Persist Security Info=FalseSet rs = New Set JlRs = New Set CfRs = New End Sub 其它窗體工資發(fā)放管理窗體、員工獎(jiǎng)勵(lì)管理窗體、員工懲罰管理窗體與員工基本信息窗體的設(shè)計(jì)與實(shí)現(xiàn)過程大同小異，在此不再做過多地介紹。其中工資發(fā)放管理窗體在登錄時(shí)設(shè)置了自動(dòng)計(jì)算總工資的功能。主要代碼如下:Do Until rs(實(shí)際工資) = CInt(Trim(rs(工資))) + CInt(Trim(rs(獎(jiǎng)勵(lì)金額))) CInt(Trim(rs(懲罰金額))) Loop千萬不要?jiǎng)h除行尾的分節(jié)符，此行不會(huì)被打印。“結(jié)論”以前的所有正文內(nèi)容都要編寫在此行之前。結(jié) 論經(jīng)過了一段時(shí)間的努力，“公司員工工資管理系統(tǒng)”的開發(fā)成功結(jié)束了。在系統(tǒng)的開發(fā)過程中，以前感到很抽象的課程，如數(shù)據(jù)庫原理、面向?qū)ο蟪绦蛟O(shè)等變得清晰起來，也切實(shí)體會(huì)了系統(tǒng)開發(fā)過程中的種種艱辛。從總體上縱觀本系統(tǒng)，達(dá)到了我們所預(yù)期的目的我效果。通過此系統(tǒng)的開發(fā)達(dá)到了綜合運(yùn)用所學(xué)知識(shí)，學(xué)以致用的目的，通過系統(tǒng)的開發(fā)使我對(duì)系統(tǒng)開發(fā)有了一個(gè)系統(tǒng)的認(rèn)識(shí)，不僅熟悉了開發(fā)系統(tǒng)中所可能遇到的問題，而且使在思想上形成了系統(tǒng)的概念，使自己的動(dòng)手能力和綜合能力有了新的提高。這次的畢業(yè)設(shè)計(jì)開發(fā)，主要有以下幾點(diǎn)收獲：1．對(duì)原型化的系統(tǒng)開發(fā)方法有了一定的了解。漸增式的原型化開發(fā)方法與面向?qū)ο蟮某绦蛟O(shè)計(jì)的結(jié)合不但能在系統(tǒng)開發(fā)初期讓用戶了解系統(tǒng)的概貌，而且能使系統(tǒng)開發(fā)模塊化，提高開發(fā)效率，減少出錯(cuò)。對(duì)于后期的系統(tǒng)維護(hù)也提供了很大的幫助。2．通過實(shí)踐，提高了系統(tǒng)分析的能力，對(duì)數(shù)據(jù)流圖、數(shù)據(jù)字典、系統(tǒng)流程圖等系統(tǒng)設(shè)計(jì)工具的使用有了更深刻的認(rèn)識(shí)。為以后的工作、學(xué)習(xí)的進(jìn)一步提高打下了堅(jiān)實(shí)的基礎(chǔ)。參考文獻(xiàn)譚浩強(qiáng)，袁玫，薛淑斌. Visual ,2004童愛紅，侯太平. Visual ,北京交通大學(xué)出版社,2004趙學(xué)慧，趙瑋. Visual ,2003王斌華， ,2004王晟. Visual ,2006Gary Cornell(美), 希望圖書創(chuàng)作室譯，Visual ,北京希望電子出版社劉韜，駱娟，何旭洪,Visual 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例導(dǎo)航，人民郵電出版社宜晨,Visual ,電子工業(yè)出版社甘仞初,管理信息系統(tǒng),機(jī)械工業(yè)出版社郝春強(qiáng)，Visual Basic 案例教程，中科多媒體電子出版社趙晨陽,Visual Basic 語言程序設(shè)計(jì)基礎(chǔ),電子工業(yè)出版社不要自己寫，要利用word來自動(dòng)生成。詳情請(qǐng)看最后一頁誰會(huì)把上面的引號(hào)改成不是這樣的對(duì)稱形式的呀？致 謝致謝：感謝學(xué)校認(rèn)真負(fù)責(zé)的態(tài)度為我們組織這次畢業(yè)設(shè)計(jì)以及畢業(yè)論文答辨。通過這次煅煉，使我們的系統(tǒng)開發(fā)水平各方面都有了較大的進(jìn)步。由此積累的經(jīng)驗(yàn)對(duì)我們以后的學(xué)習(xí)和生活產(chǎn)生幫助。感謝我的指導(dǎo)老師，在畢業(yè)設(shè)計(jì)時(shí)幫助選題，在設(shè)計(jì)的過程中提出了許多有益的建議和意見，同時(shí)他先進(jìn)的軟件開發(fā)理念和思維方式也給我很大的啟發(fā)。，這里我就不給出模板了。J寫不寫都行。不寫的話就刪除這章好了。僅“同等學(xué)歷”的同學(xué)需要寫這個(gè)。什么是“同等學(xué)歷”？我也不懂。L千萬不要?jiǎng)h除行尾的分節(jié)符，此行不會(huì)被打印。不要在此行和下頁的注釋之間填寫任何內(nèi)容下面的內(nèi)容是參考文獻(xiàn)，通過“插入”“引用”“腳注和尾注”，插入尾注到“文檔結(jié)尾”后，word會(huì)自動(dòng)生成序號(hào)。雙擊序號(hào)能自動(dòng)定位。移動(dòng)引用位置會(huì)自動(dòng)重新編號(hào)。還可以插入“交叉引用”，實(shí)現(xiàn)對(duì)一篇文獻(xiàn)的多次引用。因?yàn)楸救四芰λ?，不能將其自?dòng)放入前面的“參考文獻(xiàn)”章節(jié)內(nèi)，也不能去掉接下來的這半條直線，所以就只能麻煩您這么做了：打印前，備份文檔，然后將下面的內(nèi)容copy amp。 paste到“參考文獻(xiàn)”內(nèi)，并要手工修改序號(hào)。注意！copy前一定要備份！以后再做修改時(shí)，要修改備份文檔。