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

三江源生態(tài)環(huán)境保護現(xiàn)狀與對策分析——基于麥秀林場實地考察摘要生存環(huán)境是一個國家和民族賴以生存發(fā)展的基本條件，隨著黨的十八大的召開，“生態(tài)強國”這一重大戰(zhàn)略在已成為全黨、全社會的首要任務(wù)。而對處于重要地理位置的三江源的生態(tài)保護，成為重中之重。本文基于對三江源保護分區(qū)——麥秀保護分區(qū)的實地考察，從三江源生態(tài)保護現(xiàn)狀、所存在的問題、相關(guān)對策分析方面進行闡述，尤其從生態(tài)移民這一重大工程，進行較為全面的對策分析，目的在于，能夠為三江源區(qū)的生態(tài)補償與政策實施提供一些有益的參考。關(guān)鍵詞：三江源，生態(tài)保護，生態(tài)移民目錄TOC\o"1-3"\h\u1緒論 一、項目計劃（一）項目開發(fā)背景及內(nèi)容隨著計算機技術(shù)的不斷發(fā)展，計算機作為知識經(jīng)濟時代的產(chǎn)物，已被廣泛應(yīng)用于社會各個行業(yè)和領(lǐng)域。目前，我國的科技水平高速發(fā)展，計算機作為今天使用最廣的現(xiàn)代化工具已深入到各個領(lǐng)域，并且正在成為未來社會——信息社會的重要支柱。在這樣的大背景下，現(xiàn)代圖書館的管理方式，資源建設(shè)等方面都發(fā)生了重大變化，這種變化表現(xiàn)在圖書館工作，管理和服務(wù)平臺發(fā)生的變化，圖書館不再是傳統(tǒng)的手工操作，人工管理，而是全面實行計算機管理。圖書館的正常運營中總是面對大量的讀者信息，圖書信息以及兩者相互作用產(chǎn)生的借書信息，因此要對讀者資源，圖書資源，借書信息進行管理。本系統(tǒng)的開發(fā)就是在于提高圖書借閱管理的工作效率，加強圖書館的管理，全面實行計算機管理。開發(fā)環(huán)境開發(fā)環(huán)境：Win7旗艦版開發(fā)工具：Visualbasic6.0ACCESS作圖軟件：MicrosoftVisio2010進度安排該軟件應(yīng)用MicrosoftVisio2010和Visualbasic6.0，ACCESS進行編程作圖，歷時大概兩周，最終完成了這個小型圖書借閱管理系統(tǒng)。由于時間倉促，該小型圖書借閱管理系統(tǒng)并不完善。我用了兩天時間查找相關(guān)資料，兩天時間編寫代碼和連接數(shù)據(jù)庫。其余三天開始用MicrosoftVisio2010畫數(shù)據(jù)流圖、結(jié)構(gòu)圖、流程圖、用例圖和包圖類圖。整個過程系我們?nèi)朔止と送瓿伞６?、結(jié)構(gòu)化分析設(shè)計（一）數(shù)據(jù)流圖 圖2.2.1系統(tǒng)的數(shù)據(jù)流圖圖2.2.21層數(shù)據(jù)流圖數(shù)據(jù)字典在定義的圖書借閱管理系統(tǒng)數(shù)據(jù)字典中，主要對數(shù)據(jù)流圖中的數(shù)據(jù)項、數(shù)據(jù)流、數(shù)據(jù)存儲和處理過程進行說明。（1）數(shù)據(jù)項描述1）數(shù)據(jù)項名稱：借書證號含義說明：惟一標(biāo)識一個借書證類型：字符型長度：50邏輯關(guān)系：不允許為空2）數(shù)據(jù)項名稱：用戶名含義說明：讀者的名稱類型：字符型長度：20邏輯關(guān)系：不允許為空3）數(shù)據(jù)項名稱：密碼含義說明：對用戶名和操作員管理員進行加密類型；字符型長度：10邏輯關(guān)系：允許為空4）數(shù)據(jù)項名稱：性別類型：字符型長度：10邏輯關(guān)系：允許為空5）數(shù)據(jù)項名稱：所在系別類型；字符型長度：10邏輯關(guān)系：允許為空6）數(shù)據(jù)項名稱：所在班級類型：字符型長度：10邏輯關(guān)系：允許為空7）數(shù)據(jù)項名稱：操作員名稱類型：字符型長度：30邏輯關(guān)系：不允許為空8）數(shù)據(jù)項名稱：操作員簡稱含義說明：惟一標(biāo)識一個操作員類型：字符型長度：10邏輯關(guān)系：不允許為空9）數(shù)據(jù)項名稱：操作員級別含義說明：對操作員和管理員進行區(qū)分類型：字符型長度：10邏輯關(guān)系：不允許為空10）數(shù)據(jù)項名稱：圖書編號含義說明：惟一標(biāo)識一個圖書類型：字符型長度：10邏輯關(guān)系：不允許為空11）數(shù)據(jù)項名稱：圖書名稱類型：字符型長度：50邏輯關(guān)系：不允許為空12）數(shù)據(jù)項名稱：作者類型：字符型長度：50邏輯關(guān)系：不允許為空13）數(shù)據(jù)項名稱：出版社類型：字符型長度：50邏輯關(guān)系：不允許為空14）數(shù)據(jù)項名稱：出版時間類型：日期時間型長度：8邏輯關(guān)系：不允許為空15）數(shù)據(jù)項名稱：價格類型：整型長度：4邏輯關(guān)系：不允許為空16）數(shù)據(jù)項名稱：備注類型：字符型長度：200邏輯關(guān)系：允許為空17）數(shù)據(jù)項名稱：借書日期類型：日期時間長度：8邏輯關(guān)系：不允許為空18）數(shù)據(jù)項名稱：還書日期類型：日期時間長度：8邏輯關(guān)系：不允許為（2）數(shù)據(jù)結(jié)構(gòu)描述1）數(shù)據(jù)流名稱：用戶情況含義說明：定義了一個讀者的有關(guān)信息組成結(jié)構(gòu)：用戶情況=用戶名+借書證號+密碼+性別+所在系別+所在班級2）數(shù)據(jù)流名稱：操作員情況含義說明：定義了一個操作員的有關(guān)信息組成結(jié)構(gòu):操作員情況=操作員名稱+操作員簡稱+操作員級別+操作員密碼數(shù)據(jù)流名稱：圖書情況含義說明：定義了一個圖書的有關(guān)信息組成結(jié)構(gòu)：圖書情況=圖書編號+圖書名稱+作者+出版社+出版時間+價格+備注數(shù)據(jù)流描述1）數(shù)據(jù)流名稱：借書含義：讀者借書時的記錄來源：讀者去向：審核借書數(shù)據(jù)流量：>50份/天組成：借書單=借書證號+圖書編號+借書日期2）數(shù)據(jù)流名稱：還書含義：讀者還書時要填寫的記錄來源：讀者去向：審核還書數(shù)據(jù)流量：>25份/天組成：還書單=圖書編號+還書日期數(shù)據(jù)存儲說明數(shù)據(jù)存儲名稱：圖書數(shù)據(jù)表含義說明：存放圖書的有關(guān)信息組成結(jié)構(gòu)：圖書編號+圖書名稱+作者+出版社+出版時間+價格+備注說明；書號具有惟一性和非空性2）數(shù)據(jù)存儲名稱：用戶信息表含義說明：存放讀者的注冊信息組成結(jié)構(gòu)：用戶名+借書證號+密碼+性別+所在系別+所在班級說明：證號具有惟一性和非空性，性別只能是男和女3）數(shù)據(jù)存儲名稱：借書記錄含義說明：存放讀者的借書，還書信息組成結(jié)構(gòu)：借書證號+圖書編號+借書日期+還書日期說明：要求能夠立即查詢處理過程說明1）處理過程名稱：圖書管理輸入：圖書情況，輸出：圖書記錄處理說明：對館內(nèi)所有圖書按圖書編號進行管理，將圖書數(shù)據(jù)數(shù)據(jù)化，存儲圖書數(shù)據(jù)表中。2）處理過程名稱：讀者管理輸入：讀者情況，輸出：讀者記錄處理說明：建立讀者信息表，對讀者進行統(tǒng)一編號，實現(xiàn)讀者記錄表的增刪改維護功能。3）處理過程名稱：查看數(shù)目輸入：借書請求，讀者輸出：借書記錄，圖書信息處理說明：實現(xiàn)根據(jù)圖書編號等查詢圖書。4）處理過程名稱：借書處理輸入：圖書情況，讀者，借書記錄輸出：借書記錄處理說明：確認(rèn)讀者符合借書條件，辦理借書手續(xù)。5）處理過程名稱：還書處理輸入：圖書情況，輸出：借書記錄處理說明：對照相應(yīng)的圖書編號可辦理還書手續(xù)。6）處理過程名稱：安全管理輸入：操作員情況，用戶情況輸出：操作員級別，操作員記錄，用戶記錄處理說明：通過用戶名和口令，確認(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è)計（一）用例圖用例圖在需求分析階段有重要作用，它是作為參與者的外部用戶所能觀察到的系統(tǒng)功能模型圖。整個開發(fā)過程都是圍繞需求階段用例進行的。圖3.1.1系統(tǒng)的用例圖對象行為模型圖3.2.1系統(tǒng)狀態(tài)圖圖3.1.2系統(tǒ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)（四）類圖類是面對對象系統(tǒng)組成的核心。類是對一組相同屬性、操作、關(guān)系和語義的對象的描述。這些對象包括了對現(xiàn)實世界中的物理實體、商業(yè)事務(wù)、邏輯事務(wù)、應(yīng)用事務(wù)和行為事務(wù)等，甚至也包括了純粹概念性的事務(wù)，它們都是類的實例。圖3.4.1系統(tǒng)的類圖(五)配置圖圖3.5.1系統(tǒng)配置圖四、系統(tǒng)實現(xiàn)（一）程序代碼圖書借閱管理：PublicSchCndAsStringPrivateSubCmd_Add_Click()'初始化FrmBorrowEdit信息'設(shè)置借閱編號為當(dāng)前編號最大值+1DimJYNoAsString'取表中的最大借閱編號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'啟動編輯窗體FrmBorrowEdit.Show1'刷新DataGrid表格的內(nèi)容GridRefreshEndSub'單擊“返回”按鈕PrivateSubCmd_Back_Click()UnloadMeEndSubPrivateSubCmd_Push_Click()'列出離應(yīng)歸還日期小于等于5天的圖書FrmPush.Show1EndSubPrivateSubCmd_Return_Click()'歸還調(diào)用FrmReturnEdit窗體，需要輸入借閱證號，提取該證借閱信息FrmReturnEdit.Show1GridRefreshEndSubPrivateSubComboFlag_click()GridRefreshEndSub'啟動窗體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圖書編號,i.BookNameAS圖書名稱,"_+"l.BCountAS借閱數(shù)量,b.BorrowNoAS借閱編號,b.CardNoAS借閱證編號,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"請輸入用戶名"txtUserName.SetFocusExitSubEndIfIfLen(txtPass)<6ThenMsgBox"密碼長度不能小于6"txtPass.SetFocustxtPass.SelStart=0txtPass.SelLength=Len(txtPass2)ExitSubEndIfIftxtPass<>txtPass2ThenMsgBox"密碼和確認(rèn)密碼不相同，請重新確認(rèn)"txtPass2.SetFocustxtPass2.SelStart=0txtPass2.SelLength=Len(txtPass2)ExitSubEndIfWithMyUserIfModify=FalseOrOriUser<>Trim(txtUserName)ThenIf.In_DB(MakeStr(txtUserName))=TrueThenMsgBox"用戶名已經(jīng)存在，請重新輸入"txtUserName.SetFocustxtUserName.SelStart=0txtUserName.SelLength=Len(txtUserName)ExitSubEndIfEndIf.UserName=MakeStr(txtUserName).Pwd=MakeStr(txtPass)IfModify=FalseThen.InsertMsgBox"添加完成"Else.Update(OriUser)MsgBox"修改完成"'如果修改自身用戶名，則更新CurUser對象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"請選擇要刪除的用戶"ExitSubEndIfIfMyUser.UserName="Admin"ThenMsgBox"此用戶不能刪除"ExitSubEndIf'確認(rèn)刪除IfMsgBox("是否刪除當(dāng)前用戶",vbYesNo,"請確認(rèn)")=vbYesThenMyUser.Delete(DataList1.Text)MsgBox"成功刪除"AdoUserList.RefreshDataList1_ClickEndIfEndSubPrivateSubCmd_Modi_Click()IfDataList1.Text=""ThenMsgBox"請選擇要修改的用戶"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