1、學(xué)號10000000天津理工大學(xué)中環(huán)信息學(xué)院數(shù)據(jù)庫應(yīng)用技術(shù)課程設(shè)計(jì)設(shè)計(jì)說明書慶陽三中圖書管理系統(tǒng)起止日期：2012年6月11日至2012年6月22日學(xué)生姓名邵志奇班級軟件 2 班成績計(jì)算機(jī)工程系20122012 年 6 6 月 2121 日天津理工大學(xué)中環(huán)信息學(xué)院課程設(shè)計(jì)任務(wù)書2011 2012 學(xué)年第 2 學(xué)期計(jì)算機(jī)工程系 軟件工程專業(yè)10軟件2班課程設(shè)計(jì)名稱：數(shù)據(jù)庫應(yīng)用技術(shù)課程設(shè)計(jì)設(shè)計(jì)題目：慶陽三中圖書管理系統(tǒng)完成期限：自2012年6月11日至2012年6月22日共2周設(shè)計(jì)依據(jù)、要求及主要內(nèi)容（可另加附頁）目錄1.1.問題描述1.1 背景1.2 數(shù)據(jù)需求1.3 關(guān)系模式2.方案圖表設(shè)計(jì)2.

2、1 E-R 圖3.3.數(shù)據(jù)庫源代碼3.1 數(shù)據(jù)庫建立3.2 數(shù)據(jù)初始化4.4.結(jié)果數(shù)據(jù)處理4.11 如圖得到表 .5.VB5.VB 與 SQLSQL 連接實(shí)現(xiàn)界面 1 15.1.1學(xué)生登陸界面實(shí)現(xiàn) .5.1.2管理員界面的實(shí)現(xiàn) .6.總結(jié)5.1 課程設(shè)計(jì)心得5.2查詢資料1.1.問題描述近幾年，我慶陽三中的不斷發(fā)展圖書館頁也應(yīng)作相應(yīng)改善，圖書數(shù)量也相應(yīng)的增 加，有關(guān)圖書的各種信息量也會(huì)隨之成倍增加，面對著龐大的信息量，傳統(tǒng)的人工方 式管理會(huì)導(dǎo)致圖書館管理上的混亂，人力與物力過多浪費(fèi)，圖書館管理費(fèi)用的增加， 從而使圖書館的負(fù)擔(dān)過重，影響整個(gè)圖書館的運(yùn)作和控制管理，因此，必須制定一套 合理、有效，

3、規(guī)范和實(shí)用的圖書管理系統(tǒng)，對圖書資料進(jìn)行集中統(tǒng)一的管理。但是隨著IT產(chǎn)業(yè)的飛速發(fā)展，計(jì)算機(jī)應(yīng)用已滲透到了各個(gè)領(lǐng)域，引起信息管理的革命， 實(shí)現(xiàn)了信息的自動(dòng)化處理，提高了處理的及時(shí)性和正確性。因此我決定為三中圖書館做一個(gè)圖書管理系統(tǒng)以提高工作效率，降低開銷。作到信息的規(guī)范管理，科學(xué)統(tǒng)計(jì)和快速查詢，讓圖書館更好的為學(xué)校，社會(huì)服務(wù)。1.2數(shù)據(jù)需求圖書館管理信息系統(tǒng)需要完成功能主要有：1.讀者基本信息的輸入，包括借書證編號、讀者姓名、讀者性別。2讀者基本信息的查詢、修改，包括讀者借書證編號、讀者姓名、讀者性別等。3書籍類別標(biāo)準(zhǔn)的制定、類別信息的輸入，包括類別編號、類別名稱。4書籍類別信息的查詢、修改，包

4、括類別編號、類別名稱。5書籍庫存信息的輸入，包括書籍編號、書籍名稱、書籍類別、作者姓名、出版社 名稱、出版日期、登記日期。6書籍庫存信息的查詢，修改，包括書籍編號、書籍名稱、書籍類別、作者姓名、 出版社名稱、出版日期登記日期等。7借書信息的輸入，包括讀者借書證編號、書籍編號、借書日期。8借書信息的查詢、修改，包括借書證編號、讀者編號、讀者姓名、書籍編號、書 籍名稱、借書日期等。9還書信息的輸入，包括借書證編號、書籍編號、還書日期。10還書信息的查詢和修改，包括還書讀者借書證編號、讀者姓名、書籍編號、書 籍名稱、借書日期、還書日期等。11超期還書罰款輸入，還書超出期限包括超出期限還書的讀者借書證

