教务标准管理系统数据库设计

教务管理系统数据库(SQLServer+delphi7)实验报告班级：7姓名：787学号：787指引教师：完毕日期：目录系统概述……………3系统分析……………3系统设计……………4系统功能……………9系统实现……………9源程序附录…………15参照文献……………73系统概述学校学生管理信息系统是针对学校人事处大量业务解决工作而开发管理软件，是典型管理信息系统（ManagementInformationSystem）。它是一种教诲单位不可缺少某些,它内容对于学校决策者和管理者来说都至关重要,它可觉得顾客提供充分信息和快捷查询手段。能有效协助学校和教师掌握学生状况，为学生提供成绩跟课程方面查询。本系统是以delphi7编辑顾客界面，以SQLserver为数据源后台而成学生信息管理系统。本系统是以计算机为基本，由人和计算机结合对信息进行收集、存储、维护、加工、传递和使用一种管理系统，其目是使人流、物流、资金流和信息流处在最佳状态，以至少资源投入获得最佳综合效益。本系统重要涉及学生信息管理模块、教师信息管理模块、课程信息管理模块、成绩信息管理模块和系统维护模块等某些。在校务管理中，为关于部门提供完整、综合、共享信息，对于学校教诲管理、教务和科研等均有很大实用价值。第二章系统分析1、问题定义随着科学技术不断提高，计算机科学日渐成熟，其强大功能已为人们深刻结识，它已进入人们生活各个领域，并发挥了越来越重要作用，针对人工管理缺陷，最佳解决办法就是借助计算机技术提供一种电子化学生信息管理平台。为了更好地管理学生和教职工资料文档，我开发一种软件工程学生信息管理系统。教师和学生可以应用该系统实现如下功能：1、可随时查询出不同系及各系教师与各系学生状况，系、教师与学生各反映如下状况：系：系号、系名、系负责人、专业数等。教师：工号、姓名、性别、职称、工龄、出生年月、基本工资等。学生：学号、姓名、性别、年龄等。2、为简朴起见教师与学生区别系别，而课程不分系，课程需反映如下信息：课程代号、课程名、学时数、必修课、学分。3、学生入学时新生需录入登记，登记后即可选课学习课程(一学期约20学分)。4、一门只由一位教师上，一位教师可上多门课，满30人才开课。5、学生选每门课有个成绩，若成绩不及格则补考后还需记录补考成绩。1)在某数据库管理系统中建立各关系模式相应库表，并设计所需视图、索引等。2)能对各库表进行输入、修改、删除、添加、查询、打印等基本操作。3)新生入校登记后可即时选课，老生每学期开始前可选课或作选课调节，普通要选共约20学分若干门课程。4)能明细查询某学生选课状况及某课程选修学生状况。5)能记录查询出某学生成绩单(涉及总成绩、平均成绩、不及格门数等)及某门课选课人数、最高分、最低分、平均成绩等记录信息。6)能分析出某教师教学质量状况(可依照该教师所任所有课优良数平均超过一定比例来粗略评估)。7)其她你以为子系统应有查询、记录功能。8)规定子系统设计得界面和谐，功能选取以便合理，并恰当考虑子系统在其安全性、完整性、备份、恢复等方面功能规定2、可行性分析1．项目目的：学生和教师可以以便进行各自所需要信息管理活动，同步可以查询和修改各自信息，以便学校管理。2．运营环境：（1）以Windows98以上/ME//XP作为学生选课管理系统后台操作系统。（2）前台开发程序为DELPHI，SQLServer。（3）后台数据SQLServer。（4）重要硬件设备：PC机一台。。3．技术可行性:本系统仅仅简朴实现了教务管理系统基本功能和需求，具备一定实用性。但真正意义上大型信息管理存储还是不太现实。对于大量信息维护也不具备很强稳定性。但是操作简朴，适合小型学生信息管理，维护也更为以便。技术规定也不是很高，有一点delphi和SQLserver技术基本就行了。4.总体分析：成本低，出错率低，使学校实现当代化网络教学管理。系统设计依照该系统需求，数据库采用MicrosoftSQLServer，它完全设和本系统工作需求，它所支持字段数据类型涉及数值、字符、日期时间及二进制和图片等类型，是当前主流数据库产品之一。它还具备性能稳定、便于操作维护和具备较好安全可靠性等特点，是作为服务器端数据库平台抱负选取。依照系统需求，系统用到各种数据表如下图所示。学生信息表教师信息表课程信息表管理信息表教师课程表成绩信息表表与表之间关系如下图所示： 成绩评估查询成绩查询课程查询新增删除修改查询查询修改密码修改密码修改密码个人信息个人信息个人信息网上选课开通选课修改新增删除修改新增删除管理员教职工学生E-R关系图成绩评估查询成绩查询课程查询新增删除修改查询查询修改密码修改密码修改密码个人信息个人信息个人信息网上选课开通选课修改新增删除修改新增删除管理员教职工学生

