三江源生態(tài)環(huán)境保護(hù)現(xiàn)狀與對(duì)策分析及軟件工程課程設(shè)計(jì)-圖書借閱管理系統(tǒng)

三江源生態(tài)環(huán)境保護(hù)現(xiàn)狀與對(duì)策分析——基于麥秀林場(chǎng)實(shí)地考察摘要生存環(huán)境是一個(gè)國家和民族賴以生存發(fā)展的基本條件，隨著黨的十八大的召開，“生態(tài)強(qiáng)國”這一重大戰(zhàn)略在已成為全黨、全社會(huì)的首要任務(wù)。而對(duì)處于重要地理位置的三江源的生態(tài)保護(hù)，成為重中之重。本文基于對(duì)三江源保護(hù)分區(qū)——麥秀保護(hù)分區(qū)的實(shí)地考察，從三江源生態(tài)保護(hù)現(xiàn)狀、所存在的問題、相關(guān)對(duì)策分析方面進(jìn)行闡述，尤其從生態(tài)移民這一重大工程，進(jìn)行較為全面的對(duì)策分析，目的在于，能夠?yàn)槿磪^(qū)的生態(tài)補(bǔ)償與政策實(shí)施提供一些有益的參考。關(guān)鍵詞：三江源，生態(tài)保護(hù)，生態(tài)移民目錄TOC\o"1-3"\h\u1緒論 一、項(xiàng)目計(jì)劃（一）項(xiàng)目開發(fā)背景及內(nèi)容隨著計(jì)算機(jī)技術(shù)的不斷發(fā)展，計(jì)算機(jī)作為知識(shí)經(jīng)濟(jì)時(shí)代的產(chǎn)物，已被廣泛應(yīng)用于社會(huì)各個(gè)行業(yè)和領(lǐng)域。目前，我國的科技水平高速發(fā)展，計(jì)算機(jī)作為今天使用最廣的現(xiàn)代化工具已深入到各個(gè)領(lǐng)域，并且正在成為未來社會(huì)——信息社會(huì)的重要支柱。在這樣的大背景下，現(xiàn)代圖書館的管理方式，資源建設(shè)等方面都發(fā)生了重大變化，這種變化表現(xiàn)在圖書館工作，管理和服務(wù)平臺(tái)發(fā)生的變化，圖書館不再是傳統(tǒng)的手工操作，人工管理，而是全面實(shí)行計(jì)算機(jī)管理。圖書館的正常運(yùn)營(yíng)中總是面對(duì)大量的讀者信息，圖書信息以及兩者相互作用產(chǎn)生的借書信息，因此要對(duì)讀者資源，圖書資源，借書信息進(jìn)行管理。本系統(tǒng)的開發(fā)就是在于提高圖書借閱管理的工作效率，加強(qiáng)圖書館的管理，全面實(shí)行計(jì)算機(jī)管理。開發(fā)環(huán)境開發(fā)環(huán)境：Win7旗艦版開發(fā)工具：Visualbasic6.0ACCESS作圖軟件：MicrosoftVisio2010進(jìn)度安排該軟件應(yīng)用MicrosoftVisio2010和Visualbasic6.0，ACCESS進(jìn)行編程作圖，歷時(shí)大概兩周，最終完成了這個(gè)小型圖書借閱管理系統(tǒng)。由于時(shí)間倉促，該小型圖書借閱管理系統(tǒng)并不完善。我用了兩天時(shí)間查找相關(guān)資料，兩天時(shí)間編寫代碼和連接數(shù)據(jù)庫。其余三天開始用MicrosoftVisio2010畫數(shù)據(jù)流圖、結(jié)構(gòu)圖、流程圖、用例圖和包圖類圖。整個(gè)過程系我們?nèi)朔止と送瓿?。二、結(jié)構(gòu)化分析設(shè)計(jì)（一）數(shù)據(jù)流圖 圖2.2.1系統(tǒng)的數(shù)據(jù)流圖圖2.2.21層數(shù)據(jù)流圖數(shù)據(jù)字典在定義的圖書借閱管理系統(tǒng)數(shù)據(jù)字典中，主要對(duì)數(shù)據(jù)流圖中的數(shù)據(jù)項(xiàng)、數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)和處理過程進(jìn)行說明。（1）數(shù)據(jù)項(xiàng)描述1）數(shù)據(jù)項(xiàng)名稱：借書證號(hào)含義說明：惟一標(biāo)識(shí)一個(gè)借書證類型：字符型長(zhǎng)度：50邏輯關(guān)系：不允許為空2）數(shù)據(jù)項(xiàng)名稱：用戶名含義說明：讀者的名稱類型：字符型長(zhǎng)度：20邏輯關(guān)系：不允許為空3）數(shù)據(jù)項(xiàng)名稱：密碼含義說明：對(duì)用戶名和操作員管理員進(jìn)行加密類型；字符型長(zhǎng)度：10邏輯關(guān)系：允許為空4）數(shù)據(jù)項(xiàng)名稱：性別類型：字符型長(zhǎng)度：10邏輯關(guān)系：允許為空5）數(shù)據(jù)項(xiàng)名稱：所在系別類型；字符型長(zhǎng)度：10邏輯關(guān)系：允許為空6）數(shù)據(jù)項(xiàng)名稱：所在班級(jí)類型：字符型長(zhǎng)度：10邏輯關(guān)系：允許為空7）數(shù)據(jù)項(xiàng)名稱：操作員名稱類型：字符型長(zhǎng)度：30邏輯關(guān)系：不允許為空8）數(shù)據(jù)項(xiàng)名稱：操作員簡(jiǎn)稱含義說明：惟一標(biāo)識(shí)一個(gè)操作員類型：字符型長(zhǎng)度：10邏輯關(guān)系：不允許為空9）數(shù)據(jù)項(xiàng)名稱：操作員級(jí)別含義說明：對(duì)操作員和管理員進(jìn)行區(qū)分類型：字符型長(zhǎng)度：10邏輯關(guān)系：不允許為空10）數(shù)據(jù)項(xiàng)名稱：圖書編號(hào)含義說明：惟一標(biāo)識(shí)一個(gè)圖書類型：字符型長(zhǎng)度：10邏輯關(guān)系：不允許為空11）數(shù)據(jù)項(xiàng)名稱：圖書名稱類型：字符型長(zhǎng)度：50邏輯關(guān)系：不允許為空12）數(shù)據(jù)項(xiàng)名稱：作者類型：字符型長(zhǎng)度：50邏輯關(guān)系：不允許為空13）數(shù)據(jù)項(xiàng)名稱：出版社類型：字符型長(zhǎng)度：50邏輯關(guān)系：不允許為空14）數(shù)據(jù)項(xiàng)名稱：出版時(shí)間類型：日期時(shí)間型長(zhǎng)度：8邏輯關(guān)系：不允許為空15）數(shù)據(jù)項(xiàng)名稱：價(jià)格類型：整型長(zhǎng)度：4邏輯關(guān)系：不允許為空16）數(shù)據(jù)項(xiàng)名稱：備注類型：字符型長(zhǎng)度：200邏輯關(guān)系：允許為空17）數(shù)據(jù)項(xiàng)名稱：借書日期類型：日期時(shí)間長(zhǎng)度：8邏輯關(guān)系：不允許為空18）數(shù)據(jù)項(xiàng)名稱：還書日期類型：日期時(shí)間長(zhǎng)度：8邏輯關(guān)系：不允許為（2）數(shù)據(jù)結(jié)構(gòu)描述1）數(shù)據(jù)流名稱：用戶情況含義說明：定義了一個(gè)讀者的有關(guān)信息組成結(jié)構(gòu)：用戶情況=用戶名+借書證號(hào)+密碼+性別+所在系別+所在班級(jí)2）數(shù)據(jù)流名稱：操作員情況含義說明：定義了一個(gè)操作員的有關(guān)信息組成結(jié)構(gòu):操作員情況=操作員名稱+操作員簡(jiǎn)稱+操作員級(jí)別+操作員密碼數(shù)據(jù)流名稱：圖書情況含義說明：定義了一個(gè)圖書的有關(guān)信息組成結(jié)構(gòu)：圖書情況=圖書編號(hào)+圖書名稱+作者+出版社+出版時(shí)間+價(jià)格+備注數(shù)據(jù)流描述1）數(shù)據(jù)流名稱：借書含義：讀者借書時(shí)的記錄來源：讀者去向：審核借書數(shù)據(jù)流量：>50份/天組成：借書單=借書證號(hào)+圖書編號(hào)+借書日期2）數(shù)據(jù)流名稱：還書含義：讀者還書時(shí)要填寫的記錄來源：讀者去向：審核還書數(shù)據(jù)流量：>25份/天組成：還書單=圖書編號(hào)+還書日期數(shù)據(jù)存儲(chǔ)說明數(shù)據(jù)存儲(chǔ)名稱：圖書數(shù)據(jù)表含義說明：存放圖書的有關(guān)信息組成結(jié)構(gòu)：圖書編號(hào)+圖書名稱+作者+出版社+出版時(shí)間+價(jià)格+備注說明；書號(hào)具有惟一性和非空性2）數(shù)據(jù)存儲(chǔ)名稱：用戶信息表含義說明：存放讀者的注冊(cè)信息組成結(jié)構(gòu)：用戶名+借書證號(hào)+密碼+性別+所在系別+所在班級(jí)說明：證號(hào)具有惟一性和非空性，性別只能是男和女3）數(shù)據(jù)存儲(chǔ)名稱：借書記錄含義說明：存放讀者的借書，還書信息組成結(jié)構(gòu)：借書證號(hào)+圖書編號(hào)+借書日期+還書日期說明：要求能夠立即查詢處理過程說明1）處理過程名稱：圖書管理輸入：圖書情況，輸出：圖書記錄處理說明：對(duì)館內(nèi)所有圖書按圖書編號(hào)進(jìn)行管理，將圖書數(shù)據(jù)數(shù)據(jù)化，存儲(chǔ)圖書數(shù)據(jù)表中。2）處理過程名稱：讀者管理輸入：讀者情況，輸出：讀者記錄處理說明：建立讀者信息表，對(duì)讀者進(jìn)行統(tǒng)一編號(hào)，實(shí)現(xiàn)讀者記錄表的增刪改維護(hù)功能。3）處理過程名稱：查看數(shù)目輸入：借書請(qǐng)求，讀者輸出：借書記錄，圖書信息處理說明：實(shí)現(xiàn)根據(jù)圖書編號(hào)等查詢圖書。4）處理過程名稱：借書處理輸入：圖書情況，讀者，借書記錄輸出：借書記錄處理說明：確認(rèn)讀者符合借書條件，辦理借書手續(xù)。5）處理過程名稱：還書處理輸入：圖書情況，輸出：借書記錄處理說明：對(duì)照相應(yīng)的圖書編號(hào)可辦理還書手續(xù)。6）處理過程名稱：安全管理輸入：操作員情況，用戶情況輸出：操作員級(jí)別，操作員記錄，用戶記錄處理說明：通過用戶名和口令，確認(rèn)用戶身份，保證系統(tǒng)的安全型。（三）加工說明（可用結(jié)構(gòu)化語言描述、判定表、判定樹）圖2.3.1借閱管理系統(tǒng)的判定樹（四）結(jié)構(gòu)圖圖2.4.1系統(tǒng)的結(jié)構(gòu)圖流程圖圖2.5.1系統(tǒng)登錄流程圖圖2.5.2系統(tǒng)的借書流程圖圖2.5.3系統(tǒng)的還書流程圖三、面向?qū)ο蠓治鲈O(shè)計(jì)（一）用例圖用例圖在需求分析階段有重要作用，它是作為參與者的外部用戶所能觀察到的系統(tǒng)功能模型圖。整個(gè)開發(fā)過程都是圍繞需求階段用例進(jìn)行的。圖3.1.1系統(tǒng)的用例圖對(duì)象行為模型圖3.2.1系統(tǒng)狀態(tài)圖圖3.1.2系統(tǒng)活動(dòng)圖（三）系統(tǒng)包圖圖3.3.1系統(tǒng)的包圖數(shù)據(jù)庫包：包含數(shù)據(jù)庫中所有的數(shù)據(jù)信息用戶包：包含要使用系統(tǒng)的用戶及其屬性管理員包：包含要使用系統(tǒng)的管理員及其屬性接口包：表示系統(tǒng)和數(shù)據(jù)庫的借口系統(tǒng)包：表示圖書借閱管理系統(tǒng)（四）類圖類是面對(duì)對(duì)象系統(tǒng)組成的核心。類是對(duì)一組相同屬性、操作、關(guān)系和語義的對(duì)象的描述。這些對(duì)象包括了對(duì)現(xiàn)實(shí)世界中的物理實(shí)體、商業(yè)事務(wù)、邏輯事務(wù)、應(yīng)用事務(wù)和行為事務(wù)等，甚至也包括了純粹概念性的事務(wù)，它們都是類的實(shí)例。圖3.4.1系統(tǒng)的類圖(五)配置圖圖3.5.1系統(tǒng)配置圖四、系統(tǒng)實(shí)現(xiàn)（一）程序代碼圖書借閱管理：PublicSchCndAsStringPrivateSubCmd_Add_Click()'初始化FrmBorrowEdit信息'設(shè)置借閱編號(hào)為當(dāng)前編號(hào)最大值+1DimJYNoAsString'取表中的最大借閱編號(hào)JYNo="00"+Trim(Str(Val(MyBorrow.GetMaxNo())+1))FrmBorrowEdit.txtBorrowNo="JY"+JYNoFrmBorrowEdit.txtBorrowDate=DateFrmBorrowEdit.txtReturnDate=""FrmBorrowEdit.txtBCount=0FrmBorrowEdit.txtCardNo=""FrmBorrowEdit.txtName=""FrmBorrowEdit.txtCardType=""FrmBorrowEdit.txtMaxCount=0FrmBorrowEdit.txtMaxDays=0FrmBorrowEdit.txtBookNo=""FrmBorrowEdit.txtBookName=""FrmBorrowEdit.txtBookType=""FrmBorrowEdit.txtLCount=0FrmBorrowEdit.txtTotal=0'設(shè)置添加圖書按鈕不能用FrmBorrowEdit.Cmd_Add.Enabled=FalseFrmBorrowEdit.Cmd_Del=FalseFrmBorrowEdit.Cmd_Ok.Enabled=False'設(shè)置圖書信息不能用FrmBorrowEdit.Frame2.Enabled=False'啟動(dòng)編輯窗體FrmBorrowEdit.Show1'刷新DataGrid表格的內(nèi)容GridRefreshEndSub'單擊“返回”按鈕PrivateSubCmd_Back_Click()UnloadMeEndSubPrivateSubCmd_Push_Click()'列出離應(yīng)歸還日期小于等于5天的圖書FrmPush.Show1EndSubPrivateSubCmd_Return_Click()'歸還調(diào)用FrmReturnEdit窗體，需要輸入借閱證號(hào)，提取該證借閱信息FrmReturnEdit.Show1GridRefreshEndSubPrivateSubComboFlag_click()GridRefreshEndSub'啟動(dòng)窗體PrivateSubForm_Load()'設(shè)置借閱狀態(tài)為"借閱"ComboFlag.ListIndex=0'刷新DataGrid表格的內(nèi)容GridRefreshEndSubPrivateSubGridRefresh()IfComboFlag.ListIndex>0ThenSchCnd="ANDl.Status='"+Trim(ComboFlag.Text)+"'"ElseSchCnd=""EndIf'設(shè)置ADO控件的連接字符串Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="_+App.Path+"\Books.mdb;PersistSecurityInfo=False"'刷新DataGrid記錄'設(shè)置數(shù)據(jù)源Adodc1.RecordSource="SELECTl.BookNoAS圖書編號(hào),i.BookNameAS圖書名稱,"_+"l.BCountAS借閱數(shù)量,b.BorrowNoAS借閱編號(hào),b.CardNoAS借閱證編號(hào),c.NameAS姓名,"_+"BorrowDateAS借閱日期"_+"FROMBorrowb,BorrowListl,Cardsc,BookInfoi"_+"WHEREl.BNo=b.BorrowNoANDb.CardNo=c.CardNoANDl.BookNo=i.BookNo"+SchCnd_+"ORDERBYl.BookNo,b.BorrowDateDESC"'MsgBox(Adodc1.RecordSource)Adodc1.RefreshDataGrid1.Columns(0).Width=1200DataGrid1.Columns(1).Width=1600DataGrid1.Columns(2).Width=1200DataGrid1.Columns(3).Width=1400DataGrid1.Columns(4).Width=1400DataGrid1.Columns(5).Width=1200DataGrid1.Columns(6).Width=1400EndSub編輯用戶信息：PublicModifyAsBooleanPublicOriUserAsStringPrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubCmd_OK_Click()IfTrim(txtUserName)=""ThenMsgBox"請(qǐng)輸入用戶名"txtUserName.SetFocusExitSubEndIfIfLen(txtPass)<6ThenMsgBox"密碼長(zhǎng)度不能小于6"txtPass.SetFocustxtPass.SelStart=0txtPass.SelLength=Len(txtPass2)ExitSubEndIfIftxtPass<>txtPass2ThenMsgBox"密碼和確認(rèn)密碼不相同，請(qǐng)重新確認(rèn)"txtPass2.SetFocustxtPass2.SelStart=0txtPass2.SelLength=Len(txtPass2)ExitSubEndIfWithMyUserIfModify=FalseOrOriUser<>Trim(txtUserName)ThenIf.In_DB(MakeStr(txtUserName))=TrueThenMsgBox"用戶名已經(jīng)存在，請(qǐng)重新輸入"txtUserName.SetFocustxtUserName.SelStart=0txtUserName.SelLength=Len(txtUserName)ExitSubEndIfEndIf.UserName=MakeStr(txtUserName).Pwd=MakeStr(txtPass)IfModify=FalseThen.InsertMsgBox"添加完成"Else.Update(OriUser)MsgBox"修改完成"'如果修改自身用戶名，則更新CurUser對(duì)象IfOriUser=CurUser.UserNameAndTrim(txtUserName)<>OriUserThenCurUser.UserName=Trim(txtUserName)CurUser.GetInfo(CurUser.UserName)EndIfEndIfEndWithUnloadMeEndSubPrivateSubForm_Load()EndSubPrivateSubtxtPass_Change()EndSub用戶管理：PrivateSubCmd_Add_Click()WithFrmUserEdit.txtUserName="".txtPass="".txtPass2="".Modify=False.Show1EndWithAdoUserList.RefreshDataList1_ClickEndSubPrivateSubCmd_Back_Click()UnloadMeEndSubPrivateSubCmd_Del_Click()IfDataList1.Text=""ThenMsgBox"請(qǐng)選擇要?jiǎng)h除的用戶"ExitSubEndIfIfMyUser.UserName="Admin"ThenMsgBox"此用戶不能刪除"ExitSubEndIf'確認(rèn)刪除IfMsgBox("是否刪除當(dāng)前用戶",vbYesNo,"請(qǐng)確認(rèn)")=vbYesThenMyUser.Delete(DataList1.Text)MsgBox"成功刪除"AdoUserList.RefreshDataList1_ClickEndIfEndSubPrivateSubCmd_Modi_Click()IfDataList1.Text=""ThenMsgBox"請(qǐng)選擇要修改的用戶"ExitSubEndIfWithFrmUserEdit.OriUser=MyUser.Overcame.txtUserName=MyUser.UserName.txtPass=MyUser.Pwd.txtPass2=MyUser.PwdIfTrim(MyUser.UserName)="Admin"Then.txtUserName.Enabled=FalseEndIf.Modify=True.Show1EndWithAdoUserList.RefreshDataList1_ClickEndSubPrivateSubDataList1_Click()IfDataList1.Text=""ThenExitSubEndIf'讀取用戶數(shù)據(jù)MyUser.GetInfo(DataList1.Text)lblUserName=MyUser.UserNameIfTrim(MyUser.UserName)="Admin"ThenlblUserType="系統(tǒng)管理員"ElselblUserType="普通用戶"EndIfEndSubPrivateSubForm_Load()lblUserType=""lblUserName=""'設(shè)置ADO控件的連接字符串AdoUserList.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="_+Ap