5、號，書籍編 號，罰款金額。12超期還書罰款查詢，刪除，包括讀者借書證編號、讀者姓名、書籍編號、書籍 名稱，罰款金額等1.3關(guān)系模式（一）書籍類別（種類編號，種類名稱）（二）讀者（借書證編號，讀者姓名，讀者性別，讀者種類，登記時(shí)期）（三）書籍（書籍編號，書籍名稱，書籍類別，書記作者，出版社名稱，出版日期，登記日 期）（四）借閱（借書證編號，書籍編號，讀者借書時(shí)間）（五）還書（借書證編號，書籍編號，讀者還書時(shí)間）（六）罰款（借書證編號，讀者姓名，借書證編號，書籍編號，讀者借書時(shí)間） 以上通過關(guān)系代數(shù)方法的進(jìn)行運(yùn)算得到所需要的結(jié)果，在實(shí)驗(yàn)結(jié)果中可以看到。2.方案圖表設(shè)計(jì)2.1 E-R圖根據(jù)1）所要實(shí)

6、現(xiàn)的功能設(shè)計(jì)，可能建立它們之間的關(guān)系，進(jìn)而實(shí)現(xiàn)邏輯結(jié)構(gòu)功能。 圖書管理信息系統(tǒng)可以劃分的實(shí)體有：書籍類別信息實(shí)體、讀者信息實(shí)體、書籍信息實(shí) 體、借閱記錄信息實(shí)體，歸還記錄信息實(shí)體。用E-R圖一一描述這些實(shí)體。圖2-1類別實(shí)體E-R圖2.1.12.1.1 讀者信息實(shí)體 E-RE-R 圖：圖2-2讀者信息實(shí)體E-R圖2.1.22.1.2 信息實(shí)體 E-RE-R 圖：圖2-3信息實(shí)體E-R圖2.1.32.1.3. .記錄信息實(shí)體 E-RE-R 圖:圖2-4記錄信息實(shí)體E-R圖2.1.42.1.4 記錄信息實(shí)體 E-RE-R 圖：圖2-5記錄信息實(shí)體E-R圖2.1.52.1.5 罰款信息實(shí)體 E-RE

7、-R 圖：圖2-6罰款信息實(shí)體E-R圖2.1.62.1.6 總的信息實(shí)體 E-RE-R 圖:SQL2005中的代碼實(shí)現(xiàn)上面數(shù)據(jù)庫CREATE DATABASE librarysystem ON(NAME = librarysystem,FILENAME = d:librarysystem.mdf, SIZE = 10,MAXSIZE = 50,FILEGROWTH = 5 )LOG ON(NAME = library,FILENAME = d:librarysystem.ldf, SIZE = 5MB,MAXSIZE = 25MB,FILEGROWTH = 5MB )GOcreate tabl

8、e book_style(bookstyle no varchar(30) primary key, bookstyle varchar(30)create table system_books(bookid varchar(20) primary key, book name varchar(30) Not n ull, bookstyle no varchar(30) Not null,bookauthor varchar(30),bookpub varchar(30), bookpubdate datetime, bookindate datetime , isborrowed varc

9、har (2) ,foreign key (bookstyleno) references book_style (bookstyleno),)create table system_readers ( readerid varchar(9)primary key,readername varchar(9)not null , readersex varchar(2) not null, readertype varchar(10), passwordvarchar(10), regdate datetime)create table borrow_record ( bookid varcha

10、r(20) primary key,readerid varchar(9), borrowdate datetime, foreign key (bookid) references system_books(bookid),foreign key (readerid) references system_readers(readerid),)create table return_record ( bookid varchar(20) primary key, readerid varchar(9), returndate datetime,foreign key (bookid) refe

11、rences system_books(bookid), foreign key (readerid) referencessystem_readers(readerid)create table reader_fee ( readerid varchar(9)not null,readername varchar(9)not null , bookid varchar(20) primary key, bookname varchar(30) Not null,bookfee varchar(30) , borrowdate datetime, foreign key (bookid) re

12、ferences system_books(bookid),foreign key (readerid) references system_readers(readerid)insert into book_style(bookstyleno,bookstyle)values(1,理科類) insert intobook_style(bookstyleno,bookstyle)values(2,文科類) insert intobook_style(bookstyleno,bookstyle)values(3,歷史類) insert intobook_style(bookstyleno,boo

13、kstyle)values(4,政治類) insert intobook_style(bookstyleno,bookstyle)values(5,文學(xué)類) insert intobook_style(bookstyleno,bookstyle)values(6,競賽類) insert intobook_style(bookstyleno,bookstyle)values(7,自然科學(xué)類) insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub,bookpubdate, bookindate,isborr

14、owed )values(OOOOO1,高三數(shù)學(xué),1,王英,人民教育出版社,2008-01-03,2010-11-15,1)。insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub,bookpubdate, bookindate,isborrowed )values(000002,高二化學(xué),1,王愛,人民教育出版社,2009-01-03,2012-1-15,1)。insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub

15、, bookpubdate,bookindate,isborrowed )values(000003,高一物理,1,薩師煊,初等教育出版社,2010-08-02,2011-09-15,1)。insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub,bookpubdate, bookindate,isborrowed )values(OOOOO4,高三生物,1,譚浩,人民教育出版社,2010-04-02,2011-03-14,1)。insertinto system_books(bookid ,booknam

16、e, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate,isborrowed )values(000005,高一數(shù)學(xué),1,石英,浙江大學(xué)出版社,2010-10-03,2011-11-15,1)。insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate,isborrowed )values(000006,高中數(shù)學(xué)競賽,6,吳偉民,清華大學(xué)出版社,2010-06-28,2011-01-21,1)。inse

