工資管理信息系統(tǒng)的設(shè)計(jì)—論文-資料下載頁

【導(dǎo)讀】本論文的主要內(nèi)容是小型企業(yè)工資管理系統(tǒng)的設(shè)計(jì)與開發(fā)。該系統(tǒng)對(duì)工資信息進(jìn)行管理,具。有手工管理所無法比擬的優(yōu)點(diǎn)。可以存儲(chǔ)所有有關(guān)工資、津貼、獎(jiǎng)金等內(nèi)容，安全高效；實(shí)現(xiàn)報(bào)。的開發(fā)兩個(gè)方面。對(duì)于數(shù)據(jù)庫要求具有數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的特點(diǎn)；而對(duì)于應(yīng)。用程序，則要求系統(tǒng)功能完備、易操作、界面友好等特點(diǎn)。

　　

【正文】 Exit Sub 39。 ErrGoto: 39。把錯(cuò)誤信息保存在文件里 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 = 性別 畢業(yè)設(shè)計(jì)（論文） 第 頁 39 lblField(4).Caption = 出生年月 lblField(5).Caption = 工作年月 For i = 0 To 5 txtValue(i) = Next End Sub 五，創(chuàng)建修改員工 窗體 39。退出程序 Private Sub cmdCancel_Click() End Sub 39。修改員工信息 Private Sub cmdModify_Click() 39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。自由文件號(hào) 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。執(zhí)行 SQL SQL 39。關(guān)閉連接 CloseDBFile 畢業(yè)設(shè)計(jì)（論文） 第 頁 40 39。刷新數(shù)據(jù) 39。 Exit Sub 39。 ErrGoto: 39。把錯(cuò)誤信息保存在文件里 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。刷新數(shù)據(jù) ,保持一致 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。當(dāng)前行 = 39。對(duì)應(yīng)列 = i txtValue(i) = Next 畢業(yè)設(shè)計(jì)（論文） 第 頁 41 39。保證職工 ID 不會(huì)被改變 txtValue(0).Locked = True End Sub 六，創(chuàng)建職位管理窗體 Public CurPos As Integer Private Sub cmdAdd_Click() End Sub Private Sub cmdCancel_Click() End Sub Private Sub cmdDelete_Click() 39。打開錯(cuò)誤處理 陷阱 Dim intErrFileNo As Integer 39。自由文件號(hào) 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。把錯(cuò)誤信息保存在文件里 intErrFileNo = FreeFile() 畢業(yè)設(shè)計(jì)（論文） 第 頁 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。把錯(cuò)誤信息保存在文件里 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 畢業(yè)設(shè)計(jì)（論文） 第 頁 43 畢業(yè)設(shè)計(jì)（論文） 第 頁 44 As Alexander went off duty he noticed the bobbing flicker of ships39。 lights far to port and starboard. Sea Shepherd ploughed on towards Miami. 4. All ashore Susan opened her arms, as if to greet a longlost friend. The sun had returnednot the halfhearted, hideandseek sun of recent wee ks. No, this was the real thing, pure gold pouring out of a perfect sky. She felt the warmth seeping deep into her skin. Slowly the shore floated forward to meet them, or so it seemed. Miami! Without asking, she helped herself to the binoculars hanging round Gary39。s neck. Fumbling, she adjusted the focus. She wanted to see everything. Susan gave a little grunt of pleasure: white sand, palm trees, high hotels whose reflecting w indows signalled like lighthouse s, elegant yachts leaning on the wind and bing creamily through the smooth blue water. Blue! The sea was so blue! Travel brochureblue. Susan gazed in wonder. Could this be the same Atlantic whose grey green waves had made her stomach churn and driven her into her bunk? She handed back Gary39。s binoculars. Both were shading their eyes. The sun shone everywhere, from above and from below, sparking silver on the water, teeming and gleaming like a shoal of surfacing fish ... Warm enough for you? Ben Bellingham stood between them. Temperature39。s in the niies on the mainland. They chatted for a minute or two. Look, there39。s a pelican. Ben pointed. A brown pelican, quite mon around the Florida c oast. People love watching their antics. The big bird, which reminded Gary of a pterodactyl, was ma king a reconnaissance flight parallel to Sea Shepherd. Suddenly the pelican plunged. A splash, a quic k gobbling movement, and another fat fish was stored away in th