报告样本.docx

1、报告样本吉林工业职业技术学院（ 数据库应用实训报告 ）（ 2011 2012 学年第 1 学期）实训地点： 数据库应用实训室 指导教师： 赵秀艳、刘文宏 专业班级： 信管3101 学生姓名： 07号 毕红岩 2011年12月28日目 录实习题目 1实习地点 1实习目的 1实习要求 1实习内容 11系统分析 11.1需求分析 11.2功能分析 22数据库设计 22.1在SQL中创建数据库 22.2使用企业管理器创建数据库 42.4使用企业管理器创建表 52.5连接数据库 63、功能模块设置 93.1身份验证模块设计 93.2主窗口设计 103.3借书信息管理模块的创建 113.4设定用户窗口的创

2、建 123.5添加读者信息窗口的创建 13实习心得 14参考文献 14附 录 15SQL Server实训实习题目 图书管理系统实习地点 软件开发实训室实习目的（1）对SQL Server数据库的基本理论和基本操作有更进一步的了解和认识，将理论和实际相结合。（2）能够根据现实生活中一些实际问题的需要，设计出数据库，并通过所学知识将其模型化，设计出解决问题的方案，然后制作出相应的应用程序。（3）考查基本语言的掌握是否牢固，并考查程序设计的熟练程度，加强对程序设计和数据库设计的理解，进行深层次的巩固和复习，最重要的是了解基本应用软件的设计步骤，还有对软件调试的掌握。实习要求要求每个学生独立完成课程

3、设计任务，具体要求如下：（1） 详细书写系统设计说明书。（2） 使用 SQL server数据库完成数据库设计。（3） 完成每个题目的基本功能要求，有能力的同学可扩充。（4） 程序界面设计友好、操作合理。实习内容1系统分析 1.1需求分析每个学校都有图书馆，最初由于图书数量和种类较少，人工手动管理比较方便和灵活。随着社会的发展，图书的数量和种类越来越多，人工手动管理会降低工作的效率，希望建立一个图书馆图书信息管理系统，是为了解决了人工手动管理图书信息在实践的问题，从而达到系统化、规范化、标准化的水平。该系统的建立不但给管理者带来了方便，也节省了工作时间从而提高了工作效率。在构造系统时，首先从需

4、求出发构造数据库表，然后再由数据库表结合需求划分系统功能模块。这样，就把一个大的系统分解成了几个小系统。这里把系统的层次划分为了三个部分：一个自由态：即面向任何用户的界面，提供登录功能，以便不同身份的用户登录子系统；一个是一般用户态：即图书有服务子系统；还有一个是管理员界面：提供图书的管理和维护功能。对于不同子系统之间的功换，采用了登录功能和用户注销功能。系统划分了子系统后，下一步的工作是继续划分子系统的小模块。先考虑在进入子系统时应该做什么，进入系统之后又应该做什么，提供那些服务等。例如，对于图书信息服务子系统，在用户进入时首先得调用相关数据库表，找出用户的图书借阅情况；进入系统后，子系统得

5、提供图书查询、图书借阅和还书功能。1.2功能分析考勤管理系统流程图，如图1-1所示：图 1-1 考勤管理系统流程图本系统主要实现对图书的管理，主要功能为对图书进行图书管理、读者管理、图书借阅管理，系统管理和退出。总体思路是这样的，进入图书管理系统首先是身份验证，输入正确后则进入图书管理系统的主界面，在其中进行读者管理的添加读者信息，图书管理的添加图书信息，图书借阅管理的借书及还书的应用，在系统管理中则可以对密码进行修改和进行添加用户名等操作，最后操作完毕则点退出即退出本系统。 2数据库设计2.1在SQL中创建数据库在新建的数据库中用“企业管理器”建图书管理系统所需要的表格。如：读者类别、读者信

