【導(dǎo)讀】本論文的主要內(nèi)容是小型企業(yè)工資管理系統(tǒng)的設(shè)計與開發(fā)。該系統(tǒng)對工資信息進(jìn)行管理,具。有手工管理所無法比擬的優(yōu)點?？梢源鎯λ杏嘘P(guān)工資、津貼、獎金等內(nèi)容，安全高效；實現(xiàn)報。的開發(fā)兩個方面。對于數(shù)據(jù)庫要求具有數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的特點；而對于應(yīng)。用程序，則要求系統(tǒng)功能完備、易操作、界面友好等特點。

　　

【正文】 Exit Sub 39。 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) + cmdAdd_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdCancel_Click() End Sub 39。初始化 Private Sub Form_activate() lblField(0).Caption = 職工 ID lblField(1).Caption = 職位 lblField(2).Caption = 姓名 lblField(3).Caption = 性別 畢業(yè)設(shè)計（論文） 第 頁 39 lblField(4).Caption = 出生年月 lblField(5).Caption = 工作年月 For i = 0 To 5 txtValue(i) = Next End Sub 五，創(chuàng)建修改員工 窗體 39。退出程序 Private Sub cmdCancel_Click() End Sub 39。修改員工信息 Private Sub cmdModify_Click() 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。自由文件號 On Error GoTo ErrGoto 39。 39。生成 SQL 語句 SQL = UPDATE 職工 SET 職工 ID = amp。 txtValue(0).Text amp。 _ ,職位 = amp。 txtValue(1).Text amp。 _ ,姓名 = amp。 txtValue(2).Text amp。 _ ,性別 = amp。 txtValue(3).Text amp。 _ ,出生年月 = amp。 txtValue(4).Text amp。 _ ,工作年月 = amp。 txtValue(5).Text amp。 _ WHERE 職工 ID = amp。 txtValue(0).Text amp。 39。打開連接 OpenDBFile 39。執(zhí)行 SQL SQL 39。關(guān)閉連接 CloseDBFile 畢業(yè)設(shè)計（論文） 第 頁 40 39。刷新數(shù)據(jù) 39。 Exit Sub 39。 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) + Command1_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) MsgBox Close intErrFileNo End Sub 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。當(dāng)前行 = 39。對應(yīng)列 = i txtValue(i) = Next 畢業(yè)設(shè)計（論文） 第 頁 41 39。保證職工 ID 不會被改變 txtValue(0).Locked = True 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。打開錯誤處理 陷阱 Dim intErrFileNo As Integer 39。自由文件號 On Error GoTo ErrGoto 39。 OpenDBFile If vbYes = MsgBox(是否刪除 amp。 CurPos amp。 ?, vbYesNo) Then = CurPos = 0 DELETE FROM 職位 WHERE 職位 = amp。 amp。 End If CloseDBFile 39。 Exit Sub 39。 ErrGoto: 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() 畢業(yè)設(shè)計（論文） 第 頁 42 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 intErrFileNo End Sub Private Sub cmdRefresh_Click() 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。自由文件號 On Error GoTo ErrGoto 39。 39。 Exit Sub 39。 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) + cmdRefresh_Click(PosForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdUpate_Click() End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) CurPos = End Sub Private Sub Form_Load() 畢業(yè)設(shè)計（論文） 第 頁 43 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。自由文件號 On Error GoTo ErrGoto 39。 SQL = SELECT * FROM 職位 = Provider=。Data Source= amp。 gFile amp。 。Mode=ReadWrite。Persist Security Info=False = SQL Set = Adodc1 39。 Exit Sub 39。 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) + Form_Load(PosForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 七，創(chuàng)建添加職位窗體 39。添加職位 Private Sub cmdAdd_Click() 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。自由文件號 On Error GoTo ErrGoto 39。 39。生成 SQL 語句 畢業(yè)設(shè)計（論文） 第 頁 44 SQL = INSERT INTO 職位 (職位 ,基本工資 ,津貼 ) VALUES( SQL = SQL amp。 txtValue(0).Text amp。 , SQL = SQL amp。 txtValue(1).Text amp。 , SQL = SQL amp。 txtValue(2).Text amp。 ) 39。打開數(shù)據(jù)連接 OpenDBFile 39。執(zhí)行 SQL 語句 SQL 39。關(guān)閉數(shù)據(jù)連接 CloseDBFile 39。刷新數(shù)據(jù) 39。 Exit Sub 39。 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), C