工資管理信息系統的設計—免費計算機-資料下載頁

【導讀】本論文的主要內容是小型企業工資管理系統的設計與開發。該系統對工資信息進行管理,具。有手工管理所無法比擬的優點。可以存儲所有有關工資、津貼、獎金等內容，安全高效；實現報。的開發兩個方面。對于數據庫要求具有數據一致性和完整性強、數據安全性好的特點；而對于應。用程序，則要求系統功能完備、易操作、界面友好等特點。

　　

【正文】 Exit Sub 39。 ErrGoto: 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + cmdAdd_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdCancel_Click() End Sub 39。初始化 Private Sub Form_activate() lblField(0).Caption = 職工 ID lblField(1).Caption = 職位 lblField(2).Caption = 姓名 lblField(3).Caption = 性別 畢業設計（論文） 第 頁 39 lblField(4).Caption = 出生年月 lblField(5).Caption = 工作年月 For i = 0 To 5 txtValue(i) = Next End Sub 五，創建修改員工 窗體 39。退出程序 Private Sub cmdCancel_Click() End Sub 39。修改員工信息 Private Sub cmdModify_Click() 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。自由文件號 On Error GoTo ErrGoto 39。 39。生成 SQL 語句 SQL = UPDATE 職工 SET 職工 ID = amp。 txtValue(0).Text amp。 _ ,職位 = amp。 txtValue(1).Text amp。 _ ,姓名 = amp。 txtValue(2).Text amp。 _ ,性別 = amp。 txtValue(3).Text amp。 _ ,出生年月 = amp。 txtValue(4).Text amp。 _ ,工作年月 = amp。 txtValue(5).Text amp。 _ WHERE 職工 ID = amp。 txtValue(0).Text amp。 39。打開連接 OpenDBFile 39。執行 SQL SQL 39。關閉連接 CloseDBFile 畢業設計（論文） 第 頁 40 39。刷新數據 39。 Exit Sub 39。 ErrGoto: 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + Command1_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) MsgBox Close intErrFileNo End Sub 39。刷新數據 ,保持一致 Private Sub Form_activate() lblField(0).Caption = 職工 ID lblField(1).Caption = 職位 lblField(2).Caption = 姓名 lblField(3).Caption = 性別 lblField(4).Caption = 出生年月 lblField(5).Caption = 工作年月 For i = 0 To 5 39。當前行 = 39。對應列 = i txtValue(i) = Next 畢業設計（論文） 第 頁 41 39。保證職工 ID 不會被改變 txtValue(0).Locked = True End Sub 六，創建職位管理窗體 Public CurPos As Integer Private Sub cmdAdd_Click() End Sub Private Sub cmdCancel_Click() End Sub Private Sub cmdDelete_Click() 39。打開錯誤處理 陷阱 Dim intErrFileNo As Integer 39。自由文件號 On Error GoTo ErrGoto 39。 OpenDBFile If vbYes = MsgBox(是否刪除 amp。 CurPos amp。 ?, vbYesNo) Then = CurPos = 0 DELETE FROM 職位 WHERE 職位 = amp。 amp。 End If CloseDBFile 39。 Exit Sub 39。 ErrGoto: 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() 畢業設計（論文） 第 頁 42 Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + cmdDelete_Click(PosForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdRefresh_Click() Exit Sub 39。 ErrGoto: 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + cmdGenerate_Click(ThisMonthSalaryForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdPrint_Click() End Sub Private Sub Form_Load() mMonth = Format(Date 30, YYYYMM) End Sub Private Sub OLE1_Updated(Code As Integer) End Sub 畢業設計（論文） 第 頁 43 小方框無邊眼鏡，臉上總是掛著微笑，有人稱呼他卓總，也有人稱呼他教授，真正親近的朋友，管 他叫強巴。 卓姆強巴，藏族，四十二歲，天獅名犬馴養基地公司總裁，也是復旦大學生物系客座教授，主講世界名犬。強巴生長在一個叫達瓦奴措的小村，那是深入藏原腹地、最接近無人區的地方，他的名字，原意是能戰勝大海的人。他沒有讓他的父母失望，如今已是擁有千萬資產的公司老總，也是著名大學的教授，可謂名利俱盛，讓他起家的資本，不是別的，是犬。 美國，賓夕法尼亞州。 “幾千年來，全世界所公認的，體形最龐大，性格最兇猛的，叫獒。那是我們藏區特產，它們已經存在幾千萬年了，約在兩千年前流傳到希臘，后到羅馬帝國，又 由東歐的斯拉夫族人傳到歐洲各國，至今世界名犬的體內還保留著藏獒的研究理論“隔代大遺傳”是否有關。 或許聽錯了。你說，你不去德國了 ?” 方新教授肯定地點頭，瑪瑞重復道：“教授，方教授 !你真的不去參加那個論壇了嗎 ?那可是你一直想參加的啊 !” 方新長長吐了口氣，和藹地對瑪瑞笑笑，拍拍她的肩膀，說道：“去吧，瑪瑞，電話號碼簿在書桌左邊臺燈的座下。” 瑪瑞滿腹狐疑，悻悻地去了，心里喃喃念叨著：“瘋了，教授一定是瘋了。默默研究了一輩子，誰會放棄可以證明價值的最高獎勵 ?到底是為什么 ?”她轉念心想， “那個高大的男人，肯定是魔鬼的化身 !” 方新教授剛剛轉過身來，就被卓木喜馬拉雅山脈的中部偏東南方向，可能越過國境線。”電腦上在氣象局發來的橘紅色區域中又用更深的大紅色畫出一塊，從珠峰以北畫到錫金和尼泊爾境內。方新一握拳，也忍不住激動道：“太好了 !” 只見電腦那頭的專家，打字回復調侃道：“老方，又要進藏逮狗嗎 ?聽說上次你進藏時，是把那話兒凍僵了才回來的。我一直想到上海來探望你，看看是不是真的。” 方新教授笑著回復：“是腳指頭截去了，你老哥??”這時，機場已經遙遙在望了。 方新收起電腦， 喃喃道：“入藏后，就不能無線上網了，只是電腦里的很多資料很有用處。對了，飛機先飛成都嗎 ?” 卓木強微笑道：“不，我們直飛拉薩。” 畢業設計（論文） 第 頁 44 “哦 ?”方新疑惑道，“好像這個時段，沒有直飛拉薩的航班吧 ?” 卓木強道：“因為是我們要去拉薩，所以就有了去那里的直飛航班呢。” 進了機場，方新不由看了卓木強一眼，吸氣道：“軍用包機 !” 第 03 部分 第二個瘋子 第七回 第二個瘋子 上 卓木強看見方新有些驚訝，面色有些得意地解釋道：“嗯，拉薩來的，沒花多少錢。” 方新道：“可是，軍用包機不在 拉薩機場降落，在旁邊有個專用的軍用機場，離城還有一段距離呢。” “什么 ?”這番輪到卓木強吃驚了，他道，“我??我不知道啊，以前沒包過。我以為，它們都在拉薩機場起降呢。”這是他為了討好導師，特意吩咐下人安排的，沒想到竟然不在拉薩降落，而屬下居然沒告知他，急得他直撓頭。 方新道：“不用著急，我打個電話，我和西藏軍區的一位領導頗有交情，上次也是坐他的飛機去西藏的，所以才知道這情況。”卓木強忙道：“不用，不用了。到時候安排人來接我們就是了。” 方新道：“他們不一定熟悉，我們就讓機場方面替我們安排一 下就好。這樣，我們就不用進拉薩，到時候直接從機場往南，看是先去你家還是先去蒙河 ?”說著，打了個電話，那位領導在外地，答應方新會替他們安排好的。他未曾想到，既然卓木強能搞到軍用包機，那自然和西藏那邊關系不淺。兩人遂登上軍用專機，從上海往西，朝著圣潔的高原 —— 西藏飛去。 軍區某團，團長班覺次仁，是藏區本地人，長得牛高馬大，方面闊口，兩道濃眉下，一雙厲眼透出煞氣。次仁剛吃過午飯，一名士兵來報，上級領導打來電話，某教授會乘 A3097次專機在軍區機場降落，他們會從機場直赴蒙河，希望他能安排一下，準備輛車接應。 次仁摸了摸微微隆起的肚子，問道：“飛