【導(dǎo)讀】培訓(xùn)管理操作勢(shì)在必行。近年來(lái)，隨著改革開放步伐的加快和中西方文化的交流，特別是中。新的知識(shí)，才能在改革開放的浪潮中處于不敗之地。只有這樣才能使公司不被淘汰。管理員工、培養(yǎng)員工，也不會(huì)發(fā)生員工重復(fù)培訓(xùn)，沒(méi)培訓(xùn)等等錯(cuò)誤。避免發(fā)生不應(yīng)該發(fā)生的。本系統(tǒng)結(jié)合臺(tái)州地區(qū)的公司情況、員工知識(shí)結(jié)構(gòu)，員工的年齡結(jié)構(gòu)，小公司的普遍性，的操作員管理，包括系統(tǒng)用戶管理、權(quán)限管理、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、系統(tǒng)初始化。種信息的輸入，包括員工基本信息、職稱、崗位、已經(jīng)培訓(xùn)過(guò)的課程和成績(jī)、培訓(xùn)計(jì)劃等。企業(yè)培訓(xùn)計(jì)劃的制定、修改、使用幫助。功能和開發(fā)的過(guò)程。重點(diǎn)的說(shuō)明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。，方便，可靠，并且能夠滿足實(shí)用性、先進(jìn)性的要求。各方面都是的人工操作，這樣不僅浪費(fèi)人員且操作。不方便，不能滿足企業(yè)的需求，而且不能滿足當(dāng)前臺(tái)州中小企業(yè)的發(fā)展需要。在數(shù)據(jù)源名中填寫a,單擊選取選擇，最后確定。

　　

