【正文】 te Sub Comm2_Click()Unload Me End SubMenu：Private Sub MDIForm_Load()If Not userlevel = ”系統(tǒng)管理員“ Then = False = False = False = FalseEnd If End SubPrivate Sub menu11_Click() vbModal End SubPrivate Sub menu12_Click() vbModal End SubPrivate Sub menu13_Click()End End SubPrivate Sub menu21_Click() vbModal End SubPrivate Sub menu22_Click() vbModal End SubPrivate Sub menu31_Click() vbModal End SubPrivate Sub menu32_Click() vbModal End SubPrivate Sub menu41_Click() vbModal End SubPrivate Sub menu42_Click()If MsgBox(”本功能要清除系統(tǒng)中所有數(shù)據(jù),真的初始化嗎?“, vbYesNo, ”確認(rèn)初始化操作“)= vbYes ThenCall deldata(”book“)Call deldata(”reader“)Call deldata(”borrow“)Call deldata(”rlevel“)Call deldata(”depart“)Call deldata(”press“)Call deldata(”oper“)MsgBox ”系統(tǒng)初始化完畢,下次只能以1234/1234(用戶名/口令)進(jìn)入本系統(tǒng)“, vbOKOnly, ”信息提示“End If End SubPass：Public n As IntegerPrivate Sub Command1_Click()Dim mrc As txtsql = ”select * from oper where 用戶名=39?！?39。修改操作n = cond = ”fn=39?！?9。原記錄個數(shù)大于0cond = ”fn=39。這兩個語句恢復(fù)原記錄位置(n1)(”級別“)= Trim(Text1(0).Text)(”過期罰款“)= Val(Trim(Text1(1).Text))(”借書總數(shù)“)= Val(Trim(Text1(2).Text))(”借書天數(shù)“)= Val(Trim(Text1(3).Text))End IfUnload Me End SubPrivate Sub Comm2_Click()Unload Me End SubEdreader：Private Sub DataGrid1_Click()End SubPrivate Sub Form_Load()recs = End SubPrivate Sub Form_Activate()Call enm End SubPrivate Sub Comm1_Click()flag = 1 vbModal End SubPrivate Sub Comm2_Click()flag = 2 vbModal End SubPrivate Sub Comm3_Click()If MsgBox(”真的要刪除[“ + Trim((”姓名“))+ ”]嗎?“, vbYesNo, ”信息提示“)= vbYes Thenrecs = recs1Call enmEnd If End Sub Private Sub Comm4_Click()Unload Me End Sub Private Sub enm()If recs = 0 Then = False = FalseElse = True = TrueEnd If End SubEdrec1：Dim cond As StringPrivate Sub Form_Load() = capIf flag = 1 Then = ”“Else = (”fn“)End If End SubPrivate Sub Comm1_Click()If Trim()= ”“ ThenMsgBox ”數(shù)據(jù)項不能為空,請重新設(shè)置“, vbOKOnly, ”信息提示“Exit SubEnd IfIf flag = 1 Then 39?！?39。修改操作n = cond = ”級別=39?！?9。原記錄個數(shù)大于0cond = ”級別=39。 = End SubPrivate Sub Form_Activate()Call enm End SubPrivate Sub Comm1_Click()flag = 1 vbModal End SubPrivate Sub Comm2_Click()flag = 2 vbModal End SubPrivate Sub Comm3_Click()If MsgBox(”真的要刪除[“ + Trim((”書名“))+ ”]嗎?“, vbYesNo, ”信息提示“)= vbYes Thenrecs = recs1Call enmEnd If End SubPrivate Sub Comm4_Click()Unload Me End SubPrivate Sub enm()If recs = 0 Then = False = FalseElse = True = TrueEnd If End SubEdlev1：Dim cond As StringPrivate Sub Form_Load()If flag = 2 ThenText1(0).Text = (”級別“)Text1(1).Text = (”過期罰款“)Text1(2).Text = (”借書總數(shù)“)Text1(3).Text = (”借書天數(shù)“)End If End SubPrivate Sub Comm1_Click()If Trim(Text1(0).Text)= ”“ Or Trim(Text1(1).Text)= ”“ Or Trim(Text1(2).Text)= ”“ Or _Trim(Text1(3).Text)= ”“ ThenMsgBox ”數(shù)據(jù)項不全,請重新設(shè)置“, vbOKOnly, ”信息提示“Text1(0).SetFocusExit SubEnd IfIf flag = 1 Then 39。若在Form_Activate()，39。返回到本表單,若不在Form_Activate(),39?！癝et rs = exesql(sqltxt)If = 0 ThenMsgBox ”該讀者未登記,不能借書“, vbOKOnly, ”信息提示“ = FalseElseText2(0).Text = (”姓名“)Text2(1).Text = str((”借書總數(shù)“))Text2(2).Text = str((”借書總數(shù)“)(”已借書數(shù)“))End IfEnd IfEnd If End SubPrivate Sub retCom_Click()Unload Me End SubPrivate Sub Form_Load() = False End SubEdbook：Private Sub DataGrid1_Click()End SubPrivate Sub Form_Load()39。保存讀者單位 Public rs As Private Sub Comm1_Click()rno = Trim(Text1(0).Text)If rno = “ ThenMsgBox ”借書證號不能為空,請輸入“, vbOKOnly, ”信息提示“ = FalseElsesqltxt = ”select * from reader where 借書證號=39。保存讀者圖書編號 Public xm As String39。環(huán)境與植物保護學(xué)院黨委2010年5月31日第二篇：vb圖書管理系統(tǒng)源代碼Borbook：Public sqltxt As String Public rno As String39。按照校黨委的要求，學(xué)院創(chuàng)先爭優(yōu)活動要堅持服務(wù)大局，圍繞科教中心工作、密切聯(lián)系群眾、經(jīng)常性為主的原則，并努力形成學(xué)習(xí)先進(jìn)、崇尚先進(jìn)、爭當(dāng)先進(jìn)的活動氛圍和風(fēng)氣。各黨支部為活動的落實單位，負(fù)責(zé)具體的學(xué)習(xí)、黨內(nèi)分析、主題活動、總結(jié)評議等工作。對開展創(chuàng)先爭優(yōu)活動中行之有效的科學(xué)做法用制度的形式固定下來，形成創(chuàng)先爭優(yōu)的長效機制。學(xué)校黨委對學(xué)院黨委、黨支部、黨員開展創(chuàng)先爭優(yōu)活動情況進(jìn)行考核，并采取適當(dāng)方式組織黨員、群眾進(jìn)行評議。學(xué)院黨委對開展創(chuàng)先爭優(yōu)活動進(jìn)行系統(tǒng)總結(jié)，認(rèn)真總結(jié)經(jīng)驗、查找不足，進(jìn)一步研究制定改進(jìn)措施。配合學(xué)校開展集中展示活動成果活動。(四)回顧總結(jié)、完善機制階段(2012年9月——黨的十八大召開前)。對照總體要求，著眼全面提升，進(jìn)一步加強黨組織建設(shè)，促進(jìn)提升“五個好”先進(jìn)基層黨組織和“五個模范”優(yōu)秀黨員、優(yōu)秀黨務(wù)工作者的比例。各黨支部和全體黨員，都要對照先進(jìn)典型，對照目標(biāo)要求和崗位職責(zé)，查找自身差距，明確努力方向，制定跟進(jìn)、趕超的具體措施。學(xué)校將確定一批“五個好”先進(jìn)基層黨組織和“五個模范”優(yōu)秀黨員、優(yōu)秀黨務(wù)工作者，采取組織先進(jìn)典型報告會、觀摩學(xué)習(xí)、宣傳報道等形式，擴大先進(jìn)典型影響力。充分發(fā)揮先進(jìn)典型的示范帶動作用，全面提升活動的整體工作水平。2011年“七一”前，向?qū)W校黨委推薦表彰先進(jìn)黨組織、優(yōu)秀共產(chǎn)黨員和優(yōu)秀黨務(wù)工作者。“強基創(chuàng)先”活動?！傲僚剖痉丁被顒??！胺?wù)群眾”活動。“崗位奉獻(xiàn)”活動。具體圍繞幾項主題活動展開：“師德教育”活動。(二)全面創(chuàng)爭、扎實推進(jìn)階段(2010年9月—2011年6月底)。黨性分析。組織學(xué)習(xí)。學(xué)院黨委圍繞學(xué)校創(chuàng)先爭優(yōu)活動的主題、載體、重點和總體要求，從本單位實際情況出發(fā)，制定切實可行的活動實施方案；黨員要圍繞黨性修養(yǎng)、作風(fēng)養(yǎng)成、履行職責(zé)、崗位奉獻(xiàn)等方面提出參加活動的具體打算。學(xué)院黨委召開動員大會，進(jìn)行工作部署。(一)動員部署、學(xué)習(xí)準(zhǔn)備階段（2010年4月—6月底）。本次活動期間跨度20102012年的三個學(xué)年、六個學(xué)期。學(xué)生黨員要爭當(dāng)努力學(xué)習(xí)的模范、實踐創(chuàng)新的模范、自強自立的模范、尊師愛友的模范、遵紀(jì)守法的模范，努力使自己成為志向遠(yuǎn)大、品德高尚、知識豐富、能力較強的高素質(zhì)的優(yōu)秀學(xué)生。樹立大局意識和團隊精神，以團隊協(xié)作爭創(chuàng)教學(xué)、科研的高層次成果，提升單位的整體管理、服務(wù)水平；（5）遵紀(jì)守法的模范。養(yǎng)成求真務(wù)實和嚴(yán)謹(jǐn)自律的治學(xué)態(tài)度，樹立高尚的道德情操和精神追求，教書育人、管理育人、服務(wù)育人，言傳身教，甘為人梯，以大德樹良師形象；（4）團結(jié)協(xié)作的模范。認(rèn)真學(xué)習(xí)實踐科學(xué)發(fā)展觀，刻苦鉆研業(yè)務(wù)知識，努力提高自身的黨性修養(yǎng)和能力水平，成為熱愛學(xué)習(xí)、學(xué)會學(xué)習(xí)和終身學(xué)習(xí)的楷模；（2）崗位奉獻(xiàn)的模范。優(yōu)秀共產(chǎn)黨員的基本要求：模范履行黨章規(guī)定的義務(wù)，努力爭當(dāng)“五個模范”。經(jīng)常組織開展健康向上、豐富多樣的支部活動，支部建設(shè)充滿活力；發(fā)揮作用好。學(xué)生黨支部主要突出“三個好”：黨員培育好。五是群眾反映好。四是工作業(yè)績好。三是工作機制好。二是黨員隊伍好。先進(jìn)基層黨組織的基本要求：建設(shè)學(xué)習(xí)型黨組織，努力做到“五個好”： 一是領(lǐng)導(dǎo)班子好。通過開展創(chuàng)先爭優(yōu)活動，整體提高學(xué)院各級黨組織和黨員隊伍建設(shè)水平，樹立一批充分發(fā)揮戰(zhàn)斗堡壘作用、先鋒模范作用的先進(jìn)黨支部和優(yōu)秀共產(chǎn)黨員，為學(xué)校順利完成“211工程”項目建設(shè)、實現(xiàn)轉(zhuǎn)型升級，進(jìn)而更好地服務(wù)海南國際旅游島建設(shè)提供堅強的政治保證和組織保證。第一篇：圖書管理系統(tǒng)源代碼環(huán)植學(xué)院深入開展創(chuàng)先爭優(yōu)活動實施方案為貫徹落實中共中央、海南省委、省委教育工委及學(xué)校黨委“關(guān)于在黨的基層組織和黨員中深入開展創(chuàng)先爭優(yōu)活動”的決定，根據(jù)相關(guān)文件精神，結(jié)合我院實際，特制定如下實施方案。一、總體要求根據(jù)上級黨組織要求，以鄧小平理論和“三個代表”重要思想為指導(dǎo)，以深入學(xué)習(xí)實踐科學(xué)發(fā)展觀、實現(xiàn)海南大學(xué)又好又快發(fā)展為主題，以加快“211工程”建設(shè)、促進(jìn)新海大轉(zhuǎn)型升級為載體，以樹立優(yōu)良校風(fēng)學(xué)風(fēng)和立足崗位奉獻(xiàn)為重點，堅持服務(wù)學(xué)校教學(xué)科研和建設(shè)發(fā)展大局，振奮精神，改革創(chuàng)新，講求實效，統(tǒng)籌推進(jìn)黨的建設(shè)及其他經(jīng)常性工作，充分發(fā)揮基層黨組織的戰(zhàn)斗堡壘作用和共產(chǎn)黨員的先鋒模范作用，在推動科學(xué)發(fā)展、構(gòu)建和諧校園、服務(wù)師生員工、加強基層組織以及服務(wù)海南國際旅游島建設(shè)的實踐中建功立業(yè)。二、主要內(nèi)容創(chuàng)先爭優(yōu)活動的主要內(nèi)容：創(chuàng)建先進(jìn)基層黨組織、爭當(dāng)優(yōu)秀共產(chǎn)黨員。深入學(xué)習(xí)實踐科學(xué)發(fā)展觀，全面貫徹黨的教育方針，認(rèn)真落實黨建工作責(zé)任制，團結(jié)協(xié)作，求真務(wù)實，勤政廉潔，有較強的凝聚力、戰(zhàn)斗力和創(chuàng)造力。重視教職工黨員的發(fā)展和教育，黨員素質(zhì)優(yōu)良、黨員意識較強、精神面貌良好，切實發(fā)揮先鋒模范作用。圍繞學(xué)院改革發(fā)展開展形式多樣黨建活動，規(guī)章制度健全完善，管理措施到位，長效機制建立務(wù)實有效。在開展“211工程”項目建設(shè)、深化教育教學(xué)改革、推進(jìn)學(xué)校各項事業(yè)中強化黨的政治領(lǐng)導(dǎo)，圍繞中心、服務(wù)大局，解決問題、促進(jìn)發(fā)展，改革創(chuàng)新、成效明顯。尊重愛護師生，為師生辦實事；工作措施符合師生意愿，工作作風(fēng)和工作實績師生滿意度高，黨組織得到師生擁護，黨群干群關(guān)系密切。能積極、有效做好大學(xué)生黨員的發(fā)展、教育和管理工作，引導(dǎo)廣大學(xué)生樹立堅定的共產(chǎn)主義理想和信念；組織活動好。能較好地發(fā)揮支部的戰(zhàn)斗堡壘作用，以黨建帶團建，以黨建促進(jìn)其他學(xué)生組織的健康發(fā)展和優(yōu)良學(xué)風(fēng)、班風(fēng)、校風(fēng)的形成，維護校園安全穩(wěn)定，在學(xué)生中