数据库实习报告

数据库系统课程设计学 号:学生姓名：班 号：指导教师：中国地质大学信息工程学院2012年3月3日=数据库实习报告——教务管理系统一、需求分析1、首先要明确各个实体间的属性：a.教师：工作证号，姓名，职称，电话，系别；b.学生：学号，性别，班级，系别，出生年月；d.系别：系代号，系名，系办，公室电话；e.课程：课序号，课名，学分，上课时间，名额。谢谢阅读2、各个实体之间的联系：a.每个学生都属于一个班；.每个教师也都属于一个系，每个班的班主任都由一名教师担任；谢谢阅读一名教师可以教多门课，一门课可以有几位主讲老师；一名同学可以选多门课，一门课可被若干同学选中，一名同学选中的课若已学完，应该记录有相应成绩。谢谢阅读3、总需求：本单位学生、教师都有重名，工作证号、学号可以作为标识。教学系统主要提供数据维护、选课和信息查询。感谢阅读常见的查询有：系统中各对象的基本信息查询；查询指定班、系的学生信息（名单、人数等）；查询学生的成绩、学分情况；查询教师授课情况和学生选课情况等。谢谢阅读二、概念设计1、概念模型（E-R图）：a．授课关系E-R图b．选课关系E-R图c．总E-R图系办公室电话系名系1系代号1属于学号n性别学生1出生年月 姓名 n2、数据字典：a．数据项系名：{Dname,char,20}系代号：{Dno,char,3}系办公室电话：{Dtelephont,char,11}职称：{Ttitle,char,20}工作证号：{Tno,char,10}

职称工作证号n姓名属于教师1电话授课n课序号选修课程课名称m学分名额上课时间姓名：{Tname,char,20}电话：{Ttelephont,char,11}学号：{Sno,char,10}感谢阅读性别：{Ssex,char,2}出生年月：{Sbirthday,date,}姓名：{Sname,char,20}精品文档放心下载课序号：{Cno,char,10}课名称：{Cname,char,20}上课时间：{Ctime,datetime}b．数据结构学生={学号、姓名、性别、出生年月}

