【正文】 它的需要改的津貼框，如果到最后一個文本框再按回車，或者到住房否bo列表框中選擇一個值，再按“確定修改”，將彈出一個對話框如下：則將你所修改的值送回庫中對應(yīng)表里。若剛開始查找找到記錄，就按“確定修改“的話，將彈出一個對話框：表明此記錄已存在在表里了，因為剛開始你跟本沒對此記錄修改過嗎？若此時按“取消“，則光標(biāo)將跳到“退出”按鈕上（默認(rèn)）；否則，將重改此記錄，光標(biāo)移到默認(rèn)醫(yī)療保險文本框中繼續(xù)修改。若你在每個文本框中輸入的不是數(shù)字的話，將提示你：光標(biāo)又回到對應(yīng)只能為數(shù)字的文本框中重新輸入。此窗體的代碼為：sqlstr = select * from spendm where empno=39。 amp。 Trim() amp。 39。選出對于的 開銷表的內(nèi)容以供修改（6）.恢復(fù)與備份模塊 這部分用于完成數(shù)據(jù)庫內(nèi)容的備份，已經(jīng)數(shù)據(jù)庫內(nèi)容的恢復(fù)，保障用戶的數(shù)據(jù)安全點擊瀏覽，將數(shù)據(jù)庫保存到所想要的路徑下，選擇號路徑，輸入輸入文件名，就可以保存了下面的，剛是備份的源代碼。sqlstr = backup database mis to disk = 39。 amp。 amp。 39。 amp。 with init備份指令上面就是恢復(fù)模塊的界面，在里面可以選擇要恢復(fù)的庫文件，點擊恢復(fù)按鈕后就開始進行恢復(fù)了，下面是代碼：sqlstr = restore database mis from disk = 39。 amp。 amp。 39。 with replace恢復(fù)指令(7).查詢模塊 此模塊查詢員工在數(shù)據(jù)庫中的信息,包括 姓名、職工號、年齡、性別、開銷、津貼。等等情況。為了方便用戶的操作，提供了簡單查詢、高級查詢。 簡單查詢：據(jù)職工號動態(tài)顯示,若輸入有誤,結(jié)果查詢不到結(jié)果, 并根據(jù)錯誤給予改正提示。高級查詢：提供多重條件的組合查詢,用戶可根據(jù)給定的條件任意組合,進行多重篩選,查詢到滿意的信息。(簡單的查詢)(高級查詢)以下為查詢模塊的代碼: If Not IsNumeric(Left(Right(, Len() + 1), 1)) Then If Len() Then = Left(, 1) amp。 Right(str, Len() ()) If Len() Then = n 1 Else: = nEnd If以上用于處理 空格 和字符 使得用戶在職工號的任何地方輸入空格字符都不會被寫入文本框Private Sub text_seek_name_Change() sqlstr = select * from empinfom where empname=39。 amp。 amp。 39。 If Then = sqlstr End If根據(jù)輸入的名字動態(tài)查找符合條件的Private Sub text_seek_no_Change() sqlstr = select * from empinfom where empno=39。 amp。 amp。 39。 If Then = sqlstr End If動態(tài)查找符合條件的職工號 sqlstr = select * from empinfom where realwage= amp。 If Then = sqlstr End If 動態(tài)查找實發(fā)工資： 本模塊的主要功能是實現(xiàn)多個字段的報表打印，使用戶能夠更直觀、更詳細(xì)的了解具體工資的發(fā)放。為了方便用戶的操作，模塊窗體設(shè)計了五個不同條件的單選按鍵，其中包括：按職工號打印工資報表、按部門名打印工資報表、按姓氏打印工資報表、按年齡打印工資報表、按性別打印工資報表。用戶可以根據(jù)自己的實際情況或是喜好來選擇合適的打印報表方式。本模塊主界面如果下：各條件報表打印功能說明如下：按職工號打印報表： 當(dāng)用戶選擇了“按職工號打印”這個單選按鈕時，之后的文本輸入框顏色自動變成白色，此文本框是用來輸入職工號，以便打印一個職工的工資情況。當(dāng)選中第一個時，其它的文本輸入框為藍(lán)色，表示不可寫，用戶此時不可以在其它的文本框中輸入信息，如果要在其它的文本框中輸入信息就必須先選中文本框前對應(yīng)的單選按鈕，之后才可以在單選按鈕后面對應(yīng)的文本輸入框中輸入信息，此時，之前的文本輸入框中的信息自動清空，并且文本輸入框的顏色變?yōu)樗{(lán)色，為不可寫。按部門號打印報表：當(dāng)用戶選中了這個按鈕時，必須在其后面相對應(yīng)的文本框中輸入“部門號”，然后按“打印”按鈕，此時就會把和文本輸入框中相同部門號的記錄全部顯示出來，方便用戶的操作。按姓氏打?。? 當(dāng)用戶選中了這個按鈕時，必須在其后面相對應(yīng)的文本框中輸入“姓氏”，然后按“打印”按鈕，此時就會把和文本輸入框中相同姓氏的記錄全部顯示出來，方便用戶的操作。按年齡打印： 當(dāng)用戶選中了這個按鈕時，必須在其后面相對應(yīng)的文本框中輸入“年齡”，然后按“打印”按鈕，此時就會把和文本輸入框中相同年齡的記錄全部顯示出來，方便用戶的操作。按性別打印：當(dāng)用戶選中了這個按鈕時，必須在其后面相對應(yīng)的文本框中輸入“性別”，然后按“打印”按鈕，此時就會把和文本輸入框中相同性別的記錄全部顯示出來，方便用戶的操作。打印報表的代碼如果下： sql = select 職工號,empname 姓名,sex 性別,age 年齡,realwage 實發(fā)工資,basicwage 基本工資,deptname 部門名,superfluity 獎金,housemoney 房租,watelec 水電費,supply 供基金 from empinfom,bakshishm,spendm,jobm where = and = and = and =39。 sql amp。 Trim(Text1(0).Text) amp。 39。 1 根據(jù)所輸入的職工號來顯示并打印與輸入職工號相同的員工工資報表。 If Trim(Text1(1).Text) = Trim((deptname)) Then sql = select 職工號,empname 姓名,sex 性別,age 年齡,realwage 實發(fā)工資,basicwage 基本工資,deptname 部門名,superfluity 獎金,housemoney 房租,watelec 水電費,supply 供基金 from empinfom,bakshishm,spendm,jobm where = and = and = and =39。 sql amp。 Trim(Text1(1).Text) amp。 39。 1 根據(jù)所輸入的部門名的不同來顯示并打印不同的報表。 = adCmdTable = empinfom If Trim(Text1(2).Text) = Left(Trim((empname)), 1) Or Trim(Text1(2).Text) = Left(Trim((empname)), 2) Then sql = select 職工號,empname 姓名,sex 性別,age 年齡,realwage 實發(fā)工資,basicwage 基本工資,deptname 部門名,superfluity 獎金,housemoney 房租,watelec 水電費,supply 供基金 from empinfom,bakshishm,spendm,jobm where = and = and = and like39。 sql amp。 Trim(Text1(2).Text) amp。 %39。 1 根據(jù)輸入的姓氏來顯示并打印所有員工的姓氏與輸入的姓氏相同的員工工資報表。 sql = select 職工號,empname 姓名,sex 性別,age 年齡,realwage 實發(fā)工資,basicwage 基本工資,deptname 部門名,superfluity 獎金,housemoney 房租,watelec 水電費,supply 供基金 from empinfom,bakshishm,spendm,jobm where = and = and = and =39。 sql amp。 Trim(Text1(3).Text) amp。 39。 1 根據(jù)輸入的具體年齡來顯示并打印與輸入的年齡相同的員工工資報表。 If Trim(Text1(4).Text) = Trim((sex)) Then sql = select 職工號,empname 姓名,sex 性別,age 年齡,realwage 實發(fā)工資,basicwage 基本工資,deptname 部門名,superfluity 獎金,housemoney 房租,watelec 水電費,supply 供基金 from empinfom,bakshishm,spendm,jobm where = and = and = and =39。 sql amp。 Trim(Text1(4).Text) amp。 39。 1 根據(jù)輸入的性別（男或女）不同來確定要顯示并打印的員工工資報表。數(shù)據(jù)字典checkwm 考勤表字段名說明數(shù)據(jù)類型長度約束empno工號overtime加班silklea病假Pub公假Late遲到Absenceevection出差A(yù)ffair事假 35 / 35