6、息、借阅信息、书籍信息、图书类别、用户表，并在表中输入一些相关的信息。数据库表中的用户信息表，如表2-1所示：表2-1用户信息表列名数据类型可否为空类别名称nvarcharNot null类别编号nvarcharNot Null数据库表中的借阅信息表，如表2-2所示：表2-2借阅信息表列名数据类型可否为空读者姓名nvarcharNot null读者编号nvarcharNot Null性别nvarcharNull读者类别nvarcharNull工作单位nvarcharNot Null家庭住址nvarcharNull电话号码nvarcharNull登记日期smalldatatimeNull已借出数

7、量intNull数据库表中的书籍信息表，如表2-3所示：表2-3书籍信息表列名数据类型可否为空种类名称nvarcharNot null借书数量intnull借书期限intNull有限期限intNull数据库表中的读者来别表，如表2-4所示：表2-4 读者类别表列名数据类型可否为空种类名称nvarcharNot null借书数量intnull借书期限intNull有限期限intNull数据库表中的读者信息，如表2-5所示：表2-5读者信息表列名数据类型可否为空读者姓名nvarcharNot null读者编号nvarcharNot Null性别nvarcharNull读者类别nvarcharNul

8、l工作单位nvarcharNot Null家庭住址nvarcharNull电话号码nvarcharNull登记日期smalldatatimeNull已借出数量intNull数据库表中的图书类别情况，如表2-6所示：表2-6 图书类别表列名数据类型可否为空类别名称nvarcharNot null类别编号nvarcharNot Null2.2使用企业管理器创建数据库单击“开始” “程序” “Microsoft SQL Server” “企业管理器”，出现Microsoft SQL Server企业管理器界面，如图2-1所示：图 2-1 Microsoft SQL Server企业管理器界面展开服务

9、器组，然后展开服务器，单击“数据库”，然后单击“新建数据库”，键入新数据库名称“databass”,如图2-2所示：图2-2 数据库属性界面 2.4使用企业管理器创建表单击“开始” “程序” “Microsoft SQL Server” “企业管理器”，出现Microsoft SQL Server企业管理器界面，如图2-3所示：图 2-3 Microsoft SQL Server企业管理器界面展开服务器组，然后展开服务器，单击“数据库”，选中要在其中创建的数据库，右击目标数据库的表节点并节点选择“新建表”命令，如图2-4所示：图2-4 数据库属性界面将已经设计好的所有字段信息填入表设计器中，如

10、图2-5所示：图2-5字段信息填入表设计器界面设计完毕之后，单击“保存”按钮，将表结果保存起来，单击“退出”按钮，退回到企业管理器主界面，用户既可以在数据库表对象中查看已建好的表。2.5连接数据库单击“开始” “设置”“控制面板”“管理工具” “数据源”如图2-6所示：图 2-6 数据源管理器进入此界面后单机“添加“选择“sql sever”“完成”进入到如图2-7所示界面：图 2-7 sql的新数据源起完名称之后单击“下一步”进入到如图2-8所示界面：图2-8 sql配置完成如上步骤后在Visual Basic环境中把ADO控件与DataGrid控件相连接和对其中相应属性修改为，如图2-9所

11、示：图 2-9 ADO控件属性单机“生成”进入数据连接属性，如图2-10所示：图2-10 数据连接属性再单机“测试连接”连接成功后进入“记录源”如图2-11所示：图2-11 ADO控件属性进入此之后对相应表进行设置，VB与SQL数据库连接成功。3、功能模块设置我们小组三个人，分工完成管理系统的设计与实现。我主要负责的是借书信息管理模块、设定用户模块与的添加读者信息模块设计与实现。3.1身份验证模块设计打开“New”里的“PB object”选择“window”单击“OK”，显示出一个窗口，在窗口里放入所需要的控件。在这些控件的“text”属性中输入所需要的内容，用鼠标单击窗口的空白处在属性类中