17、rtinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate,isborrowed )values(000007,中國近代史,3,吳強(qiáng),人民教育出版社,2010-04-03,2012-01-05,1)。insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate,isborrowed )values(000008,中華五千年,3,趙文華,北京

18、大學(xué)出版社,2009-02-02,2011-09-15,1)。insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate,isborrowed )values(000009,中國儒家文化,5,吳小鵬,北京大學(xué)出版社,2010-04-02,2011-03-14,1)。insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate,isb

19、orrowed )values(OOOO1O,高三政治,2,李小剛,人民教育出版社,2008-10-03,2010-11-15,1)。insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate,isborrowed )values(OOOO11,讀者2012-6,5,蘇慶東,甘肅出版社,2012-05-28,2012-06-21,1)。insert intosystem_books(bookid ,bookname, bookstyleno,bookauthor

20、,bookpub, bookpubdate,bookindate,isborrowed )values(000012,人與自然,2,蘇慶東,甘肅文學(xué)出版社,2010-02-28,2011-01-21,1)。insert into system_readers(readerid,readername,readersex,readertype,regdate)values(X000123,陳遠(yuǎn)鵬,男,學(xué)生,2010-9-23 14:23:56)insert into system_readers(readerid,readername,readersex,readertype,regdate)va

21、lues(X000124,陳特,男,學(xué)生,2010-09-30 13:24:54.623)insert into system_readers(readerid,readername,readersex,readertype,regdate)values(X000134,趙銘靜,女,學(xué)生,2011-09-27 11:24:54.123)insert into system_readers(readerid,readername,readersex,readertype,regdate)values(X000135,潘虹,女,學(xué)生,2011-09-30 13:24:54.473)insert i

22、nto system_readers(readerid,readername,readersex,readertype,regdate)values(00080,蔣偉,男,教師,2010-04-30 09:24:54.478)insert into system_readers(readerid,readername,readersex,readertype,regdate)values(00081,李葉風(fēng)，女,教師,2010-04-30 09:24:54.478)insert into borrow_record(bookid,readerid,borrowdate)values(00000

23、9,X000135,2010-09-27 11:24:54.123)update system_booksset isborrowed=0where bookid=000009and isborrowed=1insert into borrow_record(bookid,readerid,borrowdate)values(000001,X000123,2012-12-27 08:26:51.452)update system_booksset isborrowed=0where bookid=000001 and isborrowed=1insert into borrow_record(

24、bookid,readerid,borrowdate)values(000003,X000134,2010-12-27 08:26:51.452)update system_booksset isborrowed=0where bookid=000003 and isborrowed=1insert into borrow_record(bookid,readerid,borrowdate)values(000005,X000124,2013-10-21 12:11:51.452)update system_booksset isborrowed=0where bookid=000005 an

25、d isborrowed=1insert into borrow_record(bookid,readerid,borrowdate)values(000007,00081,2012-12-28 14:11:51.312)update system_booksset isborrowed=0where bookid=000007 and isborrowed=1insert into borrow_record(bookid,readerid,borrowdate)values(000012,00080,2012-08-28 15:11:31.512)update system_booksse

