【正文】 39。保存登錄人員的姓名 Public StrId As String 39。保存修改的標(biāo)題信息 Public TWidth As Long 39?？刂凭幪栁粩?shù) Public Function Con_idNum() Select Case Len(Trim(StrNum)) 39。 Trim(Str(StrNum)) End Function 39。位數(shù)不足則補(bǔ) 0 Case 1 strtemp = 000 Case 2 strtemp = 00 Case 3 strtemp = 0 Case r strtemp = End Select StrNum = StrNum + 1 StrIn = Trim(strtemp) amp。修改信息日志 24 Public Sub joinRZ() Dim Intext As String Open ( amp。添加修改信息日志 TStr = TStr + + Name1 + + Format(Now, yyyymmdd hh:mm:ss) + + 修改票號 + StrId + ( + StrTitle + ) + Chr(13) + Chr(10) End If Open ( amp。將日志信息保存到文件當(dāng)中 Print 1, TStr Close 1 End Sub Public Sub WHScreen() 39。在程序設(shè)計(jì)上界面友好 ,操作簡便 , 節(jié)省了大量的工作量 ,加強(qiáng)了檔案記錄的安全性和完整性，提高工作了效率 員工管理系統(tǒng)就是把分散的企事業(yè)單位的職工信息實(shí)行統(tǒng)一， 集中，規(guī)范的收集管理，建立分類編號管理，電腦存儲(chǔ)查詢以及防火，防潮，防蛀，防盜等現(xiàn)代化，專業(yè)化的管理系統(tǒng)，為企事業(yè)單位和職工解除后顧之憂。該系統(tǒng)基本上能夠滿足現(xiàn)代企業(yè)員工管理的需求 .信息錄入項(xiàng)目齊全 ,完整 ,系統(tǒng) .現(xiàn)代員工管理系統(tǒng)靈活使用表格對各種信息分門別類 ,組成企業(yè)員工管理系統(tǒng) ,可以方便地查詢 ,閱讀 ,修改 ,交流和重復(fù)使用 . 關(guān)于本次畢業(yè)設(shè)計(jì)，由于設(shè)計(jì)經(jīng)驗(yàn)的不足和所掌握知識的限制，我的設(shè)計(jì)已能基本實(shí)現(xiàn)企業(yè)員工的管理，但在某些方面還有更加簡 潔的實(shí)現(xiàn)方法、某些功能設(shè)計(jì)構(gòu)想還沒有完整的表達(dá)出來。感謝我的家人對我大學(xué)四年學(xué)習(xí)的默默支持；感謝我的母校給了我在大學(xué)四年深造的機(jī)會(huì)，讓我能繼續(xù)學(xué)習(xí)和提高；感謝學(xué)院的老師和同學(xué)們四年來的關(guān)心和鼓勵(lì)。 這次畢業(yè)論文設(shè) 計(jì)我得到了很多老師和同學(xué)的幫助，其中我的論文指導(dǎo)老師對我的關(guān)心和支持尤為重要。老師平日里工作繁多，但 他在 我做畢業(yè)設(shè)計(jì)的每個(gè)階段，從選題到查閱資料，論文提綱的確定，中期論文的修改，后期論文格式調(diào)整等各個(gè)環(huán)節(jié)中都給予了我悉心的指導(dǎo)。在此謹(jǐn)向老師致以誠摯的謝意和崇高的敬意。 他們在老師不在或者很忙的時(shí)候給予了我很大的幫助， 感謝在整個(gè)畢業(yè)設(shè)計(jì)期間和我密切合作的同學(xué)，和曾經(jīng)在各個(gè)方面給予過我?guī)椭幕锇閭儯诖?，我再一次真誠地向幫助過我的老師和同學(xué)表示感謝！ 27 參考文獻(xiàn) [1] system implementation[M].機(jī)械工業(yè)出版社 , 2020 [2] Hector GarcialMolina , Jeffrey , Jennifer introduction to Database Systems(Seventh Edition) [M]. 機(jī)械工業(yè)出版社 .2020 [3] 林陳雷 , 郭安源 , 葛曉東 .教育信息化系統(tǒng)開發(fā)實(shí)例導(dǎo)航 [M].人民郵電出版社 ,2020 [4] 張立科 .數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐 [M].人民郵電出版社 .2020 [5] 張紅軍 , 王虹 .Visual basic 中文版高級應(yīng)用與開發(fā)指南 [M].人民郵電出版社 , 2020 [6] 伍俊良 .VB 課程設(shè)計(jì)與系統(tǒng)開發(fā)案例 [M].清華大學(xué)出版社 .2020 [7] 姚巍 .Visual Basic 數(shù)據(jù)庫開發(fā)及工程實(shí)例 [M].人民郵電出版社 [8] 求是科技 .Visual Basic 數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐 [M].人民郵電出版 .2020 [9] 劉瑞新，汪遠(yuǎn)征 .Visual Basic 程序設(shè)計(jì)教程 [M].機(jī)械工業(yè)出版社 .2020 [10]劉萌，周學(xué)明，郭安源 .Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航 [M].人民郵電出版社， 2020 [11]孟小峰，王珊 .數(shù)據(jù)庫系統(tǒng)導(dǎo)論 [M].機(jī)械工業(yè)出版社， 2020 28 附錄 源代碼 Private Declare Function GetSystemMenu Lib user32 (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function RemoveMenu Lib user32 (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Const MF_REMOVE = amp。 Private Const SC_MAXIMIZE = amp。部門信息設(shè)置 1 End Sub Private Sub Form_Activate() (3).Text = Format(Now, yyyy 年 mm 月 dd 日 ) select * from tb_user where user_Name=39。, Cnn, adOpenKeyset If 0 Then If (1) = 1 Then = True ElseIf (1) = 0 Then = False End If If (2) = 1 Then = True ElseIf (2) = 0 Then = False End If If (3) = 1 Then 29 = True ElseIf (3) = 0 Then = False End If If (4) = 1 Then = True ElseIf (4) = 0 Then = False End If End If If TWidth = 800 Or THeigth = 600 Then = 2 = 2 Else RemoveMenu GetSystemMenu(, 0), SC_MAXIMIZE, MF_REMOVE 39。公司資料設(shè)置 1 End Sub Private Sub HWSQDBB_Click() On Error Resume Next select * from tb_Goods_sqd If 0 Then 30 1 End If End Sub Private Sub HWSQDCX_Click() StrCx = 1 1 End Sub Private Sub HWTYDBB_Click() select * from tb_Goods_tyd If 0 Then 1 End If End Sub Private Sub KHZLSZ_Click() 39。錯(cuò)誤處理語句 31 del = MsgBox(確認(rèn)要清除系統(tǒng)的日志信息嗎 ?, 17, 提示信息 ) If del = vbOK Then Kill ( amp。 \系統(tǒng)日志 .ini) For Output As 1 Temp1 = 操作員姓名 日期時(shí)間 操作類型 Print 1, Temp1 Print 1, Close 1 MsgBox 日志清理成功完成 !!, , 提示信息 Else End If End Sub Private Sub SJBF_Click() 1 End Sub Private Sub SJHF_Click() Dim iTask As Long MsgBox 請您注意 ,為了確保數(shù)據(jù)安全 ,在進(jìn)行數(shù)據(jù)恢復(fù)的同時(shí)需要關(guān)閉應(yīng)用程序 ,請您在恢復(fù)數(shù)據(jù)完成之后重新運(yùn)行應(yīng)用程序 , 64, 提示信息 39。 \, vbNormalFocus) End End Sub Private Sub SJQL_Click() 1 End Sub 32 Private Sub SJZLSZ_Click() 1 End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case SQ 1 Case DD 1 Case TY 1 Case GZ 1 Case YS 1 Case CX StrCx = 3 1 Case BB 1 Case RZ 1 Case TC End End Select End Sub Private Sub YGZLSZ_Click() 39。改變屏幕分辨率函數(shù) MsgBox 當(dāng)前桌面的分辨率并不是 800*600,建議您將桌面的分辨率調(diào)整成800*600 之后，再運(yùn)行此程序 !, 64, 提示信息 End Sub Private Sub 匯總工資 _Click() 1 End Sub Private Sub 考勤 查詢 _Click() StrRs = select * from kq 1 End Sub Private Sub 考勤更新 _Click() 1 34 End Sub Private Sub 考勤設(shè)置 _Click() 1 End Sub Private Sub 離職員工 _Click() 1 End Sub Private Sub 培訓(xùn)查詢 _Click() StrRs = select * from px 1 End Sub Private Sub 培訓(xùn)更新 _Click() 1 End Sub Private Sub 設(shè)置底薪 _Click() 1 End Sub Private Sub 生成工資 _Click() 1 End Sub Private Sub 調(diào)崗查詢 _Click() StrRs = select * from Dgang 1 End Sub 35 Private Sub 調(diào)崗管理 1_Click() 1 End Sub