工資管理信息系統(tǒng)

28十二月2023工資管理信息系統(tǒng)23主表單的“Init”事件程序：wdpathname=“d:\工資系統(tǒng)\數據庫"setdefaultto&wdpathname4人員增刪表單：56“第一個”按鈕的Click事件程序：gotopthisform.refreshthisform.cmdpre.enabled=.f.thisform.cmdnext.enabled=.t.thisform.cmdbottom.enabled=.t.7“前一個”按鈕的Click事件程序：skip-1ifbof()this.enabled=.f.thisform.cmdtop.enabled=.t.thisform.cmdnext.enabled=.t.thisform.cmdbottom.enabled=.t.elsethis.enabled=.t.thisform.cmdtop.enabled=.t.thisform.cmdnext.enabled=.t.thisform.cmdbottom.enabled=.t.endifthisform.refresh8“后一個”按鈕的Click事件程序：skipifeof()this.enabled=.f.thisform.cmdtop.enabled=.t.thisform.cmdpre.enabled=.t.thisform.cmdbottom.enabled=.t.elsethis.enabled=.t.thisform.cmdtop.enabled=.t.thisform.cmdpre.enabled=.t.thisform.cmdbottom.enabled=.t.endifthisform.refresh9“后一個”按鈕的Click事件程序：gobottomthisform.cmdtop.enabled=.t.thisform.cmdpre.enabled=.t.thisform.cmdnext.enabled=.f.thisform.refresh10“添加”按鈕的Click事件程序：appendblankthisform.refresh11“刪除”按鈕的Click事件程序：result=messagebox("你真的要刪除這條記錄嗎??",4+32+256,"警告")ifresult=6deletepackthisform.refreshendif12“退出”按鈕的Click事件程序：thisform.releaseIFUSED('月工資表')SELECT月工資表USEENDIF13waitwindow“正在進行月初始化......."nowaituse月工資表replaceall房租with0,托兒費with0,醫(yī)藥費with0setsafetyoffcopyto扣款表fields部門,姓名,房租,托兒費,醫(yī)藥費setsafetyonUSE14扣款輸入表單：15扣款輸入表單的Init事件程序：thisform.grid1.recordsource='扣款表'1617waitwindow"正在計算實發(fā)工資......"nowaitselect2use扣款表setsafetyoffindexon姓名TO姓名索引setsafetyonselect1use月工資表setorderto1setrelationto姓名INTO扣款表replaceall房租with扣款表.房租,托兒費with扣款表.托兒費,醫(yī)藥費with扣款表.醫(yī)藥費replaceall實發(fā)工資with工資-房租-托兒費-醫(yī)藥費USESELECT2USE18查詢表單：1920查詢表單的Init事件程序：publicq1bo1.value=12122ifbo1.value=1select部門,姓名,房租,托兒費,醫(yī)藥費,實發(fā)工資FROM月工資表WHERE姓名likethisform.text1.valueINTOCURSORq1thisform.grid1.recordsource='q1'endififbo1.value=2select部門,姓名,房租,托兒費,醫(yī)藥費,實發(fā)工資FROM月工資表WHERE部門likethisform.text1.valueINTOCURSORq1thisform.grid1.recordsource='q1'endifthisform.refresh23報表設計器：2425打印按鈕的Click事件程序：reportform月工資報表preview26大作業(yè)要求1.作業(yè)字數不少于5000字2.內容主