26、t isborrowed=0where bookid=000012 and isborrowed=1用 V-S-2005 實(shí)現(xiàn)上述管理員登錄界面Imports System.Data.SqlClientPublicClass 圖書管理系統(tǒng)首頁P(yáng)rivateSub Form1_Load(ByVal senderAs System.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadEndSubPrivateSub Button1_Click( ByVal senderAs System.Object, ByVal e As System.

27、EventArgs) Handles Button1.Click 定義的是 SqlConnection 類一個(gè)對象，對象名是 SqlConl，參數(shù)是連接字符串Dim SqlConl AsNew SqlConnection( Data Source=, Initial Catalog=librarysystem。Integrated Security=True) DimstrSelect AsString定義的是 string (字符串類型)的一個(gè)變量，變量名是strSelect給字符串變量賦值，賦的是SQL 語句strSelect = select * from 管理員 where 管理員 I

28、D= + TextBox1.Text + and password= + TextBox2.Text + SqlCon1.Open()Dim sqlcom AsNew SqlCommand(strSelect, SqlCon1)定義的是 SqlCommand 類的對象，對象名是 sqlcomDim sqlreader As SqlDataReader = sqlcom.ExecuteReader()If TextBox1.Text = ThenMsgBox( 請輸入用戶名 )ElseIf TextBox2.Text = ThenMsgBox(請輸入密碼”)ElseIf sqlreader.Re

29、ad()ThenTextBox1.Clear()TextBox2.Clear()Dim frm AsNew 管理員界面frm.Show() 連接到圖書管理員面并顯示界面ElseMsgBox(用戶名或密碼錯(cuò)誤，請重新輸入”)TextBox1.Clear()TextBox2.Clear()EndIfEndSubPrivateSub Button2_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()EndSubPrivateSub Button3_Click

30、( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Button3.Click 定義的是 SqlConnection 類一個(gè)對象，對象名是 SqlCon1，參數(shù)是連接字符串Dim SqlCon1 AsNew SqlConnection(Data Source=.。 Initial Catalog=librarysystem 。 Integrated Security=True) DimstrSelect AsString定義的是 string (字符串類型)的一個(gè)變量，變量名是strSelect給字符串變量賦

31、值，賦的是SQL 語句strSelect = select * from system_readers where readerid = + TextBox1.Text + and password= +TextBox2.Text + SqlCon1.Open() Dim sqlcom AsNew SqlCommand(strSelect, SqlCon1) 定義的是 SqlCommand 類的對象，對象名是 sqlcomDim sqlreader As SqlDataReader = sqlcom.ExecuteReader()If TextBox1.Text = ThenMsgBox( 請

32、輸入用戶名 )ElseIf TextBox2.Text = ThenMsgBox( 請輸入密碼 )ElseIf sqlreader.Read()ThenTextBox1.Clear()TextBox2.Clear()Dim frm AsNew 你已進(jìn)入圖書管理系統(tǒng)frm.Show() 連接到圖書管理界面并顯示界面ElseMsgBox( 用戶名或密碼錯(cuò)誤，請重新輸入)TextBox1.Clear()TextBox2.Clear()EndIfEndSubEndClass實(shí)現(xiàn)學(xué)生登錄按鈕 代碼如下Imports System.Data.SqlClientPublicClass 圖書管理系統(tǒng)首頁P(yáng)ri

33、vateSub Form1_Load(ByVal senderAs System.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadEndSubPrivateSub Button1_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Button1.Click 定義的是 SqlConnection 類一個(gè)對象，對象名是 SqlConl，參數(shù)是連接字符串Dim SqlConl AsNew SqlConnection( Data Source=

34、, Initial Catalog=librarysystem。Integrated Security=True)Dim strSelect AsString定義的是 string (字符串類型)的一個(gè)變量，變量名是strSelect給字符串變量賦值，賦的是SQL 語句strSelect = select * from 管理員 where 管理員 ID= + TextBox1.Text + and password= + TextBox2.Text + SqlCon1.Open()Dim sqlcom AsNew SqlCommand(strSelect, SqlCon1)定義的是 SqlCo

35、mmand 類的對象，對象名是 sqlcomDim sqlreader As SqlDataReader = sqlcom.ExecuteReader()If TextBox1.Text = ThenMsgBox(請輸入用戶名)ElseIf TextBox2.Text = ThenMsgBox( 請輸入密碼 )ElseIf sqlreader.Read()ThenTextBox1.Clear()TextBox2.Clear()Dim frm AsNew 管理員界面frm.Show() 連接到圖書管理員面并顯示界面ElseMsgBox( 用戶名或密碼錯(cuò)誤，請重新輸入)TextBox1.Clear

36、()TextBox2.Clear()EndIfEndSubPrivateSub Button2_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe .Close()EndSubPrivateSub Button3_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Button3.Click 定義的是 SqlConnection 類一個(gè)對象，對象名是 SqlConl，參數(shù)是

37、連接字符串Dim SqlConl AsNew SqlConnection( Data Source=, Initial Catalog=librarysystem。Integrated Security=True)Dim strSelect AsString定義的是 string (字符串類型)的一個(gè)變量，變量名是strSelect給字符串變量賦值，賦的是SQL 語句strSelect = select * from system_readers where readerid = + TextBox1.Text + and password= +TextBox2.Text + SqlCon1.

38、Open()Dim sqlcom AsNew SqlCommand(strSelect, SqlCon1)定義的是 SqlCommand 類的對象，對象名是 sqlcomDim sqlreader As SqlDataReader = sqlcom.ExecuteReader()If TextBox1.Text = ThenMsgBox(請輸入用戶名)ElseIf TextBox2.Text = ThenMsgBox( 請輸入密碼 )ElseIf sqlreader.Read()ThenTextBox1.Clear()TextBox2.Clear()Dim frm AsNew 你已進(jìn)入圖書管理

39、系統(tǒng)frm.Show() 連接到圖書管理界面并顯示界面ElseMsgBox(用戶名或密碼錯(cuò)誤，請重新輸入”)TextBox1.Clear()TextBox2.Clear()EndIfEndSubEndClass管理員界面代碼Imports System.Data.SqlClientPublicClass 管理員界面PrivateSub Button1_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim sqlcon1 AsNew SqlConnection(Data

40、 Source=.。 Initial Catalog=librarysystem 。 Integrated Security=True ) Dimstrselect AsStringstrselect = select * from system_books where bookname like % + TextBox1.Text + %Dim mydataada AsNew SqlDataAdapter(strselect, sqlcon1)Dim mydataset AsNew DataSet()sqlcon1.Open()mydataada.Fill(mydataset, system

41、_books )DataGridView1.DataSource = mydataset.Tables(system_books ) sqlcon1.Close()EndSubPrivateSub Button2_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim sqlcon1 AsNew SqlConnection( Data Source=.。 Initial Catalog=librarysystem 。 Integrated Security=True )

42、 Dimstrselect AsStringstrselect = select * from system_readers where readerid like % + TextBox1.Text + %Dim mydataada AsNew SqlDataAdapter(strselect, sqlcon1)Dim mydataset AsNew DataSet()sqlcon1.Open()mydataada.Fill(mydataset, system_readers)DataGridView1.DataSource = mydataset.Tables(system_readers

43、) sqlcon1.Close()EndSubPrivateSub Button3_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim sqlcon1 AsNew SqlConnection( Data Source=.。 Initial Catalog=librarysystem 。 Integrated Security=True ) Dimstrselect AsStringstrselect = select * from borrow_record whe

44、re readerid like % + TextBox1.Text + %Dim mydataada AsNew SqlDataAdapter(strselect, sqlcon1)Dim mydataset AsNew DataSet()sqlcon1.Open()mydataada.Fill(mydataset, borrow_record )DataGridView1.DataSource = mydataset.Tables(borrow_record ) sqlcon1.Close()EndSubPrivateSub Button4_Click( ByVal senderAs Sy

45、stem.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim sqlcon1 AsNew SqlConnection( Data Source=.。 Initial Catalog=librarysystem 。 Integrated Security=True ) Dimstrselect AsStringstrselect = insert into system_books values( + TextBox2.Text + , + TextBox3.Text + , + TextBox4.Text + ,+ Tex

46、tBox5.Text + , + TextBox6.Text + , + TextBox7.Text + , + TextBox8.Text + , + TextBox9.Text + )sqlcon1.Open()Dim B AsIntegerDim sqlreader AsNew SqlCommand(strselect, sqlcon1)B = sqlreader.ExecuteNonQuery()MsgBox( 插入成功 )EndSubPrivateSub Button7_Click( ByVal senderAs System.Object, ByVal e As System.Ev

47、entArgs) Handles Button7.Click DimSqlcon13 AsNew SqlConnection( Data Source=.。Initial Catalog=librarysystem。Integrated Security=True) Dimstrselect AsStringstrselect = delete from system_books where bookid= + TextBox10.Text + Sqlcon13.Open()Dim B AsIntegerDim sqlreader AsNew SqlCommand(strselect, Sql

48、con13)B = sqlreader.ExecuteNonQuery()MsgBox( 刪除成功 )EndSubPrivateSub 管 理 員 界 面 _Load(ByVal sender As System.Object, ByVal e As System.EventArgs)HandlesMyBase.LoadEndSubPrivateSub Button6_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs)EndSubPrivateSub Button8_Click( ByVal senderAs Sy

49、stem.Object, ByVal e As System.EventArgs) Handles Button8.ClickMe.Close()EndSubPrivateSub Button5_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dimsqlcon1 AsNew SqlConnection(Data Source=.。 Initial Catalog=librarysystem 。 Integrated Security=True ) Dimstrsel

50、ect AsStringstrselect = select * from return_record where readerid like % + TextBox1.Text + %Dim mydataada AsNew SqlDataAdapter(strselect, sqlcon1)Dim mydataset AsNew DataSet()sqlcon1.Open()mydataada.Fill(mydataset, return_record )DataGridView1.DataSource = mydataset.Tables( return_record ) sqlcon1.

51、Close()EndSubPrivateSub TextBox1 _TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesTextBox1.TextChangedEndSubPrivateSub Button6_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton6.ClickDim Sqlcon13 AsNew SqlConnection( Data Source=.。Initi

52、al Catalog=librarysystem 。Integrated Security=True ) Dimstrselect AsStringstrselect = delete from borrow_record where bookid= + TextBox1.Text + Sqlcon13.Open()Dim B AsIntegerDim sqlreader AsNew SqlCommand(strselect, Sqlcon13)B = sqlreader.ExecuteNonQuery()MsgBox( 刪除成功 )EndSubPrivateSub DataGridView1

53、_CellContentClick( ByVal sender As System.Object, ByVal e AsSystem.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClickEndSubEndClass學(xué)生端 查書窗口代碼Imports System.Data.SqlClientPublicClass 你已進(jìn)入圖書管理系統(tǒng)PrivateSub 你已進(jìn)入圖書管理系統(tǒng) _Load( ByVal sender As System.Object, ByVal e As System.E

54、ventArgs)HandlesMyBase.LoadEndSubPrivateSub Label3_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Label3.ClickEndSubPrivateSub Button1_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim sqlcon1 AsNew SqlConnection( Data Source=.。 Ini

55、tial Catalog=librarysystem 。 Integrated Security=True ) Dimstrselect AsStringstrselect = select * from system_books where bookname like % + TextBox1.Text + %Dim mydataada AsNew SqlDataAdapter(strselect, sqlcon1)Dim mydataset AsNew DataSet()sqlcon1.Open()mydataada.Fill(mydataset, system_books )DataGr

56、idView1.DataSource = mydataset.Tables(system_books ) sqlcon1.Close()EndSubPrivateSub Button2_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe .Close()EndSubPrivateSub Button3_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs)EndSubPrivateSub La

57、bel7_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs)EndSubPrivateSub Button3_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim sqlcon1 AsNew SqlConnection( Data Source=.。 Initial Catalog=librarysystem 。 Integrated Security=True ) Dimstrse

58、lect AsStringstrselect = select * from system_books where bookid like % + TextBox2.Text + %Dim mydataada AsNew SqlDataAdapter(strselect, sqlcon1)Dim mydataset AsNew DataSet()sqlcon1.Open()mydataada.Fill(mydataset, system_books )DataGridView1.DataSource = mydataset.Tables(system_books ) sqlcon1.Close

59、()EndSubPrivateSub Button4_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs)EndSubPrivateSub Button5_Click( ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dimsqlcon1 AsNew SqlConnection( Data Source=.。 Initial Catalog=librarysystem 。 Integrated Secur

60、ity=True ) Dimstrselect AsStringstrselect = select * from system_books where bookauthor like % + TextBox3.Text + %Dim mydataada AsNew SqlDataAdapter(strselect, sqlcon1)DimmydatasetAsNewDataSet()sqlcon1.Open()mydataada.Fill(mydataset,system_books)DataGridView1.DataSource = mydataset.Tables(system_boo