【正文】 任部門獨立解決落實。 （二）密切配合，強化溝通協(xié)作。 五、組織保障 （一）高度重視，優(yōu)化培訓(xùn)質(zhì)量。 （二）不同崗員培訓(xùn)重視程度 不一。 四、工作難點 （一）培訓(xùn)形式單一。二是要嚴(yán)格落實培訓(xùn)經(jīng)費使用規(guī)定，加強培訓(xùn)經(jīng)費的管理。一是堅持培訓(xùn)工作自查與公司考核相結(jié)合。 0801030222 錢建飛 28 （四）加強培訓(xùn)機制建設(shè)，健全完善培訓(xùn)管理體制。二是積極推進管理者上講臺活動。一是加強管理人員培訓(xùn)技能的培訓(xùn)。 （三）加強 講師團 培訓(xùn)，建立健全處室培訓(xùn)體系。三是高度重視新員工安全教育工作。二是堅持定期開展員工崗位安全教育，確保安全生產(chǎn)事故 零發(fā)生 。結(jié)合工作熱點、難點 ，全面推進全員安全文化教育，促進全體員工對安全生0801030222 錢建飛 27 產(chǎn)的相關(guān)文件和標(biāo)準(zhǔn)實現(xiàn)有效領(lǐng)會與全面掌握。為了進一步做好員工安全教育工作，保衛(wèi)處將創(chuàng)新教育培訓(xùn)方式，堅持 專題培訓(xùn) 與 定期培訓(xùn) 相結(jié)合，注重 新員工 安全教育工作等方式，全面提高員工隊伍的安全意識。 （二）加強員工安全教育，提高員工隊伍的安全意識。二是抓好汽車駕駛員技能等級培訓(xùn)， 通過強化培訓(xùn)與重點監(jiān)管相結(jié)合的方式，進一步提高項目用工技能鑒定參與率和合格率。一是抓好應(yīng)急隊員軍事技能培訓(xùn)。通過選派業(yè)務(wù)骨干參加公 司各職能部門組織的專業(yè)培訓(xùn)，以科室為單位，開展科室負責(zé)人與科員之間的有針對性的 一對一 或 一對多 業(yè)務(wù)培訓(xùn)，組織開展員工新聞寫作知識、內(nèi)控體系知識、公文管理、檔案管理等各類專項培訓(xùn)等途徑，全面拓展管理崗位員工知識面，促使兩級機關(guān)管理崗位員工業(yè)務(wù)技能、工作效率 雙提高 。 根據(jù)管理崗位和操作崗位不同的工作內(nèi)容與工作性質(zhì)，具有針對性地開展員工培訓(xùn)，提升培訓(xùn)效果。 三、工作重點 根據(jù)公司工作思路與目標(biāo)，結(jié)合保衛(wèi)處工作實際，下一階段，保衛(wèi)處的培訓(xùn)工作重點可概括為 四個加強 。 三是安全知識培訓(xùn)覆蓋率達 100%。 （二） 2021 年員工培訓(xùn)工作目標(biāo) 通過加強培訓(xùn)過程管理，強化培訓(xùn)監(jiān)督考核，大力提升員工隊伍的培訓(xùn)質(zhì)量和效果，實現(xiàn)培訓(xùn)率 四個 100%： 一 是管理崗位員工參培率達 100%。 一、 總體思路 0801030222 錢建飛 25 緊密圍繞保衛(wèi)處年度工作目標(biāo)，深入貫徹落實科學(xué)發(fā)展觀，以黨的十八大五中全會精神為指引，以提高員工思想政治素質(zhì)和業(yè)務(wù)能力為核心，強化培訓(xùn)體系建設(shè)，優(yōu)化人才培育形式，夯實培訓(xùn)工作基礎(chǔ) ，打造一支專業(yè)技能精、執(zhí)行能力強、綜合素質(zhì)高的員工隊伍。 2021 作為實施 十三五 規(guī)劃的開局之年，是全面深化改革的重要一年。讓我們滿載著這份責(zé)任和這份奉獻揚帆起航，再創(chuàng)石油事業(yè)的錦繡前程。幾十年的發(fā)展歷程，延長石油人書寫著我們的青春與忠誠，書寫著我們的艱辛與進取，書寫著我們的耕耘與收獲。沒有奢華的生活，沒有優(yōu)厚的待遇，沒有顯赫的地位，但他卻總是忙碌而快樂的工作著，沒有一絲抱怨，沒有一絲哀嘆，有的只是他一句鏗鏘有力的答言： 我是石油 人 。年過半百的他，在 2021 年搬新建廠期間，幾天時間就白了頭發(fā)。 站在這里我怎能忘記為延長石油發(fā)展殫精竭慮的他。我們對父母有情，對兒女有愛，但是我們每一名維修人員都深知：只有以積極的心態(tài)對待工作，讓電機正常運轉(zhuǎn)，讓石油滾滾而出，才能讓采油廠 穩(wěn)中求進，降本增效 。這就是對奉獻的最好注解，幾年來涌現(xiàn)在我們設(shè)備維修部的優(yōu)秀人物數(shù)不勝數(shù)：機電維修車間優(yōu)秀青年女工白春麗；機電車間孩子上小學(xué)的單身媽媽趙秀梅；油管維修車間李瑋青 ?? 今年四月份至八月份奪油會戰(zhàn)全廠周六加班，我們默默地在各自的工作崗位 上上不懈的努力和付出，經(jīng)歷了多少次工作與親情的考驗，背負了多少回對家人和親友的愧疚。 春蠶到死絲方盡。因為責(zé)任可以讓即將沉淪的浪子回頭，0801030222 錢建飛 23 可以讓弱不禁風(fēng)的幼苗逐漸承受風(fēng)吹雨打，可以讓一個人堅持一輩子做好一件事情。回首過去的歲月我們延長石油一肩擔(dān)著責(zé)任，一肩擔(dān)著奉獻，走過了多少艱辛坎坷之路，戰(zhàn)勝了多少嚴(yán)峻的考驗？正因為有了延長石油全體職工的責(zé)任感和奉獻精神，才能讓延長石油有了長足的的發(fā)展，才能讓延長石油的美跨越一年又一年。 這個貢獻就是奉獻。 什么是責(zé)任？英國一位哲人說過： 這個世界上有許多你不 得不做的事，這就是責(zé)任。我們每一名石油人的切身利益都和延長石油的生存和發(fā)展息息相關(guān)。 Dim cmd As New (sqlcmd, con) Dim reader As reader = If = True Then user_id = reader(0). psw = reader(1). End If () ()0801030222 錢建飛 22 上文已完。Initial Catalog=canteen。Persist Security Info=True。若用戶名為空，返回，重新輸入 End If Call sqlcon() If ( = user_id And = psw) Then () () Else MsgBox(登錄失敗，請檢查用戶名及密碼是否正確！ , + 48, 注意 ) End If End Sub Sub sqlcon() Dim constr As String = Provider=。 經(jīng)過本次課設(shè)，不僅對管理信息系統(tǒng)有了更清楚的認識，而且學(xué)到了 Access數(shù)據(jù)庫和 VB的使用方法，增加了知識面，也是一個很好的經(jīng)歷，因為在設(shè)計過程中遇到了好多問題，最后通過查找資料，與同學(xué)討論，得到了解決，這點還是很欣慰的。開闊了視野，增長了知識，積累了經(jīng)驗。因此本次做課程設(shè)計，就從各 方面為企業(yè)考慮。這些都有待于進一步的改善。 在整 個課程設(shè)計階段的工作和課程設(shè)計報告的寫作過程的經(jīng)歷將會使我終生受益，并對我今后的工作和發(fā)展產(chǎn)生深遠的影響。系統(tǒng)設(shè)計為整個程序構(gòu)建了骨架 ,各個功能模塊實現(xiàn)各個細節(jié)部分。 寫完這個課程設(shè)計報告，一個完整的管理系統(tǒng)就創(chuàng)建完畢了。 %39。% amp。 Private Sub Command1_Click() 0801030222 錢建飛 17 If = Or = Then MsgBox 員工編號或名稱為空，請重新輸入！ Exit Sub End If If = 員工檔案修改 Then If = True Then MsgBox 編號不存在無法修改 , vbOKOnly + vbExclamation, 警告！ Exit Sub End If Dim Mag As Integer Mag = MsgBox(是否修改！ , vbYesNo, 警告 ) If Mag = vbYes Then 39。 已婚 未婚 總經(jīng)理 副總經(jīng)理 部長 0801030222 錢建飛 16 工程師 職工 黨員 群眾 本科 碩士 博士 高中 技術(shù)部 行政部 財務(wù)部 業(yè)務(wù)部 男 女 = = select * from 員工基本信息表 End Sub 四、檔案添加界面 檔案添加界面主要是添加員工檔案。 amp。and 學(xué)歷 like 39。 amp。 and 所在部門 like 39。 amp。 and 政治面貌 like 39。 amp。 and 職位 like 39。 amp。and 性別 like 39。 amp。and 婚姻狀況 like 39。 amp。 and 姓名 like 39。 amp。 SaveFile End Sub Private Sub Command5_Click() End Sub Private Sub Form_Load() = select * from 員工基本信息表 where 員工編號 like 39。結(jié)束 EXCEL 對象 Set xlApp = Nothing 39。保存工作表 ,結(jié)束時一定別忘了保存 (True) 39。設(shè)置活動工作表 (1, 1) = 員工編號 (1, 2) = 姓名 (1, 3) = 年齡 (1, 4) = 性別 (1, 5) = 所在部門 (1, 6) = 電話 (1, 7) = 職位 (1, 8) = 學(xué)歷 (1, 9) = 聘用時間 (1, 10) = 離職時間 (1, 11) = 婚姻狀況 (1, 12) = 政治面貌 (1, 13) = 畢業(yè)學(xué)校 (1, 14) = 籍貫 (1, 15) = 民族 For j = 1 To sum (j + 1, 1) = (0) (j + 1, 2) = (1) 0801030222 錢建飛 15 (j + 1, 3) = (2) (j + 1, 4) = (3) (j + 1, 5) = (4) (j + 1, 6) = (5) (j + 1, 7) = (6) (j + 1, 8) = (7) (j + 1, 9) = (8) (j + 1, 10) = (9) (j + 1, 11) = (10) (j + 1, 12) = (11) (j + 1, 13) = (12) (j + 1, 14) = (13) (j + 1, 15) = (14) Next SaveFile = d:\ 39。打開已經(jīng)存在的 EXCEL 工件簿文件 = True 39。 Set xlApp = CreateObject() 39。 amp。and 學(xué)歷 like 39。 amp。 and 所在部門 like 39。 amp。 and 政治面貌 like 39。 amp。 and 職位 like 39。 amp。and 性別 like 39。 amp。and 婚姻狀況 like 39。 amp。 and 姓名 like 39。 amp。保存到 text1 中去 Dim SaveFile As String Dim xlApp As Dim xlBook As Dim xlSheet As = select * from 員工基本信息表 where 員工編號 like 39。保存到 text1 中去 End If End Sub BH = 請輸入要修改的員工編號 bc = 修改 If cx 0 Then BHs = Else MsgBox 未選中數(shù)據(jù)??！ , vbOKOnly + vbExclamation, Exit Sub BHs = End If End Sub Private Sub Command4_Click() If Then MsgBox 沒有可輸出的數(shù)據(jù)！ Exit Sub End If sum = 0 Do While Not 39。先給賦值為 0 If = 0 Then = 0 Else sum = 0 Do While Not 39。 %39。% amp。 %39。% amp。 %39。% amp。 %39。% amp。 %39。% amp。 %39。% amp。 %39。% amp。 %39。% amp。 各項功能的具體實現(xiàn)代碼如下： Private Sub Command_Click() If cx 1 Then MsgBox 未選中數(shù)據(jù)??！ , vbOKOnly + vbExclamation, Exit Sub End If Dim Mag As Integer Mag = MsgBox(是否刪除！ , vbYesNo, 警告 ) If Mag = vbYes Then 39。主要集成了查詢，錄入，刪除，統(tǒng)計，輸出等功能 具體實現(xiàn)代碼如下： Private Sub Luru_Click(Index As Integer) da = 員工檔案添加 BH = 員工 編號 bc = 保存 End Sub Private Sub shuchu_Click(Index As Integer) End Sub Private Sub Tongji_Clic