教务管理系统数据库设计

.wd教务管理系统数据库(SQL Server 2008 + delphi7)实验报告班级：7姓名：787学号：787指导教师：完成日期：目录第一章 系统概述3第二章 系统分析3第三章 系统设计4第四章 系统功能9第五章 系统实现9第六章 源程序附录15第七章 参考文献73第一章 系统概述学校学生管理信息系统是针对学校人事处的大量业务处理工作而开发的管理软件，是典型的管理信息系统Management Information System。它是一个教育单位不可缺少的局部,它的内容对于学校的决策者和管理者来说都至关重要,它能够为用户提供充足的信息和快捷的查询手段。能有效的帮助学校和教师掌握学生的情况，为学生提供成绩跟课程方面的查询。 本系统是以delphi7编辑用户界面，以SQL server 2008为数据源后台而成的学生信息管理系统。本系统是以计算机为根基，由人和计算机结合的对信息进展收集、存储、维护、加工、传递和使用的一种管理系统，其目的是使人流、物流、资金流和信息流处于最正确状态，以最少的资源投入获得最正确的综合效益。本系统主要包括学生信息管理模块、教师信息管理模块、课程信息管理模块、成绩信息管理模块和系统维护模块等局部。在校务管理中，为有关部门提供完整、综合、共享的信息，对于学校的教育管理、教务和科研等都有很大的实用价值。第二章系统分析1、问题定义 随着科学技术的不断提高，计算机科学日渐成熟，其强大功能已为人们深刻认识，它已进入人们生活的各个领域，并发挥了越来越重要的作用，针对人工管理的缺点，最好的解决方法就是借助计算机技术提供一个电子化的学生信息管理平台。为了更好地管理学生和教职工的资料文档，我开发一个软件工程学生信息管理系统。教师和学生可以应用该系统实现如下功能：1、可随时查询出不同系及各系教师与各系学生情况，系、教师与学生各反映如下情况：系：系号、系名、系负责人、专业数等。教师：工号、姓名、性别、职称、工龄、出生年月、 根本工资等。学生：学号、姓名、性别、年龄等。2、为简单起见教师与学生区分系别，而课程不分系，课程需反映如下信息：课程代号、课程名、课时数、必修课、学分。3、学生入学时新生需录入登记，登记后即可选课学习课程(一学期约20学分)。4、一门只由一位教师上，一位教师可上多门课，满30人才开课。5、学生选每门课有个成绩，假设成绩不及格那么补考后还需记录补考成绩。1)在某数据库管理系统中建设各关系模式对应的库表，并设计所需的视图、索引等。2)能对各库表进展输入、修改、删除、添加、查询、打印等 根本操作。3)新生入校登记后可即时选课，老生每学期开场前可选课或作选课调整，一般要选共约20学分的假设干门课程。4)能明细查询某学生的选课情况及某课程的选修学生情况。5)能统计查询出某学生的成绩单(包括总成绩、平均成绩、不及格门数等)及某门课的选课人数、最高分、最低分、平均成绩等统计信息。6)能分析出某教师的教学质量情况(可根据该教师所任所有课优良数平均超过一定百分比来粗略评定)。7)其他你认为子系统应有的查询、统计功能。8)要求子系统设计得界面友好，功能选择方便合理，并适当考虑子系统在其安全性、完整性、备份、恢复等方面的功能要求2、可行性分析1工程目标：学生和教师可以方便的进展各自所需要的信息管理活动，同时可以查询和修改各自的信息，以便学校管理。2运行环境：1以Windows98 以上/ME/2000/XP作为学生选课管理系统的后台操作系统。2前台开发程序为DELPHI，SQL Server 2008。3后台数据SQL Server 2008。4主要硬件设备：PC机一台。3技术可行性:本系统仅仅简单的实现了教务管理系统的 根本功能和需求，具有一定的实用性。但真正意义上的大型信息管理存储还是不太现实。对于大量信息的维护也不具有很强的稳定性。但是操作简单，适合小型的学生信息管理，维护也更为方便。技术要求也不是很高，有一点delphi和SQL server 技术根基就行了。4.总体分析：成本低，出错率低，使学校实现现代化网络教学管理。第三章 系统设计根据该系统的需求，数据库采用Microsoft SQL Server 2008 ，它完全设和本系统的工作需求，它所支持的字段数据类型包括数值、字符、日期时间及二进制和图片等类型，是当前的主流数据库产品之一。它还具有性能稳定、便于操作维护和具有较好的安全可靠性等特点，是作为服务器端数据库平台的理想选择。根据系统的需求，系统用到的各种数据表如以下列图所示。学生信息表教师信息表课程信息表管理信息表教师课程表成绩信息表表与表之间的关系如以下列图所示：成绩评定查询成绩查询课程查询新增删除修改查询查询修改密码修改密码修改密码个人信息个人信息个人信息网上选课开通选课修改新增删除修改新增删除管理员教职工学生 E-R 关系图第四章 系统功能1. 学生模块此模块为学生操作模块。学生可以通过此模块实现查看个人信息、修改密码、查看课程信息、才查看成绩信息、网上选课在管理员开通选课前提下诸多功能。2. 教职工模块此模块为教职工操作模块。教职工可以通过此模块实现查看个人信息、修改密码、查看课程信息、输入学生平时成绩和期末成绩诸多功能。3. 系统管理员模块此模块为系统管理员操作模块。系统管理员可以通过此模块实现查看管理员信息、修改密码、查看、新增、修改、删除学生信息、查看、新增、删除、修改教职工信息、查看、新增、删除、修改课程信息、开通、关闭选课诸多功能。第五章 系统实现1.主界面2.登陆界面3.学生界面1查看个人信息2修改密码3成绩查询4课程查询5网上选课 选课提示选课界面已选提示 成功提示 删除提示4. 教职工界面（1） 个人信息同学生界面（2） 修改密码同学生界面（3） 课程查询同学生界面（4） 成绩评定5. 管理员界面（1） 个人信息同学生界面（2） 修改密码同学生界面（3） 学生查询管理 （4） 学生信息修改（5） 教师信息查询（6） 教师信息修改（7） 课程信息查询（8） 课程信息修改（9） 成绩查询第六章 源程序附录unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,Unit2, jpeg, DB, ADODB;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Panel1: TPanel; Image1: TImage; Label1: TLabel; Label2: TLabel; ADOConnection1: TADOConnection; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1;implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject);begin Form2.ManualDock(Form1.Panel1,nil,alNone); Form2.Show; Panel1.Visible :=True;end;procedure TForm1.Button2Click(Sender: TObject);begin if MessageDlg('确认退出整个系统吗',mtConfirmation,mbYes,mbNo,0)=mrYes then begin Application.Terminate; end;end;procedure TForm1.Timer1Timer(Sender: TObject);begin Label2.Caption:=DateTimeToStr(Now);end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB,Unit3;type TForm2 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; ComboBox1: TComboBox; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; Label4: TLabel; Button3: TButton; Label5: TLabel; Edit3: TEdit; procedure ComboBox1Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormShow(Sender: TObject); private Private declarations public Public declarations end;var Form2: TForm2;implementation uses Unit1,Unit8,Unit12;$R *.dfmprocedure TForm2.ComboBox1Change(Sender: TObject);begin case ComboBox1.ItemIndex of 0:Label2.Caption:='账 号 ' 1:Label2.Caption:='工 号 ' else Label2.Caption:='学 号 'end; end;procedure TForm2.Button1Click(Sender: TObject);begin if Edit3.Text=Label4.Caption then begin case ComboBox1.ItemIndex of 0:begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from 管理信息表 where 账号='''+Edit1.Text+''' AND 密码='''+Edit2.Text+''' AND 用户名='''+ComboBox1.Text+'''' ADOQuery1.Open; if ADOQuery1.RecordCount=0 then begin ShowMessage('用户名或密码错误，请重新登录'); end else begin Form12.Show; Form2.Close; Form1.Panel1.Visible:=False; end; end; 1:begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from 管理信息表 where 账号='''+Edit1.Text+'''and 密码 ='''+Edit2.Text+'''and 用户名 ='''+ComboBox1.Text+'''' ADOQuery1.Open; if ADOQuery1.RecordCount=0 then begin ShowMessage('用户名或密码错误，请重新登录'); end else begin Form8.Show; Form2.Close; Form1.Panel1.Visible:=False; end; end; 2:begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from 管理信息表 where 账号='''+Edit1.Text+'''and 密码 ='''+Edit2.Text+'''and 用户名 ='''+ComboBox1.Text+'''' ADOQuery1.Open; if ADOQuery1.RecordCount=0 then begin ShowMessage('用户名或密码错误，请重新登陆'); end else begin Form3.Show; Form2.Close; Form1.Panel1.Visible:=False; end; end; else ShowMessage('请选择身份'); end; end else ShowMessage('验证码错误'); end;procedure TForm2.Button2Click(Sender: TObject);begin Form2.Close; Form1.Panel1.Visible:=False;end;procedure TForm2.FormCreate(Sender: TObject); begin Randomize;end;procedure TForm2.Button3Click(Sender: TObject); var i,j:Integer; c:Char;begin Label4.Caption:='' /这个是标签 for j:=0 to 3 do /随机生成4个a到z的字符串 begin i:=Random(24); c:=chr(ord('a') + i); Label4.Caption:=Label4.Caption + c; end; begin Randomize;end;end;procedure TForm2.FormShow(Sender: TObject); var i,j:Integer; c:Char;begin Label4.Caption:='' /这个是标签 for j:=0 to 3 do /随机生成4个a到z的字符串 begin i:=Random(24); c:=chr(ord('a') + i); Label4.Caption:=Label4.Caption + c; end;end;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg, DB, ADODB, DBCtrls;type TForm3 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Panel1: TPanel; Image1: TImage; DBText1: TDBText; DataSource1: TDataSource; ADOQuery1: TADOQuery; ADOConnection1: TADOConnection; Label1: TLabel; Timer1: TTimer; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Image1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private Private declarations public Public declarations end;var Form3: TForm3;implementation uses Unit4,Unit5,Unit6,Unit7,Unit19,Unit2;$R *.dfmprocedure TForm3.Button1Click(Sender: TObject);begin Form5.Close; Form6.Close; Form7.Close; Form4.ManualDock(Form3.Panel1,nil,alNone); Form4.Show; Panel1.Visible:=True;end;procedure TForm3.Button3Click(Sender: TObject);begin Form4.Close; Form6.Close; Form7.Close; Form5.ManualDock(Form3.Panel1,nil,alNone); Form5.Show; Panel1.Visible:=True;end;procedure TForm3.Button2Click(Sender: TObject);begin Form4.Close; Form5.Close; Form7.Close; Form6.ManualDock(Form3.Panel1,nil,alNone); Form6.Show; Panel1.Visible:=True;end;procedure TForm3.Button4Click(Sender: TObject);begin if Form19.Label11.Caption='已开通选课 ' then begin Form4.Close; Form5.Close; Form6.Close; Form7.ManualDock(Form3.Panel1,nil,alNone); Form7.Show; Panel1.Visible:=True; end else ShowMessage('选课系统已关闭！'); end;procedure TForm3.Image1Click(Sender: TObject);begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select 姓名 from 学生信息表 where 学号='''+Form2.Edit1.Text+''''); ADOQuery1.Open;end;procedure TForm3.Timer1Timer(Sender: TObject);begin Label1.Caption:=DateTimeToStr(Now);end;end.unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;type TForm4 = class(TForm) DBGrid1: TDBGrid; ADOQuery1: TADOQuery; DataSource1: TDataSource; Button1: TButton; Button2: TButton; Button3: TButton; GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Label5: TLabel; Button4: TButton; Button5: TButton; Button6: TButton; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure GroupBox1Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private Private declarations public Public declarations end;var Form4: TForm4;implementation uses Unit2;$R *.dfmprocedure TForm4.Button1Click(Sender: TObject);begin GroupBox1.Visible:=False; DBGrid1.Visible:=True; ADOQuery1.Close; ADOQuery1.SQL.Clear; begin ADOQuery1.SQL.Add('select * from 学生信息表 where 学号='''+Form2.Edit1.Text+''''); ADOQuery1.Open; end;end;procedure TForm4.Button3Click(Sender: TObject);begin ADOQuery1.Close; DBGrid1.Visible:=False; GroupBox1.Visible:=False; end;procedure TForm4.Button2Click(Sender: TObject);begin DBGrid1.Visible:=False; GroupBox1.Visible:=True;end;procedure TForm4.GroupBox1Click(Sender: TObject);var i,j:Integer; c:Char;begin Label5.Caption:='' /这个是标签 for j:=0 to 3 do /随机生成4个a到z的字符串 begin i:=Random(24); c:=chr(ord('a') + i); Label5.Caption:=Label5.Caption + c; end; begin Randomize; end;end;procedure TForm4.Button6Click(Sender: TObject);begin GroupBox1.Visible:=False;end;procedure TForm4.Button4Click(Sender: TObject); var i,j:Integer; c:Char;begin Label5.Caption:='' /这个是标签 for j:=0 to 3 do /随机生成4个a到z的字符串 begin i:=Random(24); c:=chr(ord('a') + i); Label5.Caption:=Label5.Caption + c; end; begin Randomize; end;end;procedure TForm4.Button5Click(Sender: TObject);begin if MessageDlg('确认修改吗',mtConfirmation,mbYes,mbNO,0)=mrYes then begin if Edit4.Text=Label5.Caption then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from 管理信息表 where 账号='''+Form2.Edit1.Text+'''and 密码 ='''+Edit1.Text+'''' ADOQuery1.Open; if ADOQuery1.RecordCount=1 then begin if Edit2.Text=Edit3.Text then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Update 管理信息表 SET 密码=:A where 账号='''+Form2.Edit1.Text+''''); ADOQuery1.Parameters.ParamByName('A').Value:=Edit2.Text; ADOQuery1.ExecSQL; ShowMessage('修改成功'); end else ShowMessage('新密码不一致') end else ShowMessage('原密码错误'); end else ShowMessage('验证码错误'); end; Edit1.Text:='' Edit2.Text:='' Edit3.Text:='' Edit4.Text:=''end;end.unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids;type TForm5 = class(TForm) DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; ADOQuery1: TADOQuery; DataSource1: TDataSource; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var Form5: TForm5;implementation uses Unit2;$R *.dfmprocedure TForm5.Button1Click(Sender: TObject);begin DBGrid1.Visible:=True; ADOQuery1.Close; ADOQuery1.SQL.Clear; begin ADOQuery1.SQL.Add('select * from 成绩信息表 where 学号='''+Form2.Edit1.Text+''''); ADOQuery1.Open; end;end;procedure TForm5.Button2Click(Sender: TObject);begin ADOQuery1.Close; DBGrid1.Visible:=False; end;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids;type TForm6 = class(TForm) DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; ADOQuery1: TADOQuery; DataSource1: TDataSource; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var Form6: TForm6;implementation uses Unit2;$R *.dfmprocedure TForm6.Button1Click(Sender: TObject);begin DBGrid1.Visible:=True; ADOQuery1.Close; ADOQuery1.SQL.Clear; begin ADOQuery1.SQL.Add('select * from 课程信息表 where 学号='''+Form2.Edit1.Text+''''); ADOQuery1.Open; end;end;procedure TForm6.Button2Click(Sender: TObject);begin ADOQuery1.Close; DBGrid1.Visible:=False;end;end.unit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;type TForm7 = class(TForm) Button1: TButton; ADOQuery1: TADOQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; Label1: TLabel; Edit1: TEdit; Button2: TButton; Button3: TButton; DBGrid2: TDBGrid; Button4: TButton; ADOQuery2: TADOQuery; ADOQuery3: TADOQuery; ADOQuery4: TADOQuery; DataSource2: TDataSource; ADOQuery5: TADOQuery; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button3Click(Sender: TObject); private Private declarations public Public declarations end;var Form7: TForm7;implementation uses Unit2;$R *.dfmprocedure TForm7.Button1Click(Sender: TObject);begin ADOQuery3.Close; ADOQuery3.SQL.Clear; ADOQuery3.SQL.Add('select * from 教师课程表'); ADOQuery3.Open;end;procedure TForm7.Button2Click(Sender: TObject);begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from 教师课程表 where 课程号='''+Edit1.Text+'''' ADOQuery1.Open; if ADOQuery1.RecordCount=0 then begin ShowMessage('此课程不存在'); end else ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from 课程信息表 where 课程号='''+Edit1.Text+'''and 学号='''+Form2.Edit1.Text+'''' ADOQuery1.Open; if ADOQuery1.RecordCount=0 then begin if MessageDlg('确认选课吗',mtConfirmation,mbYes,mbNo,0)=mrYes then begin ADOQuery2.Close; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('select * from 教师课程表 where 课程号='''+Edit1.Text+''''); ADOQuery2.Open; ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('insert into 课程信息表 values(:A,:B,:C,:D,:E,:F,:G,:H,:I)'); ADOQuery1.Parameters.ParamByName('A').Value:=Form2.Edit1.Text; ADOQuery1.Parameters.ParamByName('B').Value:=ADOQuery2.FieldByName('课程号').AsString; ADOQuery1.Parameters.ParamByName('C').Value:=ADOQuery2.FieldByName('课程名').AsString; ADOQuery1.Parameters.ParamByName('D').Value:=ADOQuery2.FieldByName('学时').AsString; ADOQuery1.Parameters.ParamByName('E').Value:=ADOQuery2.FieldByName('学分').AsString; ADOQuery1.Parameters.ParamByName('F').Value:=ADOQuery2.FieldByName('开课时间').AsString; ADOQuery1.Parameters.ParamByName('G').Value:=ADOQuery2.FieldByName('教师工号').AsString; ADOQuery1.Parameters.ParamByName('H').Value:=ADOQuery2.FieldByName('教师姓名').AsString; ADOQuery1.Parameters.ParamByName('I').Value:=ADOQuery2.FieldByName('备注').AsString; ADOQuery1.ExecSQL; ADOQuery5.Close; ADOQuery5.SQL.Clear; ADOQuery5.SQL.Add('select * from 学生信息表 where 学号='''+Form2.Edit1.Text+''''); ADOQuery5.Open; ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('insert into 成绩信息表 values(:J,:K,:L,:M,:N,:O,:P,:Q,:R,:S)'); ADOQuery1.Parameters.ParamByName('J').Value:=Form2.Edit1.Text; ADOQuery1.Parameters.ParamByName('K').Value:=ADOQuery5.FieldByName('姓名').AsString; ADOQuery1.Parameters.ParamByName('L').Value:=ADOQuery2.FieldByName('课程号').AsString; ADOQuery1.Parameters.ParamByName('M').Value:=ADOQuery2.FieldByName('课程名').AsString; ADOQuery1.Parameters.ParamByName('N').Value:=ADOQuery2.FieldByName('学时').AsString; ADOQuery1.Parameters.ParamByName('O')