工資管理信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)—計(jì)算機(jī)(論文)-閱讀頁(yè)
2024-12-27 09:31本頁(yè)面
【正文】 Chr(34) Close intErrFileNo End Sub 39。Public Sub CloseDBFile() 39。自由文件號(hào) On Error GoTo ErrGoto 39。 Exit Sub 39。把錯(cuò)誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 32 Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + CloseDBFile(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。 OpenDBFile SQL, gCon, adOpenStatic, adLockOptimistic 39。 ErrGoto: 39。關(guān)閉打開的數(shù)據(jù)集合 Public Sub CloseRS() 39。自由文件號(hào) On Error GoTo ErrGoto 39。 Exit Sub 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) + CloseRS(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 二、系統(tǒng)主界面 39。退出程序 Private Sub Exit_Click() Unload Me End End Sub 39。設(shè)置啟動(dòng)參數(shù) Private Sub MDIForm_Load() gFile = amp。關(guān)閉所有窗口 Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next Unload AddEForm Unload AddPForm Unload AddSForm Unload UpdateEForm Unload UpdatePForm Unload UpdateSForm End Sub 39。調(diào)用 職位管理 窗體 Private Sub PosManage_Click() End Sub 39。當(dāng)前選定行號(hào) Public CurEm As Integer 39。隱藏本窗體 Private Sub cmdCancel_Click() End Sub 39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。 39。 amp。執(zhí)行刪除 = CurEm = 0 DELETE FROM 職位 WHERE 職位 = amp。 End If 39。刷新數(shù)據(jù) 39。 ErrGoto: 39。顯示修改員工窗體 Private Sub cmdUpdateEmployee_Click() End Sub 39。 CurEm = 39。記錄選定行 Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) CurEm = End Sub 39。 = 0 39。End Sub 39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。 SQL = SELECT * FROM 職工 = Provider=。 gFile amp。Mode=ReadWrite。 Exit Sub 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) + Form_Load(HRForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 四，創(chuàng)建添加員工窗體 39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。 39。 txtValue(0).Text amp。 txtValue(1).Text amp。 txtValue(2).Text amp。 txtValue(3).Text amp。 txtValue(4).Text amp。 txtValue(5).Text amp。打開連接 OpenDBFile 39。關(guān)閉連接 CloseDBFile 39。隱藏窗體 39。 ErrGoto: 39。初始化 Private Sub Form_activate() lblField(0).Caption = 職工 ID lblField(1).Caption = 職位 lblField(2).Caption = 姓名 lblField(3).Caption = 性別 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 39 lblField(4).Caption = 出生年月 lblField(5).Caption = 工作年月 For i = 0 To 5 txtValue(i) = Next End Sub 五，創(chuàng)建修改員工 窗體 39。修改員工信息 Private Sub cmdModify_Click() 39。自由文件號(hào) On Error GoTo ErrGoto 39。生成 SQL 語句 SQL = UPDATE 職工 SET 職工 ID = amp。 _ ,職位 = amp。 _ ,姓名 = amp。 _ ,性別 = amp。 _ ,出生年月 = amp。 _ ,工作年月 = amp。 _ WHERE 職工 ID = amp。 39。執(zhí)行 SQL SQL 39。刷新數(shù)據(jù) 39。 ErrGoto: 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。對(duì)應(yīng)列 = i txtValue(i) = Next 畢業(yè)設(shè)計(jì)（論文） 第 頁(yè) 41 39。打開錯(cuò)誤處理 陷阱 Dim intErrFileNo As Integer 39。 OpenDBFile If vbYes = MsgBox(是否刪除 amp。 ?, vbYesNo) Then = CurPos = 0 DELETE FROM 職位 WHERE 職位 = amp。 End If CloseDBFile 39。 ErrGoto: 39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。 39。 ErrGoto: 39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。 SQL = SELECT * FROM 職位 = Provider=。 gFile amp。Mode=ReadWrite。 Exit Sub 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) + Form_Load(PosForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 七，創(chuàng)建添加職位窗體 39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。 39。 txtValue(0).Text amp。 txtValue(1).Text amp。 txtValue(2).Text amp。打開數(shù)據(jù)連接 OpenDBFile 39。關(guān)閉數(shù)據(jù)連接 CloseDBFile 39。 Exit Sub 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), Ch
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1