工資管理信息系統(tǒng)的設(shè)計(jì)-畢業(yè)設(shè)計(jì)論文-閱讀頁(yè)
2025-07-13 04:54本頁(yè)面
【正文】 錯(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) + OpenRS(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNoEnd Sub39。打開錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。 CloseDBFile 39。ErrGoto: 39。調(diào)用統(tǒng)計(jì)報(bào)表窗體Private Sub Analysis_Click() End Sub39。調(diào)用人員管理窗體Private Sub HRManage_Click() End Sub39。 \ Set gX = CreateObject()End Sub39。調(diào)用工資發(fā)放窗體Private Sub PayoffTable_Click() End Sub39。調(diào)用特殊項(xiàng)管理窗體Private Sub SpecialManage_Click() End Sub 三、創(chuàng)建人員管理窗體39。顯示添加員工窗體Private Sub cmdAddEmployee_Click() End Sub39。刪除員工Private Sub cmdDeleteEmployee_Click() 39。自由文件號(hào) On Error GoTo ErrGoto 39。打開數(shù)據(jù)庫(kù)連接 OpenDBFile = 0 = CurEm If vbYes = MsgBox(是否刪除 amp。 ?, vbYesNo) Then 39。 amp。關(guān)閉數(shù)據(jù)庫(kù)連接 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), Chr(34) + + Chr(34), Chr(34) + cmdDeleteEmployee_Click(HRForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNoEnd Sub39。Private Sub DataGrid1_Click()39。End Sub39。Private Sub DataGrid1_click()39。 CurEm = 39。初始化Private Sub Form_Load() 39。自由文件號(hào) On Error GoTo ErrGoto 39。Data Source= amp。 。Persist Security Info=False = SQL Set = Adodc1 39。ErrGoto: 39。添加員工Private Sub cmdAdd_Click() 39。自由文件號(hào) On Error GoTo ErrGoto 39。生成SQL語句 SQL = INSERT INTO 職工(職工ID,職位,姓名,性別,出生年月,工作年月) VALUES( SQL = SQL amp。 , SQL = SQL amp。 , SQL = SQL amp。 , SQL = SQL amp。 , SQL = SQL amp。 , SQL = SQL amp。 ) 39。執(zhí)行SQL語句 SQL 39。刷新數(shù)據(jù) 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) + cmdAdd_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNoEnd SubPrivate Sub cmdCancel_Click() End Sub39。退出程序Private Sub cmdCancel_Click() End Sub39。打開錯(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。 txtValue(0).Text amp。打開連接 OpenDBFile 39。關(guān)閉連接 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), Chr(34) + + Chr(34), Chr(34) + Command1_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) MsgBox Close intErrFileNoEnd Sub39。當(dāng)前行 = 39。保證職工ID不會(huì)被改變txtValue(0).Locked = TrueEnd Sub六，創(chuàng)建職位管理窗體Public CurPos As IntegerPrivate Sub cmdAdd_Click() End SubPrivate Sub cmdCancel_Click() End SubPrivate Sub cmdDelete_Click() 39。自由文件號(hào) On Error GoTo ErrGoto 39。 CurPos amp。 amp。 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) + cmdDelete_Click(PosForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNoEnd SubPrivate Sub cmdRefresh_Click() 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) + cmdGenerate_Click(ThisMonthSalaryForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNoEnd SubPrivate Sub cmdPrint_Click() End SubPrivate Sub Form_Load() mMonth = Format(Date 30, YYYYMM)End SubPrivate Sub OLE1_Updated(Code As Integer)End Sub
語文相關(guān)推薦
鄂ICP備17016276號(hào)-1