【正文】 s bed. She looked so pink and wrinkled to me that I did not see how the inspector could have been quite sure about her. However, there was nothing obviously wrong with her, so she had got her certificate. Nobody could blame the inspector for that。 my father was perfectly well aware of that, too. At last Petra39。s room. Then followed the worst wait of all. Mary said afterwards that he hummed and ha39。把錯誤信息保存在文件里 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è)設計（論文） 第 頁 44 畢業(yè)設計（論文） 第 頁 45 t was not until midafternoon that the inspector ambled up on his pony. My father pulled himself together, and went out to receive him。把錯誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo 畢業(yè)設計（論文） 第 頁 43 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。 Exit Sub 39。 amp。 CurPos amp。自由文件號 On Error GoTo ErrGoto 39。保證職工 ID 不會被改變 txtValue(0).Locked = True 畢業(yè)設計（論文） 第 頁 42 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。當前行 = 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) + Command1_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) MsgBox Close intErrFileNo End Sub 39。 Exit Sub 39。關閉連接 CloseDBFile 39。打開連接 OpenDBFile 39。 txtValue(0).Text amp。 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。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。退出程序 Private Sub cmdCancel_Click() End Sub 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) + cmdAdd_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdCancel_Click() End Sub 39。 Exit Sub 39。刷新數據 39。執(zhí)行 SQL 語句 SQL 39。 ) 39。 , SQL = SQL amp。 , SQL = SQL amp。 , SQL = SQL amp。 , SQL = SQL amp。 , SQL = SQL amp。生成 SQL 語句 SQL = INSERT INTO 職工 (職工 ID,職位 ,姓名 ,性別 ,出生年月 ,工作年月 ) VALUES( SQL = SQL amp。自由文件號 On Error GoTo ErrGoto 39。添加員工 Private Sub cmdAdd_Click() 39。 ErrGoto: 39。Persist Security Info=False = SQL 畢業(yè)設計（論文） 第 頁 38 Set = Adodc1 39。 。Data Source= amp。自由文件號 On Error GoTo ErrGoto 39。初始化 Private Sub Form_Load() 39。 CurEm = 39。Private Sub DataGrid1_click() 39。End Sub 39。Private Sub DataGrid1_Click() 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo 畢業(yè)設計（論文） 第 頁 37 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 intErrFileNo End Sub 39。 Exit Sub 39。關閉數據庫連接 CloseDBFile 39。 amp。 ?, vbYesNo) Then 39。打開數據庫連接 OpenDBFile = 0 = CurEm If vbYes = MsgBox(是否刪除 amp。自由文件號 On Error GoTo ErrGoto 39。刪除員工 Private Sub cmdDeleteEmployee_Click() 39。顯示添加員工窗體 Private Sub cmdAddEmployee_Click() End Sub 畢業(yè)設計（論文） 第 頁 36 39。調用 特殊項管理 窗體 Private Sub SpecialManage_Click() End Sub 三、創(chuàng)建人員管理窗體 39。調用 工資發(fā)放 窗體 Private Sub PayoffTable_Click() End Sub 39。 \職工工資管理系統(tǒng) .mdb 畢業(yè)設計（論文） 第 頁 35 Set gX = CreateObject() End Sub 39。調用 人員管理 窗體 Private Sub HRManage_Click() End Sub 39。調用 統(tǒng)計報表 窗體 Private Sub Analysis_Click() End Sub 39。 ErrGoto: 39。 畢業(yè)設計（論文） 第 頁 34 CloseDBFile 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 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) + OpenRS(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。 Exit Sub 39。自由文件號 On Error GoTo ErrGoto 39。打開數據集 Public Sub OpenRS(SQL As String) 39。 ErrGoto: 39。 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。關閉數據庫連接 39。