【正文】 具有較強(qiáng)的感召力。教工黨員要爭(zhēng)當(dāng)：（1）學(xué)習(xí)鉆研的模范。忠誠于黨的教育事業(yè)，具有強(qiáng)烈的事業(yè)心、責(zé)任感，愛崗敬業(yè)，勇挑重?fù)?dān)，在教學(xué)、科研、管理或服務(wù)崗位上做出顯著業(yè)績(jī)；（3）為人師表的模范。熱愛集體，服務(wù)師生，團(tuán)結(jié)友愛，堅(jiān)決維護(hù)集體榮譽(yù)。自覺遵守黨的紀(jì)律，帶頭遵守國家法律法規(guī)及學(xué)校各項(xiàng)規(guī)章制度，堅(jiān)持原則，弘揚(yáng)正氣，敢于同不良風(fēng)氣、違紀(jì)違法行為作斗爭(zhēng)。三、方法步驟按照上級(jí)組織要求，創(chuàng)先爭(zhēng)優(yōu)活動(dòng)通過公開承諾、領(lǐng)導(dǎo)點(diǎn)評(píng)、群眾評(píng)議、評(píng)選表彰的方式，圍繞迎接建黨90周年、向黨的十八大獻(xiàn)禮兩個(gè)重大節(jié)點(diǎn)推進(jìn)展開。整個(gè)活動(dòng)分四個(gè)步驟進(jìn)行。主要抓好四項(xiàng)工作：動(dòng)員部署。制定方案。學(xué)院黨委、黨支部的活動(dòng)方案和黨員個(gè)人的具體打算要采取會(huì)議、網(wǎng)絡(luò)、活動(dòng)專欄等方式向群眾公布，重點(diǎn)做出承2諾，接受群眾監(jiān)督。各黨支部組織黨員認(rèn)真學(xué)習(xí)胡錦濤總書記在全黨深入學(xué)習(xí)實(shí)踐科學(xué)發(fā)展觀活動(dòng)總結(jié)大會(huì)上的重要講話及學(xué)校相關(guān)文件精神，統(tǒng)一思想認(rèn)識(shí)，積極投入到創(chuàng)先爭(zhēng)優(yōu)活動(dòng)中來。各黨支部在2010年春季學(xué)期結(jié)束前，集中一周時(shí)間，組織黨員進(jìn)行一次黨性分析，在職黨員應(yīng)撰寫黨性分析報(bào)告，并組織群眾對(duì)黨員進(jìn)行評(píng)議。學(xué)院黨委、黨支部和黨員根據(jù)實(shí)施方案和個(gè)人具體打算，緊密結(jié)合實(shí)際工作，認(rèn)真扎實(shí)、機(jī)動(dòng)靈活地開展創(chuàng)先爭(zhēng)優(yōu)活動(dòng)。在教師節(jié)前后，對(duì)教職工黨員普遍進(jìn)行師德師風(fēng)教育，對(duì)學(xué)生黨員進(jìn)行優(yōu)良校風(fēng)學(xué)風(fēng)教育，促使一批優(yōu)秀共產(chǎn)黨員成為“三育人”標(biāo)兵、師德標(biāo)兵或?qū)W生標(biāo)兵。從新學(xué)期開學(xué)開始，配合學(xué)校開展“211”建設(shè)先鋒、新海大創(chuàng)建標(biāo)兵、海大之星等推選評(píng)比活動(dòng)。各黨支部組織黨員走向基層、走向社會(huì)，開展志愿服務(wù)、結(jié)對(duì)幫扶、走訪慰問等活動(dòng)；合理利用寒暑假時(shí)間，搞好調(diào)查研究和社會(huì)服務(wù)，使黨員在聯(lián)系基層、奉獻(xiàn)社會(huì)的過程中增強(qiáng)責(zé)任感、使命感。通過設(shè)置黨員先鋒崗、示范崗或掛牌上崗等形式，樹立黨員形象，促使黨員發(fā)揮骨干、先鋒模范作用。優(yōu)化組織設(shè)置，創(chuàng)新組織形式和活動(dòng)方式，加強(qiáng)黨組織班子、制度建設(shè)，強(qiáng)化組織功能，推動(dòng)創(chuàng)新發(fā)展，真正發(fā)揮學(xué)院黨組織的政治保證、戰(zhàn)斗堡壘作用，努力提高學(xué)院黨組織建設(shè)的科學(xué)化水平。(三)典型帶動(dòng)、全面提升階段(2011年9月—2012年6月底)。主要抓好三項(xiàng)工作：樹立先進(jìn)典型。開展向先進(jìn)典型學(xué)習(xí)活動(dòng)。實(shí)施全面提升工程。2012年“七一”前，學(xué)校將根據(jù)上級(jí)組織部署，推薦表彰“2010—2012年創(chuàng)先爭(zhēng)優(yōu)活動(dòng)”先進(jìn)基層黨組織、優(yōu)秀共產(chǎn)黨員、優(yōu)秀黨務(wù)工作者。圍繞向黨的十八大獻(xiàn)禮，這一階段重點(diǎn)抓好四項(xiàng)工作：展示成果。搞好總結(jié)?？己嗽u(píng)議。完善機(jī)制。四、組織領(lǐng)導(dǎo)學(xué)院成立創(chuàng)先爭(zhēng)優(yōu)活動(dòng)領(lǐng)導(dǎo)小組，在校黨委指導(dǎo)、院黨委領(lǐng)導(dǎo)下開展具體工作。領(lǐng)導(dǎo)小組成員包括：組長(zhǎng)：沈秀清；副組長(zhǎng)：崔昌華；成員：全體黨委委員、綜合辦主任、各黨支部書記。各黨支部要組織好各項(xiàng)具體工作，結(jié)合實(shí)際，力求實(shí)效，以創(chuàng)先爭(zhēng)優(yōu)活動(dòng)的成果推進(jìn)學(xué)院黨的建設(shè)和各項(xiàng)工作，促進(jìn)學(xué)院又好又快發(fā)展。保存讀者借書證號(hào) Public bno As String39。保存讀者姓名 Public dw As String39?！?+ rno + ”39。說明:為什么使用recs,?在調(diào)用edbook1窗體添加一個(gè)記錄(確定)后,再39。仍未增1,這樣調(diào)用enm過程時(shí)出錯(cuò)。,調(diào)用enm過程時(shí)也正確,但返回本窗體時(shí),當(dāng)前行總是第一行,顯然也不行，39。添加操作If 0 Then 39?！?+ Trim(Text1(0).Text)+ ”39。每次從頭開始查找(cond)If Not ()ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“Text1(0).SetFocusExit SubEnd IfEnd If(”級(jí)別“)= Trim(Text1(0).Text)(”過期罰款“)= Val(Trim(Text1(1).Text))(”借書總數(shù)“)= Val(Trim(Text1(2).Text))(”借書天數(shù)“)= Val(Trim(Text1(3).Text))recs = recs + 1Else39。“ + Trim(Text1(0).Text)+ ”39。每次從頭開始查找(cond)If Not ()And n ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“39。添加操作If 0 Then 39?！?+ Trim()+ ”39。每次從頭開始查找(cond)If Not ()ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“Exit SubEnd IfEnd If(”fn“)= Trim()recs = recs + 1Else39?！?+ Trim()+ ”39。每次從頭開始查找(cond)If Not ()And n ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“39。“ amp。 ”39。 ” And 口令 = 39。 Trim$(Text1(1).Text)+ ”39。未找到用戶記錄n = n + 1If n 3 ThenMsgBox ”沒有這個(gè)用戶,繼續(xù)登錄“, vbOKOnly + vbExclamation, ”信息提示“Text1(0).Text = ”“Text1(1).Text = ”“Text1(0).SetFocusElseMsgBox ”已登錄失敗三次,退出系統(tǒng)“, vbOKOnly + vbExclamation, ”信息提示“Unload MeEnd IfElse39。調(diào)用menu窗體End If End SubPrivate Sub Command2_Click()Unload Me End SubPrivate Sub Form_Load()n = 039。“ + no + ”39。設(shè)置條件確定Dim str As Stringstr = ”“39?！?+ Trim(Text1(0).Text)+ ”39?！?+ Trim(Text1(0).Text)+ ”39?！?+ Trim(Text1(1).Text)+ ”39。“ + Trim(Text1(1).Text)+ ”39?！?+ Trim(Text1(2).Text)+ ”39?！?+ Trim(Text1(2).Text)+ ”39?！?+ Trim(Text1(3).Text)+ ”39?！?+ Trim(Text1(3).Text)+ ”39。“ + Trim(Text1(4).Text)+ ”39?！?+ Trim(Text1(4).Text)+ ”39。設(shè)置條件重置Text1(0).Text = ”“Text1(1).Text = ”“Text1(2).Text = ”“Text1(3).Text = ”“Text1(4).Text = ”“Text1(5).Text = ”“ End SubPrivate Sub enm()39?！?+ no + ”39。 Trim((”書名“))amp。 Format((”借書日期“), ”“)amp。設(shè)置條件確定Dim str As Stringstr = ”“39?！?+ Trim(Text1(0).Text)+ ”39?！?+ Trim(Text1(0).Text)+ ”39。“ + Trim(Text1(1).Text)+ ”39?！?+ Trim(Text1(1).Text)+ ”39?！?+ Trim(Text1(2).Text)+ ”39。“ + Trim(Text1(2).Text)+ ”39?！?+ Trim(Text1(3).Text)+ ”39?！?+ Trim(Text1(3).Text)+ ”39?！?+ Trim(Text1(4).Text)+ ”39?！?+ Trim(Text1(4).Text)+ ”39。設(shè)置條件重置Text1(0).Text = ”“Text1(1).Text = ”“Text1(2).Text = ”“Text1(3).Text = ”“Text1(4).Text = ”“ End SubPrivate Sub enm()39?！?+ bno + ”39。另一讀者還書,自動(dòng)列出上一個(gè)還書人的罰款單dstr = ”罰款單“ + Chr(10)+ Chr(13)dstr = dstr amp。 Trim(Text2(1).Text)+ ”(“ + rno + ”)罰款總額:“ amp。 ”元“MsgBox dstr, vbOKOnly, ”列罰款單“End Ifrno = Trim((”借書證號(hào)“))sqltxt = ”select * from book where 圖書編號(hào)=39?！?39?！?+ rno + ”39。處理讀者記錄Set rs = exesql(sqltxt)(”已借書數(shù)“)= (”已借書數(shù)“)(”已借書數(shù)“)If((”借書日期“)1If((”借書日期“)1Call enmEnd If End SubPrivate Sub Comm4_Click()Unload Me End SubPrivate Sub enm()If recs = 0 Then = False = FalseElse = True = TrueEnd If End SubSetuser1：Dim cond As StringPrivate Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenSendKeys ”{TAB}“End If End SubPrivate Sub Form_Load()If flag = 2 ThenText1(0).Text = (”用戶名“)Text1(1).Text = (”口令“) = (”級(jí)別“)End If End SubPrivate Sub Comm1_Click()If Trim(Text1(0).Text)= ”“ Or Trim(Text1(1).Text)= ”“ Or Trim()= ”“ ThenMsgBox ”數(shù)據(jù)項(xiàng)不全,請(qǐng)重新設(shè)置“, vbOKOnly, ”信息提示“Text1(0).SetFocusExit SubEnd IfIf flag = 1 Then 39。原記錄個(gè)數(shù)大于0cond = ”級(jí)別=39?！?9。修改操作n = cond = ”級(jí)別=39?！?39。這兩個(gè)語句恢復(fù)原記錄位置(n1)(”用戶名“)= Trim(Text1(0).Text)(”口令“)= Val(Trim(Text1(1).Text))(”級(jí)別“)= Trim()End IfUnload Me End SubPrivate Sub Comm2_Click()Unload Me End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Call endata(KeyAscii)End Sub模塊：Public userlevel As String 39。用作記錄操作標(biāo)記Public tna As String39。保存標(biāo)題名:用于調(diào)用edrec1窗體 Public recs As Integer39。UID=sa?！癝et = conn = adLockOptimistic = adOpenKeyset sqlSet exesql = rstSet rst = NothingSet conn = Nothing End FunctionPublic Sub deldata(ByVal tn As String)刪除指定表中所有記錄,對(duì)于oper表添加一個(gè)系統(tǒng)用戶Dim sql As Stringsql = ”delete “ amp。UID=sa。“ sqlIf Trim(tn)= ”oper“ Thensql = ”insert oper values(39。,39。,39。)“ sqlEnd If End Sub Public Sub endata(Keyasc As Integer)If Keyasc = 13 ThenSendKeys ”{TAB} 39。//桌面窗體} public static void main(String[] args)//入口方法{try{(())。//登錄窗口}catch(Exception ex){()。//新增子窗體} public Main(){super()。//創(chuàng)建工具欄Toolkit tool=Toolkit,getDefaultToolkit()。setSize(800,600)。//設(shè)置窗體位置setTitle(“圖書管理系統(tǒng)”)；//設(shè)置窗體標(biāo)題JMenuBar menuBar=createMenu()。//設(shè)置菜單欄JToolBar toolBar=createToolBar()。//設(shè)置工具欄final JLable lable=new JLable()。//設(shè)置窗體的大小和位置(null)。//獲得組建大小(().getSize())。//設(shè)置標(biāo)簽文本，設(shè)置窗口背景}}//將標(biāo)簽添加到桌面窗體(lable,new Integer())。//將桌面窗體添加到主窗體中} } private JToolBar createToolBar()//創(chuàng)建工具欄的方法 { JToolBar toolBar=new JToolBar()。//設(shè)置是否可以移動(dòng)工具欄(new Bevel