工資管理信息系統(tǒng)的設(shè)計(jì)-畢業(yè)設(shè)計(jì)論文(參考版)
2025-07-01 04:54本頁(yè)面
【正文】 ErrGoto: 39。ErrGoto: 39。 End If CloseDBFile 39。 ?, vbYesNo) Then = CurPos = 0 DELETE FROM 職位 WHERE 職位 = amp。 OpenDBFile If vbYes = MsgBox(是否刪除 amp。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。對(duì)應(yīng)列 = i txtValue(i) = Next39。刷新數(shù)據(jù),保持一致Private Sub Form_activate()lblField(0).Caption = 職工IDlblField(1).Caption = 職位lblField(2).Caption = 姓名lblField(3).Caption = 性別lblField(4).Caption = 出生年月lblField(5).Caption = 工作年月For i = 0 To 5 39。ErrGoto: 39。刷新數(shù)據(jù) 39。執(zhí)行SQL SQL 39。 39。 _ WHERE 職工ID = amp。 _ ,工作年月 = amp。 _ ,出生年月 = amp。 _ ,性別 = amp。 _ ,姓名 = amp。 _ ,職位 = amp。生成SQL語句 SQL = UPDATE 職工 SET 職工ID = amp。自由文件號(hào) On Error GoTo ErrGoto 39。修改員工信息Private Sub cmdModify_Click() 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 txtValue(i) = NextEnd Sub五，創(chuàng)建修改員工窗體39。ErrGoto: 39。隱藏窗體 39。關(guān)閉連接 CloseDBFile 39。打開連接 OpenDBFile 39。 txtValue(5).Text amp。 txtValue(4).Text amp。 txtValue(3).Text amp。 txtValue(2).Text amp。 txtValue(1).Text amp。 txtValue(0).Text amp。 39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 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 intErrFileNoEnd Sub四，創(chuàng)建添加員工窗體39。 Exit Sub 39。Mode=ReadWrite。 gFile amp。 SQL = SELECT * FROM 職工 = Provider=。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。End Sub39。 = 039。記錄選定行Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) CurEm = End Sub39。 CurEm = 39。顯示修改員工窗體Private Sub cmdUpdateEmployee_Click() End Sub39。ErrGoto: 39。刷新數(shù)據(jù) 39。 End If 39。執(zhí)行刪除 = CurEm = 0 DELETE FROM 職位 WHERE 職位 = amp。 amp。 39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。隱藏本窗體Private Sub cmdCancel_Click() End Sub39。當(dāng)前選定行號(hào)Public CurEm As Integer39。調(diào)用職位管理窗體Private Sub PosManage_Click() End Sub39。關(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 UpdateSFormEnd Sub39。設(shè)置啟動(dòng)參數(shù)Private Sub MDIForm_Load() gFile = amp。退出程序Private Sub Exit_Click() Unload Me EndEnd Sub39。把錯(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 intErrFileNoEnd Sub二、系統(tǒng)主界面39。 Exit Sub 39。自由文件號(hào) On Error GoTo ErrGoto 39。關(guān)閉打開的數(shù)據(jù)集合Public Sub CloseRS() 39。ErrGoto: 39。 OpenDBFile SQL, gCon, adOpenStatic, adLockOptimistic 39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 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) + CloseDBFile(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNoEnd Sub39。 Exit Sub 39。自由文件號(hào) On Error GoTo ErrGoto 39。Public Sub CloseDBFile() 39。把錯(cuò)誤信息保存在文件里 intErrFileNo = FreeFile()Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Ch
語文相關(guān)推薦
鄂ICP備17016276號(hào)-1