工資管理信息系統(tǒng)的設(shè)計-畢業(yè)設(shè)計論文(文件)
【正文】 ntErrFileNo = 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。設(shè)置啟動參數(shù)Private Sub MDIForm_Load() gFile = amp。調(diào)用職位管理窗體Private Sub PosManage_Click() End Sub39。隱藏本窗體Private Sub cmdCancel_Click() End Sub39。 39。執(zhí)行刪除 = CurEm = 0 DELETE FROM 職位 WHERE 職位 = amp。刷新數(shù)據(jù) 39。顯示修改員工窗體Private Sub cmdUpdateEmployee_Click() End Sub39。記錄選定行Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) CurEm = End Sub39。End Sub39。 SQL = SELECT * FROM 職工 = Provider=。Mode=ReadWrite。把錯誤信息保存在文件里 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。 39。 txtValue(1).Text amp。 txtValue(3).Text amp。 txtValue(5).Text amp。關(guān)閉連接 CloseDBFile 39。ErrGoto: 39。修改員工信息Private Sub cmdModify_Click() 39。生成SQL語句 SQL = UPDATE 職工 SET 職工ID = amp。 _ ,姓名 = amp。 _ ,出生年月 = amp。 _ WHERE 職工ID = amp。執(zhí)行SQL SQL 39。ErrGoto: 39。對應(yīng)列 = i txtValue(i) = Next39。 OpenDBFile If vbYes = MsgBox(是否刪除 amp。 End If CloseDBFile 39。ErrGoto: 39。ErrGoto: 39。 ?, vbYesNo) Then = CurPos = 0 DELETE FROM 職位 WHERE 職位 = amp。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。刷新數(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。刷新數(shù)據(jù) 39。 39。 _ ,工作年月 = amp。 _ ,性別 = amp。 _ ,職位 = amp。自由文件號 On Error GoTo ErrGoto 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。隱藏窗體 39。打開連接 OpenDBFile 39。 txtValue(4).Text amp。 txtValue(2).Text amp。 txtValue(0).Text amp。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。 Exit Sub 39。 gFile amp。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。 = 039。 CurEm = 39。ErrGoto: 39。 End If 39。 amp。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。當(dāng)前選定行號Public CurEm As Integer39。關(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。退出程序Private Sub Exit_Click() Unload Me EndEnd Sub39。 Exit Sub 39。關(guān)閉打開的數(shù)據(jù)集合Public Sub CloseRS() 39。 OpenDBFile SQL, gCon, adOpenStatic, adLockOptimistic 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) + CloseDBFile(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNoEnd Sub39。自由文件號 On Error GoTo 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) + OpenDBFile(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNoEnd Sub 39。Mode=ReadWrite。 Provider=。Excel程序?qū)ο驪ublic gX As 39。
語文相關(guān)推薦
鄂ICP備17016276號-1