2022年vstudio与SQL图管理完整.docx

学 号 10000000天津理工高校中环信息学院数据库应用技术课程设计设计说明书庆阳三中图书治理系统起止日期： 2021 年 6 月 11 日 至 2021 年 6 月 22 日学生姓名邵志奇班成级绩软件 2班运算机工程系2021 年 6 月 21 日天津理工高校中环信息学院课程设计任务书2021 2021 学年第 2 学期运算机工程系软件工程专业 10 软件 2 班课程设计名称：数据库应用技术课程设计设计题目：庆阳三中图书治理系统完成期限：自2021 年 6 月 11 日至 2021 年 6 月 22 日共 2 周设计依据、要求及主要内容（可另加附页）：目录1. 问题描述1.1 背景1.2 数据需求1.3 关系模式 .方案图表设计2.1 E-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.1 E-R 图依据 1）所要实现的功能设计，可能建立它们之间的关系，进而实现规律结构功能；图书治理信息系统可以划分的实体有：书籍类别信息实体、读者信息实体、书籍信息实体、借阅记录信息实体，归仍记录信息实体；用E-R 图一一描述这些实体；图 2-1 类别实体 E-R 图2.1.1 读者信息实体 E-R 图：读者借书证编号登记时间读者信息实体读者姓名读者种类读 者 性别图 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 中的代码实现上面数据库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 table book_style bookstyleno varchar30 primary key, bookstyle varchar30create table system_books bookid varchar20 primary key, bookname varchar30 Not null, bookstyleno varchar30 Not null, bookauthor varchar30, bookpub varchar30 ,bookpubdate datetime, bookindate datetime , isborrowed varchar 2 ,foreign key bookstyleno references book_style bookstyleno,create table system_readers readerid varchar9primary key, readername varchar9not null , readersex varchar2 not null, readertype varchar10, passwordvarchar10, regdate datetimecreate table borrow_record bookid varchar20 primary key, readerid varchar9,borrowdate datetime,foreign key bookid references system_booksbookid, foreign key readerid references system_readersreaderid,create table return_record bookid varchar20 primary key, readerid varchar9,returndate datetime,foreign key bookid references system_booksbookid, foreign key readerid references system_readersreaderidcreate table reader_fee readerid varchar9not null, readername varchar9not null , bookid varchar20 primary key, bookname varchar30 Not null, bookfee varchar30 , borrowdate datetime,foreign key bookid references system_booksbookid, foreign key readerid references system_readersreaderidinsert into book_stylebookstyleno,bookstylevalues'1','理科类 ' insert into book_stylebookstyleno,bookstylevalues'2','文科类 ' insert into book_stylebookstyleno,bookstylevalues'3','历史类 ' insert into book_stylebookstyleno,bookstylevalues'4','政治类 ' insert into book_stylebookstyleno,bookstylevalues'5','文学类 ' insert into book_stylebookstyleno,bookstylevalues'6','竞赛类 ' insert into book_stylebookstyleno,bookstylevalues'7','自然科学类 'insertinto system_booksbookid ,bookname, bookstyleno,bookauthor,bookpub,bookpubdate, bookindate, isborrowed values'000001','高三数学 ','1','王英 ','人民训练出版社 ','2021-01-03','2021-11-15','1' ；insertinto system_booksbookid ,bookname, bookstyleno,bookauthor,bookpub,bookpubdate, bookindate, isborrowed values'000002','高二化学 ','1','王爱 ','人民训练出版社 ','2021-01-03','2021-1-15','1' ；insertinto system_booksbookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate, isborrowed values'000003','高一物理 ','1','萨师煊 ','初等训练出版社 ','2021-08-02','2021-09-15','1' ；insertinto system_booksbookid ,bookname, bookstyleno,bookauthor,bookpub,bookpubdate, bookindate, isborrowed values'000004','高三生物 ','1','谭浩 ','人民训练出版社 ','2021-04-02','2021-03-14','1' ；insertinto system_booksbookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate, isborrowed values'000005','高一数学 ','1','石英 ','浙江高校出版社 ','2021-10-03','2021-11-15','1' ；insertinto system_booksbookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate, isborrowed values'000006','高中数学竞赛 ','6','吴伟民 ','清华高校出版社 ','2021-06-28','2021-01-21','1' ；insertinto system_booksbookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate, isborrowed values'000007','中国近代史 ','3','吴强 ','人民训练出版社 ','2021-04-03','2021-01-05','1' ；insertinto system_booksbookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate, isborrowed values'000008','中华五千年 ','3','赵文华 ','北京高校出版社 ','2021-02-02','2021-09-15','1' ；insertinto system_booksbookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate, isborrowed values'000009','中国儒家文化 ','5','吴小鹏 ','北京高校出版社 ','2021-04-02','2021-03-14','1' ；insertinto system_booksbookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate, isborrowed values'000010','高三政治 ','2','李小刚 ','人民训练出版社 ','2021-10-03','2021-11-15','1' ；insertinto system_booksbookid ,bookname, bookstyleno,bookauthor,bookpub, bookpubdate,bookindate, isborrowed values'000011','读者 2021-6','5','苏庆东 ','甘肃出版社 ','2021-05-28','2021-06-21','1' ；insert intosystem_booksbookid,bookname,bookstyleno,bookauthor,bookpub,bookpubdate,bookindate, isborrowed values'000012','人与自然 ','2','苏庆东 ','甘肃文学出版社 ','2021-02-28','2021-01-21','1' ；insert into system_readersreaderid,readername,readersex,readertype,regdate values'X000123',' 陈远鹏 ','男','同学 ','2021-9-23 14:23:56'insert into system_readersreaderid,readername,readersex,readertype,regdate values'X000124',' 陈特 ','男','同学','2021-09-30 13:24:54.623'insert into system_readersreaderid,readername,readersex,readertype,regdatevalues'X000134',' 赵铭静 ','女','同学 ','2021-09-27 11:24:54.123'insert into system_readersreaderid,readername,readersex,readertype,regdate values'X000135',' 潘虹 ','女','同学','2021-09-30 13:24:54.473'insert into system_readersreaderid,readername,readersex,readertype,regdatevalues'00080','蒋伟 ','男','老师 ','2021-04-30 09:24:54.478'insert into system_readersreaderid,readername,readersex,readertype,regdate values'00081','李叶风 ','女','老师 ','2021-04-30 09:24:54.478'insert into borrow_recordbookid,readerid,borrowdate values'000009','X000135','2021-09-27 11:24:54.123'update system_booksset isborrowed=0where bookid='000009'and isborrowed='1'insert into borrow_recordbookid,readerid,borrowdate values'000001','X000123','2021-12-27 08:26:51.452'update system_books set isborrowed=0where bookid='000001' and isborrowed='1'insert into borrow_recordbookid,readerid,borrowdate values'000003','X000134','2021-12-27 08:26:51.452'update system_booksset isborrowed=0where bookid='000003' and isborrowed='1'insert into borrow_recordbookid,readerid,borrowdate values'000005','X000124','2021-10-21 12:11:51.452'update system_books set isborrowed=0where bookid='000005' and isborrowed='1'insert into borrow_recordbookid,readerid,borrowdate values'000007','00081','2021-12-28 14:11:51.312'update system_books set isborrowed=0where bookid='000007' and isborrowed='1'insert into borrow_recordbookid,readerid,borrowdate values'000012','00080','2021-08-28 15:11:31.512'update system_booksset isborrowed=0where bookid='000012' and isborrowed='1'用V-S-2005实现上述治理员登录界面Imports System.Data.SqlClient PublicClass 图书治理系统首页PrivateSub Form1_Load ByVal senderAs System.Object, ByVal e As System.EventArgs HandlesMyBase.Load EndSubPrivateSub Button1_Click ByVal senderAs System.Object, ByVal e As System.EventArgs Handles Button1.Click '定义的是 SqlConnection类一个对象，对象名是 SqlCon1 ，参数是连接字符串Dim SqlCon1 AsNew SqlConnection "Data Source=.；Initial Catalog=librarysystem ；Integrated Security=True" Dim strSelect AsString '定义的是 string （字符串类型）的一个变量，变量名是strSelect '给字符串变量赋值，赋的是SQL语句strSelect = "select * from 治理员 where 治理员 ID='" + TextBox1.Text + "' and password='" + TextBox2.Text+ "'"SqlCon1.OpenDim sqlcom AsNew SqlCommandstrSelect, SqlCon1 '定义的是 SqlCommand类的对象，对象名是 sqlcom Dim sqlreader As SqlDataReader = sqlcom.ExecuteReaderIf TextBox1.Text = "" Then MsgBox " 请输入用户名 "ElseIf TextBox2.Text = "" ThenMsgBox " 请输入密码 " ElseIf sqlreader.Read ThenTextBox1.Clear TextBox2.ClearDim frm AsNew 治理员界面frm.Show '连接到图书治理员面并显示界面ElseEndIfMsgBox " 用户名或密码错误，请重新输入" TextBox1.ClearTextBox2.ClearEndSubPrivateSub Button2_Click ByVal senderAs System.Object, ByVal e As System.EventArgs Handles Button2.Click Me .CloseEndSubPrivateSub Button3_Click 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" Dim strSelect AsString '定义的是 string （字符串类型）的一个变量，变量名是strSelect '给字符串变量赋值，赋的是SQL语句strSelect = "select * from system_readers where readerid ='" + TextBox1.Text+ "' and password='" + TextBox2.Text + "'"SqlCon1.OpenDim sqlcom AsNew SqlCommandstrSelect, SqlCon1 '定义的是 SqlCommand类的对象，对象名是 sqlcom Dim sqlreader As SqlDataReader = sqlcom.ExecuteReaderIf TextBox1.Text = "" Then MsgBox " 请输入用户名 "ElseIf TextBox2.Text = "" ThenMsgBox " 请输入密码 " ElseIf sqlreader.Read ThenTextBox1.Clear TextBox2.ClearDim frm AsNew 你已进入图书治理系统frm.Show '连接到图书治理界面并显示界面ElseEndIfMsgBox " 用户名或密码错误，请重新输入" TextBox1.ClearTextBox2.ClearEndSub EndClass实现同学登录按钮 代码如下Imports System.Data.SqlClient PublicClass 图书治理系统首页PrivateSub 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类一个对象，对象名是 SqlCon1 ，参数是连接字符串Dim SqlCon1 AsNew SqlConnection "Data Source=.；Initial Catalog=librarysystem ；Integrated Security=True" Dim strSelect AsString '定义的是 string （字符串类型）的一个变量，变量名是strSelect '给字符串变量赋值，赋的是SQL语句strSelect = "select * from 治理员 where 治理员 ID='" + TextBox1.Text + "' and password='" + TextBox2.Text+ "'"SqlCon1.OpenDim sqlcom AsNew SqlCommandstrSelect, SqlCon1 '定义的是 SqlCommand类的对象，对象名是 sqlcom Dim sqlreader As SqlDataReader = sqlcom.ExecuteReaderIf TextBox1.Text = "" Then MsgBox " 请输入用户名 "ElseIf TextBox2.Text = "" Then MsgBox " 请输入密码 "ElseIf sqlreader.Read ThenTextBox1.Clear TextBox2.ClearDim frm AsNew 治理员界面frm.Show '连接到图书治理员面并显示界面ElseEndIfMsgBox " 用户名或密码错误，请重新输入" TextBox1.ClearTextBox2.ClearEndSubPrivateSub Button2_Click ByVal senderAs System.Object, ByVal e As System.EventArgs Handles Button2.Click Me .CloseEndSubPrivateSub Button3_Click 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" Dim strSelect AsString '定义的是 string （字符串类型）的一个变量，变量名是strSelect '给字符串变量赋值，赋的是SQL语句strSelect = "select * from system_readers where readerid ='" + TextBox1.Text+ "' and password='" + TextBox2.Text + "'"SqlCon1.OpenDim sqlcom AsNew SqlCommandstrSelect, SqlCon1 '定义的是 SqlCommand类的对象，对象名是 sqlcom Dim sqlreader As SqlDataReader = sqlcom.ExecuteReaderIf TextBox1.Text = "" Then MsgBox " 请输入用户名 "ElseIf TextBox2.Text = "" ThenMsgBox " 请输入密码 " ElseIf sqlreader.Read ThenTextBox1.Clear TextBox2.ClearDim frm AsNew 你已进入图书治理系统frm.Show '连接到图书治理界面并显示界面ElseEndIfMsgBox " 用户名或密码错误，请重新输入" TextBox1.ClearTextBox2.ClearEndSub EndClass治理员界面代码Imports System.Data.SqlClient PublicClass 治理员界面PrivateSub Button1_Click ByVal senderAs System.Object, ByVal e As System.EventArgs Handles Button1.ClickDim sqlcon1 AsNew SqlConnection "Data Source=.；Initial Catalog=librarysystem ；Integrated Security=True" Dim strselect AsStringstrselect = "select * from system_books "' where bookname like '%" + TextBox1.Text + "%'"Dim mydataada AsNew SqlDataAdapterstrselect, sqlcon1 Dim mydataset AsNew DataSetsqlcon1.Openmydataada.Fillmydataset, "system_books" DataGridView1.DataSource = mydataset.Tables"system_books" sqlcon1.CloseEndSubPrivateSub Button2_Click ByVal senderAs System.Object, ByVal e As System.EventArgs Handles Button2.Click Dim sqlcon1 AsNew SqlConnection "Data Source=.；Initial Catalog=librarysystem ；Integrated Security=True" Dim strselect AsStringstrselect = "select * from system_readers " 'where readerid like '%" + TextBox1.Text + "%'"Dim mydataada AsNew SqlDataAdapterstrselect, sqlcon1 Dim mydataset AsNew DataSetsqlcon1.Openmydataada.Fillmydataset, "system_readers" DataGridView1.DataSource = mydataset.Tables"system_readers" sqlcon1.CloseEndSubPrivateSub Button3_Click ByVal senderAs System.Object, ByVal e As System.EventArgs