12、的“Title”属性中输入“欢迎进入图书管理系统”，身份验证窗口，如图3-1所示：图3-1身份验证界面当用户输入完用户名和密码之后需要按确定按钮，单击“确定”命令按钮的“clicked”事件，在“clicked”事件中输入程序代码。3.2主窗口设计用户输入正确的用户名和密码，登录成功后，可以见到本程序的主窗口，系统应用程序的主要功能都是主窗口 w_main及其上放置控件中完成的。主窗口的界面如图3-2所示： 图3-2 图书管理系统主窗口界面该页主要运用的是菜单编辑器，在其中依次输入，如图3-3所示数据：图3-3 图书管理系统中菜单编辑器3.3借书信息管理模块的创建借书信息管理窗口用于借书人员对

13、数据信息的输入，来借阅书籍，由主窗口上的“借阅信息管理”进入其窗口进行借阅信息的录入，如图3-4所示：图3-4 借书信息管理选中书名，输入书名之后单击“确定”按钮右侧则会出现你要查询的图书信息，如图3-5所示：图3-5 借书信息管理在借阅信息窗口中，对书籍进行借阅，如图3-6所示： 图3-6 借书界面3.4设定用户窗口的创建设定用户设定窗口用于增加登录的用户名及密码，由主程序窗口上“系统管理”来运行，如图3-7所示：图3-7 设定用户分别输入完用户名、密码和确认密码之后会弹出一个对话框，如图3-8所示：图3-8 用户添加成功3.5添加读者信息窗口的创建添加读者信息窗口用于对读者信息的统计，对读

14、者的信息进行添加。由主程序窗口上的“读者管理”来运行，如图3-9所示：图3-9 添加读者信息分别输入“添加读者信息”中的信息后单击“确定”会出现一个对话框，如图3-10所示： 图3-10 读者信息添加成功实习心得 通过两几天实训，感触还真是很多，那几天的坚持，每天四节课就坐在电脑前敲着代码，有的时候晚上回了寝室还要继续敲。很多时候焦头烂额心烦意乱也写不好，写出来后反复调试反复出错，简直是在考验我们的耐心。看着每个同学焦急的样子，真的有点担心在规定的期限内是不是能够完成任务。所以期间自己会想，如果将来从事了这个行业，面对更加复杂的程序更加有难度的题目要求，心理压力不是更大么？通过这次试训让我知道

15、了1：面对复杂的事情而且要长期坚持时，千万不可浮躁了事，那样欠下的债会越来越多，一定要定下心来踏踏实实的去做，我发现有了好的开始，后面再乱的思绪也会慢慢捋清楚。2：心态很重要，第一天还好，第二天的时候，心虚特别浮躁，显然那天的效率十分低下，回去后和朋友聊天，被开导后慢慢整理思绪平静下心来开始做，发现一切并没有原本想象的那么棘手。3：面对问题要自己主动去解决，程序过程中难免有很多难题，别人无法帮助自己，要靠自己去努力克服才能接着做下一步。参考文献1 王玉，粘新育.SQL Server数据库应用技术.中国铁道出版社2 史瑞芳，赵玉.SQL数据库及应用.中国水利水电出版社3 袁鹏飞. 中文版 SQL

16、 Server2000 数据库系统管理. 北京:人民邮电出版社, 2001.4 SQL Server 2000数据库及应用徐人凤曾建华高等教育出版社 2004年1月5 SQL Server数据库开发经典案例解析，清华大学出版社，2006年附 录 借书信息管理源代码如下If Check1.Value = vbChecked Then sql = 书名 like % & Trim(Text1.Text & ) & %End IfIf Check2.Value = vbChecked Then If Trim(sql) = Then sql = 类别 like % & Trim(Combo1.Tex

17、t & ) & % Else sql = sql & and 类别 like % & Trim(Combo1.Text & ) & % End IfEnd IfIf Check3.Value = vbChecked Then If Trim(sql) = Then sql = 作者 like % & Trim(Text2.Text & ) & % Else sql = sql & and 作者 like % & Trim(Text2.Text & ) & % End IfEnd IfIf Check4.Value = vbChecked Then If Trim(sql) = Then sql

