教务管理系统数据库设计

教务管理系统数据库(SQL Server 2008 + delphi7)实验报告班级：姓名：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;interfaceWindows, 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;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Timer1Timer(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure (Sender: TObject);begin,nil,alNone);;:=True;end;procedure (Sender: TObject);beginif MessageDlg('确认退出整个系统吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes thenbegin;end;procedure (Sender: TObject);begin:=DateTimeToStr(Now);end;end.unit Unit2;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;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;varForm2: TForm2;implementationusesUnit1,Unit8,Unit12;{$R *.dfm}procedure (Sender: TObject);begincase of0::='账号 ';1::='工号 ';else:='学号 ';end;end;procedure (Sender: TObject);beginif = thenbegincase of0:begin;'select * from 管理信息表 where 账号='''++''' AND 密码='''++''' AND 用户名='''++'''';;if =0 thenbeginShowMessage('用户名或密码错误，请重新登录');endelsebegin;;end;end;1:begin;'select * from 管理信息表where 账号='''++'''and 密码='''++'''and 用户名 ='''++'''';;if =0 thenbeginShowMessage('用户名或密码错误，请重新登录');endelsebegin;;end; end;2:begin;'select * from 管理信息表where 账号='''++'''and 密码='''++'''and 用户名 ='''++'''';;if =0 thenbeginShowMessage('用户名或密码错误，请重新登陆');endelsebegin;;end; end;elseShowMessage('请选择身份');end;endelseShowMessage('验证码错误');end;procedure (Sender: TObject);begin;(Sender: TObject);beginRandomize;end;procedure (Sender: TObject);vari,j:Integer;c:Char;begin:=''; unit Unit3;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;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;varForm3: TForm3;implementationusesUnit4,Unit5,Unit6,Unit7,Unit19,Unit2; {$R *.dfm}procedure (Sender: TObject);begin;;;,nil,alNone);;:=True;end;procedure (Sender: TObject);begin;;;,nil,alNone);;:=True;end;procedure (Sender: TObject);begin;;;,nil,alNone);;:=True;end;procedure (Sender: TObject);beginif '已开通选课 ' thenbegin;;;,nil,alNone);;:=True;endelseShowMessage('选课系统已关闭！');end;procedure (Sender: TObject);begin;'select 姓名 from 学生信息表 where 学号='''+'''');;end;procedure (Sender: TObject);begin:=DateTimeToStr(Now);end;end.unit Unit4;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;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;varForm4: TForm4;implementationusesUnit2;{$R *.dfm}procedure (Sender: TObject);begin:=False;:=True;;begin'select * from 学生信息表 where 学号='''+''''); ;end;end;procedure (Sender: TObject);begin;:=False;:=False;end;procedure (Sender: TObject);begin:=False;:=True;end;procedure (Sender: TObject);vari,j:Integer;c:Char;begin:=''; alue:=;;ShowMessage('修改成功');endelseShowMessage('新密码不一致')endelseShowMessage('原密码错误');endelseShowMessage('验证码错误');end;:='';:='';:='';:='';end;end.unit Unit5;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;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm5: TForm5;implementationusesUnit2;{$R *.dfm}procedure (Sender: TObject);begin:=True;;begin'select * from 成绩信息表 where 学号='''+''''); ;end;end;procedure (Sender: TObject);begin;:=False;end;end.unit Unit6;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;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm6: TForm6;implementationusesUnit2;{$R *.dfm}procedure (Sender: TObject);begin:=True;;begin'select * from 课程信息表 where 学号='''+'''');;end;end;procedure (Sender: TObject);begin;:=False;end;end.unit Unit7;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;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button4Click(Sender: TObject);procedure Button3Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm7: TForm7;implementationusesUnit2;{$R *.dfm}procedure (Sender: TObject);begin;'select * from 教师课程表');;end;procedure (Sender: TObject);begin;'select * from 教师课程表 where 课程号='''++'''';;if =0 thenbeginShowMessage('此课程不存在');endelse;'select * from 课程信息表where 课程号='''++'''and 学号='''+'''';;if =0 thenbeginif MessageDlg('确认选课吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then begin;'select * from 教师课程表 where 课程号='''++'''');;;'insert into 课程信息表values(:A,:B,:C,:D,:E,:F,:G,:H,:I)');'A').Value:= 'B').Value:=('课程号').AsString;'C').Value:=('课程名').AsString;'D').Value:=('学时').AsString;'E').Value:=('学分').AsString;'F').Value:=('开课时间').AsString;'G').Value:=('教师工号').AsString;'H').Value:=('教师姓名').AsString;'I').Value:=('备注').AsString;;;'select * from 学生信息表 where 学号='''+'''');;;'insert into 成绩信息表values(:J,:K,:L,:M,:N,:O,:P,:Q,:R,:S)');'J').Value:= 'K').Value:=('姓名').AsString;'L').Value:=('课程号').AsString;'M').Value:=('课程名').AsString;'N').Value:=('学时').AsString;'O').Value:=('学分').AsString;'P').Value:='';'Q').Value:='';'R').Value:='';'S').Value:=('备注').AsString;;ShowMessage('选课成功');:='';end;endelseShowMessage('已选过此课程');end;procedure (Sender: TObject);begin;'select * from 课程信息表 where 学号='''+'''');;end;procedure (Sender: TObject);begin;'select * from 课程信息表 where 课程号='''++'''';;if =0 thenbeginShowMessage('未选此课程');endelsebeginif MessageDlg('删除后无法恢复，确认删除吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes thenbegin;'DELETE FROM 课程信息表 where 课程号=:T');'T').Value:=;;;'DELETE FROM 成绩信息表 where 课程号=:U');'U').Value:=;;:='';ShowMessage('成功删除！');end;end;end;end.unit Unit8;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;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Image1Click(Sender: TObject);procedure Timer1Timer(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm8: TForm8;implementationusesUnit9,Unit10,Unit11,Unit2;{$R *.dfm}procedure (Sender: TObject);begin;;,nil,alNone);;end;procedure (Sender: TObject);begin;;,nil,alNone);;(Sender: TObject);begin;;,nil,alNone);;(Sender: TObject);begin;'select 姓名 from 教师信息表 where 教师工号='''+''''); ;end;procedure (Sender: TObject);begin:=DateTimeToStr(Now);end;end.unit Unit9;usesWindows, 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;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure GroupBox1Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button6Click(Sender: TObject);procedure Button5Click(Sender: TObject);procedure Button4Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm9: TForm9;implementationUnit2;{$R *.dfm}procedure (Sender: TObject);begin:=True;;begin'select * from 教师信息表 where 教师工号='''+''''); ;end;end;procedure (Sender: TObject);begin;:=False;end;procedure (Sender: TObject);vari,j:Integer;c:Char;begin:=''; alue:=;;ShowMessage('修改成功');endelseShowMessage('新密码不一致')endelseShowMessage('原密码错误');endelseShowMessage('验证码错误');end;:='';:='';:='';:='';end;unit Unit10;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;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm10: TForm10;implementationusesUnit2;{$R *.dfm}procedure (Sender: TObject);begin:=True;;begin'select * from 课程信息表 where 教师工号='''+'''');;end;end;procedure (Sender: TObject);;:=False;end;end.unit Unit11;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;procedure Button1Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm11: TForm11;implementationUnit8;{$R *.dfm}procedure (Sender: TObject);begin:=True;;'select * from 成绩信息表 where 课程号='''++'''');;end;procedure (Sender: TObject);begin;(Sender: TObject);beginif MessageDlg('确认提交？',mtConfirmation,[mbYes,mbNO],0)=mrYes thenbegin;'Update 成绩信息表 SET 平时成绩=:A,期末成绩=:B where 学号='''++'''');'A').Value:=;'B').Value:=;;end;end;end.unit Unit12;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, Menus, DB, ADODB, StdCtrls;typeTForm12 = class(TForm)Image1: TImage;MainMenu1: TMainMenu;N1: TMenuItem;N2: TMenuItem;N3: TMenuItem;N4: TMenuItem;N5: TMenuItem;N6: TMenuItem;N7: TMenuItem;N8: TMenuItem;N9: TMenuItem;N10: TMenuItem;N11: TMenuItem;N12: TMenuItem;N13: TMenuItem;N14: TMenuItem;N15: TMenuItem;Panel1: TPanel;Label1: TLabel;ADOConnection1: TADOConnection;Timer1: TTimer;procedure N4Click(Sender: TObject);procedure N6Click(Sender: TObject);procedure N7Click(Sender: TObject);procedure N3Click(Sender: TObject);procedure N9Click(Sender: TObject);procedure N10Click(Sender: TObject);procedure N12Click(Sender: TObject);procedure N13Click(Sender: TObject);procedure N15Click(Sender: TObject);procedure N2Click(Sender: TObject);procedure Timer1Timer(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm12: TForm12;implementationusesUnit13,Unit14,Unit15,Unit16,Unit17,Unit18,Unit19,Unit20,Unit21; {$R *.dfm}procedure (Sender: TObject);begin;end;procedure (Sender: TObject); begin,nil,alNone); ;;;;;;;;end;procedure (Sender: TObject); begin,nil,alNone); ;;;;;;;;;end;procedure (Sender: TObject); begin:=True;,nil,alNone);;;;;;;;;;end;procedure (Sender: TObject); begin:=True;,nil,alNone);;;;;;;;;;end;procedure (Sender: TObject); begin:=True;,nil,alNone);;;;;;;;;;end;procedure (Sender: TObject); begin:=True;,nil,alNone);;;;;;;;;;procedure (Sender: TObject); begin:=True;,nil,alNone);;;;;;;;;;end;procedure (Sender: TObject); begin:=True;,nil,alNone);;;;;;;;;;end;procedure (Sender: TObject); begin:=True;,nil,alNone);;;;;;;;;end;procedure (Sender: TObject);begin:=DateTimeToStr(Now);end;end.unit Unit13;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;typeTForm13 = class(TForm)DBGrid1: TDBGrid;DataSource1: TDataSource;ADOQuery1: TADOQuery;RadioButton1: TRadioButton;RadioButton2: TRadioButton;Button1: TButton;Button2: TButton;Edit1: TEdit;Edit2: TEdit;Button3: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm13: TForm13;implementationusesUnit12;{$R *.dfm}procedure (Sender: TObject);begin:=True;if thenbegin;'select * from 学生信息表 where 学号='''++'''');;endelse if thenbegin;'select * from 学生信息表 where 姓名='''++'''');;endelseShowMessage('请选择查询方式');end;procedure (Sender: TObject);begin:=False;;;(Sender: TObject);begin:=True;;'select * from 学生信息表');;end;end.unit Unit14;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;typeTForm14 = class(TForm)Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;GroupBox1: TGroupBox;Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;Edit1: TEdit;Edit2: TEdit;ComboBox1: TComboBox;Edit3: TEdit;Label5: TLabel;Label6: TLabel;Label7: TLabel;Edit4: TEdit;Edit5: TEdit;Edit6: TEdit;Button5: TButton;Label8: TLabel;Edit7: TEdit;ADOQuery1: TADOQuery;Label9: TLabel;GroupBox2: TGroupBox;Label10: TLabel;Edit8: TEdit;Button6: TButton;Button7: TButton;Button8: TButton;GroupBox3: TGroupBox;DBGrid1: TDBGrid;DataSource1: TDataSource; Label11: TLabel;Button9: TButton;Button10: TButton;Button11: TButton;Label12: TLabel;Edit9: TEdit;Edit10: TEdit;Label13: TLabel;ComboBox2: TComboBox;Label14: TLabel;Edit11: TEdit;Label15: TLabel;Edit12: TEdit;Label16: TLabel;Edit13: TEdit;Label17: TLabel;Edit14: TEdit;procedure Button4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button10Click(Sender: TObject); private{ Private declarations }public{ Public declarations }end;varForm14: TForm14;implementationusesUnit12;{$R *.dfm}procedure (Sender: TObject);begin;(Sender: TObject);begin:=True;:=False;:=False;end;procedure (Sender: TObject);;'select * from 学生信息表 where 学号='''++'''';;if =1 thenbeginshowmessage('此学号已存在');endelsebeginif MessageDlg('确认提交吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then begin;'insert into 学生信息表 values(:A,:B,:C,:D,:E,:F,:G)');'A').Value:=;'B').Value:=;'C').Value:=;'D').Value:=;'E').Value:=;'F').Value:=;'G').Value:=;;'insert into 管理信息表 values(:H,:I,:J,:K)');'H').Value:=;'I').Value:=;'J').Value:=;'K').Value:=;;showmessage('提交成功');end;end;end;procedure (Sender: TObject);begin:=False;:=True;:=False;end;procedure (Sender: TObject);begin;'select * from 学生信息表 where 学号='''++'''';if =0 thenbeginshowmessage('此学号不存在');endelsebeginif MessageDlg('删除后无法恢复，确认删除吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes thenbegin;'DELETE FROM 管理信息表 where 账号=:L');'L').Value:=;;'DELETE FROM 学生信息表 where 学号=:O');'O').Value:=;;:='';ShowMessage('成功删除！');end;end;end;procedure (Sender: TObject);begin:=False;end;procedure (Sender: TObject);begin:=False;end;procedure (Sender: TObject);begin:=True;:=False;:=False;end;procedure (Sender: TObject);begin:=True;;'select * from 学生信息表 where 学号='''++'''');;end;procedure (Sender: TObject);begin:=False;end;procedure (Sender: TObject);begin;'select * from 学生信息表 where 学号='''++'''';;if =0 thenbeginshowmessage('此学号不存在');endelsebeginif MessageDlg('确认修改并提交吗？',mtConfirmation,[mbYes,mbNO],0)=mrYes thenbegin;'Update 学生信息表 SET 姓名=:P,性别=:Q,出生日期=:R,专业=:S,电话=:T,备注=:U where 学号='''++'''');'P').Value:=;'Q').Value:=;'R').Value:=;'S').Value:=;'T').Value:=;'U').Value:=;;:='';:='';:='';:='';:='';showmessage('提交成功');end;end;end;end.unit Unit15;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB;typeTForm15 = class(TForm)Label1: TLabel;Label2: TLabel;Label3: TLabel;Button1: TButton;Button2: TButton;Label4: TLabel;Edit1: TEdit;Edit2: TEdit;Edit3: TEdit;Edit4: TEdit;Label5: TLabel;Button3: TButton;ADOQuery1: TADOQuery;procedure FormCreate(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm15: TForm15;implementationusesUnit12,Unit2;{$R *.dfm}procedure (Sender: TObject);var。