名额：{Cnumber,int}学分：{Credit,float,2}成绩：{Grade,int}教师={工作证号、教师姓名、职称、电话、所在系的系号}系={系代号、系名、系办公室电话}谢谢阅读课程={课序号、课名、学分、上课地点、名额、授课教师的工作证号}选课={学号、课序号、成绩}谢谢阅读c．数据流(说明，数据流来源，数据流去向)变更系信息={变更系信息，变更信息，系信息}查询系信息={查询系信息,系代号,系信息}变更教师信息={变更教师信息，变更信息，教师信息}查询教师信息={查询教师信息，工作证号，教师信息}变更学生信息={变更学生信息，变更信息，学生信息}查询学生信息={查询学生信息，学号，学生信息}精品文档放心下载变更课程信息={变更课程信息,变更信息,课程信息}查询课程信息={查询课程信息,课序号,课程信息}学生选课={课程号，学号}谢谢阅读查询选课信息={查询选课信息,学号或课序号,选课信息}查询授课信息={查询授课信息,工作证号,授课信息}查询成绩={查询成绩，学号&课程号，选课信息}谢谢阅读三、逻辑结构设计1、关系模型教师（工作证号，姓名，职称，电话，系代号）学生（学号，姓名，性别，出生年月）系（系代号，系名，系办公室电话）课程（课序号，课名，学分，上课时间，名额，工作证号）精品文档放心下载选课（学号，课序号，成绩）2、用户视图教师信息视图（工作证号，教师姓名，职称，电话，负责班级）精品文档放心下载学生信息视图（学号，姓名，性别，出生年月，班号）系信息视图（系代号，系名，系办公室电话）选课信息（课程号，学号）课程信息（课程号，课程名称，学分，上课时间，名额，授课老师）谢谢阅读五、系统实施完成数据库的物理设计之后，设计人员就要用RDBMS提供的数据定义语言和其他实用程序设计和物理设计结果严格的描述出来，成为DMBMS可以接受的源代码，再经过调试产生目标模式。然后就可以组织数据入库了，这就是数据库实施阶段。数据库实施阶段包括两项重要的工作：精品文档放心下载1. 数据的载入:直接在SQL2012中建立教师，学生，选课，系，课程六个表。感谢阅读运用ODBC，建立mysql的服务器，关联到VB中。谢谢阅读六、运行维护1、数据库试运行数库的试运行阶段要实际运行数据库应用程序，执行对数据库的各种操作，测试应用程序的功能是否满足设计要求。如果不满足，对应用程序部分则要修改、调整，知道达到设计要求为止。这一阶段特别强调两点，第一该是分期分批的组织数据入库，先输入少量数据做调试用，待试运行基本合格后，再大批量的输入数据。第二首先调试运行数据库管理系统的恢复功能，做好数据库的转储和恢复工作，一旦故障发生，能使数据库尽快恢复，尽量减少数据库的破坏。谢谢阅读2、数据库的维护数据库的转储和恢复试系统正式运行后最重要的维护工作之一。要针对不同的应用要求制定不同的转储计划，以保证一旦发生故障能够尽快将数据库恢复到某种一致状态，并尽可能减少对数据库的破坏。感谢阅读数据库运行阶段，主要是由数据库管理员完成经常性的维护工作。主要包括：精品文档放心下载a．数据库的转储和恢复；b．数据库的安全性、完整性控制；c．数据库性能的监督、分析和改造；d．数据库的重组织与重构造。七、小结两个周的数据库实习课程结束了，虽然数据库的设计工作完成的并不好，但是在这个过程中还是有些收获。首先，我知道了数据库的设计工作是有章可循的，可以按照一定的步骤、有规律的进行设计。数据库可以按阶段进行设计，在各个阶段有不同的目标，应遵循的原则和方法也各不相同，还有一些应该注意的事项等等。其中的重点是概念结构的设计和逻辑结构的设计，这也是整个数据库设计过程中最重要的两个环节。人们在评述数据库的特点时说，“三分技术，七分管理，十二分的基础数”，在数据库建设中不仅涉及技术，还涉及管理，要建设好一个数据库应用系统，开发技术固然重要，但是相比之下管理更为重要。其次，对数据库设计的各个阶段也有了初步认识。在需求分析阶段，主要的任务是通过详细的调查现实世界重要处理的对象，明确用户的各种需求，然后在此基础上确定新系统的功能，简单地说，也就是分析用户的需求，它是设计数据库的起点，需求分析的准确与否直接关系到后面各个阶段的设计。在概念结构设计阶段，要根据需求分析的结果抽象为信息结构，主要就是通过E—R图来表现，不仅要考虑整个数据库的结构，还要注意子模式仕途的细节，它是整个数据库设计的关键。在逻辑结构的设计阶段，主要任务就是把概念结构设计阶段设计好的基本E-R图转换为数据库管理系统产品所支持的数据模型相符合的逻辑结构，是独立于任何一种数据模型的信息结构。在物理结构设计阶段，通常分为两步，先确定数据库的存取方法和存储结构，后对物理结构进行评价，评价重点是在时间和空间效率，如果评价的结果满足设计要求，则可进入物理实施阶段，否则，就需要重新设计或修改物理结构，有时甚至需要逻辑设计阶段修改数据模型。完成数据库的物理设计之后，就要用数据库管理系统提供的数据定义语言和其他实用程序将数据库逻辑设计和物理设计结果严格的表示出来，这是还需要进行调试。这些都是一些理论方法，还是需要在实际工作中运用这些思想，遵守设计原则，注意各阶段工作的细节，才能完成好数据库设计工作。在以后的学习中会更加注意这些细节问题，这样才会有所提高。精品文档放心下载八、附录VB源代码：1.登陆界面代码：PrivateSubCommand1_Click()感谢阅读DimrptAsIntegerIfText1.Text="20121003818"Then精品文档放心下载IfText2.Text="123456"Then感谢阅读IfText3.Text=Label4.CaptionThen谢谢阅读Form5.HideForm1.ShowElserpt=MsgBox("验证码错误",vbRetryCancel+vbExclamation,"验证码")精品文档放心下载Ifrpt=vbRetryThenText3.Text=""Text3.SetFocusEndIfEndIfElserpt=MsgBox("密码错误",vbRetryCancel+vbExclamation,"密码")感谢阅读Ifrpt=vbRetryThenText2.Text=""Text2.SetFocusEndIfEndIfElserpt=MsgBox("用户名错误",vbRetryCancel+vbExclamation,"用户名")谢谢阅读Ifrpt=vbRetryThenText1.Text=""Text1.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click()感谢阅读Form7.ShowForm5.HideEndSubPrivateSubForm_Load()Label5.FontSize=15Label5.ForeColor=vbRedRandomizeDimxAsLongx=Int(90000*Rnd(0))+10000精品文档放心下载Label4.Caption=xEndSub2．学生信息界面代码：PrivatesqlconAsNewADODB.Connection谢谢阅读PrivatesqlresAsNewADODB.Recordset感谢阅读PrivatesqlcmdAsNewADODB.Command谢谢阅读DimsqlstrAsStringPrivateSubCommand1_Click()谢谢阅读MakeSqlStrAdodc1.RecordSource="select*from学生where学号="&sqlstr精品文档放心下载Adodc1.RefreshEndSubPrivateSubCommand2_Click()谢谢阅读ret=MsgBox("是否要删除"+Adodc1.Recordset("学号")+"号学生的记录",vbYesNo,"提示")谢谢阅读Ifret=vbYesThensqlcmd.ActiveConnection=sqlcon精品文档放心下载sqlcmd.CommandText="deletefrom学生where学号="+Adodc1.Recordset("学号")sqlcmd.Execute感谢阅读Adodc1.RecordSource="select*from学生"谢谢阅读Adodc1.RefreshEndIfEndSubPrivateSubCommand3_Click()感谢阅读DimsqlupstrAsStringsqlupstr="select*from学生where学号="&Trim(Text1.Text)精品文档放心下载sqlres.Opensqlupstr,sqlcon,adOpenDyamic,adLockPessimistic精品文档放心下载IfNotsqlres.EOFThenElsesqlres.AddNewsqlres("学号")=Text1.Textsqlres("姓名")=Text2.Textsqlres("性别")=Text3.Textsqlres("出生日期")=Text4.Text感谢阅读sqlres("系代号")=Text5.Text精品文档放心下载sqlres.UpdateEndIfsqlres.CloseAdodc1.RecordSource="select*from学生"感谢阅读Adodc1.RefreshEndSubPrivateSubCommand4_Click()谢谢阅读DimsqlupstrAsStringsqlupstr="select*from学生where学号="&Trim(Text1.Text)精品文档放心下载sqlres.Opensqlupstr,sqlcon,adOpenDyamic,adLockPessimistic感谢阅读IfNotsqlres.EOFThenElsesqlres.AddNewsqlres("学号")=Text1.Textsqlres("姓名")=Text2.Textsqlres("性别")=Text3.Textsqlres("出生日期")=Text4.Text谢谢阅读sqlres("系代号")=Text5.Text精品文档放心下载sqlres.UpdateEndIfsqlres.CloseAdodc1.RecordSource="select*from学生"精品文档放心下载Adodc1.RefreshEndSubPrivateSubForm_Load()sqlcon.Provider="SQLOLEDB"精品文档放心下载sqlcon.Open"Server=Y500-X64\SQLEXPRESS;DataBase=教务管理系统;UID=sa;PWD=;"谢谢阅读EndSubPrivateSubForm_Unload(CancelAsInteger)精品文档放心下载sqlcon.CloseEndSubPublicSubMakeSqlStr()sqlstr=""IfTrim(Text6.Text)<>""Then谢谢阅读sqlstr=Trim(Text6.Text)EndIfIfTrim(Text6.Text)=""Then感谢阅读sqlstr=Text1.TextEndIfEndSub3.学生课程成绩代码：PrivatesqlconAsNewADODB.Connection感谢阅读PrivatesqlresAsNewADODB.Recordset精品文档放心下载PrivatesqlcmdAsNewADODB.Command精品文档放心下载DimsqlstrAsStringPrivateSubCommand1_Click()谢谢阅读MakeSqlStrAdodc1.RecordSource="select*from选修,学生where选修.学号="&sqlstr感谢阅读Adodc1.RefreshEndSubPrivateSubForm_Load()sqlcon.Provider="SQLOLEDB"谢谢阅读sqlcon.Open"Server=Y500-X64\SQLEXPRESS;DataBase=教务管理系统;UID=sa;PWD=;"感谢阅读EndSubPublicSubMakeSqlStr()sqlstr=""IfTrim(Text5.Text)<>""Then感谢阅读sqlstr=Trim(Text5.Text)EndIfIfTrim(Text5.Text)<>""Then感谢阅读sqlstr=Text2.TextEndIfEndSubPrivateSubForm_Unload(CancelAsInteger)谢谢阅读sqlcon.CloseEndSubPrivateSubImage1_Click()感谢阅读Form1.Picture=LoadPicture(picturefile)谢谢阅读EndSub4.教师信息代码：PrivatesqlconAsNewADODB.Connection精品文档放心下载PrivatesqlresAsNewADODB.Recordset感谢阅读PrivatesqlcmdAsNewADODB.Command谢谢阅读DimsqlstrAsStringPrivateSubCommand1_Click()谢谢阅读MakeSqlStrAdodc1.RecordSource="select*from教师where工作证号="&sqlstr谢谢阅读Adodc1.RefreshEndSubPrivateSubCommand2_Click()感谢阅读ret=MsgBox("是否要删除"+Adodc1.Recordset("工作证号")+"号教师的记录",vbYesNo,"提示")谢谢阅读Ifret=vbYesThensqlcmd.ActiveConnection=sqlcon感谢阅读sqlcmd.CommandText="deletefrom教师where工作证号="+Adodc1.Recordset("谢谢阅读工作证号")sqlcmd.ExecuteAdodc1.RecordSource="select*from教师"谢谢阅读Adodc1.RefreshEndIfEndSubPrivateSubCommand3_Click()感谢阅读DimsqlupstrAsStringsqlupstr="select*from教师where工作证号="&Trim(Text1.Text)精品文档放心下载sqlres.Opensqlupstr,sqlcon,adOpenDyamic,adLockPessimistic感谢阅读IfNotsqlres.EOFThenElsesqlres.AddNewsqlres("工作证号")=Text1.Text精品文档放心下载sqlres("姓名")=Text2.Textsqlres("职称")=Text3.Textsqlres("电话")=Text4.Textsqlres("系代号")=Text5.Text精品文档放心下载sqlres.UpdateEndIfsqlres.CloseAdodc1.RecordSource="select*from教师"感谢阅读Adodc1.RefreshEndSubPrivateSubCommand4_Click()谢谢阅读DimsqlupstrAsStringsqlupstr="select*from教师where工作证号="&Trim(Text1.Text)感谢阅读sqlres.Opensqlupstr,sqlcon,adOpenDyamic,adLockPessimistic精品文档放心下载IfNotsqlres.EOFThenElsesqlres.AddNewsqlres("工作证号")=Text1.Text精品文档放心下载sqlres("姓名")=Text2.Textsqlres("职称")=Text3.Textsqlres("电话")=Text4.Textsqlres("系代号")=Text5.Text感谢阅读sqlres.UpdateEndIfsqlres.CloseAdodc1.RecordSource="select*from教师"感谢阅读Adodc1.RefreshEndSubPrivateSubForm_Load()sqlcon.Provider="SQLOLEDB"精品文档放心下载sqlcon.Open"Server=Y500-X64\SQLEXPRESS;DataBase=教务管理系统;UID=sa;PWD=;"感谢阅读EndSubPrivateSubForm_Unload(CancelAsInteger)感谢阅读sqlcon.CloseEndSubPublicSubMakeSqlStr()sqlstr=""IfTrim(Text6.Text)<>""Then精品文档放心下载sqlstr=Trim(Text6.Text)EndIfIfTrim(Text6.Text)=""Then谢谢阅读sqlstr=Text1.TextEndIfEndSub5.课程信息代码：PrivatesqlconAsNewADODB.Connection感谢阅读PrivatesqlresAsNewADODB.Recordset谢谢阅读PrivatesqlcmdAsNewADODB.Command感谢阅读DimsqlstrAsStringPrivateSubCommand1_Click()精品文档放心下载MakeSqlStrAdodc1.RecordSource="select*from选修where课程号&学号="&sqlstr感谢阅读Adodc1.RefreshEndSubPrivateSubForm_Load()sqlcon.Provider="SQLOLEDB"谢谢阅读sqlcon.Open"Server=Y500-X64\SQLEXPRESS;DataBase=教务管理系统;UID=sa;PWD=;"谢谢阅读EndSubPrivateSubForm_Unload(CancelAsInteger)精品文档放心下载sqlcon.CloseEndSubPublicSubMakeSqlStr()sqlstr=""IfTrim(Text7.Text)<>""Then精品文档放心下载sqlstr=Trim(Text7.Text)EndIfIfTrim(Text7.Text)=""Then谢谢阅读sqlstr=Text1.TextEndIfEndSub6.学生选课：PrivatesqlconAsNewADODB.Connection感谢阅读PrivatesqlresAsNewADODB.Recordset感谢阅读PrivatesqlcmdAsNewADODB.Command谢谢阅读D