18、 = 图书编号 like% & Trim(Text3.Text & ) & % Else sql = sql & and 图书编号 like% & Trim(Text3.Text & ) & % End IfEnd IfIf Check5.Value = vbChecked Then If Trim(sql) = Then sql = 出版社 like % & Trim(Text4.Text & ) & % Else sql = sql & and 出版社 like % & Trim(Text4.Text & ) & % End IfEnd Ifconn.Open Provider=SQLOL

19、EDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=database;Data Source=DMT408If Trim(sql) = Then MsgBox 请选择查询方式!, vbOKOnly + vbExclamation Exit SubEnd Ifsql = select * from 书籍信息 where & sqlDataGrid1.AllowAddNew = FalseElse Set DataGrid1.DataSource = rs_findbookIf Trim(book_n

20、um) = Then MsgBox 请选择要借阅的图书!, vbOKOnly + vbExclamation Exit Sub End If If panduan = 是 Then MsgBox 此书已被借出!, vbOKOnly + vbExclamation Exit Sub End If Unload Me借书.ShowEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) book_num = DataGrid1.Columns(0).CellValue(DataGr

21、id1.Bookmark) panduan = DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark)End SubPrivate Sub Form_Load() Dim rs_find As New ADODB.Recordset Dim conn As New ADODB.Connection Dim sql As String sql = select * from 图书类别 conn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;I

22、nitial Catalog=database;Data Source=DMT408 rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic rs_find.MoveFirst If Not rs_find.EOF Then Do While Not rs_find.EOF Combo1.AddItem rs_find.Fields(0) rs_find.MoveNext Loop Combo1.ListIndex = 0 End If rs_find.Close End Sub设定用户源代码如下：conn.Open Provider=S

23、QLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=database;Data Source=DMT408 If Trim(Text1.Text) = Then MsgBox 用户名不能为空,请输入！, vbOKOnly + vbExclamation, Text1.SetFocus Else sql = select * from 用户表 rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF =

24、False) If Trim(rs_add.Fields(0) = Trim(Text1.Text) Then MsgBox 已有这个用户, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Exit Sub Else rs_add.MoveNext End If Wend If Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 两次密码不一致, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Te

25、xt = Text3.Text = Exit Sub Else rs_add.AddNew rs_add.Fields(0) = Text1.Text rs_add.Fields(1) = Text2.Text rs_add.Update MsgBox 添加用户成功!, vbOKOnly + vbExclamation, Me.Hide End IfEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub添加读者信息源代码如下：Private Sub Command1_Click()If Trim(Combo1.Text) = The

26、n MsgBox 请选择读者类别, vbOKOnly + vbExclamation, Combo1.SetFocus Exit SubEnd IfIf Trim(Text1.Text) = Then MsgBox 读者姓名不能为空, vbOKOnly + vbExclamation, Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = Then MsgBox 读者编号不能为空, vbOKOnly + vbExclamation, Text2.SetFocus Exit SubEnd IfIf Not IsDate(Text6.Text) Th

27、en MsgBox 请按照yyyy-mm-dd格式输入登记日期, vbOKOnly + vbExclamation, Text6.SetFocus Exit SubEnd IfIf Trim(Combo2.Text) = Then MsgBox 请选读者性别, vbOKOnly + vbExclamation, Combo2.SetFocus Exit SubEnd Ifconn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=database;Data

28、Source=DMT408sql = select * from 读者信息 where 读者编号= & Text2.Text & MsgBox 读者编号重复!, vbOKOnly + vbExclamation, Text2.SetFocus rs_addreader.Close Exit SubEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()Dim rs_leibie As New ADODB.RecordsetDim conn As New ADODB.ConnectionDi

29、m sql As StringProvider = Microsoft.Jet.OLEDB.3.5.1 ;Persist Security Info=false;data source=D:图书管理系统database.mdbconn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=database;Data Source=DMT408sql = select * from 读者类别rs_leibie.Open sql, conn, adOpenKeyset, adLockPessimisticrs_leibie.MoveFirstDo While Not rs_leibie.EOF Combo1.AddItem rs_leibie.Fields(0) rs_leibie.MoveNextLooprs_leibie.C