系统功能学生模块此模块为学生操作模块。学生可以通过此模块实现查看个人信息、修改密码、查看课程信息、才查当作绩信息、网上选课（在管理员开通选课前提下）诸多功能。教职工模块此模块为教职工操作模块。教职工可以通过此模块实现查看个人信息、修改密码、查看课程信息、输入学生平时成绩和期末成绩诸多功能。系统管理员模块此模块为系统管理员操作模块。系统管理员可以通过此模块实现查看守理员信息、修改密码、查看、新增、修改、删除学生信息、查看、新增、删除、修改教职工信息、查看、新增、删除、修改课程信息、开通、关闭选课诸多功能。系统实现1.主界面2.登陆界面3.学生界面（1）查看个人信息（2）修改密码（3）成绩查询（4）课程查询（5）网上选课选课提示选课界面已选提示成功提示删除提示教职工界面个人信息（同窗生界面）修改密码（同窗生界面）课程查询（同窗生界面）成绩评估管理员界面个人信息（同窗生界面）修改密码（同窗生界面）学生查询管理学生信息修改教师信息查询教师信息修改课程信息查询课程信息修改成绩查询源程序附录unitUnit1;interfaceusesWindows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms,Dialogs，ExtCtrls，StdCtrls,Unit2，jpeg，DB，ADODB;typeTForm1=class(TForm)Button1：TButton;Button2：TButton;Panel1：TPanel;Image1：TImage;Label1：TLabel;Label2：TLabel;ADOConnection1：TADOConnection;Timer1：TTimer;procedureButton1Click(Sender：TObject);procedureButton2Click(Sender：TObject);procedureTimer1Timer(Sender：TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1：TForm1;implementation{$R*.dfm}procedureTForm1.Button1Click(Sender：TObject);beginForm2.ManualDock(Form1.Panel1,nil,alNone);Form2.Show;Panel1.Visible:=True;end;procedureTForm1.Button2Click(Sender：TObject);beginifMessageDlg('确认退出整个系统吗？',mtConfirmation,[mbYes,mbNo],0)=mrYesthenbeginApplication.Terminate;end;end;procedureTForm1.Timer1Timer(Sender：TObject);beginLabel2.Caption:=DateTimeToStr(Now);end;end.unitUnit2;interfaceusesWindows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms,Dialogs，StdCtrls，DB，ADODB,Unit3;typeTForm2=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;procedureComboBox1Change(Sender：TObject);procedureButton1Click(Sender：TObject);procedureButton2Click(Sender：TObject);procedureFormCreate(Sender：TObject);procedureButton3Click(Sender：TObject);procedureFormShow(Sender：TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm2：TForm2;implementationusesUnit1,Unit8,Unit12;{$R*.dfm}procedureTForm2.ComboBox1Change(Sender：TObject);begincaseComboBox1.ItemIndexof0:Label2.Caption:='账号';1:Label2.Caption:='工号';elseLabel2.Caption:='学号';end;end;procedureTForm2.Button1Click(Sender：TObject);beginifEdit3.Text=Label4.CaptionthenbegincaseComboBox1.ItemIndexof0:beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select*from管理信息表where账号='''+Edit1.Text+'''AND密码='''+Edit2.Text+'''AND顾客名='''+ComboBox1.Text+'''';ADOQuery1.Open;ifADOQuery1.RecordCount=0thenbeginShowMessage('顾客名或密码错误，请重新登录');endelsebeginForm12.Show;Form2.Close;Form1.Panel1.Visible:=False;end;end；1:beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select*from管理信息表where账号='''+Edit1.Text+'''and密码='''+Edit2.Text+'''and顾客名='''+ComboBox1.Text+'''';ADOQuery1.Open;ifADOQuery1.RecordCount=0thenbeginShowMessage('顾客名或密码错误，请重新登录');endelsebeginForm8.Show;Form2.Close;Form1.Panel1.Visible:=False;end;end；2:beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select*from管理信息表where账号='''+Edit1.Text+'''and密码='''+Edit2.Text+'''and顾客名='''+ComboBox1.Text+'''';ADOQuery1.Open;ifADOQuery1.RecordCount=0thenbeginShowMessage('顾客名或密码错误，请重新登陆');endelsebeginForm3.Show;Form2.Close;Form1.Panel1.Visible:=False;end;end;elseShowMessage('请选取身份');end;endelseShowMessage('验证码错误');end;procedureTForm2.Button2Click(Sender：TObject);beginForm2.Close;Form1.Panel1.Visible:=False;end;procedureTForm2.FormCreate(Sender：TObject);beginRandomize;end;procedureTForm2.Button3Click(Sender：TObject);vari,j:Integer;c:Char;beginLabel4.Caption:=''；//这个是标签forj:=0to3do//随机生成4个a到z字符串begini:=Random(24);c:=chr(ord('a')+i);Label4.Caption:=Label4.Caption+c;end;beginRandomize;end;end;procedureTForm2.FormShow(Sender：TObject);vari,j:Integer;c:Char;beginLabel4.Caption:=''；//这个是标签forj:=0to3do//随机生成4个a到z字符串begini:=Random(24);c:=chr(ord('a')+i);Label4.Caption:=Label4.Caption+c;end;end;end.unitUnit3;interfaceusesWindows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms,Dialogs，StdCtrls，ExtCtrls，jpeg，DB，ADODB，DBCtrls;typeTForm3=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;procedureButton1Click(Sender：TObject);procedureButton3Click(Sender：TObject);procedureButton2Click(Sender：TObject);procedureButton4Click(Sender：TObject);procedureImage1Click(Sender：TObject);procedureTimer1Timer(Sender：TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm3：TForm3;implementationusesUnit4,Unit5,Unit6,Unit7,Unit19,Unit2;{$R*.dfm}procedureTForm3.Button1Click(Sender：TObject);beginForm5.Close;Form6.Close;Form7.Close;Form4.ManualDock(Form3.Panel1,nil,alNone);Form4.Show;Panel1.Visible:=True;end;procedureTForm3.Button3Click(Sender：TObject);beginForm4.Close;Form6.Close;Form7.Close;Form5.ManualDock(Form3.Panel1,nil,alNone);Form5.Show;Panel1.Visible:=True;end;procedureTForm3.Button2Click(Sender：TObject);beginForm4.Close;Form5.Close;Form7.Close;Form6.ManualDock(Form3.Panel1,nil,alNone);Form6.Show;Panel1.Visible:=True;end;procedureTForm3.Button4Click(Sender：TObject);beginifForm19.Label11.Caption='已开通选课'thenbeginForm4.Close;Form5.Close;Form6.Close;Form7.ManualDock(Form3.Panel1,nil,alNone);Form7.Show;Panel1.Visible:=True;endelseShowMessage('选课系统已关闭！')；end;procedureTForm3.Image1Click(Sender：TObject);beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select姓名from学生信息表where学号='''+Form2.Edit1.Text+'''');ADOQuery1.Open;end;procedureTForm3.Timer1Timer(Sender：TObject);beginLabel1.Caption:=DateTimeToStr(Now);end;end.unitUnit4;interfaceusesWindows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms,Dialogs，Grids，DBGrids，DB，ADODB，StdCtrls;typeTForm4=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;procedureButton1Click(Sender：TObject);procedureButton3Click(Sender：TObject);procedureButton2Click(Sender：TObject);procedureGroupBox1Click(Sender：TObject);procedureButton6Click(Sender：TObject);procedureButton4Click(Sender：TObject);procedureButton5Click(Sender：TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm4：TForm4;implementationusesUnit2;{$R*.dfm}procedureTForm4.Button1Click(Sender：TObject);beginGroupBox1.Visible:=False;DBGrid1.Visible:=True;ADOQuery1.Close;ADOQuery1.SQL.Clear;beginADOQuery1.SQL.Add('select*from学生信息表where学号='''+Form2.Edit1.Text+'''');ADOQuery1.Open;end;end;procedureTForm4.Button3Click(Sender：TObject);beginADOQuery1.Close;DBGrid1.Visible:=False;GroupBox1.Visible:=False；end;procedureTForm4.Button2Click(Sender：TObject);beginDBGrid1.Visible:=False;GroupBox1.Visible:=True;end;procedureTForm4.GroupBox1Click(Sender：TObject);vari,j:Integer;c:Char;beginLabel5.Caption:=''；//这个是标签forj:=0to3do//随机生成4个a到z字符串begini:=Random(24);c:=chr(ord('a')+i);Label5.Caption:=Label5.Caption+c;end;beginRandomize;end;end;procedureTForm4.Button6Click(Sender：TObject);beginGroupBox1.Visible:=False;end;procedureTForm4.Button4Click(Sender：TObject);vari,j:Integer;c:Char;beginLabel5.Caption:=''；//这个是标签forj:=0to3do//随机生成4个a到z字符串begini:=Random(24);c:=chr(ord('a')+i);Label5.Caption:=Label5.Caption+c;end;beginRandomize;end;end;procedureTForm4.Button5Click(Sender：TObject);beginifMessageDlg('确认修改吗？',mtConfirmation,[mbYes,mbNO],0)=mrYesthenbeginifEdit4.Text=Label5.CaptionthenbeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select*from管理信息表where账号='''+Form2.Edit1.Text+'''and密码='''+Edit1.Text+'''';ADOQuery1.Open;ifADOQuery1.RecordCount=1thenbeginifEdit2.Text=Edit3.TextthenbeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('Update管理信息表SET密码=:Awhere账号='''+Form2.Edit1.Text+'''');ADOQuery1.Parameters.ParamByName('A').Value:=Edit2.Text;ADOQuery1.ExecSQL;ShowMessage('修改成功');endelseShowMessage('新密码不一致')endelseShowMessage('原密码错误');endelseShowMessage('验证码错误');end;Edit1.Text:='';Edit2.Text:='';Edit3.Text:='';Edit4.Text:='';end;end.unitUnit5;interfaceusesWindows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms,Dialogs，DB，ADODB，StdCtrls，Grids，DBGrids;typeTForm5=class(TForm)DBGrid1：TDBGrid;Button1：TButton;Button2：TButton;ADOQuery1：TADOQuery;DataSource1：TDataSource;procedureButton1Click(Sender：TObject);procedureButton2Click(Sender：TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm5：TForm5;implementationusesUnit2;{$R*.dfm}procedureTForm5.Button1Click(Sender：TObject);beginDBGrid1.Visible:=True;ADOQuery1.Close;ADOQuery1.SQL.Clear;beginADOQuery1.SQL.Add('select*from成绩信息表where学号='''+Form2.Edit1.Text+'''');ADOQuery1.Open;end;end;procedureTForm5.Button2Click(Sender：TObject);beginADOQuery1.Close;DBGrid1.Visible:=False；end;end.unitUnit6;interfaceusesWindows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms,Dialogs，DB，ADODB，StdCtrls，Grids，DBGrids;typeTForm6=class(TForm)DBGrid1：TDBGrid;Button1：TButton;Button2：TButton;ADOQuery1：TADOQuery;DataSource1：TDataSource;procedureButton1Click(Sender：TObject);procedureButton2Click(Sender：TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm6：TForm6;implementationusesUnit2;{$R*.dfm}procedureTForm6.Button1Click(Sender：TObject);beginDBGrid1.Visible:=True;ADOQuery1.Close;ADOQuery1.SQL.Clear;beginADOQuery1.SQL.Add('select*from课程信息表where学号='''+Form2.Edit1.Text+'''');ADOQuery1.Open;end;end;procedureTForm6.Button2Click(Sender：TObject);beginADOQuery1.Close;DBGrid1.Visible:=False;end;end.unitUnit7;interfaceusesWindows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms,Dialogs，StdCtrls，Grids，DBGrids，DB，ADODB;typeTForm7=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;procedureButton1Click(Sender：TObject);procedureButton2Click(Sender：TObject);procedureButton4Click(Sender：TObject);procedureButton3Click(Sender：TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm7：TForm7;implementationusesUnit2;{$R*.dfm}procedureTForm7.Button1Click(Sender：TObject);beginADOQuery3.Close;ADOQuery3.SQL.Clear;ADOQuery3.SQL.Add('select*from教师课程表');ADOQuery3.Open;end;procedureTForm7.Button2Click(Sender：TObject);beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select*from教师课程表where课程号='''+Edit1.Text+'''';ADOQuery1.Open;ifADOQuery1.RecordCount=0thenbeginShowMessage('此课程不存在');endelseADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select*from课程信息表where课程号='''+Edit1.Text+'''and学号='''+Form2.Edit1.Text+'''';ADOQuery1.Open;ifADOQuery1.RecordCount=0thenbeginifMessageDlg('确认选课吗？',mtConfirmation,[mbYes,mbNo],0)=mrYesthenbeginADOQuery2.Close;ADOQuery2.SQL.Clear;ADOQuery2.SQL.Add('select*from教师课程表where课程号='''+Edit1.Text+'''');ADOQuery2.Open;ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('insertinto课程信息表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('insertinto成绩信息表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').Value:=ADOQuery2.FieldByName('学分').AsString;ADOQuery1.Parameters.ParamByName('P').Value:='';ADOQuery1.Parameters.ParamByName('Q').Value:='';ADOQuery1.Parameters.ParamByName('R').Value:='';ADOQuery1.Parameters.ParamByName('S').Value:=ADOQuery2.FieldByName('备注').AsString;ADOQuery1.ExecSQL;ShowMessage('选课成功');Edit1.Text:='';end;endelseShowMessage('已选过此课程');end;procedureTForm7.Button4Click(Sender：TObject);beginADOQuery4.Close;ADOQuery4.SQL.Clear;ADOQuery4.SQL.Add('select*from课程信息表where学号='''+Form2.Edit1.Text+'''');ADOQuery4.Open;end;procedureTForm7.Button3Click(Sender：TObject);beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select*from课程信息表where课程号='''+Edit1.Text+'''';ADOQuery1.Open;ifADOQuery1.RecordCount=0thenbeginShowMessage('未选此课程');endelsebeginifMessageDlg('删除后无法恢复，确认删除吗？',mtConfirmation,[mbYes,mbNo],0)=mrYesthenbeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('DELETEFROM课程信息表where课程号=:T');ADOQuery1.Parameters.ParamByName('T').Value:=Edit1.Text;ADOQuery1.ExecSQL;ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('DELETEFROM成绩信息表where课程号=:U');ADOQuery1.Parameters.ParamByName('U').Value:=Edit1.Text;ADOQuery1.ExecSQL;Edit1.Text:='';ShowMessage('成功删除！');end;end;end;end.unitUnit8;interfaceusesWindows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms,Dialogs，StdCtrls，jpeg，ExtCtrls，DB，ADODB，DBCtrls;typeTForm8=class(TForm)Image1：TImage;Button1：TButton;Button2：TButton;Button3：TButton;Panel1：TPanel;DBText1：TDBText;ADOQuery1：TADOQuery;DataSource1：TDataSource;ADOConnection1：TADOConnection;Label1：TLabel;Timer1：TTimer;procedureButton1Click(Sender：TObject);procedureButton2Click(Sender：TObject);procedureButton3Click(Sender：TObject);procedureImage1Click(Sender：TObject);procedureTimer1Timer(Sender：TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm8：TForm8;implementationusesUnit9,Unit10,Unit11,Unit2;{$R*.dfm}procedureTForm8.Button1Click(Sender：TObject);beginForm10.Close;Form11.Close;Form9.ManualDock(Form8.Panel1,nil,alNone);Form9.Show;Form8.Panel1.Visible:=True；end;procedureTForm8.Button2Click(Sender：TObject);beginForm9.Close;Form11.Close;Form10.ManualDock(Form8.Panel1,nil,alNone);Form10.Show;Form8.Panel1.Visible:=True;end;procedureTForm8.Button3Click(Sender：TObject);beginForm9.Close;Form10.Close;Form11.ManualDock(Form8.Panel1,nil,alNone);Form11.Show;Form8.Panel1.Visible:=True;end;procedureTForm8.Image1Click(Sender：TObject);beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select姓名from教师信息表where教师工号='''+Form2.Edit1.Text+'''');ADOQuery1.Open;end;procedureTForm8.Timer1Timer(Sender：TObject);beginLabel1.Caption:=DateTimeToStr(Now);end;end.unitUnit9;interfaceusesWindows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms,Dialogs，DB，StdCtrls，ADODB，Grids，DBGrids;typeTForm9=class(TForm)DBGrid1：TDBGrid;ADOQuery1：TADOQuery;Button1：TButton;Button2：TButton;Button3：TButton;DataSource1：TDataSource;GroupBox1：TGroupBox;Label1：TLabel;Label2：TLabel;Label3：TLabel;Label4：TLabel;Button4：TButton;Button5：TButton;Edit1：TEdit;Edit2：TEdit;Edit3：TEdit;Edit4：TEdit;Label5：TLabel;Button6：TButton;procedureButton1Click(Sender：TObject);procedureButton2Click(Sender：TObject);procedureGroupBox1Click(Sender：TObject);procedureButton3Click(Sender：TObject);procedureButton6Click(Sender：TObject);procedureButton5Click(Sender：TObject);procedureButton4Click(Sender：TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm9：TForm9;implementationusesUnit2;{$R*.dfm}procedureTForm9.Button1Click(Sender：TObject);beginDBGrid1.Visible:=True;ADOQuery1.Close;ADOQuery1.SQL.Clear;beginADOQuery1.SQL.Add('select*from教师信息表where教师工号='''+Form2.Edit1.Text+'''');ADOQuery1.Open;end;end;procedureTForm9.Button2Click(Sender：TObject);beginADOQuery1.Close;DBGrid1.Visible:=False；end;procedureTForm9.GroupBox1Click(Sender：TObject);vari,j:Integer;c:Char;beginLabel5.Caption:=''；//这个是标签forj:=0to3do//随机生成4个a到z字符串begini:=Random(24);c:=chr(ord('a')+i);Label5.Caption:=Label5.Caption+c;end;beginRandomize;end;end;procedureTForm9.Button3Click(Sender：TObject);beginDBGrid1.Visible:=False;GroupBox1.Visible:=True;end;procedureTForm9.Button6Click(Sender：TObject);vari,j:Integer;c:Char;beginLabel5.Caption:=''；//这个是标签forj:=0to3do//随机生成4个a到z字符串begini:=Random(24);c:=chr(ord('a')+i);Label5.Caption:=Label5.Caption+c;end;beginRandomize;end;end;procedureTForm9.Button5Click(Sender：TObject);beginGroupBox1.Visible:=False;end;procedureTForm9.Button4Click(Sender：TObject);beginifMessageDlg('确认修改吗？',mtConfirmation,[mbYes,mbNO],0)=mrYesthenbeginifEdit4.Text=Label5.CaptionthenbeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:='select*from管理信息表where账号='''+Form2.Edit1.Text+'''and密码='''+Edit1.Text+'''';ADOQuery1.Open;ifADOQuery1.RecordCount=1thenbeginifEdit2.Text=Edit3.TextthenbeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('Update管理信息表SET密码=:Awhere账号='''+Form2.Edit1.Text+'''');ADOQuery1.Parameters.ParamByName('A').Value:=Edit2.Text;ADOQuery1.ExecSQL;ShowMessage('修改成功');endelseShowMessage('新密码不一致')endelseShowMessage('原密码错误');endelseShowMessage('验证码错误');end;Edit1.Text:='';Edit2.Text:='';Edit3.Text:='';Edit4.Text:='';end;end.unitUnit10;interfaceusesWindows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms,Dialogs，StdCtrls，DB，ADODB，Grids，DBGrids;typeTForm10=class(TForm)DBGrid1：TDBGrid;ADOQuery1：TADOQuery;DataSource1：TDataSource;Button1：TButton;Button2：TButton;procedureButton1Click(Sender：TObject);procedureButton2Click(Sender：TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm10：TForm10;implementationusesUnit2;{$R*.dfm}procedureTForm10.Button1Click(Sender：TObject);beginDBGrid1.Visible:=True;ADOQuery1.Close;ADOQuery1.SQL.Clear;beginADOQuery1.SQL.Add('select*from课程信息表where教师工号='''+Form2.Edit1.Text+'''');ADOQuery1.Open;end;end;procedureTForm10.Button2Click(Sender：TObject);beginADOQuery1.Close;DBGrid1.Visible:=False；end;end.unitUnit11;interfaceusesWindows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms,Dialogs，Grids，DBGrids，DB，ADODB，StdCtrls;typeTForm11=class(TForm)Button1：TButton;ADOQuery1：TADOQuery;DataSource1：TDataSource;DBGrid1：TDBGrid;Edit1：TEdit;Label1：TLabel;Label2：TLabel;Edit2：TEdit;Label3：TLabel;Edit3：TEdit;Label4：TLabel;Edit4：TEdit;Button2：TButton;Button3：TButton;procedureButton1Click(Sender：TObject);procedureButton3Click(Sender：TObject);procedureButton2Click(Sender：TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm11：TForm11;implementationusesUnit8;{$R*.dfm}procedureTForm11.Button1Click(Sender：TObject);beginDBGrid1.Visible:=True;ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*from成绩信息表where课程号='''+Edit1.Text+'''');ADOQuery1.Open；end;procedureTForm11.Button3Click(Sender：TObject);beginForm11.Close;Form8.Panel1.Visible:=False;end;procedureTForm11.Button2Click(Sender：TObject);beginifMessageDlg('确认提交？',mtConfirmation,[mbYes,mbNO],0)=mrYesthenbeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('Update成绩信息表SET平时成绩=:A,期末成绩=:Bwhere学号='''+Edit2.Text+'''');ADOQuery1.