Delphi课程设计.doc

课程设计任务书 题目： 学生信息管理系统 学 号 姓 名 刘中超 李继腾 王海云 专 业 多媒体技术 课 程 数据库技术与应用SQL Server 指导教师 迟庆云 职称 完成时间：2010 年 6 月-2010 年 7月枣庄学院计算机科学系制 。 第14页课程设计任务书及成绩评定课程设计的任务和具体要求数据库技术与应用SQL Server是一门实践性较强的课程，在学完该课程之后进行综合课程设计，有助于加深学生对数据库编程理论方面的理解，从而更好地掌握使用SQL Server语言开发应用系统的技术；有助于学生将课堂所学的知识和实践有机结合起来，初步掌握应用系统开发的步骤和方法，提高分析和解决实际问题的能力，从而培养学生理论与实践相结合和实践创新的能力。课程设计应能反应出学生综合利用所学知识完成一定的设计任务的能力，反映出学生理论联系实践的动手能力。具体要求如下： (1)明确所要开发系统的设计任务； (2)做好需求分析，合理选择设计方案； (3)合理设计数据库中各个表的结构及其关系； 指导教师签字： 日期： 指导教师评语成绩： 指导教师签字： 日期： 课程设计所需软件、硬件等 软件： SQl Server 2005 ，Delphi 7 ， Windows XP 操作系统 硬件： 功能完善的计算机课程设计进度计划起至日期工作内容备注6月3日6月6日6月7日6月12日6月13日6月25日6月26日6月30日熟悉题目并理解，进行构思，分析。收集相关资料，构建数据模型设计Delphi组建，连接数据库后期加工完善参考文献、资料索引序号文献、资料名称编著者出版单位1 Delphi 应用程序设计 李目海 枣庄学院计算机科学系2 SQl Server 数据库编程 赵 强 清华大学出版社3 Delphi 数据库开发自学教程 刘子锐 人民邮电出版社摘 要 选题目的及意义题目：学生信息管理系统意义：为了管理同学们的个人在校信息以及运用本学期所学知识完成数据库概论的课程设计，我们三人一起设计开发这个系统。 主要内容概要学生信息管理系统的前台是由delphi实现的，后台则使用了sql sever。数据库的名称为学生信息管理数据库，此数据库公有六个关系模式（1）管理员登录关系模式：管理员，密码；（2）学生登录关系模式：学生，密码； （3）学生信息录入关系模式：学号，姓名，院系，专业，班级，性别，出生年月，,政治面貌,宿舍号（关键字为学号）； （4）学生选定课程关系模式：学号，姓名，课程编号，课程名称,学分。（外键为学号、课程编号，关键字为学号、课程编号的组合）； （5）课程设置信息关系模式：课程编号，课程名称，学分，任课导师，学时，（关键字为课程编号）；（6）学生成绩关系模式：学号，姓名，课程，成绩（外键为学号）；此外，数据库还包含一个视图：学号，课程编号，课程名称，学分，成绩。 目 录1. 基本设计任务及要求 第三页2.总体设计方案 第四页3.技术实现 第五页4.测试及分析 第七页5.结束语 第十四页正文1. 基本设计任务及要求 数据库技术与应用SQL Server是一门实践性较强的课程，在学完该课程之后进行综合课程设计，有助于加深学生对数据库编程理论方面的理解，从而更好地掌握使用SQL Server语言开发应用系统的技术；有助于学生将课堂所学的知识和实践有机结合起来，初步掌握应用系统开发的步骤和方法，提高分析和解决实际问题的能力，从而培养学生理论与实践相结合和实践创新的能力。课程设计应能反应出学生综合利用所学知识完成一定的设计任务的能力，反映出学生理论联系实践的动手能力。具体要求如下： (1)明确所要开发系统的设计任务； (2)做好需求分析，合理选择设计方案； (3)合理设计数据库中各个表的结构及其关系；(4) 能够设计出美观大方的程序界面； (5)养成良好的代码书写习惯；(6)在编写程序过程中应注意相关文档的编写； (7)综合应用Delphi各种组件实现程序功能； (8)认真撰写课程设计总结报告。 2. 总体设计方案 学生信息管理系统的前台是由delphi实现的，后台则使用了sql sever。数据库的名称为学生信息管理数据库，此数据库公有六个关系模式（1）管理员登录关系模式：管理员，密码；（2）学生登录关系模式：学生，密码； （3）学生信息录入关系模式：学号，姓名，院系，专业，班级，性别，出生年月，,政治面貌,宿舍号（关键字为学号）； （4）学生选定课程关系模式：学号，姓名，课程编号，课程名称,学分。（外键为学号、课程编号，关键字为学号、课程编号的组合）； （5）课程设置信息关系模式：课程编号，课程名称，学分，任课导师，学时，（关键字为课程编号）；（6）学生成绩关系模式：学号，姓名，课程，成绩（外键为学号）；此外，数据库还包含一个视图：学号，课程编号，课程名称，学分，成绩。 3. 技术实现 概念模型：学生实体图：学生学号姓名性别出生年月院系班级政治面貌宿舍号课程实体图：课程学号课程编号学分课程名称选修关系：选修课程学号成绩姓名3.数据库逻辑模型设计学生基本信息表主键：学号约束：主键约束 性别：男或女学生成绩关系表学生选定课程关系表外键：学号和课程编号的组合课程设置信息关系表外键：课程号数据库安全保密设计及数据库的恢复用户角色划分为两个角色：admin和student用户名：admin密码：12345权限：查询，添加，更改，删除用户名：student密码：54321权限：查询 利用自选的应用程序进行应用系统设计，实现前台应用界面与后台数据库的连接。 3.3数据视图描述：create view1as select distinct 学生基本信息关系表.学号, 学生基本信息关系表.姓名,学生成绩关系表.课程, 学生成绩关系表.成绩,学生选定课程关系表.学分from 学生基本信息关系表, 学生成绩关系表，学生选定课程关系表where 学生基本信息关系表.学号=学生成绩关系表.学号， and 学生成绩关系表.课程=学生选定课程关系表.课程名称4. 测试及分析 登录界面form1“确定”按钮代码：begin if table1.Locate(用户名;密码,vararrayof(edit1.Text,edit2.Text),) then beginshowmessage(登陆成功);form6.Show;end else if table2.Locate(用户名;密码,vararrayof(edit1.Text,edit2.Text),) then begin form6.Button4.enabled:=false; form6.Button5.enabled:=false; form6.Button6.enabled:=false; showmessage(登陆成功); form6.Show; end else showmessage(您输入错误，请重新输入！);end;“取消”按钮代码：beginform1.Close;end;5.查询基本信息界面：form2“查询”按钮代码：begintable1.Refresh;with table1 dotry disablecontrols; filtered:=false; memo1.Text:=memo1.Text+edit1.Text+; filter:=memo1.Text; filtered:=true;finally enablecontrols; if table1.RecordCount=0 then begin messagebeep(1); showmessage(没有符合条件的记录，请确认条件或放弃查询!); if messagedlg(是否继续查询？结束查询才能进行其他操作！,mtinformation ,mbyes,mbno,0)=mrno then begin filtered:=false; table1.Close; table1.open; end; end else begin if messagedlg(是否继续查询？结束查询才能进行其他操作！,mtinformation ,mbyes,mbno,0)=mrno then begin filtered:=false; table1.Close; table1.open; end; End;end;end;“返回”按钮代码：beginclose;end;插入界面：form3“插入”按钮代码：begin if edit1.Text= then showmessage(请输入学号) else if edit2.Text= then showmessage(请输入姓名) else if edit3.Text =then showmessage(请输入性别) else if edit4.Text = then showmessage(请输入出生年月) else if edit5.Text = then showmessage(请输入院系) else if edit6.Text = then showmessage(请输入班级) else if edit7.Text = then showmessage(请输入政治面貌) else if edit8.Text = then showmessage(请输入宿舍号) elsebegin if messagedlg(确实要增加该学生？,mtInformation,mbOK, mbCancel,0)=mrok then begin table1.Edit; table1.Append; table1.FieldByName(学号).AsString:=edit1.Text; table1.FieldByName(姓名).AsString:=edit2.Text; table1.FieldByName(性别).AsString:=edit3.Text; table1.FieldByName(出生年月).AsString:=edit4.Text; table1.FieldByName(院系).AsString:=edit5.Text; table1.FieldByName(班级).AsString:=edit6.Text; table1.FieldByName(政治面貌).AsString:=edit7.Text; table1.FieldByName(宿舍号).AsString:=edit8.Text; table1.post; showmessage(添加成功); table1.Append; end else begin showmessage(添加失败); table1.Append; end;end;end;“返回”按钮代码：beginclose;end;删除界面：form4“删除”按钮：begin table1.Active:=true; if RadioButton1.Checked then if not table1.Locate(学号,edit1.Text,) then begin showmessage(没有该同学，请重新输入); edit1.Text:=; end else begin table1.Locate(学号,edit1.Text,); edit1.Text:=; table1.Edit; if messagedlg(确实要删除该学生？,mtWarning,mbOK,mbCancel,0)=mrok then begin table1.Delete; showmessage(删除成功); end else begin showmessage(删除失败); end; end; if RadioButton2.Checked then if not table1.Locate(姓名,edit2.Text,) then begin showmessage(没有该同学，请重新输入); edit2.Text:=; end else begin table1.Locate(姓名,edit2.Text,); edit2.Text:=; table1.Edit; if messagedlg(确实要删除该学生？,mtWarning,mbOK,mbCancel,0)=mrok then begin table1.Delete; showmessage(删除成功); end else begin showmessage(删除失败); end; end; end;“返回”按钮代码：beginclose;end;修改界面：form5“修改”按钮代码：begin if edit1.Text= then showmessage(请输入学号) else if edit2.Text= then showmessage(请输入姓名) else if ComboBox1.Text =then showmessage(请输入性别) else if edit4.Text = then showmessage(请输入出生年月) else if ComboBox2.Text = then showmessage(请输入院系) else if ComboBox3.Text = then showmessage(请输入班级) else if ComboBox4.Text = then showmessage(请输入政治面貌) else if edit8.Text = then showmessage(请输入宿舍号) elsebegin table1.edit; table1.Fields0.AsString:=edit1.Text; table1.Fields1.AsString:=edit2.Text; table1.Fields2.AsString:=ComboBox1.Text; table1.Fields3.AsString:=edit4.Text; table1.Fields4.AsString:=ComboBox2.Text; table1.Fields5.AsString:=ComboBox3.Text; table1.Fields6.AsString:=ComboBox4.Text; table1.Post; showmessage(修改成功);end;end; “返回”按钮代码：beginclose;end;主操作界面：form6procedure TForm6.Button3Click(Sender: TObject);beginif not assigned (form2) thenform2:=tform2.create(self);form2.show;end;procedure TForm6.Button4Click(Sender: TObject);beginif not assigned (form3) thenform3:=tform3.create(self);form3.show;end;procedure TForm6.Button5Click(Sender: TObject);beginif not assigned (form4) thenform4:=tform4.create(self);form4.show;end;procedure TForm6.Button6Click(Sender: TObject);begin if not assigned (form5) thenform5:=tform5.create(self);form5.show;end;procedure TForm6.Button1Click(Sender: TObject);begincl