21Delphi学生信息管理系统

学生信息管理系统设计论文——学生管理系统一课题名称学生管理信息系统主要功能：1．学籍信息管理2．班级信息管理3．课程信息管理4．成绩信息管理5．系统管理二、学校学生管理信息系统的简介学校学生管理信息系统是针对学校人事处的大量业务处理工作而开发的管理软件，是典型的管理信息系统（ManagementInformationSystem）。它是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,它能够为用户提供充足的信息和快捷的查询手段。能有效的帮助学校和老师掌握学生的情况，为学生提供成绩跟课程方面的查询。功能基本符合根据张波尔老师的要求。学生用户通过输入学生基本信息、课程基本信息等,由系统自行生成相应的数据以供学生查询,另外人事处的管理用户还可以对这些基本信息进行更新和删除,学校学生管理信息系统力求给用户方便快捷的途径去管理这些繁琐的数据。具体系统功能需求描述如下：(1)学籍信息管理每年的大量新生入学，老生毕业都需要处理大量的学生信息。通过这一模块，可以实现学生基本情况的添加、删除、更新。还能查询各个学生的情况，姓名、家庭电话、家庭住址、学号等各个消息(2)班级信息管理实现班级的添加、删除、更新。查询班级的所在系别，辅导员等。(3)课程信息管理每个学期都会增加一些新的科目，通过本模块可以轻松的添加以及更新课程。可以根据学期条件或者班级条件的选择，也可根据课程名、课程号或者班级的选择，并对值的输入，可以看到数据集中显示符合条件的课程数据信息，而且可以根据教工的修改要求进行数据的添加、删除、修改的操作。该项管理对课程的属性进行了具体化的分类，比如可以分辨是考试科还是考察课，而且根据条件的选择大大得提高了对各学期课程数据的记录操作，很大得帮助了教工们工作效率的提高。(4)成绩信息管理本模块实现了成绩的输入、删除、更新。还能查询到平均成绩以及单科最高最低成绩以及个人成绩。把成绩统计这个繁琐的工作简单化，为学生成绩的管理方面提高工作效率。(5)系统管理因为本系统是供多人一起使用的，必须对某一些人进行限制。于是设置了管理员，非管理员只能进行查询操作，不能进行更改。三、学校学生管理信息系统的分析和设计（1）开发环境的简介设计平台：DELPHI6.0Delphi是一个对象导向设计的应用程序语言，是开发数据库前端的优秀工具，它的编程语言简洁明快、组件功能强大和编程环境灵活方便。采用Delphi来开发数据库应用程序具有更大的灵活性和可扩展性。数据库：MicrosoftAccessAccess是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。Access多用于中小型企业来设计中小型数据库，一般的学校教务系统的数据库用Access来设计完全能达到要求。由于考虑到本系统是应用在单机系统上，只建立起一个数据库。数据库访问方式：ADOADO（ActiveDataObjects）实际是一种提供访问各种数据类型的连接机制。ADO设计为一种极简单的格式，通过ODBC的方法同数据库接口。可以使用任何一种ODBC数据源，即不止适合于SQLServer、Oracle、Access等数据库应用程序，也适合于Excel表格、文本文件、图形文件和无格式的数据文件。ADO是基于OLE-DB之上的技术，因此ADO通过其内部的属性和方法提供统一的数据访问接口方法。其主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少。（2）学校学生管理信息系统数据库设计由于考虑到本系统是应用在单机系统上，另外根据学校人员规模，我只建立起一个数据库，在此数据库基础上建立起如下八个基本表：学生：学号，姓名，出生年月，性别，籍贯，联系地址，联系电话，班级班级：系名，班级，主要教室，辅导员，班长系表：系名，系办公室，联系电话课程表：课程号，课程号，班级，类别，学时，学名平均成绩表：班级，学号，姓名，平均成绩单科成绩表：学号，姓名，课程表，课程名，成绩选课表：班级，课程号，学期用户名：用户，密码(3)窗体设计：班级管理（banjigl.dfm）班级查询（banjicx.dfm）学籍管理（xuejigl.dfm）学籍查询（xuejicha.dfm）课程管理（kechenggl.dfm）课程查询（kechengcha.dfm）成绩管理（chengjigl.dfm）成绩查询（chengjicha.dfm）(4)系统流程图（DataFlowDiagram）：学生信息管理系统学籍管理班级管理成绩管理课程管理系统管理学籍查询学籍更新班级查询班级更新成绩查询成绩更新课程查询课程更新查询条件搜索学籍视图搜索班级视图搜索课程视图搜索成绩视图输出显示(5)数据库概念结构设计：更新条件学生信息的更新，删除，添加课程的变化，删除，添加班级信息的更新，人数变化等成绩计算，输录，更改系统信息的更新，删除，添加学籍记录班级记录课程记录成绩记录系统记录人数变化课程变化(6)数据库逻辑结构设计学生基本情况表：字段名数据类型是否可空说明班级文本否外关键字学号文本否主关键字系1：n班级系名。。。。。班级名所属系别。。。。1：n学籍记录学号姓名籍贯。。。。。。。1：n平均成绩记录学号姓名成绩。。。。。。。N:N课程信息课程号课程名班级。。。。。。n：1n：1单科成绩学号课程名成绩。。。。。。。。姓名文本否无性别文本否无出生年月日期否无籍贯文本否无联系电话文本是无联系地址文本是无班级情况表：系名文本否外关键字班级文本否关键字主要教室文本是无辅导员文本是无系名文本否外关键字班级文本否关键字系表：系名文本否关键字系办公室文本是无联系电话文本是无课程表：课程号文本否关键字课程名文本否无班级文本是外关键字类别文本是无平均成绩表：班级文本否外关键字学号文本否关键字姓名文本是无平均成绩长整型是无单科成绩表：学号文本否关键字姓名文本否无课程号文本否外关键字课程名文本否无成绩长整型是无班级选课表：班级文本否组合关键字课程号文本否组合关键字课程名文本是无学期文本否组合关键字(6)课程管理部分的代码：选课管理：beginComboBox1.Items.Append(adoquery1.FieldValues['系名']);//ComboBox1连到系表的系名字段adoquery1.Next;end;end;procedureTForm11.ComboBox1Select(Sender:TObject);beginadoquery2.Close;adoquery2.SQL.Clear;adoquery2.SQL.Add('select*fromclasswhere系名='+''''+ComboBox1.Text+'''');//查询系名是否符合adoquery2.ExecSQL;adoquery2.Open;whilenotadoquery2.EofdobeginComboBox2.Items.Append(adoquery2.FieldValues['班级']);//符合就调用班级表的字段班级adoquery2.Next;end;end;procedureTForm11.ComboBox2Select(Sender:TObject);beginadoquery4.Close;adoquery4.SQL.Clear;adoquery4.SQL.Add('select*fromkechengwhere班级='+''''+ComboBox2.Text+'''');//查询课程表中字段班级是否符合，符合就调到adoquery4.ExecSQL;//DBgiid1adoquery4.Open;end;procedureTForm11.ComboBox3Select(Sender:TObject);beginadoquery4.Close;adoquery4.SQL.Clear;adoquery4.SQL.Add('select*fromkechengwhere班级='+''''+ComboBox2.Text+'''and学期='+''''+ComboBox3.Text+'''');//判断学期是否符合adoquery4.ExecSQL;adoquery4.Open;end;procedureTForm11.SpeedButton1Click(Sender:TObject);beginwhilenotadoquery4.Eofdobeginif(adoquery4.FieldValues['课程号']=adoquery3.FieldValues['课程号'])and(adoquery4.FieldValues['班级']=Combobox2.Text)and(adoquery4.FieldValues['学期']=Combobox3.Text)thenbreak;adoquery4.Next;end;ifadoquery4.Eofthenbeginadoquery4.Insert;//把选课内容添加到选课表中。adoquery4.FieldValues['课程号']:=adoquery3.FieldValues['课程号'];adoquery4.FieldValues['班级']:=Combobox2.Text;adoquery4.FieldValues['课程名']:=adoquery3.FieldValues['课程名'];adoquery4.FieldValues['学期']:=Combobox3.Text;adoquery4.Post;endelsebeginshowmessage('本课程此班级已经选过');//如果已经选过，弹出对话框“本课程此班级已经选过”end;end;procedureTForm11.SpeedButton2Click(Sender:TObject);beginifnotadoquery4.Eofthenadoquery4.Delete;end;end.课程管理:procedureTForm9.FormCreate(Sender:TObject);beginADOQuery3.Close;//关闭数据库ADOQuery3.SQL.Clear;//清空ADOQuery3.SQL.Add('select*fromkechengbiao');ADOQuery3.ExecSQL;ADOQuery3.Open;dbedit1.DataField:='课程号';dbedit2.DataField:='课程名';dbedit3.DataField:='课时';dbedit4.DataField:='学分';//DBComboBox1.DataField:='学期';DBComboBox2.DataField:='类型';end;procedureTForm9.SpeedButton1Click(Sender:TObject);beginifSpeedButton1.Caption='添加'thenbeginadoquery3.Insert;//添加到课程表SpeedButton1.Caption:='确定';SpeedButton4.Enabled:=true;SpeedButton2.Enabled:=false;SpeedButton3.Enabled:=false;endelseifSpeedButton1.Caption='确定'thenbeginifdbedit1.Text=''thenbeginshowmessage('请输入课程号！');//如果课程号没输入,弹出对话框endelsebeginadoquery3.P