vstudio與SQL2005圖書(shū)管理系統(tǒng)

學(xué)號(hào)10000000天津理工大學(xué)中環(huán)信息學(xué)院數(shù)據(jù)庫(kù)應(yīng)用技術(shù)課程設(shè)計(jì)設(shè)計(jì)說(shuō)明書(shū)慶陽(yáng)三中圖書(shū)管理系統(tǒng)起止日期：2012年6月11日至2012年6月22日學(xué)生姓名邵志奇班級(jí)軟件2班成績(jī)計(jì)算機(jī)工程系2012年6月21日

天津理工大學(xué)中環(huán)信息學(xué)院課程設(shè)計(jì)任務(wù)書(shū)2011—2012學(xué)年第2學(xué)期計(jì)算機(jī)工程系軟件工程專(zhuān)業(yè)10軟件2班課程設(shè)計(jì)名稱(chēng)：數(shù)據(jù)庫(kù)應(yīng)用技術(shù)課程設(shè)計(jì)設(shè)計(jì)題目：慶陽(yáng)三中圖書(shū)管理系統(tǒng)完成期限：自2012年6月11日至2012年6月22日共2周設(shè)計(jì)依據(jù)、要求及主要內(nèi)容（可另加附頁(yè)）：目錄1.問(wèn)題描述 1.1背景 1.2數(shù)據(jù)需求 1.3關(guān)系模式 ２.方案圖表設(shè)計(jì) 2.1E-R圖 3.數(shù)據(jù)庫(kù)源代碼 3.1數(shù)據(jù)庫(kù)建立 3.2數(shù)據(jù)初始化 4.結(jié)果數(shù)據(jù)處理 4.11如圖得到表.................................................................................................................................................5.vb與SQL連接實(shí)現(xiàn)界面 15.1.1學(xué)生登陸界面實(shí)現(xiàn).............................................................................................................5.1.2管理員界面的實(shí)現(xiàn)............................................................................................................6.總結(jié)5.1課程設(shè)計(jì)心得 5.2查詢(xún)資料1.問(wèn)題描述1.1背景近幾年，我慶陽(yáng)三中的不斷發(fā)展圖書(shū)館頁(yè)也應(yīng)作相應(yīng)改善，圖書(shū)數(shù)量也相應(yīng)的增加，有關(guān)圖書(shū)的各種信息量也會(huì)隨之成倍增加，面對(duì)著龐大的信息量，傳統(tǒng)的人工方式管理會(huì)導(dǎo)致圖書(shū)館管理上的混亂，人力與物力過(guò)多浪費(fèi)，圖書(shū)館管理費(fèi)用的增加，從而使圖書(shū)館的負(fù)擔(dān)過(guò)重，影響整個(gè)圖書(shū)館的運(yùn)作和控制管理，因此，必須制定一套合理、有效，規(guī)范和實(shí)用的圖書(shū)管理系統(tǒng)，對(duì)圖書(shū)資料進(jìn)行集中統(tǒng)一的管理。但是隨著IT產(chǎn)業(yè)的飛速發(fā)展，計(jì)算機(jī)應(yīng)用已滲透到了各個(gè)領(lǐng)域，引起信息管理的革命，實(shí)現(xiàn)了信息的自動(dòng)化處理，提高了處理的及時(shí)性和正確性。因此我決定為三中圖書(shū)館做一個(gè)圖書(shū)管理系統(tǒng)以提高工作效率，降低開(kāi)銷(xiāo)。作到信息的規(guī)范管理，科學(xué)統(tǒng)計(jì)和快速查詢(xún)，讓圖書(shū)館更好的為學(xué)校，社會(huì)服務(wù)。1.2數(shù)據(jù)需求圖書(shū)館管理信息系統(tǒng)需要完成功能主要有：1.讀者基本信息的輸入，包括借書(shū)證編號(hào)、讀者姓名、讀者性別。2．讀者基本信息的查詢(xún)、修改，包括讀者借書(shū)證編號(hào)、讀者姓名、讀者性別等。3．書(shū)籍類(lèi)別標(biāo)準(zhǔn)的制定、類(lèi)別信息的輸入，包括類(lèi)別編號(hào)、類(lèi)別名稱(chēng)。4．書(shū)籍類(lèi)別信息的查詢(xún)、修改，包括類(lèi)別編號(hào)、類(lèi)別名稱(chēng)。5．書(shū)籍庫(kù)存信息的輸入，包括書(shū)籍編號(hào)、書(shū)籍名稱(chēng)、書(shū)籍類(lèi)別、作者姓名、出版社名稱(chēng)、出版日期、登記日期。6．書(shū)籍庫(kù)存信息的查詢(xún)，修改，包括書(shū)籍編號(hào)、書(shū)籍名稱(chēng)、書(shū)籍類(lèi)別、作者姓名、出版社名稱(chēng)、出版日期登記日期等。7．借書(shū)信息的輸入，包括讀者借書(shū)證編號(hào)、書(shū)籍編號(hào)、借書(shū)日期。8．借書(shū)信息的查詢(xún)、修改，包括借書(shū)證編號(hào)、讀者編號(hào)、讀者姓名、書(shū)籍編號(hào)、書(shū)籍名稱(chēng)、借書(shū)日期等。9．還書(shū)信息的輸入，包括借書(shū)證編號(hào)、書(shū)籍編號(hào)、還書(shū)日期。10．還書(shū)信息的查詢(xún)和修改，包括還書(shū)讀者借書(shū)證編號(hào)、讀者姓名、書(shū)籍編號(hào)、書(shū)籍名稱(chēng)、借書(shū)日期、還書(shū)日期等。11．超期還書(shū)罰款輸入，還書(shū)超出期限包括超出期限還書(shū)的讀者借書(shū)證號(hào)，書(shū)籍編號(hào)，罰款金額。12．超期還書(shū)罰款查詢(xún)，刪除，包括讀者借書(shū)證編號(hào)、讀者姓名、書(shū)籍編號(hào)、書(shū)籍名稱(chēng)，罰款金額等1.3關(guān)系模式書(shū)籍類(lèi)別（種類(lèi)編號(hào)，種類(lèi)名稱(chēng)）讀者（借書(shū)證編號(hào)，讀者姓名，讀者性別，讀者種類(lèi)，登記時(shí)期）書(shū)籍（書(shū)籍編號(hào)，書(shū)籍名稱(chēng)，書(shū)籍類(lèi)別，書(shū)記作者，出版社名稱(chēng)，出版日期，登記日期）借閱（借書(shū)證編號(hào)，書(shū)籍編號(hào)，讀者借書(shū)時(shí)間）還書(shū)（借書(shū)證編號(hào)，書(shū)籍編號(hào)，讀者還書(shū)時(shí)間）罰款（借書(shū)證編號(hào)，讀者姓名，借書(shū)證編號(hào)，書(shū)籍編號(hào)，讀者借書(shū)時(shí)間）以上通過(guò)關(guān)系代數(shù)方法的進(jìn)行運(yùn)算得到所需要的結(jié)果，在實(shí)驗(yàn)結(jié)果中可以看到。２.方案圖表設(shè)計(jì)2.1E-R圖根據(jù)1）所要實(shí)現(xiàn)的功能設(shè)計(jì)，可能建立它們之間的關(guān)系，進(jìn)而實(shí)現(xiàn)邏輯結(jié)構(gòu)功能。圖書(shū)管理信息系統(tǒng)可以劃分的實(shí)體有：書(shū)籍類(lèi)別信息實(shí)體、讀者信息實(shí)體、書(shū)籍信息實(shí)體、借閱記錄信息實(shí)體，歸還記錄信息實(shí)體。用E-R圖一一描述這些實(shí)體。圖2-1類(lèi)別實(shí)體E-R圖2.1.1讀者信息實(shí)體E-R圖：讀者信息實(shí)體讀者信息實(shí)體讀者借書(shū)證編號(hào)讀者姓名讀者性別讀者種類(lèi)e登記時(shí)間圖2-2讀者信息實(shí)體E-R圖2.1.2信息實(shí)體E-R圖：書(shū)籍信息實(shí)體書(shū)籍信息實(shí)體書(shū)籍編號(hào)書(shū)籍名稱(chēng)書(shū)籍類(lèi)別編號(hào)書(shū)籍作者出版時(shí)間收錄時(shí)間是否被借出版社圖2-3信息實(shí)體E-R圖2.1.3.記錄信息實(shí)體E-R圖：讀者借書(shū)證編號(hào)讀者借書(shū)證編號(hào)書(shū)籍類(lèi)別編號(hào)借閱時(shí)間隔借閱記錄信息實(shí)體實(shí)體圖2-4記錄信息實(shí)體E-R圖2.1.4記錄信息實(shí)體E-R圖：歸還記錄信息實(shí)體實(shí)體歸還記錄信息實(shí)體實(shí)體讀者借書(shū)證編號(hào)書(shū)籍類(lèi)別編號(hào)歸還時(shí)間隔圖2-5記錄信息實(shí)體E-R圖2.1.5罰款信息實(shí)體E-R圖：罰款信息實(shí)體實(shí)體罰款信息實(shí)體實(shí)體書(shū)籍類(lèi)別編號(hào)罰款金額讀者姓名讀者借書(shū)證編號(hào)書(shū)籍名稱(chēng)借閱時(shí)間隔圖2-6罰款信息實(shí)體E-R圖2.1.6總的信息實(shí)體E-R圖：信息登記信息登記讀者實(shí)體書(shū)籍實(shí)體書(shū)類(lèi)別實(shí)體歸還借閱罰款罰款信息實(shí)體還書(shū)信息實(shí)體借閱信息實(shí)體實(shí)體SQL2005中的代碼實(shí)現(xiàn)上面數(shù)據(jù)庫(kù)CREATEDATABASElibrarysystemON(NAME=librarysystem,FILENAME='d:\librarysystem.mdf',SIZE=10,MAXSIZE=50,FILEGROWTH=5)LOGON(NAME='library',FILENAME='d:\librarysystem.ldf',SIZE=5MB,MAXSIZE=25MB,FILEGROWTH=5MB)GOcreatetablebook_style(bookstylenovarchar(30)primarykey,bookstylevarchar(30))createtablesystem_books(bookidvarchar(20)primarykey,booknamevarchar(30)Notnull,bookstylenovarchar(30)Notnull,bookauthorvarchar(30),bookpubvarchar(30),bookpubdatedatetime,bookindatedatetime,isborrowedvarchar(2),foreignkey(bookstyleno)referencesbook_style(bookstyleno),)createtablesystem_readers(readeridvarchar(9)primarykey,readernamevarchar(9)notnull,readersexvarchar(2)notnull,readertypevarchar(10),passwordvarchar(10),regdatedatetime)createtableborrow_record(bookidvarchar(20)primarykey,readeridvarchar(9),borrowdatedatetime,foreignkey(bookid)referencessystem_books(bookid),foreignkey(readerid)referencessystem_readers(readerid),)createtablereturn_record(bookidvarchar(20)primarykey,readeridvarchar(9),returndatedatetime,foreignkey(bookid)referencessystem_books(bookid),foreignkey(readerid)referencessystem_readers(readerid))createtablereader_fee(readeridvarchar(9)notnull,readernamevarchar(9)notnull,bookidvarchar(20)primarykey,booknamevarchar(30)Notnull,bookfeevarchar(30),borrowdatedatetime,foreignkey(bookid)referencessystem_books(bookid),foreignkey(readerid)referencessystem_readers(readerid))insertintobook_style(bookstyleno,bookstyle)values('1','理科類(lèi)')insertintobook_style(bookstyleno,bookstyle)values('2','文科類(lèi)')insertintobook_style(bookstyleno,bookstyle)values('3','歷史類(lèi)')insertintobook_style(bookstyleno,bookstyle)values('4','政治類(lèi)')insertintobook_style(bookstyleno,bookstyle)values('5','文學(xué)類(lèi)')insertintobook_style(bookstyleno,bookstyle)values('6','競(jìng)賽類(lèi)')insertintobook_style(bookstyleno,bookstyle)values('7','自然科學(xué)類(lèi)')insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000001','高三數(shù)學(xué)','1','王英','人民教育出版社','2008-01-03','2010-11-15','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000002','高二化學(xué)','1','王愛(ài)','人民教育出版社','2009-01-03','2012-1-15','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000003','高一物理','1','薩師煊','初等教育出版社','2010-08-02','2011-09-15','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000004','高三生物','1','譚浩','人民教育出版社','2010-04-02','2011-03-14','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000005','高一數(shù)學(xué)','1','石英','浙江大學(xué)出版社','2010-10-03','2011-11-15','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000006','高中數(shù)學(xué)競(jìng)賽','6','吳偉民','清華大學(xué)出版社','2010-06-28','2011-01-21','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000007','中國(guó)近代史','3','吳強(qiáng)','人民教育出版社','2010-04-03','2012-01-05','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000008','中華五千年','3','趙文華','北京大學(xué)出版社','2009-02-02','2011-09-15','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000009','中國(guó)儒家文化','5','吳小鵬','北京大學(xué)出版社','2010-04-02','2011-03-14','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000010','高三政治','2','李小剛','人民教育出版社','2008-10-03','2010-11-15','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000011','讀者2012-6','5','蘇慶東','甘肅出版社','2012-05-28','2012-06-21','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000012','人與自然','2','蘇慶東','甘肅文學(xué)出版社','2010-02-28','2011-01-21','1');insertintosystem_readers(readerid,readername,readersex,readertype,regdate)values('X000123','陳遠(yuǎn)鵬','男','學(xué)生','2010-9-2314:23:56')insertintosystem_readers(readerid,readername,readersex,readertype,regdate)values('X000124','陳特','男','學(xué)生','2010-09-3013:24:54.623')insertintosystem_readers(readerid,readername,readersex,readertype,regdate)values('X000134','趙銘靜','女','學(xué)生','2011-09-2711:24:54.123')insertintosystem_readers(readerid,readername,readersex,readertype,regdate)values('X000135','潘虹','女','學(xué)生','2011-09-3013:24:54.473')insertintosystem_readers(readerid,readername,readersex,readertype,regdate)values('00080','蔣偉','男','教師','2010-04-3009:24:54.478')insertintosystem_readers(readerid,readername,readersex,readertype,regdate)values('00081','李葉風(fēng)','女','教師','2010-04-3009:24:54.478')insertintoborrow_record(bookid,readerid,borrowdate)values('000009','X000135','2010-09-2711:24:54.123')updatesystem_bookssetisborrowed=0wherebookid='000009'andisborrowed='1'insertintoborrow_record(bookid,readerid,borrowdate)values('000001','X000123','2012-12-2708:26:51.452')updatesystem_bookssetisborrowed=0wherebookid='000001'andisborrowed='1'insertintoborrow_record(bookid,readerid,borrowdate)values('000003','X000134','2010-12-2708:26:51.452')updatesystem_bookssetisborrowed=0wherebookid='000003'andisborrowed='1'insertintoborrow_record(bookid,readerid,borrowdate)values('000005','X000124','2013-10-2112:11:51.452')updatesystem_bookssetisborrowed=0wherebookid='000005'andisborrowed='1'insertintoborrow_record(bookid,readerid,borrowdate)values('000007','00081','2012-12-2814:11:51.312')updatesystem_bookssetisborrowed=0wherebookid='000007'andisborrowed='1'insertintoborrow_record(bookid,readerid,borrowdate)values('000012','00080','2012-08-2815:11:31.512')updatesystem_bookssetisborrowed=0wherebookid='000012'andisborrowed='1'用V-S-2005實(shí)現(xiàn)上述管理員登錄界面ImportsSystem.Data.SqlClientPublicClass圖書(shū)管理系統(tǒng)首頁(yè)P(yáng)rivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click'定義的是SqlConnection類(lèi)一個(gè)對(duì)象，對(duì)象名是SqlCon1，參數(shù)是連接字符串DimSqlCon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrSelectAsString'定義的是string（字符串類(lèi)型）的一個(gè)變量，變量名是strSelect'給字符串變量賦值，賦的是SQL語(yǔ)句strSelect="select*from管理員where管理員ID='"+TextBox1.Text+"'andpassword='"+TextBox2.Text+"'"SqlCon1.Open()DimsqlcomAsNewSqlCommand(strSelect,SqlCon1)'定義的是SqlCommand類(lèi)的對(duì)象，對(duì)象名是sqlcomDimsqlreaderAsSqlDataReader=sqlcom.ExecuteReader()IfTextBox1.Text=""ThenMsgBox("請(qǐng)輸入用戶(hù)名")ElseIfTextBox2.Text=""ThenMsgBox("請(qǐng)輸入密碼")ElseIfsqlreader.Read()ThenTextBox1.Clear()TextBox2.Clear()DimfrmAsNew管理員界面frm.Show()'連接到圖書(shū)管理員面并顯示界面ElseMsgBox("用戶(hù)名或密碼錯(cuò)誤，請(qǐng)重新輸入")TextBox1.Clear()TextBox2.Clear()EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click'定義的是SqlConnection類(lèi)一個(gè)對(duì)象，對(duì)象名是SqlCon1，參數(shù)是連接字符串DimSqlCon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrSelectAsString'定義的是string（字符串類(lèi)型）的一個(gè)變量，變量名是strSelect'給字符串變量賦值，賦的是SQL語(yǔ)句strSelect="select*fromsystem_readerswherereaderid='"+TextBox1.Text+"'andpassword='"+TextBox2.Text+"'"SqlCon1.Open()DimsqlcomAsNewSqlCommand(strSelect,SqlCon1)'定義的是SqlCommand類(lèi)的對(duì)象，對(duì)象名是sqlcomDimsqlreaderAsSqlDataReader=sqlcom.ExecuteReader()IfTextBox1.Text=""ThenMsgBox("請(qǐng)輸入用戶(hù)名")ElseIfTextBox2.Text=""ThenMsgBox("請(qǐng)輸入密碼")ElseIfsqlreader.Read()ThenTextBox1.Clear()TextBox2.Clear()DimfrmAsNew你已進(jìn)入圖書(shū)管理系統(tǒng)frm.Show()'連接到圖書(shū)管理界面并顯示界面ElseMsgBox("用戶(hù)名或密碼錯(cuò)誤，請(qǐng)重新輸入")TextBox1.Clear()TextBox2.Clear()EndIfEndSubEndClass實(shí)現(xiàn)學(xué)生登錄按鈕代碼如下ImportsSystem.Data.SqlClientPublicClass圖書(shū)管理系統(tǒng)首頁(yè)P(yáng)rivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click'定義的是SqlConnection類(lèi)一個(gè)對(duì)象，對(duì)象名是SqlCon1，參數(shù)是連接字符串DimSqlCon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrSelectAsString'定義的是string（字符串類(lèi)型）的一個(gè)變量，變量名是strSelect'給字符串變量賦值，賦的是SQL語(yǔ)句strSelect="select*from管理員where管理員ID='"+TextBox1.Text+"'andpassword='"+TextBox2.Text+"'"SqlCon1.Open()DimsqlcomAsNewSqlCommand(strSelect,SqlCon1)'定義的是SqlCommand類(lèi)的對(duì)象，對(duì)象名是sqlcomDimsqlreaderAsSqlDataReader=sqlcom.ExecuteReader()IfTextBox1.Text=""ThenMsgBox("請(qǐng)輸入用戶(hù)名")ElseIfTextBox2.Text=""ThenMsgBox("請(qǐng)輸入密碼")ElseIfsqlreader.Read()ThenTextBox1.Clear()TextBox2.Clear()DimfrmAsNew管理員界面frm.Show()'連接到圖書(shū)管理員面并顯示界面ElseMsgBox("用戶(hù)名或密碼錯(cuò)誤，請(qǐng)重新輸入")TextBox1.Clear()TextBox2.Clear()EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click'定義的是SqlConnection類(lèi)一個(gè)對(duì)象，對(duì)象名是SqlCon1，參數(shù)是連接字符串DimSqlCon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrSelectAsString'定義的是string（字符串類(lèi)型）的一個(gè)變量，變量名是strSelect'給字符串變量賦值，賦的是SQL語(yǔ)句strSelect="select*fromsystem_readerswherereaderid='"+TextBox1.Text+"'andpassword='"+TextBox2.Text+"'"SqlCon1.Open()DimsqlcomAsNewSqlCommand(strSelect,SqlCon1)'定義的是SqlCommand類(lèi)的對(duì)象，對(duì)象名是sqlcomDimsqlreaderAsSqlDataReader=sqlcom.ExecuteReader()IfTextBox1.Text=""ThenMsgBox("請(qǐng)輸入用戶(hù)名")ElseIfTextBox2.Text=""ThenMsgBox("請(qǐng)輸入密碼")ElseIfsqlreader.Read()ThenTextBox1.Clear()TextBox2.Clear()DimfrmAsNew你已進(jìn)入圖書(shū)管理系統(tǒng)frm.Show()'連接到圖書(shū)管理界面并顯示界面ElseMsgBox("用戶(hù)名或密碼錯(cuò)誤，請(qǐng)重新輸入")TextBox1.Clear()TextBox2.Clear()EndIfEndSubEndClass管理員界面代碼ImportsSystem.Data.SqlClientPublicClass管理員界面PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimsqlcon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrselectAsStringstrselect="select*fromsystem_books"'wherebooknamelike'%"+TextBox1.Text+"%'"DimmydataadaAsNewSqlDataAdapter(strselect,sqlcon1)DimmydatasetAsNewDataSet()sqlcon1.Open()mydataada.Fill(mydataset,"system_books")DataGridView1.DataSource=mydataset.Tables("system_books")sqlcon1.Close()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimsqlcon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrselectAsStringstrselect="select*fromsystem_readers"'wherereaderidlike'%"+TextBox1.Text+"%'"DimmydataadaAsNewSqlDataAdapter(strselect,sqlcon1)DimmydatasetAsNewDataSet()sqlcon1.Open()mydataada.Fill(mydataset,"system_readers")DataGridView1.DataSource=mydataset.Tables("system_readers")sqlcon1.Close()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimsqlcon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrselectAsStringstrselect="select*fromborrow_record"'wherereaderidlike'%"+TextBox1.Text+"%'"DimmydataadaAsNewSqlDataAdapter(strselect,sqlcon1)DimmydatasetAsNewDataSet()sqlcon1.Open()mydataada.Fill(mydataset,"borrow_record")DataGridView1.DataSource=mydataset.Tables("borrow_record")sqlcon1.Close()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimsqlcon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrselectAsStringstrselect="insertintosystem_booksvalues('"+TextBox2.Text+"','"+TextBox3.Text+"','"+TextBox4.Text+"','"+TextBox5.Text+"','"+TextBox6.Text+"','"+TextBox7.Text+"','"+TextBox8.Text+"','"+TextBox9.Text+"')"sqlcon1.Open()DimBAsIntegerDimsqlreaderAsNewSqlCommand(strselect,sqlcon1)B=sqlreader.ExecuteNonQuery()MsgBox("插入成功")EndSubPrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.ClickDimSqlcon13AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrselectAsStringstrselect="deletefromsystem_bookswherebookid='"+TextBox10.Text+"'"Sqlcon13.Open()DimBAsIntegerDimsqlreaderAsNewSqlCommand(strselect,Sqlcon13)B=sqlreader.ExecuteNonQuery()MsgBox("刪除成功")EndSubPrivateSub管理員界面_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubPrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSubPrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.ClickMe.Close()EndSubPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickDimsqlcon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrselectAsStringstrselect="select*fromreturn_record"'wherereaderidlike'%"+TextBox1.Text+"%'"DimmydataadaAsNewSqlDataAdapter(strselect,sqlcon1)DimmydatasetAsNewDataSet()sqlcon1.Open()mydataada.Fill(mydataset,"return_record")DataGridView1.DataSource=mydataset.Tables("return_record")sqlcon1.Close()EndSubPrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox1.TextChangedEndSubPrivateSubButton6_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.ClickDimSqlcon13AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrselectAsStringstrselect="deletefromborrow_recordwherebookid='"+TextBox1.Text+"'"Sqlcon13.Open()DimBAsIntegerDimsqlreaderAsNewSqlCommand(strselect,Sqlcon13)B=sqlreader.ExecuteNonQuery()MsgBox("刪除成功")EndSubPrivateSubDataGridView1_CellContentClick(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.DataGridViewCellEventArgs)HandlesDataGridView1.CellContentClickEndSubEndClass學(xué)生端查書(shū)窗口代碼ImportsSystem.Data.SqlClientPublicClass你已進(jìn)入圖書(shū)管理系統(tǒng)PrivateSub你已進(jìn)入圖書(shū)管理系統(tǒng)_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubPrivateSubLabel3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel3.ClickEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimsqlcon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrselectAsStringstrselect="select*fromsystem_bookswherebooknamelike'%"+TextBox1.Text+"%'"DimmydataadaAsNewSqlDataAdapter(strselect,sqlcon1)DimmydatasetAsNewDataSet()sqlcon1.Open()mydataada.Fill(mydataset,"system_books")DataGridView1.DataSource=mydataset.Tables("system_books")sqlcon1.Close()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSubPrivateSubLabel7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSubPrivateSubButton3_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimsqlcon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrselectAsStringstrselect="select*fromsystem_bookswherebookidlike'%"+TextBox2.Text+"%'"DimmydataadaAsNewSqlDataAdapter(strselect,sqlcon1)DimmydatasetAsNewDataSet()sqlcon1.Open()mydataada.Fill(mydataset,"system_books")DataGridView1.DataSource=mydataset.Tables("system_books")sqlcon1.Close()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSubPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickDimsqlcon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrselectAsStringstrselect="select*fromsystem_bookswherebookauthorlike'%"+TextBox3.Text+"%'"DimmydataadaAsNewSqlDataAdapter(strselect,sqlcon1)DimmydatasetAsNewDataSet()sqlcon1.Open()mydataada.Fill(mydataset,"system_books")DataGridView1.DataSource=mydataset.Tables("system_books")sqlcon1.Close()EndSubPrivateSubComboBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSubPrivateSubListView1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSubPrivateSubToolStripLabel1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSubPrivateSubToolStripButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)EndSubPrivateSubButton4_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimsqlcon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrinsertAsStringDimtodayAsStringtoday=Now()strinsert="insertintoborrow_recordvalues('"+TextBox4.Text+"','"+TextBox5.Text+"','"+today+"')"sqlcon1.Open()DimBAsIntegerDimsqlborrowAsNewSqlCommand(strinsert,sqlcon1)B=sqlborrow.ExecuteNonQuery()'-----------------------插入借書(shū)記錄DimSqlcon15AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrSelectAsStringstrSelect="updatesystem_bookssetisborrowed='0'wherebookid=('"+TextBox4.Text+"')"Sqlcon15.Open()DimoAsIntegerDimsqlreaderAsNewSqlCommand(strSelect,Sqlcon15)