《高级程序设计》课程设计报告.doc

高级程序设计课程设计报告本课程设计报告包括一下几个部分：一：课程设计目的二：课程设计要求三：软件功能分析四：数据库设计用到的主要的代码五：程序的设计用到的主要的存储过程六：程序的设计用到的主要的代码七：课程设计的心得体会一：课程设计目的 通过课程设计使本学期学习的知识掌握的更加的牢固，并且能熟练的应用自己在过去的一年当中学习过的 VISUAL BASIC 6.0 和SQL SERVER 2000数据库管理与开发的知识进行实际当中的项目的开发，进一步的掌握可视化数据库编程的基本思想和方法。在实践当中更加的灵活的运用所学知识。锻炼自己的分析问题，解决问题的能力，为将来自己能够开发大型的软件奠定基础。二：课程设计要求1：上机前做好充分准备，包括程序模块图，程序界面方式，源程序清单，调试步骤，测试方法，运行结果的分析等。2：课程设计具体要求如下：(1) 设计说明：用来说明程序模块功能、结构、主要包括程序名、功能、原理计算说明，主要用于符号说明。(2) 调试说明：便于学生总结经验，提高编程及调试能力，包括调试情况，如对数据库操作时遇到的问题及解决方法，对程序设计技巧的总结及分析等。对运行结果的分析、课程设计心得体会等。(3) 使用说明：程序提供给用户时必须做出的说明，使用方法、操作步骤等。三：软件功能分析 为了提高对学生档案的管理，设计合理有效的学生档案管理系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少不必要的时间和人力等方面的工作量。系统开发的总体任务是使学生档案当中的各个表更加的规范，更加的系统，更加的条理清楚。本次课程设计所要求达到的功能分析具体如下：1：学籍的各项基本的信息的输入，如学生的高考用的考试号，在学校的所在的班级，所学的基本的课程信息，考试成绩等。2：学生的基本的信息的查询，如学生的学号，姓名，班级，所属的专业，学习的基本的课程，学生的考试成绩。3：学生信息的修改。4：学校的专业和所对应课程的输入。5：学校的专业和所对应课程的查询。6：学校的专业和所对应课程的修改。7：对不同的用户的权限的设置使不同的用户能实现不同的功能，进行在系统管理员所赋予的权限的范围内进行操作。8：报表统计模块：实现数据的统计、打印等功能。四：数据库设计用到的主要的代码-创建数据库use masterif exists(select name from sysdatabases where name=学生档案管理) drop database 学生档案管理create database 学生档案管理on primary(name=studentgl, filename=d:学生档案管理student_gl.mdf, size=1, maxsize=10, filegrowth=10%)log on(name=studenlog, filename=d:学生档案管理student_log.ldf, size=1, maxsize=10, filegrowth=10%)-创建用户表gouse 学生档案管理if exists(select name from sysobjects where name=用户表and type=U) drop table 用户表create table 用户表(用户名 varchar(20) not null, 密码 varchar(20), 级别 varchar(5) not null default 1)-插入一个数据记录insert 用户表 values(系统管理员,0,0)use 学生档案管理-创建数据表if exists(select name from sysobjects where name=数据表and type=U) drop table 数据表 create table 数据表( 学号 varchar(20) not null, 姓名 varchar(20) not null, 班级 varchar(20) not null, 性别 varchar(5) not null, 出生日期 datetime not null, 政治面貌 varchar(5) null, 专业名称 varchar(20) null, 家庭地址 varchar(20) null)-创建成绩表if exists(select name from sysobjects where name=成绩表and type=U) drop table 成绩表 create table 成绩表(学号 varchar(20) not null, 姓名 varchar(20)not null, 班级 varchar(20) not null, 专业名称 varchar(20) not null, 科目名称 varchar(20) null, 成绩 int null) -创建班级表if exists(select name from sysobjects where name=班级表and type=U) drop table 班级表create table 班级表(班级名称 varchar(20) not null, 专业名称 varchar(20) not null) -创建科目表 if exists(select name from sysobjects where name=科目表and type=U) drop table 科目表create table 科目表(科目名称 varchar(20) not null, 专业名称 varchar(20) not null) -创建专业表if exists(select name from sysobjects where name=专业表and type=U) drop table 专业表create table 专业表( 专业名称 varchar(20) not null)五: 程序的设计用到的主要的存储过程use 学生档案管理-按学号和姓名查询if exists(select name from sysobjects where name=numnameselect and type=p) drop procedure numnameselectgocreate procedure numnameselect num as varchar(20),name as varchar(20) as if exists(select name from sysobjects where name=查询_1and type=U) drop table 查询_1 select * into 查询_1 from 数据表 where num in (学号,) and name in(姓名,)go-按综合条件查询if exists (select name from sysobjects where name=zongheselectand type=p) drop procedure zongheselectgocreate procedure zongheselect name as varchar(20),sex as varchar(20),zhuanye as varchar(20),banji as varchar(20) as if exists(select name from sysobjects where name=查询_2and type=U) drop table 查询_2 select * into 查询_2 from 数据表 where name in (姓名,) and banji in (班级,)and zhuanye in(专业名称,)and sex in(性别,)go-按姓名和班级查询if exists (select name from sysobjects where name=namebanjicxand type=p) drop procedure namebanjicxgocreate procedure namebanjicx name as varchar(20), banji as varchar(20) as if exists(select name from sysobjects where name=查询_8and type=U) drop table 查询_8 select * into 查询_8 from 成绩表 where name in (姓名,) and banji in (班级,) go-成绩范围查询if exists (select name from sysobjects where name=fanweicxand type=p) drop procedure fanweicxgocreate procedure fanweicx kemu as varchar(20),banji as varchar(20),beginscore as int,endscore as int as if exists(select name from sysobjects where name=查询_9and type=U) drop table 查询_9 select * into 查询_9 from 成绩表 where kemu in(科目名称,)and banji in(班级,)and 成绩=beginscore and 成绩=beginscore and 成绩=endscore go六：程序的设计用到的主要的代码软件的主窗体：登陆窗体及其主要的代码：Const maxlogintimes As Integer = 3Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetPrivate Sub cmdok_Click()Dim strSQl As StringDim strDSN As StringStatic intlogintimes As Single登陆的最大的次数intlogintimes = intlogintimes + 1strSQl = select * from 用户表strDSN = PROVIDER=MSDASQL;driver=SQL Server;server=(local);uid=;pwd=;database=学生档案管理;If Combo1.Text = ThenMsgBox 用户名不能为空，请输入用户名！, vbOKOnly + vbCritical, 信息提示Exit SubEnd If*连接数据库并且返回值*Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.CursorLocation = adUseClientconn.Open strDSNadOpenStatic 使用静态的游标打开记录集adLockPessimistic 指定在编辑一个记录的时候立即锁定它rs.Open strSQl, conn, adOpenStatic, adLockPessimisticrs.MoveFirstrs.Find 用户名= & Combo1.Text & If Trim(Text2.Text) Trim(rs.Fields(密码) Then If intlogintimes 3 Then MsgBox 你已经超过了允许的登录验证次数! & vbCr & 应用程序将结束, vbCritical, 登录验证 End End If MsgBox 用户密码不对，请重新输入!, vbOKOnly + vbCritical, 信息提示 Text2.SetFocusElse username = Combo1.Text userpassword = Text2.Text userjibie = Trim(rs.Fields(级别) MsgBox 欢迎使用学生档案管理系统, vbOKOnly + vbInformation, 登录成功！ Unload Me sysmain.Show End IfEnd SubPrivate Sub cmdquit_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim strSQl As StringDim strDSN As StringCombo1.Text = strSQl = select 用户名 from 用户表strDSN = PROVIDER=MSDASQL;driver=SQL Server;server=(local);uid=;pwd=;database=学生档案管理;Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.CursorLocation = adUseClientconn.Open strDSNrs.Open strSQl, conn, adOpenStatic, adLockOptimisticIf rs.RecordCount 0 Then rs.MoveFirst While Not rs.EOF Combo1.AddItem (rs.Fields(用户名) rs.MoveNext WendEnd IfSet rs = NothingSet conn = NothingEnd Sub在数据库编程的编程中，查询是非常重要的。如：Dim conn As ADODB.ConnectionDim conn_zhuanye As ADODB.ConnectionDim conn_banji As ADODB.ConnectionDim rs As ADODB.RecordsetDim rs_zhuanye As ADODB.RecordsetDim rs_banji As ADODB.RecordsetPrivate Sub Command1_Click()Dim strDSN As StringstrDSN = PROVIDER=MSDASQL;driver=SQL Server;server=(local);uid=;pwd=;database=学生档案管理;Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.CursorLocation = adUseClientconn.Open strDSN rs.Open zongheselect( & Text1.Text & , & Combo1.Text & , & Combo3.Text & , & Combo2.Text & ), conn, adOpenStatic, adLockOptimistic rs.Open select * from 查询_2, conn, adOpenStatic, adLockOptimisticIf rs.RecordCount = 0 Then MsgBox 表中不存在满足条件的记录,请重新输入条件!, vbOKOnly + vbCritical, 信息提示 dataselect.ShowEnd IfSet DataGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub数据库的数据的备份和还原在数据库的操作中是非常重要的。如：Private Sub Command1_Click()Dim strDSN As StringDim conn As ADODB.ConnectionSet conn = New ADODB.ConnectionDim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetstrDSN = PROVIDER=MSDASQL;driver=SQL Server;server=(local);uid=;pwd=;database=学生档案管理;conn.ConnectionString = strDSNconn.CursorLocation = adUseClientconn.OpenOn Error GoTo next1If InStr(1, Text2.Text, .bak) = 0 Then Text2.Text = Trim(Text2.Text) & .bakEnd Ifstr1 = backup database 学生档案管理 to disk= & Trim(Text1.Text) & & Trim(Text2.Text) & with initconn.Execute str1 MsgBox 数据备份成功！, vbOKOnly + vbInformation Unload Me Exit Subnext1: MsgBox Err.Description, vbOKOnly + vbCritica