vstudio与SQL图管理完整

1、学号10000000天津理工大学中环信息学院数据库应用技术课程设计设计说明书庆阳三中图书管理系统起止日期：2012年6月11日至2012年6月22日学生姓名邵志奇班级软件 2 班成绩计算机工程系20122012 年 6 6 月 2121 日天津理工大学中环信息学院课程设计任务书2011 2012 学年第 2 学期计算机工程系 软件工程专业10软件2班课程设计名称：数据库应用技术课程设计设计题目：庆阳三中图书管理系统完成期限：自2012年6月11日至2012年6月22日共2周设计依据、要求及主要内容（可另加附页）目录1.1.问题描述1.1 背景1.2 数据需求1.3 关系模式2.方案图表设计2.

2、1 E-R 图3.3.数据库源代码3.1 数据库建立3.2 数据初始化4.4.结果数据处理4.11 如图得到表 .5.VB5.VB 与 SQLSQL 连接实现界面 1 15.1.1学生登陆界面实现 .5.1.2管理员界面的实现 .6.总结5.1 课程设计心得5.2查询资料1.1.问题描述近几年，我庆阳三中的不断发展图书馆页也应作相应改善，图书数量也相应的增 加，有关图书的各种信息量也会随之成倍增加，面对着庞大的信息量，传统的人工方 式管理会导致图书馆管理上的混乱，人力与物力过多浪费，图书馆管理费用的增加， 从而使图书馆的负担过重，影响整个图书馆的运作和控制管理，因此，必须制定一套 合理、有效，

3、规范和实用的图书管理系统，对图书资料进行集中统一的管理。但是随着IT产业的飞速发展，计算机应用已渗透到了各个领域，引起信息管理的革命， 实现了信息的自动化处理，提高了处理的及时性和正确性。因此我决定为三中图书馆做一个图书管理系统以提高工作效率，降低开销。作到信息的规范管理，科学统计和快速查询，让图书馆更好的为学校，社会服务。1.2数据需求图书馆管理信息系统需要完成功能主要有：1.读者基本信息的输入，包括借书证编号、读者姓名、读者性别。2读者基本信息的查询、修改，包括读者借书证编号、读者姓名、读者性别等。3书籍类别标准的制定、类别信息的输入，包括类别编号、类别名称。4书籍类别信息的查询、修改，包

4、括类别编号、类别名称。5书籍库存信息的输入，包括书籍编号、书籍名称、书籍类别、作者姓名、出版社 名称、出版日期、登记日期。6书籍库存信息的查询，修改，包括书籍编号、书籍名称、书籍类别、作者姓名、 出版社名称、出版日期登记日期等。7借书信息的输入，包括读者借书证编号、书籍编号、借书日期。8借书信息的查询、修改，包括借书证编号、读者编号、读者姓名、书籍编号、书 籍名称、借书日期等。9还书信息的输入，包括借书证编号、书籍编号、还书日期。10还书信息的查询和修改，包括还书读者借书证编号、读者姓名、书籍编号、书 籍名称、借书日期、还书日期等。11超期还书罚款输入，还书超出期限包括超出期限还书的读者借书证

5、号，书籍编 号，罚款金额。12超期还书罚款查询，删除，包括读者借书证编号、读者姓名、书籍编号、书籍 名称，罚款金额等1.3关系模式（一）书籍类别（种类编号，种类名称）（二）读者（借书证编号，读者姓名，读者性别，读者种类，登记时期）（三）书籍（书籍编号，书籍名称，书籍类别，书记作者，出版社名称，出版日期，登记日 期）（四）借阅（借书证编号，书籍编号，读者借书时间）（五）还书（借书证编号，书籍编号，读者还书时间）（六）罚款（借书证编号，读者姓名，借书证编号，书籍编号，读者借书时间） 以上通过关系代数方法的进行运算得到所需要的结果，在实验结果中可以看到。2.方案图表设计2.1 E-R图根据1）所要实

