毕业设计（论文）-DELPHI+ACCESS学生综合管理系统论文.doc

学生综合管理系统 第第 i 页页 学生综合管理系统学生综合管理系统 设计人设计人: 学生综合管理系统 第第 ii 页页 摘要摘要 本文档根据学校对我们的毕业设计的系统的要求,对系统进行了分析设计,得到了本文档. 修改历史修改历史 日期日期版本版本作者作者修改内容修改内容评审号评审号更改请求号更改请求号 1.0项目初步设计 学生综合管理系统 第第 iii 页页 目目 录录 第一章第一章概述概述1 第二章第二章功能模块功能模块2 2.1功能模块概述2 2.1.1学生管理(studentmanage)2 2.1.2成绩管理(resultmanage)3 2.1.3系统管理(systemmanage).3 第三章第三章系统架构系统架构5 3.1显示层5 3.1.1主界面6 3.1.2学生管理子模块6 3.1.3成绩管理子模块7 3.1.4系统管理子模块7 3.2业务逻辑层8 3.2.1学生管理(studentmanage).8 3.2.2成绩管理(resultmanage) .8 3.2.3系统管理(systemmanage)9 3.3数据操作层9 第四章第四章数据字典数据字典10 第五章第五章程序结构程序结构12 第六章第六章界面设计界面设计16 6.1主界面16 6.2学生管理17 6.3成绩管理18 6.4系统管理18 6.5学生资料报表19 6.6学生成绩报表20 第七章第七章总总 结结21 7.1关键技术问题及其解决21 7.2系统评价21 第八章第八章系统部分源程系统部分源程23 第九章第九章参考文献参考文献42 学生综合管理系统 第第 1 页页 / 共共 6 页页 一一一 概述概述 本文档根据毕业设计所提出的项目要求,对项目进行了分析,产生了本设计文档. 本设计文档描述了,项目的需要完成的功能,系统总体结构.系统中具体的操作类,以及相关的 数据字典. 根据毕业设计说明书所提出的项目要求,我们定义了项目的需求: 1.系统管理学生资料以及学生成绩,并可以查询打印相关的报表. 2.学校实行的学分制. 3.学生每一个学期可以自由的选择自己想学习的课程. 4.每学期的课程没有相同课程. 作为一个毕业设计的研究项目,我们省略了与项目主要功能无关的其它数据. 系统采用了 delphi+access 开发.有效的利用 delphi 的快速 rad 程序开发能力,高效的 完成程序的开发. 系统在分析过程中,采用了 rose 分析设计工具,本文档中所有的图形都用 rose 完成. 学生综合管理系统 第第 2 页页 / 共共 6 页页 一一一 功能模功能模块块 studentmanage resultmanage systemsetup manager studentinputstudentlist studentedit studentsearch resultinput resultedit resultlistresultlistbystudent failtresultlistbystudent curriculummanage curriculumselectbystudent classmanage failtresultlistbyclass 2.1 功能模块概述功能模块概述 系统主要包括了三大模块的功能,分别是学生管理,成绩管理,以及系统管理. 2.1.1 学生管理学生管理(studentmanage) 2.2.1.1学生资料录入学生资料录入(studentinput) 接收管理员录入的学生资料,并且检查资料的合法性,将资料保存到数据库中. 2.2.1.2学生资料修改学生资料修改(studentedit) 接收管理员录入的需修改的学生资料,并且检查资料的合法性,将资料更新到数据库中. 学生综合管理系统 第第 3 页页 / 共共 6 页页 2.2.1.3学生资料查询学生资料查询(studentsearch) 接收管理员录入的查询内容,从数据库中检索学生的资料,并且显示出来. 2.2.1.4班级学生列表班级学生列表(studentlist) 管理员选择班级,列出该级的学生资料. 2.1.2 成绩管理成绩管理(resultmanage) 2.2.1.1成绩录入成绩录入(resultinput) 接收管理员录入的成绩,将成绩保存到数据库中. 2.2.1.2成绩修改成绩修改(resultedit) 接收管理员录入的需修改的成绩,将成绩更新到数据库中. 2.2.1.3学生成绩列表学生成绩列表(resultlistbystudent) 管理员选择一个学生以后,列出这个学生所有的成绩. 2.2.1.4学生需补考的成绩列表学生需补考的成绩列表(failtresultlistbystudent) 管理员选择一个学生以后,列出这个学生所有需要补考的成绩清单. 2.2.1.5班级需补考的成绩列表班级需补考的成绩列表(failtresultlistbystudent) 管理员选择一个班级以后,列出这个班级所有的补考成绩清单. 2.2.1.6学生选课学生选课(curriculumselectbystudent) 管理员录入选择本学期选择要学习的课程. 2.1.3 系统管理系统管理(systemmanage) 2.2.1.1班级管理班级管理(classmanage) 管理员设置班级的信息.包括对班级资料进行的增删改. 学生综合管理系统 第第 4 页页 / 共共 6 页页 2.2.1.2课程管理课程管理(curriculummanage) 管理员设置课程的信息.包括对课程进行的增删改. 学生综合管理系统 第第 5 页页 / 共共 6 页页 一一一 系系统统架构架构 viewlayer operalayer datalayer datadict 3.1 显示层显示层 studentmanage resultmanage systemmanage mainform 显示层主要实现对于操作数据的显示,以及管理员相关的操作界面的实现. 显示层包括了主界面,学生管理子模块,成绩管理子模块,系统管理子模块. 学生综合管理系统 第第 6 页页 / 共共 6 页页 3.1.1 主界面主界面 主界面主要显示系统的功能菜单以及相关的功能按钮. 3.1.2 学生管理子模块学生管理子模块 studenteditform studentsearchformstduentlistform studentinputform 学生管理子模块包括了学生列表界面,学生资料修改界面,学生资料录入界面,以及学生资料 查询界面. 从学生列表界面,可以进入到学生资料录入界面和学生资料修改界面,以及学生资料查询界面. 学生综合管理系统 第第 7 页页 / 共共 6 页页 3.1.3 成绩管理子模块成绩管理子模块 resulteditform resultinputformresultlistform resultsearchform 成绩管理子模块包括了成绩列表界面,成绩修改界面,成绩录入界面,以及成绩查询界面. 从成绩列表界面,可以进入到成绩录入界面和成绩修改界面,以及成绩查询界面. 3.1.4 系统管理子模块系统管理子模块. classmanageformcurriculummanageformaboutform 系统管理子模块包括了班级管理界面和课程管理界面,以及系统关于的界面. 学生综合管理系统 第第 8 页页 / 共共 6 页页 3.2 业务逻辑层业务逻辑层 3.2.1 学生管理学生管理(studentmanage) 学生管理模块主要负责根据显示层学生管理子模块录入的相关信息,调用数据操作层,完成相 关的操作. 主要的功能有:学生资料录入, 学生资料修改, 班级学生资料列表,学生资料查询 3.2.2 成绩管理成绩管理(resultmanage) 成绩管理模块主要负责根据显示层成绩管理子模块录入的相关信息,调用数据操作层,完成相 关的操作. 主要的功能有:成绩录入,成绩修改,学生成绩列表,学生补考成绩列表,学生选课. 学生综合管理系统 第第 9 页页 / 共共 6 页页 3.2.3 系统管理系统管理(systemmanage) 成绩管理模块主要负责根据显示层系统管理子模块录入的相关信息,调用数据操作层,完成相 关的操作. 主要的功能有:班级管理,课程管理. 3.3 数据操作层数据操作层 dataconnect studentcommandstudentdata resultcommandresultdata classcommandclassdatacurriculumcommand curriculumdata 数据操作层,主要负责与数据库的连接以及操作数据库的相关数据表. datacount 对象负责与数据库建立连接. 其它的对象对数据库中的表一一对应,完成对数据库中相关的数据表的操作. 学生综合管理系统 第第 10 页页 / 共共 6 页页 一一一 数据字典数据字典 上图显示各个数据表的内容,数据类型以及各个数据表中间的关联关系. 以下详细说明各个表中的字段 字段表数据类型中文名备注 class(班级表) classnoint班级编号 classnamevarchar50班级名称 graduationcreditint毕业所需的学分 classnumint班级人数 student(学生资料表) studentnoint学生编号 studentnamevarchar50学生名称 classnoint班级编号 curriculum(课程表) currinoint课程编号 currinamevarchar50课程名称 curricreditint课程学分 result(成绩表) studentnoint学生编号 currinoint课程编号 resultfloat成绩 学生综合管理系统 第第 11 页页 / 共共 6 页页 classnoint班级编号 isfailboolean是否通过 学生综合管理系统 第第 12 页页 / 共共 6 页页 一一一 程序程序结结构构 1 总体结构 viewlayer operalayer datalayer datadict 2 模块结构 显示层 studentmanage resultmanage systemmanage mainform reportprint 学生综合管理系统 第第 13 页页 / 共共 6 页页 显示层主要实现对于操作数据的显示,以及管理员相关的操作界面的实现. 显示层包括了主界面,学生管理子模块,成绩管理子模块,系统管理子模块. 主界面 主界面主要显示系统的功能菜单以及相关的功能按钮. 学生管理子模块 studenteditform studentsearchformstduentlistform studentinputform 学生管理子模块包括了学生列表界面,学生资料修改界面,学生资料录入界面,以及学生资料 查询界面. 从学生列表界面,可以进入到学生资料录入界面和学生资料修改界面,以及学生资料查询界面. 成绩管理子模块 学生综合管理系统 第第 14 页页 / 共共 6 页页 resulteditform resultinputformresultlistform resultsearchform 成绩管理子模块包括了成绩列表界面,成绩修改界面,成绩录入界面,以及成绩检索界面. 从成绩列表界面,可以进入到成绩录入界面和成绩修改界面,以及成绩检索界面. 系统管理子模块. classmanageformcurriculummanageformaboutform 系统管理子模块包括了班级管理界面和课程管理界面,以及系统关于的界面. 报表打印 报表打印模块直接在主界面上有一个下拉接单,点击下接菜单可以进入学生资料打印和学生 成绩打印. 业务逻辑层 学生管理(studentmanage) 学生管理模块主要负责根据显示层学生管理子模块录入的相关信息,调用数据操作层,完成相 关的操作. 主要的功能有:学生资料录入, 学生资料修改, 班级学生资料列表,学生资料查询 成绩管理(resultmanage) 成绩管理模块主要负责根据显示层成绩管理子模块录入的相关信息,调用数据操作层,完成相 关的操作. 主要的功能有:成绩录入,成绩修改,学生成绩列表,学生补考成绩列表,学生选课. 学生综合管理系统 第第 15 页页 / 共共 6 页页 系统管理(systemmanage) 成绩管理模块主要负责根据显示层系统管理子模块录入的相关信息,调用数据操作层,完成相 关的操作. 主要的功能有:班级管理,课程管理. 报表打印 学生资料打印 学生资料打印模块主要负责制作所有学生资料的报表,并且可以实现预览,选择不同的打 印打印等功能. 学生成绩打印 学生资料打印模块主要负责制作所有学生成绩的报表(成绩按照班级学生课程排 列),并且可以实现预览,选择不同的打印打印等功能. 数据操作层 dataconnect studentcommandstudentdata resultcommandresultdata classcommandclassdatacurriculumcommand curriculumdata 数据操作层,主要负责与数据库的连接以及操作数据库的相关数据表. dataconnect 对象负责与数据库建立连接. 其它的对象对数据库中的表一一对应,完成对数据库中相关的数据表的操作. 学生综合管理系统 第第 16 页页 / 共共 6 页页 一一一 界面界面设计设计 6.1 主界面主界面 学生综合管理系统 第第 17 页页 / 共共 6 页页 6.2 学生管理学生管理 学生综合管理系统 第第 18 页页 / 共共 6 页页 6.3 成绩管理成绩管理 6.4 系统管理系统管理 学生综合管理系统 第第 19 页页 / 共共 6 页页 6.5 学生资料报表学生资料报表 学生综合管理系统 第第 20 页页 / 共共 6 页页 6.6 学生成绩报表学生成绩报表 学生综合管理系统 第第 21 页页 / 共共 6 页页 一一一 总总 结结 7.1 关键技术问题及其解决关键技术问题及其解决 3 访问本地数据库,以及访问的安全处理 1)系统采用 delphi 自带的 ado 数据库连接控件,连接到数据库. 2)系统在连接本地数据库时,采用了相对路径.保持了软件的灵活性.使软件不需要 安装,只需要拷贝整个目录到任意路径就可使用. 3)系统对采用的 access 数据库设置了密码.保存了除系统以外的人不能随意访问 本数据库. 4)考虑到可能破解 exe 文件查找到数据库的密码(因为连接字符串中需要设置密 码),所以系统采用 aspack 对系统进行了加密压缩处理.进一步加强了系统的安 全性. 4 简单直观的界面设计 1)系统在界面设计去除了过多的弹出窗口设计.将所有的界面集中在主界面显示 操作.使操作非常的简洁直观. 2)系统在设计时,对主要操作按钮以及输入框都进行了说明.当鼠标移动到相关的 操作按钮以及输入框时,说明自动显示. 3)系统为了方便用户输入,都对系统进行了 tab 次序定位.当用户输入数据时,输入 完一个,只需按 tab 键,自动的按需要输入的数据的次序.依次得到焦点. 5 程序运行效率的考虑 1)为了有效提高系统的运行效率,我们尽量的使用了 delphi 自带的控件,没有采用 其它的第三方控件. 2)在进行数据库设计了,为了提供数据读取速度.尽量的减少了数据库的多级关联. 采取了适当的数据沉冗. 7.2 系统评价系统评价 1.功能评价 3)系统采用 rose 设计工具,采用了 uml 建模的方式进行系统的分析和设计,符 合国际软件工程的方式. 4)系统采用了 delphi+access 的快速开发方式.高质快速的完成了软件开发. 5)系统采取了一定的安全处理措施,安全有效的保存了系统数据的安全性. 6)系统在进行数据库设计时,尝试使用了中文作为字段名.取得成功.改变了以往只 使用英文作为字段名的习惯.并且与 delphi 结合能够.进一步的提高系统开发 速度. 学生综合管理系统 第第 22 页页 / 共共 6 页页 2.可扩充性 系统采用了 delphi 开发,可以在系统源代码的基础上快速的添加其它的功能模块. 3.可能存在的问题及改进意见 系统由于是一个简单的项目,没有充分的考虑实际学生管理中的一些情况.在软件实 用性方面还有待进一步的改进. 建议系统在下次开发时,进一步的深入学校教学当中,采集实际的学生管理和成绩管 理中所遇到的一些情况.进一步改进软件.加强软件的实用性. 学生综合管理系统 第第 23 页页 / 共共 6 页页 一一一 系系统统部分源程部分源程 1 （部分）程序清单，要加注释 /- / 功能描述: 程序主模块,包括了本系统所有的业务逻辑的代码 / 作者: / 开发时间: 2003-07-12 /- unit unit_main; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, imglist, comctrls, toolwin, menus, stdctrls, unit_dm, grids, dbgrids, buttons, extctrls, mask, dbctrls, db, unit_bb2; type tform1 = class(tform) mainmenu1: tmainmenu; n1: tmenuitem; n2: tmenuitem; toolbar1: ttoolbar; imagelist1: timagelist; toolbutton2: ttoolbutton; toolbutton6: ttoolbutton; toolbutton7: ttoolbutton; toolbutton8: ttoolbutton; toolbutton9: ttoolbutton; pagecontrol1: tpagecontrol; ts_student: ttabsheet; ts_cj: ttabsheet; ts_sm: ttabsheet; ts_bb1: ttabsheet; groupbox1: tgroupbox; label1: tlabel; dbe_curri_name: tdbedit; label2: tlabel; dbe_curri_xf: tdbedit; bevel1: tbevel; sb_curri_insert: tspeedbutton; 学生综合管理系统 第第 24 页页 / 共共 6 页页 sb_curri_edit: tspeedbutton; sb_curri_delete: tspeedbutton; sb_curri_save: tspeedbutton; sb_curri_canel: tspeedbutton; groupbox2: tgroupbox; label3: tlabel; label4: tlabel; bevel2: tbevel; sb_class_insert: tspeedbutton; sb_class_edit: tspeedbutton; sb_class_delete: tspeedbutton; sb_class_save: tspeedbutton; sb_class_canel: tspeedbutton; dbe_class_name: tdbedit; dbe_class_xf: tdbedit; dbgrid2: tdbgrid; dbgrid1: tdbgrid; label5: tlabel; dbe_student_no: tdbedit; label6: tlabel; dbe_student_name: tdbedit; label7: tlabel; dbcb_student_sex: tdbcombobox; label8: tlabel; dbcb_student_class: tdblookupcombobox; bevel3: tbevel; label9: tlabel; dbe_student_yb: tdbedit; label10: tlabel; dbe_student_address: tdbedit; sb_student_insert: tspeedbutton; sb_student_edit: tspeedbutton; sb_student_delete: tspeedbutton; sb_student_save: tspeedbutton; sb_student_canel: tspeedbutton; panel1: tpanel; groupbox3: tgroupbox; dbgrid3: tdbgrid; dblookuplistbox1: tdblookuplistbox; sb_student_search: tspeedbutton; ed_student_search: tedit; panel2: tpanel; groupbox4: tgroupbox; 学生综合管理系统 第第 25 页页 / 共共 6 页页 groupbox5: tgroupbox; dblookuplistbox2: tdblookuplistbox; groupbox6: tgroupbox; dbgrid5: tdbgrid; dbgrid4: tdbgrid; sb_cj_insert: tspeedbutton; sb_cj_delete: tspeedbutton; sb_cj_edit: tspeedbutton; bevel4: tbevel; sb_cj_save: tspeedbutton; sb_cj_canel: tspeedbutton; label11: tlabel; label12: tlabel; dbe_cj_xf: tdbedit; label13: tlabel; dbcb_cj_bk: tdbcombobox; dblcb_cj_name: tdblookupcombobox; n3: tmenuitem; toolbutton10: ttoolbutton; popupmenu1: tpopupmenu; n4: tmenuitem; n5: tmenuitem; ts_bb2: ttabsheet; panel3: tpanel; ts_about: ttabsheet; label14: tlabel; label15: tlabel; bevel5: tbevel; label16: tlabel; label17: tlabel; procedure sb_curri_insertclick(sender: tobject); procedure sb_curri_editclick(sender: tobject); procedure sb_curri_saveclick(sender: tobject); procedure sb_curri_canelclick(sender: tobject); procedure sb_curri_deleteclick(sender: tobject); procedure sb_class_insertclick(sender: tobject); procedure sb_class_editclick(sender: tobject); procedure sb_class_deleteclick(sender: tobject); procedure sb_class_canelclick(sender: tobject); procedure sb_class_saveclick(sender: tobject); procedure sb_student_deleteclick(sender: tobject); procedure sb_student_insertclick(sender: tobject); procedure sb_student_editclick(sender: tobject); 学生综合管理系统 第第 26 页页 / 共共 6 页页 procedure sb_student_saveclick(sender: tobject); procedure sb_student_searchclick(sender: tobject); procedure n3click(sender: tobject); procedure formclosequery(sender: tobject; var canclose: boolean); procedure sb_student_canelclick(sender: tobject); procedure sb_cj_insertclick(sender: tobject); procedure sb_cj_editclick(sender: tobject); procedure sb_cj_deleteclick(sender: tobject); procedure sb_cj_saveclick(sender: tobject); procedure sb_cj_canelclick(sender: tobject); procedure toolbutton9click(sender: tobject); procedure toolbutton2click(sender: tobject); procedure toolbutton7click(sender: tobject); procedure n4click(sender: tobject); procedure n5click(sender: tobject); procedure toolbutton6click(sender: tobject); procedure n2click(sender: tobject); procedure dblookuplistbox1click(sender: tobject); procedure panel3click(sender: tobject); procedure dblookuplistbox2click(sender: tobject); procedure dbgrid5dblclick(sender: tobject); private private declarations public public declarations procedure set_curri_state(state:string); procedure set_class_state(state:string); procedure set_student_state(state:string); procedure set_cj_state(state:string); end; var form1: tform1; implementation uses unit_about, unit_bb1; $r *.dfm /- / 功能描述: 进入课程新增模块 学生综合管理系统 第第 27 页页 / 共共 6 页页 /- procedure tform1.sb_curri_insertclick(sender: tobject); begin dm.adot_curri.insert; form1.set_curri_state(open); end; /- / 功能描述: 设置课程管理表单的不同录入状态 / 参数说明: state = open 将表单设置为录入状态 / state = close 将表单设置为查看状态 /- procedure tform1.set_curri_state(state:string); begin if state = openthen begin form1.dbe_curri_name.enabled:=true; form1.dbe_curri_xf.enabled:=true; form1.sb_curri_insert.enabled:=false; form1.sb_curri_edit.enabled:=false; form1.sb_curri_delete.enabled:=false; form1.sb_curri_save.enabled:=true; form1.sb_curri_canel.enabled:=true; end; if state = closethen begin form1.dbe_curri_name.enabled:=false; form1.dbe_curri_xf.enabled:=false; form1.sb_curri_insert.enabled:=true; form1.sb_curri_edit.enabled:=true; form1.sb_curri_delete.enabled:=true; form1.sb_curri_save.enabled:=false; form1.sb_curri_canel.enabled:=false; end; end; /- / 功能描述: 设置班级管理表单的不同录入状态 / 参数说明: state = open 将表单设置为录入状态 / state = close 将表单设置为查看状态 /- procedure tform1.set_class_state(state:string); 学生综合管理系统 第第 28 页页 / 共共 6 页页 begin if state = openthen begin form1.dbe_class_name.enabled:=true; form1.dbe_class_xf.enabled:=true; form1.sb_class_insert.enabled:=false; form1.sb_class_edit.enabled:=false; form1.sb_class_delete.enabled:=false; form1.sb_class_save.enabled:=true; form1.sb_class_canel.enabled:=true; end; if state = closethen begin form1.dbe_class_name.enabled:=false; form1.dbe_class_xf.enabled:=false; form1.sb_class_insert.enabled:=true; form1.sb_class_edit.enabled:=true; form1.sb_class_delete.enabled:=true; form1.sb_class_save.enabled:=false; form1.sb_class_canel.enabled:=false; end; end; /- / 功能描述: 设置学生管理表单的不同录入状态 / 参数说明: state = open 将表单设置为录入状态 / state = close 将表单设置为查看状态 /- procedure tform1.set_student_state(state:string); begin if state = openthen begin form1.dbe_student_name.enabled:=true; form1.dbe_student_yb.enabled:=true; form1.dbe_student_no.enabled:=true; form1.dbe_student_address.enabled:=true; form1.dbcb_student_sex.enabled:=true; form1.dbcb_student_class.enabled:=true; form1.sb_student_insert.enabled:=false; form1.sb_student_edit.enabled:=false; form1.sb_student_delete.enabled:=false; form1.sb_student_save.enabled:=true; form1.sb_student_canel.enabled:=true; 学生综合管理系统 第第 29 页页 / 共共 6 页页 end; if state = closethen begin form1.dbe_student_name.enabled:=false; form1.dbe_student_yb.enabled:=false; form1.dbe_student_no.enabled:=false; form1.dbe_student_address.enabled:=false; form1.dbcb_student_sex.enabled:=false; form1.dbcb_student_class.enabled:=false; form1.sb_student_insert.enabled:=true; form1.sb_student_edit.enabled:=true; form1.sb_student_delete.enabled:=true; form1.sb_student_save.enabled:=false; form1.sb_student_canel.enabled:=false; end; end; /- / 功能描述: 设置成绩管理表单的不同录入状态 / 参数说明: state = open 将表单设置为录入状态 / state = close 将表单设置为查看状态 /- procedure tform1.set_cj_state(state:string); begin if state = openthen begin form1.dblcb_cj_name.enabled:=true; form1.dbe_cj_xf.enabled:=true; form1.dbcb_cj_bk.enabled:=true; form1.sb_cj_insert.enabled:=false; form1.sb_cj_edit.enabled:=false; form1.sb_cj_delete.enabled:=false; form1.sb_cj_save.enabled:=true; form1.sb_cj_canel.enabled:=true; end; if state = closethen begin form1.dblcb_cj_name.enabled:=false; form1.dbe_cj_xf.enabled:=false; form1.dbcb_cj_bk.enabled:=false; form1.sb_cj_insert.enabled:=true; form1.sb_cj_edit.enabled:=true; 学生综合管理系统 第第 30 页页 / 共共 6 页页 form1.sb_cj_delete.enabled:=true; form1.sb_cj_save.enabled:=false; form1.sb_cj_canel.enabled:=false; end; end; /- / 功能描述: 进入课程修改模块 /- procedure tform1.sb_curri_editclick(sender: tobject); begin if dm.adot_curri.recordcount0 then begin dm.adot_curri.edit; form1.set_curri_state(open); end; end; /- / 功能描述: 保存课程修改模块 /- procedure tform1.sb_curri_saveclick(sender: tobject); begin if form1.dbe_curri_name.text = then begin application.messagebox(请输入课程名称,提示信息,mb_ok); form1.dbe_curri_name.setfocus; exit; end; if form1.dbe_curri_xf.text = then begin application.messagebox(请输入课程所占的学分,提示信息,mb_ok); form1.dbe_curri_xf.setfocus; exit; end; try dm.adot_curri.post; dm.adot_curri.updaterecord; dm.adot_curri.refresh; except end; 学生综合管理系统 第第 31 页页 / 共共 6 页页 form1.set_curri_state(close); end; /- / 功能描述: 放弃课程修改 /- procedure tform1.sb_curri_canelclick(sender: tobject); begin try dm.adot_curri.cancel; dm.adot_curri.refresh; form1.set_curri_state(close); except end; end; /- / 功能描述: 进入课程删除模块 /- procedure tform1.sb_curri_deleteclick(sender: tobject); begin if dm.adot_curri.recordcount0 then begin if application.messagebox(你确认要删除这门课程吗,警告信息,mb_yesno)=id_yes then begin try dm.adot_curri.delete; dm.adot_curri.updaterecord; dm.adot_curri.refresh; except end; end; end; end; /- / 功能描述: 进入班级新增模块 /- procedure tform1.sb_class_insertclick(sender: tobject); begin 学生综合管理系统 第第 32 页页 / 共共 6 页页 dm.adot_class.insert; form1.set_class_state(open); end; /- / 功能描述: 进入班级修改模块 /- procedure tform1.sb_class_editclick(sender: tobject); begin if dm.adot_class.recordcount0 then begin dm.adot_class.edit; form1.set_class_state(open); end; end; /- / 功能描述: 进入班级删除模块 /- procedure tform1.sb_class_deleteclick(sender: tobject); begin if dm.adot_class.recordcount0 then begin if