【正文】 Unload Me End Sub Private Sub Command1_Click() Dim a As String If 0 Then a = MsgBox(您確實(shí)要?jiǎng)h除這條數(shù)據(jù)嗎 ?, vbYesNo) If a = vbYes Then End If End If End Sub Private Sub Form_Load() (課程 ) (培訓(xùn)教師 ) (培訓(xùn)地點(diǎn) ) = True = True = False = True End Sub 計(jì)劃修改 （圖略）部分代碼： rivate Sub cmd1_Click() Dim mycon As New Dim myrs As New dsn=a jh, mycon, 3, 2 If = Or = Or = Or = Then MsgBox (不能為空！ ) Exit Sub End If (事件 ) = Trim() (時(shí)間 ) = Trim() (地點(diǎn) ) = Trim() (計(jì)劃 ) = Trim() MsgBox 添加成功！ End Sub Private Sub cmd2_Click() = select * from jh where (jh. amp。 amp。 like + 39。 + + 39。+39。%39。) If 0 Then = (0) = (1) = (2) = (3) End If = True End Sub Private Sub cmd3_Click() Dim mycon As New Dim myrs As New dsn=a jh, mycon, 3, 2 (事件 ) = Trim() (時(shí)間 ) = Trim() (地點(diǎn) ) = Trim() (計(jì)劃 ) = Trim() MsgBox 修改成功！ End Sub 3． 6 操作員設(shè)置（圖略）部份 代碼如下 rivate Sub cmd1_Click() Dim mycon As New Dim myrs As New dsn=a jh, mycon, 3, 2 If = Or = Or = Or = Then MsgBox (不能為空！ ) Exit Sub End If (事件 ) = Trim() (時(shí)間 ) = Trim() (地點(diǎn) ) = Trim() (計(jì)劃 ) = Trim() MsgBox 添加成功！ End Sub Private Sub cmd2_Click() = select * from jh where (jh. amp。 amp。 like + 39。 + + 39。+39。%39。) If 0 Then = (0) = (1) = (2) = (3) End If = True End Sub Private Sub cmd3_Click() Dim mycon As New Dim myrs As New dsn=a jh, mycon, 3, 2 (事件 ) = Trim() (時(shí)間 ) = Trim() (地點(diǎn) ) = Trim() (計(jì)劃 ) = Trim() MsgBox 修改成功！ End Sub 3． 7 權(quán)限 設(shè)置（圖略）代碼如下： Option Explicit Dim i As Integer Private Sub cmd3_Click() If Then 操作員 = 39。 amp。 amp。 39。 If Then Else For i = 2 To 18 (i) = z(i).Value Next i End If End If End Sub Private Sub Command1_Click() On Error Resume Next End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub DBList1_Click() If = False Then 操作員 =39。 amp。 amp。 39。 If Then = 0 Else For i = 2 To 18 If (i) = 1 Then z(i).Value = 1 Else z(i).Value = 0 Next i End If End Sub Private Sub Form_Load() = amp。 \ = amp。 \ End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub cmd1_Click() For i = 2 To 18 z(i).Value = 1 Next i End Sub Private Sub cmd2_Click() For i = 2 To 18 z(i).Value = 0 Next i End Sub 3． 8 數(shù)據(jù)備份（圖略）代碼如下： Option Explicit Private Sub Command1_Click() = 11 FileCopy amp。 \, amp。 \b amp。 Date amp。 .mdb = 0 MsgBox 數(shù)據(jù)已備份完畢。 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub 3． 9 數(shù)據(jù)恢復(fù) （圖略）代碼如下： Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub Dir1_Change() = End Sub Private Sub Drive1_Change() = End Sub Private Sub File1_Click() = amp。 \ amp。 End Sub Private Sub Command1_Click() If = Then MsgBox 請(qǐng) 選擇要恢復(fù)的數(shù)據(jù)！ Else = 11 FileCopy amp。 \ amp。 , amp。 \ = 0 MsgBox 數(shù)據(jù)已恢復(fù)完畢！ End If End Sub Private Sub Command2_Click() Unload Me End Sub 3． 10 初始化（圖略）代碼如下： Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub Comks_Click() = True End Sub Private Sub Comcsh_Click() Dim rs As Set rs = New Dim n As Set n = New dsn=a Dim connter As Integer Dim sql, workarea(200) As String = True = UBound(workarea) = For Counter = LBound(workarea) To UBound(workarea) workarea(Counter) = initial value amp。 Counter = Counter If Check1(0).Value = 1 Then sql = delete * from ygg sql End If If Check1(1).Value = 1 Then sql = delete * from jspj sql End If If Check1(2).Value = 1 Then sql = delete * from js sql End If If Check1(3).Value = 1 Then sql = delete * from kcsz sql End If If Check1(4).Value = 1 Then sql = delete * from ph sql End If Next Counter = False = = False End Sub Private Sub ComExit_Click() Unload Me 第四章 測(cè)試及性能分析 本系統(tǒng)經(jīng)過(guò)試用證明，系統(tǒng)基本滿足 員工信息管理 方面的需要。實(shí)現(xiàn)了 員工信息管理，培訓(xùn)課程管理，需求管理等。基本滿足了中小型企業(yè)的培訓(xùn)要求。各個(gè)功能模塊的鏈 接以及功能的實(shí)現(xiàn)體現(xiàn)了需求分析。 第六章 結(jié)束語(yǔ) 在這當(dāng)中我學(xué)到了一些知識(shí)，增強(qiáng)了自學(xué)能力。提高了動(dòng)手能力，學(xué)以致用。 在此，我感謝各位老師的指導(dǎo)和幫助。此致 敬禮！ 參考文獻(xiàn) Visual Basic 數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 Visual Basic 6 程序設(shè)計(jì)導(dǎo)學(xué) 清華大學(xué)出版社 give pleasureto our souls. But this is intolerable and blasphemous。 there is,however, a much more plausible account of the delusion. Cle. What? Ath. The adaptation of art to the characters of men. Choricmovements are imitations of manners occurring in various actions,f ortunes, dispositionseach particular is imitated, and those towhom the w ords, or songs, or dances are suited, either by nature orhabit or both, cannot help feeling pleasure in them and applaudingthem, and c alling them beautiful. But those whose natures, or ways, orhabits are unsuited to them, cannot delight in them or applaud them,and they call them base. There are others, again, whose natures areright and their habits wrong, or whose habits are r ight and theirnatures wrong, and they praise one thing, but are pleased atanother. For they say that all these imitations are pleasant, butnot good. A nd in the presence of those whom they think wise, theyare ashamed of dancing and singing in the baser manner, or ofdeliberately lending any countenance to such proceedings。 and yet,they have a secret pleasure in them. Cle. Very true. Ath. And is any harm done to the lover of