vstudio与SQL2005图书管理系统

学号10000000天津理工大学中环信息学院数据库应用技术课程设计设计说明书庆阳三中图书管理系统起止日期：2012年6月11日至2012年6月22日学生姓名邵志奇班级软件2班成绩计算机工程系2012年6月21日

天津理工大学中环信息学院课程设计任务书2011—2012学年第2学期计算机工程系软件工程专业10软件2班课程设计名称：数据库应用技术课程设计设计题目：庆阳三中图书管理系统完成期限：自2012年6月11日至2012年6月22日共2周设计依据、要求及主要内容（可另加附页）：目录1.问题描述 1.1背景 1.2数据需求 1.3关系模式 ２.方案图表设计 2.1E-R图 3.数据库源代码 3.1数据库建立 3.2数据初始化 4.结果数据处理 4.11如图得到表.................................................................................................................................................5.vb与SQL连接实现界面 15.1.1学生登陆界面实现.............................................................................................................5.1.2管理员界面的实现............................................................................................................6.总结5.1课程设计心得 5.2查询资料1.问题描述1.1背景近几年，我庆阳三中的不断发展图书馆页也应作相应改善，图书数量也相应的增加，有关图书的各种信息量也会随之成倍增加，面对着庞大的信息量，传统的人工方式管理会导致图书馆管理上的混乱，人力与物力过多浪费，图书馆管理费用的增加，从而使图书馆的负担过重，影响整个图书馆的运作和控制管理，因此，必须制定一套合理、有效，规范和实用的图书管理系统，对图书资料进行集中统一的管理。但是随着IT产业的飞速发展，计算机应用已渗透到了各个领域，引起信息管理的革命，实现了信息的自动化处理，提高了处理的及时性和正确性。因此我决定为三中图书馆做一个图书管理系统以提高工作效率，降低开销。作到信息的规范管理，科学统计和快速查询，让图书馆更好的为学校，社会服务。1.2数据需求图书馆管理信息系统需要完成功能主要有：1.读者基本信息的输入，包括借书证编号、读者姓名、读者性别。2．读者基本信息的查询、修改，包括读者借书证编号、读者姓名、读者性别等。3．书籍类别标准的制定、类别信息的输入，包括类别编号、类别名称。4．书籍类别信息的查询、修改，包括类别编号、类别名称。5．书籍库存信息的输入，包括书籍编号、书籍名称、书籍类别、作者姓名、出版社名称、出版日期、登记日期。6．书籍库存信息的查询，修改，包括书籍编号、书籍名称、书籍类别、作者姓名、出版社名称、出版日期登记日期等。7．借书信息的输入，包括读者借书证编号、书籍编号、借书日期。8．借书信息的查询、修改，包括借书证编号、读者编号、读者姓名、书籍编号、书籍名称、借书日期等。9．还书信息的输入，包括借书证编号、书籍编号、还书日期。10．还书信息的查询和修改，包括还书读者借书证编号、读者姓名、书籍编号、书籍名称、借书日期、还书日期等。11．超期还书罚款输入，还书超出期限包括超出期限还书的读者借书证号，书籍编号，罚款金额。12．超期还书罚款查询，删除，包括读者借书证编号、读者姓名、书籍编号、书籍名称，罚款金额等1.3关系模式书籍类别（种类编号，种类名称）读者（借书证编号，读者姓名，读者性别，读者种类，登记时期）书籍（书籍编号，书籍名称，书籍类别，书记作者，出版社名称，出版日期，登记日期）借阅（借书证编号，书籍编号，读者借书时间）还书（借书证编号，书籍编号，读者还书时间）罚款（借书证编号，读者姓名，借书证编号，书籍编号，读者借书时间）以上通过关系代数方法的进行运算得到所需要的结果，在实验结果中可以看到。２.方案图表设计2.1E-R图根据1）所要实现的功能设计，可能建立它们之间的关系，进而实现逻辑结构功能。图书管理信息系统可以划分的实体有：书籍类别信息实体、读者信息实体、书籍信息实体、借阅记录信息实体，归还记录信息实体。用E-R图一一描述这些实体。图2-1类别实体E-R图2.1.1读者信息实体E-R图：读者信息实体读者信息实体读者借书证编号读者姓名读者性别读者种类e登记时间图2-2读者信息实体E-R图2.1.2信息实体E-R图：书籍信息实体书籍信息实体书籍编号书籍名称书籍类别编号书籍作者出版时间收录时间是否被借出版社图2-3信息实体E-R图2.1.3.记录信息实体E-R图：读者借书证编号读者借书证编号书籍类别编号借阅时间隔借阅记录信息实体实体图2-4记录信息实体E-R图2.1.4记录信息实体E-R图：归还记录信息实体实体归还记录信息实体实体读者借书证编号书籍类别编号归还时间隔图2-5记录信息实体E-R图2.1.5罚款信息实体E-R图：罚款信息实体实体罚款信息实体实体书籍类别编号罚款金额读者姓名读者借书证编号书籍名称借阅时间隔图2-6罚款信息实体E-R图2.1.6总的信息实体E-R图：信息登记信息登记读者实体书籍实体书类别实体归还借阅罚款罚款信息实体还书信息实体借阅信息实体实体SQL2005中的代码实现上面数据库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','理科类')insertintobook_style(bookstyleno,bookstyle)values('2','文科类')insertintobook_style(bookstyleno,bookstyle)values('3','历史类')insertintobook_style(bookstyleno,bookstyle)values('4','政治类')insertintobook_style(bookstyleno,bookstyle)values('5','文学类')insertintobook_style(bookstyleno,bookstyle)values('6','竞赛类')insertintobook_style(bookstyleno,bookstyle)values('7','自然科学类')insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000001','高三数学','1','王英','人民教育出版社','2008-01-03','2010-11-15','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000002','高二化学','1','王爱','人民教育出版社','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','高一数学','1','石英','浙江大学出版社','2010-10-03','2011-11-15','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000006','高中数学竞赛','6','吴伟民','清华大学出版社','2010-06-28','2011-01-21','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000007','中国近代史','3','吴强','人民教育出版社','2010-04-03','2012-01-05','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000008','中华五千年','3','赵文华','北京大学出版社','2009-02-02','2011-09-15','1');insertintosystem_books(bookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate,isborrowed)values('000009','中国儒家文化','5','吴小鹏','北京大学出版社','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','苏庆东','甘肃文学出版社','2010-02-28','2011-01-21','1');insertintosystem_readers(readerid,readername,readersex,readertype,regdate)values('X000123','陈远鹏','男','学生','2010-9-2314:23:56')insertintosystem_readers(readerid,readername,readersex,readertype,regdate)values('X000124','陈特','男','学生','2010-09-3013:24:54.623')insertintosystem_readers(readerid,readername,readersex,readertype,regdate)values('X000134','赵铭静','女','学生','2011-09-2711:24:54.123')insertintosystem_readers(readerid,readername,readersex,readertype,regdate)values('X000135','潘虹','女','学生','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','李叶风','女','教师','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实现上述管理员登录界面ImportsSystem.Data.SqlClientPublicClass图书管理系统首页PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click'定义的是SqlConnection类一个对象，对象名是SqlCon1，参数是连接字符串DimSqlCon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrSelectAsString'定义的是string（字符串类型）的一个变量，变量名是strSelect'给字符串变量赋值，赋的是SQL语句strSelect="select*from管理员where管理员ID='"+TextBox1.Text+"'andpassword='"+TextBox2.Text+"'"SqlCon1.Open()DimsqlcomAsNewSqlCommand(strSelect,SqlCon1)'定义的是SqlCommand类的对象，对象名是sqlcomDimsqlreaderAsSqlDataReader=sqlcom.ExecuteReader()IfTextBox1.Text=""ThenMsgBox("请输入用户名")ElseIfTextBox2.Text=""ThenMsgBox("请输入密码")ElseIfsqlreader.Read()ThenTextBox1.Clear()TextBox2.Clear()DimfrmAsNew管理员界面frm.Show()'连接到图书管理员面并显示界面ElseMsgBox("用户名或密码错误，请重新输入")TextBox1.Clear()TextBox2.Clear()EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click'定义的是SqlConnection类一个对象，对象名是SqlCon1，参数是连接字符串DimSqlCon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrSelectAsString'定义的是string（字符串类型）的一个变量，变量名是strSelect'给字符串变量赋值，赋的是SQL语句strSelect="select*fromsystem_readerswherereaderid='"+TextBox1.Text+"'andpassword='"+TextBox2.Text+"'"SqlCon1.Open()DimsqlcomAsNewSqlCommand(strSelect,SqlCon1)'定义的是SqlCommand类的对象，对象名是sqlcomDimsqlreaderAsSqlDataReader=sqlcom.ExecuteReader()IfTextBox1.Text=""ThenMsgBox("请输入用户名")ElseIfTextBox2.Text=""ThenMsgBox("请输入密码")ElseIfsqlreader.Read()ThenTextBox1.Clear()TextBox2.Clear()DimfrmAsNew你已进入图书管理系统frm.Show()'连接到图书管理界面并显示界面ElseMsgBox("用户名或密码错误，请重新输入")TextBox1.Clear()TextBox2.Clear()EndIfEndSubEndClass实现学生登录按钮代码如下ImportsSystem.Data.SqlClientPublicClass图书管理系统首页PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click'定义的是SqlConnection类一个对象，对象名是SqlCon1，参数是连接字符串DimSqlCon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrSelectAsString'定义的是string（字符串类型）的一个变量，变量名是strSelect'给字符串变量赋值，赋的是SQL语句strSelect="select*from管理员where管理员ID='"+TextBox1.Text+"'andpassword='"+TextBox2.Text+"'"SqlCon1.Open()DimsqlcomAsNewSqlCommand(strSelect,SqlCon1)'定义的是SqlCommand类的对象，对象名是sqlcomDimsqlreaderAsSqlDataReader=sqlcom.ExecuteReader()IfTextBox1.Text=""ThenMsgBox("请输入用户名")ElseIfTextBox2.Text=""ThenMsgBox("请输入密码")ElseIfsqlreader.Read()ThenTextBox1.Clear()TextBox2.Clear()DimfrmAsNew管理员界面frm.Show()'连接到图书管理员面并显示界面ElseMsgBox("用户名或密码错误，请重新输入")TextBox1.Clear()TextBox2.Clear()EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click'定义的是SqlConnection类一个对象，对象名是SqlCon1，参数是连接字符串DimSqlCon1AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrSelectAsString'定义的是string（字符串类型）的一个变量，变量名是strSelect'给字符串变量赋值，赋的是SQL语句strSelect="select*fromsystem_readerswherereaderid='"+TextBox1.Text+"'andpassword='"+TextBox2.Text+"'"SqlCon1.Open()DimsqlcomAsNewSqlCommand(strSelect,SqlCon1)'定义的是SqlCommand类的对象，对象名是sqlcomDimsqlreaderAsSqlDataReader=sqlcom.ExecuteReader()IfTextBox1.Text=""ThenMsgBox("请输入用户名")ElseIfTextBox2.Text=""ThenMsgBox("请输入密码")ElseIfsqlreader.Read()ThenTextBox1.Clear()TextBox2.Clear()DimfrmAsNew你已进入图书管理系统frm.Show()'连接到图书管理界面并显示界面ElseMsgBox("用户名或密码错误，请重新输入")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学生端查书窗口代码ImportsSystem.Data.SqlClientPublicClass你已进入图书管理系统PrivateSub你已进入图书管理系统_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()'-----------------------插入借书记录DimSqlcon15AsNewSqlConnection("DataSource=.;InitialCatalog=librarysystem;IntegratedSecurity=True")DimstrSelectAsStringstrSelect="updatesystem_bookssetisborrowed='0'wherebookid=('"+TextBox4.Text+"')"Sqlcon15.Open()DimoAsIntegerDimsqlreaderAsNewSqlCommand(strSelect,Sqlcon15)