【正文】 SQL MsgString = sTokens(0) amp。 query successful Else Set rst = New Trim$(SQL), n, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst MsgString = 查詢到 amp。 amp。 條記錄 End IfExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯誤: amp。 Resume ExecuteSQL_ExitEnd FunctionPublic Function Testtxt(txt As String) As Boolean If Trim(txt) = Then Testtxt = False Else Testtxt = True End IfEnd Function添加學(xué)籍信息原代碼：Private Sub Command1_Click() Dim mrc As Dim txtSQL As String Dim MsgText As String If Not Testtxt() Then MsgBox 請輸入學(xué)號！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入姓名！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請選擇性別！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入出生日期！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請選擇班號！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入聯(lián)系電話！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入入校日期！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入家庭住址！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not IsNumeric(Trim()) Then MsgBox 請輸入數(shù)字！, vbOKOnly + vbExclamation, 警告 Exit Sub End If txtSQL = select * from student_Info where student_ID = amp。 Trim() 39。amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If 0 Then MsgBox 學(xué)號重復(fù)，請重新輸入！, vbOKOnly + vbExclamation, 警告 Else If Not IsDate() Then MsgBox 出生時(shí)間應(yīng)輸入日期格式（yyyymmdd）！, vbOKOnly + vbExclamation, 警告 Else txtBorndate = Format(txtBorndate, yyyymmdd) If Not IsDate() Then MsgBox 入校時(shí)間應(yīng)輸入日期格式（yyyymmdd）！, vbOKOnly + vbExclamation, 警告 Else txtRudate = Format(txtRudate, yyyymmdd) txtSQL = select * from student_Info Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = Trim() (8) = Trim() MsgBox 添加學(xué)籍信息成功！, vbOKOnly + vbExclamation, 警告 End If End If End If End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim mrc As Dim txtSQL As String Dim MsgText As String Dim i As Integer 男 女 txtSQL = select * from class_Info Set mrc = ExecuteSQL(txtSQL, MsgText) For i = 1 To (0) Next i End Sub以下精品內(nèi)容為贈送文檔！與本文檔無關(guān)！?。∠螺d后將文字顏色設(shè)置為黑色即可看到！按住CTRL鍵點(diǎn)擊文字鏈接 【強(qiáng)烈推薦精品資源】 分 類 A管理培訓(xùn)精品 B論文方案報(bào)告 C營銷策劃精品 D求職面試禮儀 E教育教管精品 E熱賣試題題庫 E精品教程教案 E高考真題解析 F高中數(shù)學(xué)精選 G初中數(shù)學(xué)精選 H小學(xué)數(shù)學(xué)精選 I語文教學(xué)精選 J英語精品文檔 K政史地等精品 L理化生等精品M音體美等精品 N小學(xué)全冊教案 N各科教學(xué)文檔 N教師工作文檔 N高三數(shù)學(xué)一輪 O各類資格考試 PPT技巧及模板 Q心理學(xué)等相關(guān) R成功勵志經(jīng)驗(yàn) S百科知識大全 各種表格大全 U休閑娛樂健身 V電子課本大全 高效能人士的50個習(xí)慣 在行動前設(shè)定目標(biāo) 有目標(biāo)未必能夠成功，但沒有目標(biāo)的肯定不能成功。：“成功就是目標(biāo)的達(dá)成，其他都是這句話的注釋?！爆F(xiàn)實(shí)中那些頂尖的成功人士不是成功了才設(shè)定目標(biāo)，而是設(shè)定了目標(biāo)才成功。 一次做好一件事 ：“一次做好一件事的人比同時(shí)涉獵多個領(lǐng)域的人要好得多?！备惶m克林將自己一生的成就歸功于對“在一定時(shí)期內(nèi)不遺余力地做一件事”這一信條的實(shí)踐。 培養(yǎng)重點(diǎn)思維 從重點(diǎn)問題突破，是高效能人士思考的一項(xiàng)重要習(xí)慣。如果一個人沒有重點(diǎn)地思考，就等于無主要目標(biāo)，做事的效率必然會十分低下。相反，如果他抓住了主要矛盾，解決問題就變得容易多了。 發(fā)現(xiàn)問題關(guān)鍵 在許多領(lǐng)導(dǎo)者看來，高效能人士應(yīng)當(dāng)具備的最重要的能力就是發(fā)現(xiàn)問題關(guān)鍵能力，因?yàn)檫@是通向問題解決的必經(jīng)之路。正如微軟總裁兼首席軟件設(shè)計(jì)師比爾。蓋茨所説：“通向最高管理層的最迅捷的途徑，是主動承擔(dān)別人都不愿意接手的工作，并在其中展示你出眾的創(chuàng)造力和解決問題的能力?！? 把問題想透徹 把問題想透徹，是一種很好的思維品質(zhì)。只要把問題想透徹了，才能找到問題到底是什么，才能找到解決問題最有效的手段。 不找借口 美國成功學(xué)家格蘭特納說過這樣的話：“如果你有為自己系鞋帶的能力，你就有上天摘星星的機(jī)會！”一個人對待生活和工作是否負(fù)責(zé)是決定他能否成功的關(guān)鍵。一名高效能人士不會到處為自己找借口，開脫責(zé)任；相反，無倫出現(xiàn)什么情況，他都會自覺主動地將自己的任務(wù)執(zhí)行到底。 要事第一 創(chuàng)設(shè)遍及全美的事務(wù)公司的亨瑞。杜哈提說，不論他出多小錢的薪水，都不可能找到一個具有兩種能力的人。這兩種能力是：第一，能思想；第二，能按事情的重要程度來做事。因此，在工作中，如果我們不能選擇正確的事情去做，那么唯一正確的事情就是停止手頭上的事情，直到發(fā)現(xiàn)正確的事情為止。 運(yùn)用20/80法則 二八法則向人們揭示了這樣一個真理，即投入與產(chǎn)出、努力與收獲、原因和結(jié)果之間，普遍存在著不平衡關(guān)系。小部分的努力，可以獲得大的收獲；起關(guān)鍵作用的小部分，通常就能主宰整個組織的產(chǎn)出、盈虧和成敗。 合理利用零碎時(shí)間 所謂零碎時(shí)間，是指不構(gòu)成連續(xù)的時(shí)間或一個事務(wù)與另一事務(wù)銜接時(shí)的空余時(shí)間。這樣的時(shí)間往往被人們毫不在乎地忽略過去，零碎時(shí)間雖短，但倘若一日、一月、一年地不斷積累起來，其總和將是相當(dāng)可觀的。凡事在事業(yè)上有所成就的人，幾乎都是能有效地利用零碎時(shí)間的人。 習(xí)慣廢除拖延 對于一名高效能人士來説，拖延是最具破壞性的，它是一種最危險(xiǎn)的惡習(xí)，它使人喪失進(jìn)取心。一旦開始遇事推托，就很容易再次拖延，直到變成一種根深崹蒂固的習(xí)慣。 習(xí)慣1向競爭對手學(xué)習(xí) 一位知名的企業(yè)家曾經(jīng)說過，“對手是一面鏡子，可以照見自己的缺陷。如果沒有了對手，缺陷也不會自動消失。對手，可以讓你時(shí)刻提醒自己：沒有最好的，只有更好?！? 習(xí)慣1善于借助他人力量 年輕人要成就一番事業(yè)，養(yǎng)成良好的合作習(xí)慣是不可少的，尤其是在現(xiàn)代職場中，靠個人單打獨(dú)斗的時(shí)代已經(jīng)過去了，只有同別人展開良好的合作，才會使你的事業(yè)更加順風(fēng)順?biāo)Ｈ绻阋蔀橐幻咝艿穆殘鋈耸?，就?yīng)當(dāng)養(yǎng)成善于借助他人力量的好習(xí)慣。 習(xí)慣1換位思考 在人際的相處和溝通里，“換位思考”扮演著相當(dāng)重要的角色。用“換位思考”指導(dǎo)人的交往，就是讓我們能夠站在他人的立場上，設(shè)身處地理解他人的情緒，感同身受地明白及體會身邊人的處境及感受，并且盡可能地回應(yīng)其需要。 樹立團(tuán)隊(duì)精神 一個真正的高效能人士，是不會依仗自己業(yè)務(wù)能力比別人更優(yōu)秀而傲慢地拒絕合作，或者合作時(shí)不積極，傾向于一個人孤軍奮戰(zhàn)。他明白在一個企業(yè)中，只有團(tuán)隊(duì)成功，個人才能成功。 善于休息 休息可以使一個人的大腦恢復(fù)活力,提高一個人的工作效能。身處激烈的競爭之中,一名高效能人士應(yīng)當(dāng)注意工作中的調(diào)節(jié)與休息,這不但于自己健康有益,對事業(yè)也是大有好處的。 及時(shí)改正錯誤 ,坦然面對批評,并且從中找尋有價(jià)值、可參考的成分,進(jìn)而學(xué)習(xí)、改進(jìn)、你將獲得意想不到的成功。 責(zé)任重于一切 著名管理大師德魯克認(rèn)為,你首先表明的是你的工作態(tài)度:你要以高度的責(zé)任感對待你的工作,不懈怠你的工作、。 不斷學(xué)習(xí) 一個人,如果每天都能提高1%,很多時(shí)候,它們之間的區(qū)別就在于你是否每天都在提高你自己。如果你不堅(jiān)持每天進(jìn)步1%的話,你就不可能成為一名高效能人士. 讓工作變得簡單 簡單一些,不是要你把事情推給別人或是逃避責(zé)任,而是當(dāng)你焦點(diǎn)集中很清楚自己該做那些事情時(shí),自然就能花更小的力氣,得到更好的結(jié)果. 重在執(zhí)行 執(zhí)行力是決定一個企業(yè)成敗的關(guān)鍵,同時(shí)也是衡量一個人做事是否高效的重要標(biāo)準(zhǔn). 只做