6、现的功能设计，可能建立它们之间的关系，进而实现逻辑结构功能。 图书管理信息系统可以划分的实体有：书籍类别信息实体、读者信息实体、书籍信息实 体、借阅记录信息实体，归还记录信息实体。用E-R图一一描述这些实体。图2-1类别实体E-R图2.1.12.1.1 读者信息实体 E-RE-R 图：图2-2读者信息实体E-R图2.1.22.1.2 信息实体 E-RE-R 图：图2-3信息实体E-R图2.1.32.1.3. .记录信息实体 E-RE-R 图:图2-4记录信息实体E-R图2.1.42.1.4 记录信息实体 E-RE-R 图：图2-5记录信息实体E-R图2.1.52.1.5 罚款信息实体 E-RE

7、-R 图：图2-6罚款信息实体E-R图2.1.62.1.6 总的信息实体 E-RE-R 图:SQL2005中的代码实现上面数据库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,文学类) insert intobook_style(bookstyleno,bookstyle)values(6,竞赛类) insert intobook_style(bookstyleno,bookstyle)values(7,自然科学类) insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub,bookpubdate, bookindate,isborr

14、owed )values(OOOOO1,高三数学,1,王英,人民教育出版社,2008-01-03,2010-11-15,1)。insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub,bookpubdate, bookindate,isborrowed )values(000002,高二化学,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,高一数学,1,石英,浙江大学出版社,2010-10-03,2011-11-15,1)。insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate,isborrowed )values(000006,高中数学竞赛,6,吴伟民,清华大学出版社,2010-06-28,2011-01-21,1)。inse

17、rtinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate,isborrowed )values(000007,中国近代史,3,吴强,人民教育出版社,2010-04-03,2012-01-05,1)。insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate,isborrowed )values(000008,中华五千年,3,赵文华,北京

18、大学出版社,2009-02-02,2011-09-15,1)。insertinto system_books(bookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate,isborrowed )values(000009,中国儒家文化,5,吴小鹏,北京大学出版社,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,苏庆东,甘肃文学出版社,2010-02-28,2011-01-21,1)。insert into system_readers(readerid,readername,readersex,readertype,regdate)values(X000123,陈远鹏,男,学生,2010-9-23 14:23:56)insert into system_readers(readerid,readername,readersex,readertype,regdate)va

21、lues(X000124,陈特,男,学生,2010-09-30 13:24:54.623)insert into system_readers(readerid,readername,readersex,readertype,regdate)values(X000134,赵铭静,女,学生,2011-09-27 11:24:54.123)insert into system_readers(readerid,readername,readersex,readertype,regdate)values(X000135,潘虹,女,学生,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,李叶风，女,教师,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 实现上述管理员登录界面Imports System.Data.SqlClientPublicClass 图书管理系统首页PrivateSub 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 类一个对象，对象名是 SqlConl，参数是连接字符串Dim SqlConl AsNew SqlConnection( Data Source=, Initial Catalog=librarysystem。Integrated Security=True) DimstrSelect AsString定义的是 string (字符串类型)的一个变量，变量名是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(用户名或密码错误，请重新输入”)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 类一个对象，对象名是 SqlCon1，参数是连接字符串Dim SqlCon1 AsNew SqlConnection(Data Source=.。 Initial Catalog=librarysystem 。 Integrated Security=True) DimstrSelect AsString定义的是 string (字符串类型)的一个变量，变量名是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 你已进入图书管理系统frm.Show() 连接到图书管理界面并显示界面ElseMsgBox( 用户名或密码错误，请重新输入)TextBox1.Clear()TextBox2.Clear()EndIfEndSubEndClass实现学生登录按钮 代码如下Imports System.Data.SqlClientPublicClass 图书管理系统首页Pri

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 类一个对象，对象名是 SqlConl，参数是连接字符串Dim SqlConl AsNew SqlConnection( Data Source=

34、, Initial Catalog=librarysystem。Integrated Security=True)Dim strSelect AsString定义的是 string (字符串类型)的一个变量，变量名是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( 用户名或密码错误，请重新输入)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 类一个对象，对象名是 SqlConl，参数是

37、连接字符串Dim SqlConl AsNew SqlConnection( Data Source=, Initial Catalog=librarysystem。Integrated Security=True)Dim strSelect AsString定义的是 string (字符串类型)的一个变量，变量名是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 你已进入图书管理

39、系统frm.Show() 连接到图书管理界面并显示界面ElseMsgBox(用户名或密码错误，请重新输入”)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学生端 查书窗口代码Imports System.Data.SqlClientPublicClass 你已进入图书管理系统PrivateSub 你已进入图书管理系统 _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