畢業(yè)設(shè)計(jì)（論文）-圖書信息管理系統(tǒng)

統(tǒng)計(jì)備份和還原 1 3第一節(jié)項(xiàng)目提出的意義 3第二節(jié)開發(fā)目的 3第三節(jié)應(yīng)用目標(biāo) 3第四節(jié)系統(tǒng)特點(diǎn) 4第五節(jié)軟件配置 4 4 4三、開發(fā)工具介紹 5四、項(xiàng)目后期計(jì)劃 6第二章可行性分析和需求分析 7 7一、經(jīng)濟(jì)可行性 7二、技術(shù)可行性 8三、社會(huì)可行性 9四、法律可行性 9五、管理可行性 9第二節(jié)需求分析 一、理解需求 三、數(shù)據(jù)流圖 第一節(jié)系統(tǒng)模塊劃分 二、數(shù)據(jù)庫(kù)需求 三、E-R圖分析 四、數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 第三節(jié)系統(tǒng)流程分析 第二節(jié)登錄界面 第三節(jié)借書系統(tǒng) 第四節(jié)還書系統(tǒng) 第五章系統(tǒng)的測(cè)試 第二節(jié)測(cè)試的實(shí)施 1如果企業(yè)使用傳統(tǒng)人工的方式管理企業(yè)物品往業(yè)，這種管理方式存在著許多缺23第一章開發(fā)背景第一節(jié)項(xiàng)目提出的意義第二節(jié)開發(fā)目的第三節(jié)應(yīng)用目標(biāo)4第四節(jié)系統(tǒng)特點(diǎn)本系統(tǒng)具有以下特點(diǎn)：①功能全面，操作簡(jiǎn)單，功能得到拓展。能夠?qū)D書館各方面的信息(包括員工、教師學(xué)生信息、圖書信息、圖書訂單和供貨商信息等)有機(jī)結(jié)合起來。②界面友好，使用簡(jiǎn)單方便，因?yàn)橛脩粢话愣疾皇怯?jì)算機(jī)專業(yè)人員，系統(tǒng)的設(shè)計(jì)首先要能使用戶能夠容易地掌握該系統(tǒng)，且能很方便的使用該系統(tǒng)，從而進(jìn)行更加便利的管理。③本系統(tǒng)是一個(gè)基于C/S技術(shù)的系統(tǒng)，實(shí)現(xiàn)了數(shù)據(jù)的集中管理，提供最大程度上的數(shù)據(jù)共享，在保障了數(shù)據(jù)的一致性的同時(shí)，降低系統(tǒng)的維護(hù)工作量。④在數(shù)據(jù)庫(kù)操作技術(shù)上以ADO.NET數(shù)據(jù)庫(kù)訪問技術(shù)和SQL語(yǔ)言為主。第五節(jié)軟件配置軟件配置主要包括數(shù)據(jù)庫(kù)選擇、操作系統(tǒng)的選擇、開發(fā)工具的選擇。圖書管理系統(tǒng)的軟件配置要根據(jù)用戶對(duì)系統(tǒng)的穩(wěn)定性要求、系統(tǒng)的容量以及用戶的維護(hù)水平來確定。用戶習(xí)慣使用微軟的Windows操作系統(tǒng)對(duì)Windows系統(tǒng)的操作比較熟悉，管理員維護(hù)Windows操作系統(tǒng)水平較好，因此推薦選擇WindowsXP作為開發(fā)和測(cè)試平臺(tái)，后期的運(yùn)行環(huán)境也推薦選擇WindowsXP系統(tǒng)。國(guó)際國(guó)內(nèi)的主導(dǎo)關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)有SQLServer、ORACLE、SYBASE、ACCESS和DB2。SQLServer是大中型數(shù)據(jù)庫(kù)，可以適合大容量數(shù)據(jù)的應(yīng)用。SQLServer具有功能強(qiáng)大，操作簡(jiǎn)單，易于維護(hù)等諸多優(yōu)點(diǎn)，是每個(gè)企業(yè)開發(fā)系統(tǒng)的優(yōu)先選擇對(duì)象，而其提供的友好界面，能使普通的管理人員快速入手，所以我選擇了SQLServer2005作為系統(tǒng)的數(shù)據(jù)庫(kù)。5SQLServer2005還為您的數(shù)據(jù)管理與分析帶來了靈活性，允許單位在快速變化的環(huán)境中從容響應(yīng)，從而獲得競(jìng)爭(zhēng)優(yōu)的記錄保持者，SQLServer2005是一個(gè)具備完全Web支持的數(shù)據(jù)庫(kù)產(chǎn)品，提供了對(duì)可擴(kuò)展標(biāo)記語(yǔ)言(XML)的核心支持以及在Internet上和防火墻外進(jìn)本系統(tǒng)所使用的開發(fā)工具是VisualBasic2008。VisualBasic2008是MicrosoftVisualStudi個(gè)開發(fā)系統(tǒng)。是一個(gè)用于快速開發(fā)基于Windows的客戶機(jī)/服務(wù)器應(yīng)用程序的高效工具，與以前各版本相比VisualBasic2008具有以下新特點(diǎn)：①提供了高效能的源碼編譯器，使應(yīng)用程序得到優(yōu)化；②提供了新的比其他數(shù)據(jù)訪問接口更加方便，更加全面的數(shù)據(jù)訪問接口——ADO(ActiveXDataobject),能訪問除了標(biāo)準(zhǔn)的關(guān)系型數(shù)據(jù)庫(kù)(如AccessFoxproSQLserver等)中的數(shù)據(jù)庫(kù)外，還能訪問郵件數(shù)據(jù)，Web上的文本或圖③提供了動(dòng)態(tài)的HTML頁(yè)面設(shè)計(jì)器；④提供了WEBCAASS設(shè)計(jì)器；⑤提供了高效的幫助環(huán)境；②面向?qū)ο蟮某绦蛟O(shè)計(jì)；③事件驅(qū)動(dòng)的編程機(jī)制；⑤支持大型數(shù)據(jù)庫(kù)的連接與存取操作。6發(fā)，鑒于VisualBasic有如此強(qiáng)大的功能，我選用MicrosoftVisualBasic2008本管理系統(tǒng)是一款圖書館管理系統(tǒng)，所涉及的功能為圖書館相關(guān)的一切事錄(方便記憶)和特色的即時(shí)即用圖書館管理系統(tǒng)聊天功能(實(shí)現(xiàn)互動(dòng)交流);理方面更加的安全可靠。系統(tǒng)的角色(身份)分為兩種：超級(jí)管理員與系統(tǒng)管理7第二章可行性分析和需求分析(1)基本建設(shè)投資(2)其他一次性支出(3)非一次性支出年。也就是說，開發(fā)本系統(tǒng)能開始獲益是1年左右的時(shí)間。8在學(xué)校課程中，我已基本掌握了結(jié)構(gòu)化查詢語(yǔ)言SQL,并能熟練使9在開發(fā)一個(gè)軟件之前一定要確定它是否觸犯某項(xiàng)法律或與國(guó)家的相關(guān)規(guī)定次性最多能借3本書，期限也為30天。如果兩者的同時(shí)擁有書的數(shù)量已經(jīng)達(dá)到?jīng)]有超過圖書過期時(shí)間，則信譽(yù)度相應(yīng)的加1,如果還書者的借書時(shí)間超過圖書過期時(shí)間，則信譽(yù)度相應(yīng)的減5,當(dāng)信譽(yù)度的等級(jí)到0時(shí)，對(duì)于該借書者不能在從根本上說，管理就是一個(gè)更好的利用資源(人、財(cái)、物、時(shí)間),為企業(yè)等),充分了解原系統(tǒng)(手工系統(tǒng)或計(jì)算機(jī)系統(tǒng))工作概況，明確各種需求，然供貨商信息管定單驗(yàn)收在學(xué)生信息錄入之前應(yīng)先設(shè)置好學(xué)生的種類以及一些相關(guān)信息然后進(jìn)行學(xué)生信息的錄入，學(xué)生信息保存在“xueshengbiao”表中，進(jìn)行學(xué)生信息的管理；另外一個(gè)需要數(shù)據(jù)輸入的地方為供貨商的錄入，供貨商信息保存在“ghs”表中，根據(jù)供貨商的信息進(jìn)行供貨商的管理。根據(jù)以上這些信息進(jìn)行圖書采購(gòu)的定單的填寫，圖書采購(gòu)定單保存在最后根據(jù)入庫(kù)圖書的類別設(shè)置進(jìn)行圖書信息管理，書庫(kù)信息保存在“shukubiao”中。第三章系統(tǒng)設(shè)計(jì)為兩類查詢：全部圖書信息查詢和已借圖書查詢(關(guān)鍵字是是否在庫(kù))。當(dāng)圖書員)之間的簡(jiǎn)單聊天交流。供貨商管圖3-2供貨商管理模塊的子功能如圖3-3所示：供貨商管理首首次合作基礎(chǔ)數(shù)據(jù)模塊主要功能有庫(kù)存商品和往來單位，如圖3-5所示：基本信息鎖機(jī)圖3-7第二節(jié)數(shù)據(jù)庫(kù)設(shè)計(jì)根據(jù)上面的實(shí)力設(shè)計(jì)規(guī)劃出的實(shí)體有：圖書信息實(shí)體、學(xué)生信息實(shí)體、借閱圖書介紹姓名Jy(借閱信息)聯(lián)系人供貨商序號(hào)聯(lián)系人Orders(定單信定單序號(hào)H定單序號(hào)姓名姓名借書Ghs(供貨商信息表2-4-1:shukubiao書庫(kù)圖書信息表列名數(shù)據(jù)類型說明圖書序號(hào)圖書的編號(hào)，唯一書號(hào)圖書書號(hào)書名書名類別圖書類別出版社出版社作者作者圖書ISBN號(hào)印張圖書印張字?jǐn)?shù)字?jǐn)?shù)版次圖書版次印數(shù)印數(shù)定價(jià)圖書定價(jià)開本開本是否在庫(kù)是否在書庫(kù)中的標(biāo)志是否損壞是否損壞的標(biāo)志是否遺失是否遺失的標(biāo)志入庫(kù)時(shí)間圖書入庫(kù)的日期圖書介紹圖書的簡(jiǎn)單介紹表2-4-2:xueshengbiao書庫(kù)圖書信息表列名數(shù)據(jù)類型說明學(xué)生序號(hào)學(xué)生的編號(hào)，唯一學(xué)號(hào)學(xué)號(hào)，不唯一姓名學(xué)生姓名性別性別系別學(xué)生系別班級(jí)學(xué)生所在班級(jí)級(jí)別學(xué)生的級(jí)別，表示借書的能力已借圖書已經(jīng)借過圖書多少本照片存放學(xué)生照片的路徑表2-4-3:jh借閱信息表列名數(shù)據(jù)類型說明圖書序號(hào)圖書序號(hào)學(xué)生序號(hào)學(xué)生序號(hào)書名書名姓名學(xué)生姓名學(xué)號(hào)學(xué)號(hào)書號(hào)書號(hào)系別學(xué)生系別班級(jí)學(xué)生班級(jí)已借圖書學(xué)生已經(jīng)借閱的圖書數(shù)量出版社出版社作者圖書作者借閱日期借閱日期圖書類別圖書類別是否歸還該書是否歸還續(xù)借該書是否續(xù)借過表2-4-4ghs供貨商信息表列名數(shù)據(jù)類型說明供貨商序號(hào)供貨商序號(hào)供貨商供貨商城市城市地址地址電話電話傳真?zhèn)髡驵]政編碼郵政編碼聯(lián)系人聯(lián)系人首次合作時(shí)間首次合作時(shí)間表2-4-5orders定單信息表列名數(shù)據(jù)類型說明定單序號(hào)定單序號(hào)書名書名類別類別出版社出版社作者作者印張印張字?jǐn)?shù)字?jǐn)?shù)版次版次開本開本印數(shù)印數(shù)定價(jià)定價(jià)詳細(xì)信息詳細(xì)信息供貨商序號(hào)供貨商序號(hào)供貨商供貨商聯(lián)系人聯(lián)系人城市供貨商城市訂購(gòu)數(shù)量訂購(gòu)數(shù)量訂購(gòu)價(jià)格訂購(gòu)價(jià)格交付方式交付方式交貨日期定單驗(yàn)收的日期書號(hào)書號(hào)定單日期定單填寫的日期是否驗(yàn)收定單驗(yàn)收的標(biāo)志驗(yàn)收日期定單驗(yàn)收日期表2-4-6gqs過期書信息表列名數(shù)據(jù)類型說明圖書序號(hào)圖書序號(hào)書名書名書號(hào)書號(hào)學(xué)生序號(hào)學(xué)生序號(hào)學(xué)生姓名學(xué)生姓名系別系別班級(jí)班級(jí)過期時(shí)間過期的天數(shù)表2-4-7password]員工信息表列名數(shù)據(jù)類型說明姓名員工姓名員工序號(hào)員工序號(hào)密碼密碼類別員工權(quán)限級(jí)別性別性別家庭住址家庭住址聯(lián)系電話聯(lián)系電話職務(wù)職務(wù)出生日期出生日期照片存放員工照片的路徑表2-4-8jhfk罰款信息表列名數(shù)據(jù)類型說明流水號(hào)流水號(hào)罰款原因罰款原因罰款金額罰款金額日期日期登錄否成功?足選降操作類型得到返回結(jié)果否是結(jié)束訂單昏理因書昏理供費(fèi)商旨理油助功能用戶名埋基礎(chǔ)勢(shì)作第四章系統(tǒng)實(shí)現(xiàn)第一節(jié)主窗體主窗體是本圖書管理系統(tǒng)的核心所在，它上面是所有功能模塊信息的匯總。信息統(tǒng)計(jì)、快速鎖機(jī)?？旖輽诜譃椋合到y(tǒng)快捷欄、信息拓展欄。公告欄：游動(dòng)顯示你當(dāng)前添加的備忘信息。系統(tǒng)主界面如圖4-1所示：系統(tǒng)(S)查詢S)管理G)統(tǒng)計(jì)T)數(shù)據(jù)Q)幫助HD圖書信息查間序號(hào)問題E總第二節(jié)登錄界面管理系統(tǒng)。登錄界面實(shí)現(xiàn)的功能有：驗(yàn)證用戶名和密碼是否正確、游動(dòng)顯示信息“請(qǐng)您先登錄本系統(tǒng)”、記住登錄成功后的用戶名(可以對(duì)已經(jīng)登錄成功的用登錄窗體效果如下圖4-2所示：圖書館圖書館營(yíng)理系統(tǒng)登錄：圖4-2登錄窗口如果輸入的用戶名或密碼錯(cuò)誤，則出提示錯(cuò)誤信息，如圖4-3所示：用戶名：yy圖4-3登錄窗口(用戶名或密碼錯(cuò)誤)圖書信息收索、圖書冊(cè)數(shù)統(tǒng)計(jì)、圖書信息填充(包含是否在庫(kù)、是否損壞、是否遺失、到期時(shí)間)、圖書借閱、續(xù)借圖書等。借書系統(tǒng)效果如下圖4-4所示：書院已借圖書書號(hào)搜卡請(qǐng)您錄入要借的圖書書號(hào)在庫(kù)；造失羊羊大蒜素圖書類別科技類數(shù)學(xué)類學(xué)(工)號(hào)：出版社力量同方書名美女與時(shí)代查若日歷措書機(jī)器熱S圖4-4借書系統(tǒng)書書中類別作小構(gòu)期機(jī)器熱街選擇圖書是計(jì)期料核類數(shù)學(xué)西西建先方森圖4-5還書系統(tǒng)生信息查詢；如圖4-6,4-7,4-8所示：書號(hào)名稱出板壯書號(hào)書名圖書類別出版壯作者ISDN印張同方羊半制作小問期斷華維克電子類強(qiáng)強(qiáng)合心2同方中號(hào)鏑公最入要置的能書號(hào)說m圖4-6圖書信息查詢教職工信良查詢已借圖書已借圖書已僧圖書；姓名生別務(wù)出生日期家庭佳址信用等級(jí)教職王照片序號(hào)工工號(hào)姓名帳號(hào)性別職務(wù)出生日期圖4-7教職工信息查詢聯(lián)資就近回)關(guān)閉心學(xué)生信性別圖4-8學(xué)生信息查詢加；如圖4-9,4-10,4-11所示：類別9版型定價(jià)8其要書介紹(100寧以內(nèi)出版社圖4-9圖書信息添加請(qǐng)?jiān)谙旅鎸?dǎo)入完善的員工信息基主言層一密碼職務(wù)創(chuàng)建時(shí)間交取當(dāng)前g加6關(guān)陽(yáng)的圖4-10員工信息添加士營(yíng)點(diǎn)一類別字?jǐn)?shù)圖4-11訂單信息添加除；如圖4-12,4-13,4-14所示：中度2就血1謂2輸入善查出nmt的號(hào)圖4-12圖書信息刪除B來疏官理乃圖4-13員工信息刪除原訂單行嗎價(jià)格收?qǐng)D十5名稱圖十5名稱序號(hào)輸入要查找的訂單序號(hào)圖4-14訂單信息刪除改；如圖4-15所示：19喜請(qǐng)?bào)w入省Tnai書書圖4-15圖書信息修改圖書信息的統(tǒng)計(jì)；幫助系統(tǒng)的實(shí)現(xiàn)，如圖4-16所示：圖書類別分類統(tǒng)計(jì)式餅形圖數(shù)學(xué)類文學(xué)類2圖4-16圖書統(tǒng)計(jì)A、備忘錄效果圖(4-17):備它備它dd清主(@關(guān)田標(biāo)題(20字以內(nèi))內(nèi)容(200字以內(nèi))圖4-17備忘錄實(shí)現(xiàn)功能就是不同用戶之間的信息交流，效果圖(4-18)圖4-18聊天窗口紹。在這里簡(jiǎn)單列出，如圖(4-19)群罐面鎖機(jī)密碼修改界面確認(rèn)密碼第五章系統(tǒng)的測(cè)試第一節(jié)測(cè)試的基本層次步驟地繼續(xù)。每個(gè)系統(tǒng)又由許多模塊組成。因此，系統(tǒng)的測(cè)試的基本層次如圖5-1所示。概要設(shè)計(jì)詳細(xì)設(shè)計(jì)圖5-1測(cè)試的基本層次②借還圖書③書庫(kù)維護(hù)④圖書采購(gòu)⑤學(xué)生及供貨商管理①登陸功能測(cè)試測(cè)試數(shù)據(jù)：輸入用戶名(系統(tǒng)管理員、超級(jí)管理員),輸入密碼符合要求，能夠完成學(xué)校(企業(yè))對(duì)相關(guān)信息的增、刪、改、查，同時(shí)也能保證附錄源代碼置True,彈起為FalseAsSystem.Windows.Forms.MouseEventArgs)HandlesContrlBar.MousEndIfPrivateSubContrlBar_MouseUp(ByVSystem.Windows.Forms.MouseEventArgs)HandlesContrlBa有拖動(dòng)System.EventArgs)HandlesMe.Shown'Labeljishu.Visible=Falseid=sa;password=;initialsource=(local)”sqlcmdYidenglu.CommandText="select*frommydaptYidenglu.SelectCommandmydaptYidenglu.Fill(mydsYidenglu,"TABIfmydsYidenglu.Tables("TABLEyidenglu").Rows.Count=0ThenComboBoxAccountID.Items.Add(”<空>")ComboBoxAccountID.Items.Add(mydsYidenglu.TabNextComboBoxAccountID.Items.Add("<清空用戶名列EndIfAsSystem.EventArgs)HandlesButtonCancle.ClickIfMsgBox(”-您確定要退出使用本系統(tǒng)?"&vbCrLf&"-歡迎再次使用!",MsgBoxStyle.OkCancel,"退出信息")=MsgBoxResult.0kThenEndIfPrivateSubButtoSystem.EventArgs)HandlesButton0K.ClicksqlconLianjie.ConnectionString="userid=sa;password=;initsource=(local)”sqlcmdLianjie.CommanwhereAccountID='"&ComboBoxAccountID.Text&"’andPassword='"&TextBoxPassword.Text&””sqlcmdLianjie.ConnectiomydaptLianjie.SelectCommand=sqlcmdLianjiemydaptLianjie.Fill(mydsLianjie,"TasqlcmdJiance.CommandText="select*fromTAwhereAccountID='”&ComboBoxAccountID.Text&””mydaptJiance.SelectmydaptJiance.Fill(mydsJiance,"TAIfComboBoxAccountID.Text=""ThenMsgBox("-用戶名不能為空"&vbCrLf&"-請(qǐng)您輸入正確的用ElseIfTextBoxPassword.Text=””ThenMsgBox(”-密碼不能為空"&vbCrLf&"-請(qǐng)您輸入正確的密碼!",MsgBoxStyle.OkOnly,"信息")ElseIfmydsLianjie.Tables("TableInformation").Rows.Count='Iftrycount=3ThenMsgBox(“-您的累計(jì)錯(cuò)誤登錄次數(shù)達(dá)到3次”&vbCrLf&"-系統(tǒng)將自動(dòng)關(guān)閉!",MsgBoxStyle.OkOnly,"信息")'EndIfIfMsgBox("-用戶名或密碼不存在入!",MsgBoxStyle.OkOnly,"錯(cuò)誤")=MsgBoxResult.OkThenComboBoxAccountID.Text=””EndIfMessageBoxButtons.OK,MessageBEndIfElseIfmydsJiance.Tables("TABLEyidenglu").Rows.Count=0IfMsgBox("登錄成功，歡迎使用!",MsgBoxStyle.OkOnly,"信息")=MsgBoxResult.OkThenmydsLianjie.Tables("TableInformation"sqlcmdXieru.CommandTextmydsLianjie.Tables("TableInformation").Rows(0)(1)&“)”sqlcmdXieru.Connection=sqlconLianjiesqlcmdXieru.ExecuteNonQuery()’該情況為滿足正確名(防止重復(fù)添加)ComboBoxAccountID.TeEndIfIfMsgBox("登錄成功，歡迎使用!",MsgBoxStyle.OkOnly,”信息")=MsgBoxResult.0kThenmydsLianjie.Tables("TableInformation"FMain.ToolStripLabeshenfen.Text=mydsLianjie.Tables("TableInformation"FMain.ToolStripLabelmingzi.Text=mydsLianjie.Tables("TableInformation"EndIfEndIfIfComboBoxAccountID.Text="<清空用戶名列表>”Then’當(dāng)選擇(清空用戶名列表)時(shí)，所執(zhí)行的操作。IfMsgBox("你確定要清空用戶名信息嗎?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.0kThensqlcmdqk.CommandText="deletefromTABLEyidenglu"TABLEyidenglu”’重新加載已經(jīng)登錄成功的用戶名(此時(shí)已經(jīng)為空)。mydaptJiazai.SelectCommand=sqlcmydaptJiazai.Fill(mydsJiazai,"TAIfmydsJiazai.Tables("TABLEyidenglu").Rows.Count=ComboBoxAccountID.Items.Add(”<空>mydsJiazai.Tables("TABLEyidenComboBoxAccountID.Items.Add(mydsJiazai.TablNextComboBoxAccountID.Items.Add("<清空用戶名列表>")EndIfmydaptJiazai.SelectCommand=sqlcmydaptJiazai.Fill(mydsJiazai,"TAIfmydsJiazai.Tables("TABLEyidenglu").Rows.Count=ComboBoxAccountID.Items.Add("<空>")’如果數(shù)據(jù)庫(kù)中沒有記錄，列表值為(空)mydsJiazai.Tables("TABLEyidenglu").Rows.CountComboBoxAccountID.Items.Add(mydsJiazai.Table’列表值中添加用戶名NextComboBoxAccountID.Items.Add("<清空用戶名列表>")EndIfEndIfEndIfIfLabelmessage.Left+Labelmessage.Width>0ThenLabelmessage.Left=PictureBox1.WidthEndIf’判斷條件，設(shè)置動(dòng)態(tài)文本：請(qǐng)您先登錄本系統(tǒng)System.EventArgs)HandlLabeljishu.Text=“10”IfLabeljishu.Text>=0ThenIfLabeljishu.Text=0ThenIfMsgBox("謝謝使用本系統(tǒng)!",MsgBoxStyle.OkOnly,"信息")=MsgBoxResult.OkThenEndIfEndIfEndIfsqlconys.ConnectionString="userid=sa;password=;initialcatalog=EmployeesInformation;datasource=(local)”mydaptys.Fill(mydsyIfComboBoxAccountID.Text="superadministrator"AndMsgBox(”登錄成功，歡迎使用!”,MsgBoxStyle.OkOnly,”信息")FMain.ToolStripLabeshenfen.Text="超級(jí)管理員"mydsys.Tables("ID").RowEndIf主窗體ImportsSystem.DataPrivateSubFormMain_FormClosing(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.FormClosingEventArgs)HandlesMe.FormClosingIfguanbi=TrueThenEndIfSystem.EventArgs)HandlesMe.WindowState=FormWindowState.MaximizedTimerjcbw.EnabledIfMe.WindowState=FormWindowState.MaximizedThen’設(shè)置窗體控件位置和大小GroupBoxliaotian.LeftGroupBoxliaotian.TopTextBoxfasong.LeftButtonfasong.LeftButtonfasong.Height=23TreeViewAll.HeightElseIfMe.WindowState=FormWindowState.NormalThenGroupBoxliaotian.LeGroupBoxliaotian.Top=300GroupBoxliaotian.Width=Me.Width-197TextBoxjieshou.HeightTextBoxjieshou.Width=MTextBoxfasong.Height=21TextBoxfasong.Width=Me.Width-350Buttonfasong.Top=350PictureBoxbw.Top=49GroupBoxliaotian.LeTextBoxjieshou.HeightTextBoxfasong.Width=Me.Width-350Buttonfasong.Top=350PictureBoxbw.Top=49TreeViewAll.Height=Me.Height-86EndIfvbCrLf&""'TextBoxfasong.Text="請(qǐng)輸入150字以內(nèi)的聊天內(nèi)容”PrivateSub注銷ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles注銷System.Object,ByValeAsSystem.EventArgs)Handles退出PrivateSub設(shè)置密碼ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesDimmydsszAsNewDataSetsqlconsz.ConnectionString="usercatalog=EmployeesInformation;datasource=(local)”sqlcmdsz.CommandTextAccountID='”&LabelAccountID.Text&”’”sqlcmdsz.Connection=sqlconszmydaptsz.SelectCommand=sqlcmdszmydaptsz.Fill(mydssz,"TableIn’加載當(dāng)前用戶下的所有信息Ifmydssz.Tables("TableInformation").Rows(0)(11).ToString=""Then’判斷當(dāng)前用戶下是否設(shè)置了鎖機(jī)密碼IfMsgBox("-您還沒有設(shè)置鎖機(jī)密碼”&vbCrLf&"-請(qǐng)您現(xiàn)在設(shè)置",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThenLockFormSet.ShowDialog()’鎖機(jī)密碼設(shè)置窗體顯示EndIfIfMsgBox("您已經(jīng)設(shè)置了鎖機(jī)密碼",MsgBoxStyle.OkOnly,"信息")=MsgBoxResult.OkThen設(shè)置密碼ToolStripMenuItem.Ena密碼了密碼。則設(shè)置密碼選項(xiàng)變?yōu)椴豢捎肊ndIfEndIfSystem.Object,ByValeAsSystem.EventArgs)Handles鎖機(jī)點(diǎn)擊鎖機(jī)的事件DimsqlconsjAsNewSqlConnDimmydaptsjAsNewSqlDataAAccountID=’”&LabelAcco="userid=sa;password=;initialsource=(local)”="select*fromTableInformationwheremydaptsj.SelectCommamydaptsj.Fill(mydssj,"TableInIfmydssj.Tables("TableInformation").Rows(0)(11).ToStringIfMsgBox("-您還沒有設(shè)置鎖機(jī)密碼”&vbCrLf&"-請(qǐng)您現(xiàn)在設(shè)置",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.0kThen示EndIfEndIfPrivateSub修改密碼TooSystem.Object,ByValeAsSystemsqlconxg.ConnectionString="userid=sa;password=;initialcatalog=EmployeesInformation;datasource=(local)”AccountID='”&LabelAccountID.Text&”’”sqlcmdxg.Connection=sqlcmydaptxg.Fill(mydsxg,"TableInIfmydsxg.Tables("TableInformation").Rows(0)(11).ToStringIfMsgBox("-您還沒有設(shè)置鎖機(jī)密碼”&vbCrLf&"-請(qǐng)您現(xiàn)在設(shè)置",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThen示EndIfEndIfSystem.Object,ByValeAsSystem.EventArgs)Handles取消密碼sqlconqx.ConnectionString="userid=sa;password=;initialcatalog=EmployeesInformation;datasource=(local)”sqlcmdqx.CommandText="select*fromTableInformationwhereAccountID='”&LabelAccountID.Text&”’”mydaptqx.Fill(mydsqx,"TableInfIfmydsqx.Tables("TableInformation").Rows(0)(11).ToStringIfMsgBox("-您還沒有設(shè)置鎖機(jī)密碼”&vbCrLf&“-請(qǐng)您現(xiàn)在設(shè)置",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThenLockFormSet.ShowDialog()鎖機(jī)密碼設(shè)置窗體EndIf示EndIfPrivateSubToolStripButtonsuoji_Click(ByValsesqlconksj.ConnectionString="userid=sa;password=;inicatalog=EmployeesInformation;datasource=(local)”sqlcmdksj.CommandText="select*fromTableInfowhereAccountID='”&LabelAccountID.Text&”’”sqlcmdksj.Connection=mydaptksj.SelectCommanmydaptksj.Fill(mydsksj,"TableIIfmydsksj.Tables("TableInformation").Rows(0)(11).ToString在設(shè)置",MsgBoxStyle.0kCancel,"信息")=MsgBoxResult.0kThenLockFormSet.ShowDialog()鎖機(jī)密碼設(shè)置窗體顯示EndIfEndIfPrivateSub員工信息添加ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles員工信息添加IfToolStripLabeshenfen.Text="超級(jí)管理員"ThenAddYGFormInfor.ShowDMsgBox("只有超級(jí)管理員才能進(jìn)行此操作",MsgBoxStyle.OkOnly,"信息")員工信息添加ToolStripMenuItem.EnabledEndIfWeekdayName(Weekday(Today))’獲取日期和當(dāng)前星期ToolStripLabeshijian.Text=TimeOfDay()’獲取當(dāng)前時(shí)間PrivateSub學(xué)生信息添加ToolStripMenuItem_Click(ByValAsSystem.Object,ByValeAsSystem.EventArgs)Handles學(xué)生信息添加AddStuFormInfor.ShowDPrivateSubToolStripButtonAddsAddStuFormInfor.ShowDPrivateSub編輯公告欄ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventPrivateSub查看公告欄ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles查看公告欄sqlconbj.ConnectionString="userid=sa;password=;initialcatalog=EmployeesInformation;datasource=(local)”AccountID='”&LabelAccountID.Text&””sqlcmdbj.Connectionmydaptbj.SelectCommand=sqlcmdbjmydaptbj.Fill(mydsbj,"TableI’加載當(dāng)前用戶下的所有信息Ifmydsbj.Tables("TableInformation").Rows(0)(14).ToString=""Then’判斷當(dāng)前用戶下是否已經(jīng)添加了備忘內(nèi)容IfMsgBox("-您還沒有添加任何備忘信息”&vbCrLf&"-是否現(xiàn)在添加?”,MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThen加窗體顯示EndIfViewFormBeiWang.ShowDialog()’示EndIfAddFormBeiWang.Showsqlconbj.ConnectionString="userid=sa;pcatalog=EmployeesInformation;datasource=(local)”mydaptbj.SelectCommamydaptbj.Fill(mydsbj,"TableIIfmydsbj.Tables("TableInformation").Rows(0)(14).ToStringIfMsgBox("-您還沒有添加任何備忘信息"&vbCrLf&"-是否現(xiàn)在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThen加窗體顯示EndIfViewFormBeiWang.ShowD示EndIfPrivateSub圖書信息添加ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles圖書信息添加PrivateSub訂單信息添加ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles訂單信息添加IfToolStripLabeshenfen.Text="超級(jí)管理員"ThenAddFormDingdan.ShowDMsgBox("只有超級(jí)管理員才能進(jìn)行此操作!",MsgBoxStyle.OkOnly,"信息")訂單信息添加ToolStripMenuItem.Enabled=FalseEndIfPrivateSub供貨商信息添加ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles供貨商信息添加IfToolStripLabeshenfen.Text="超級(jí)管理員"ThenMsgBox(”只有超級(jí)管理員才能進(jìn)行此操作!",MsgBoxStyle.0kOnly,"信息")供貨商信息添加ToolStripMenuItem.EndIfPrivateSubTimerjcbw_Tick(ByValDimmydsjcbwAsNewDataSetid=sa;password=;initialcatalog=Emplosource=(local)”whereAccountID='"&LabelAccountID.Text&”’”mydaptjcbw.SelectCommanmydaptjcbw.Fill(mydsjIfmydsjcbw.Tables("bw").Rows(0)(14).ToString=""ThenLabemessage.Text=”(當(dāng)前無任何備忘信息)”&"謝謝您選擇本系統(tǒng)，本系統(tǒng)開發(fā)人員祝你工作愉快!”mydsjcbw.Tables("bw").Rows(0)(14).ToString&””&"--謝謝您選擇本系統(tǒng)，本系統(tǒng)開發(fā)人員祝你工作愉快!"EndIfIfLabemessage.Left+Labemessage.Width>0ThenLabemessage.Left=Labemessage.Left-3EndIfsqlconts.ConnectionStrsource=(local)”mydaptts.Fill(mydsts在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.0kThenEndIfEndIfAsSystem.Object,ByValeAsSystem.EventArgs)Handles員工信息刪除catalog=EmployeesInformation;datasource=(local)”mydaptsc.SelectCommIfToolStripLabeshenfen.Text<>"超級(jí)管理員"ThenMsgBox(”只有超級(jí)管理員才能進(jìn)行此操作!",MsgBoxStyle.OkOnly,"信息")員工信息刪除ToolStripMenuItem.Enabled=False何信息IfMsgBox("-沒有任何員工信息”&vbCrLf&"-是否現(xiàn)在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThenAddYGFormInfor.ShowDiEndIfEndIfPrivateSub學(xué)生信息刪除ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles學(xué)生信息刪除sqlconxs.ConnectionString="userid=sa;password=;initialcatalog=StudentInformation;datasource=(local)”sqlcmdxs.CommandText="select*fromsqlcmdxs.Connection=sqlconxsmydaptxs.SelectCommand=sqlcm息時(shí)IfMsgBox("-沒有任何學(xué)生信息”&vbCrLf&“-是否現(xiàn)在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThenAddStuFormInfor.ShowDEndIfEndIfPrivateSub訂單信息刪除ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles訂單信息刪除ToolStripMenuItem.Clicksqlcondd.ConnectionString="userid=sa;password=;initialcatalog=DingDanInformation;datasource=(local)”TABLEdingdanInformation”mydaptdd.SelectCommand=sqlcmdddmydaptdd.Fill(mydsdIfToolStripLabeshenfen.Text<>"超級(jí)管理員"ThenMsgBox(”只有超級(jí)管理員才能進(jìn)行此操作!",MsgBoxStyle.OkOnly,"信息")訂單信息刪除ToolStripMenuItem.Enabled=False何信息IfMsgBox("-沒有任何訂單信息"&vbCrLf&"-是否現(xiàn)在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThenAddFormDingdan.ShowDEndIfEndIfPrivateSub供貨商信息刪除ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles供貨商信息刪除ToolStripMenuItem.ClickDimmydaptghsAsNewSsqlconghs.ConnectionString="userid=sa;password=;catalog=GHSInformation;datasource=(local)”sqlcmdghs.CommandText="select*fromTABLEGHSInformation"sqlcmdghs.Connection=sqlcmydaptghs.SelectCommand=sqmydaptghs.Fill(mydsghIfToolStripLabeshenfen.Text<>"超級(jí)管理員"ThenMsgBox(”只有超級(jí)管理員才能進(jìn)行此操作!",MsgBoxStyle.0kOnly,"信息")任何信息IfMsgBox("-沒有任何供貨商信息”&vbCrLf&"-是否現(xiàn)在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThenEndIfEndIfAsSystem.Object,ByValeAsSystem.EventArgs)Handles圖書信息修改XIUGAIFormBook.ShowDiPrivateSubToolStripMenuItem19_Click(ByVaAddFormTeacher.ShowPrivateSubToolStripMenuItem20_Click(ByValsencatalog=StudentInformation;datasource=(local)”mydaptjzg.SelectCommmydaptjzg.Fill(myds信息時(shí)添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.AddFormTeacher.ShowEndIfEndIfPrivateSubToolStripAsSystem.Object,ByValeAsSystem.EventArgs)Handles員工"信息")AsSystem.Object,ByValeAsSystem.EventArgs"信息")"信息")PrivateSub供貨商信息修改ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles供貨商信息修改MsgBox("請(qǐng)您綜合利用添加和刪除功能!",MsgBoxStyle.0kOnly,"信息")PrivateSub圖書信息查詢ToolStripMenuItem_Click(ByVaAsSystem.Object,ByValeAsSystem.EventArgsPrivateSub借書ToolStripMenuItem_Click(ByValsenSystem.Object,ByValPrivateSub還書ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EvPrivateSub教職工信息查詢ToolStripMenuItem_CliAsSystem.Object,ByValeAsSystem.EventArgs)Handles教職工信息查詢PrivateSub學(xué)生信息查詢ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles學(xué)生信息查詢PrivateSubTreeViewAll_AfterSelect(ByVSystem.Object,ByValeAsSystem.Windows.Forms.TreeViHandlesTreeViewAl1.AfterSeleIfTreeViewAl1.SelectedNode.Name="jdtuichu"ThenIfMsgBox("您確定要退出使用系統(tǒng)嗎?",MsgBoxStyle.OkCancel,"退出")=MsgBoxResult.OkThenEndIfElseIfTreeViewAl1.SelectedNode.Name="jdquxiao"Thensqlconqx.ConnectionString="uid=sa;password=;initialcatalog=EmployeesInformation;datasource=(local)”whereAccountID='”&LabelAccountID.Text&“”mydaptqx.SelectCommand=sqlcmdqxmydaptqx.Fill(mydsqx,"TableInmydsqx.Tables("TableInformation").Rows(0)(11).ToString=””Then您現(xiàn)在設(shè)置",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.0kThen窗體顯示EndIf體顯示EndIfwhereAccountID='“&LabelAccountID.Text&””mydaptbj.SelectCommamydaptbj.Fill(mydsbj,"TableIIfmydsbj.Tables("TableInformation").Rows(0)(14).ToString=“”Then判斷當(dāng)前用戶下是否已經(jīng)添加了備忘內(nèi)容IfMsgBox("-您還沒有添加任何備忘信息"&vbCrLf&"一是否現(xiàn)在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThen息添加窗體顯示EndIfViewFormBeiWang.ShowDialog()’備忘信息查看窗體顯示EndIfElseIfTreeViewAl1.SelectedNode.Name="jdtianjia"ThenTextBoxhuizong.Visible=FalseAddStuFormInfor.ShowDElseIfTreeViewAl1.SelectedNode.Name="jdchaxun"ThenElseIfTreeViewAl1.SelectedNode.Name="jdtushu"ThenMessageBox.Show(”實(shí)現(xiàn)該功能需要預(yù)定，謝謝!","信息",MessageBoxButtons.OK,MessageBoxIcoElseIfTreeViewAl1.SelectedNode.Name="jdxuhao"ThenTextBoxhuizong.Visible=TrueTextBoxhuizong.Text="序號(hào)分類：”&vbCrLf&"序號(hào)分&"快速獲取方法，點(diǎn)擊獲取直接生成。手動(dòng)錄入序號(hào)，當(dāng)自動(dòng)生成的序號(hào)存在時(shí)。”&vbCrLf&“解決方案請(qǐng)具體參考幫助與支持?！盓lseIfTreeViewAl1.SelectedNode.Name="jdsuoji"ThenTextBoxhuizong.Text="鎖機(jī)介紹：”&ybCrLf&"鎖機(jī)功能由鎖機(jī)界面、密碼設(shè)置、密碼修改、取消密碼四塊組成”&vbCrLf&"鎖機(jī)功能用途；”&vbCrLf&"暫時(shí)鎖定系統(tǒng)，方便你的離開，而且不用退出系統(tǒng)重復(fù)登錄”ElseIfTreeViewAl1.SelectedNode.Name="jdliaotian"ThenTextBoxhuizong.Text="在聊天文本框輸入msgclr快速清空所有聊天信息”&vbCrLf&"小提示：選中聊天內(nèi)容按住鼠標(biāo)左鍵向下拖動(dòng)可以"&vbCrLf&"顯示未顯示完的聊天信息!”ElseIfTreeViewAl1.SelectedNode.NameTextBoxhuizong.Text=TrueTextBoxhuizong.Text="打印功能只有在超級(jí)管理員的身份EndIf'PrivateSubTextBoxfasong_MouseClick(ByValByValeAsSystem.WIfTextBoxfasong.Text="請(qǐng)輸入150字以內(nèi)的聊天內(nèi)容"ThenEndIfByValeAsSystem.EventArgs)HandlesButtonfasong.ClickIfMsgBox("您要清空聊天信息嗎?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThen窗口”&vbCrLf&""="圖書館管理系統(tǒng)即時(shí)即用聊天窗口”&vbCrLf&“”EndIf信息")IfTextBoxfasong.Text=""Then容"Then信息")ElseIfTextBoxfasong.Text="請(qǐng)輸入150字以內(nèi)的聊天內(nèi)DimmydaptjcfsAsNewSqlDataAdapTABLEtalking”=sqlconfsmydaptjcfs.SelectCommanmydaptjcfs.Fill(mydsjcIfmydsjcfs.Tables("jclt").Rows.Count=0Thensqlcmdfs.CommandText="insertintoTABLEtalkingvalues(’"&ToolStripLabelmToolStripLabeshijian.Text&”’,'"&TextBoxfasong.Text&")”MsgBox("請(qǐng)等待......",MsgBoxStyle.OkOnly,”信息")EndIfEndIfEndIfAsSystem.EventArgs)HandlesTimerjieshou.Tick’在定時(shí)器的TICK事件中從聊天信息數(shù)據(jù)庫(kù)中加載信息DimsqlconjsAsDimsqlcmdjcjsAsNewSqlDimmydsjcjsAsNewDataSetDimmydaptjcjsAsNewSqlDataAdaptersqlconjs.ConnectionString="userid=sa;pcatalog=Talking;datasource=(local)”mydaptjcjs.Fill(mydsjc不為空時(shí)，把信息加載到LISTBOX中a=“”&vbCrLf&"--"&ybCrLf&mydsjcjs.Tables("jclt").Rows(0)mydsjcjs.Tables("jclt").Rows(0)(1)&vbCrLf&”"&mydsjcjs.Tables("jclt").RTextBoxjieshou.Text=b&a’TEXTBOX獲取聊天內(nèi)容'textboxjieshou.Items.Add(mydsjcjs.Tables("jclt").Rows(0)(0)&":"&”"&mydsjcjs.Tables("jclt").Rows(0)(1))'textboxjieshou.Items.Add(”mydsjcjs.Tables("jclt").EndIfsqlcmdqk.CommandText="deletefromTABLEtalking"'PrivateSubTextBoxfasong_T