实验报告
班级：
姓名： 学号： 指导教师： 完成日期：
目录
第一章 系统概述……………………………………………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;
interface uses
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 *.dfm}
procedure 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;
interface uses
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 *.dfm}
procedure 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;
管理信息表 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; end; end; 1:begin
ADOQuery1.Close;
管理信息表 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; end; end; 2:begin
ADOQuery1.Close;
管理信息表 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; end; end; else
ShowMessage('请选择身份'); end; end else
ShowMessage('验证码错误'); end;
procedure TForm2.Button2Click(Sender: TObject); begin
Form2.Close; 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;
interface uses
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 *.dfm}
procedure 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
已开通选课 ' 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;
姓名 from 学生信息表 where 学号 ADOQuery1.Open; end;
procedure TForm3.Timer1Timer(Sender: TObject); begin
Label1.Caption:=DateTimeToStr(Now); end; end.
unit Unit4;
interface uses
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 *.dfm}
procedure TForm4.Button1Click(Sender: TObject); begin
GroupBox1.Visible:=False; DBGrid1.Visible:=True; ADOQuery1.Close; begin
学生信息表 where 学号 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;
管理信息表 where 账号密码 ='''+Edit1.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=1 then begin
if Edit2.Text=Edit3.Text then begin
ADOQuery1.Close; 管理信息表 SET 密码=:A where 账号
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;
interface uses
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 *.dfm}
procedure TForm5.Button1Click(Sender: TObject); begin
DBGrid1.Visible:=True; ADOQuery1.Close; begin
成绩信息表 where 学号 ADOQuery1.Open;
end; end;
procedure TForm5.Button2Click(Sender: TObject); begin
ADOQuery1.Close;
DBGrid1.Visible:=False; end; end.
unit Unit6;
interface uses
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 *.dfm}
procedure TForm6.Button1Click(Sender: TObject); begin
DBGrid1.Visible:=True; ADOQuery1.Close; begin
课程信息表 where 学号 ADOQuery1.Open; end; end;
procedure TForm6.Button2Click(Sender: TObject);
begin
ADOQuery1.Close;
DBGrid1.Visible:=False; end; end.
unit Unit7;
interface uses
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 *.dfm}
procedure TForm7.Button1Click(Sender: TObject);
begin
ADOQuery3.Close; 教师课程表');
ADOQuery3.Open; end;
procedure TForm7.Button2Click(Sender: TObject); begin
ADOQuery1.Close;
教师课程表 where 课程号='''+Edit1.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=0 then begin
ShowMessage('此课程不存在'); end else
ADOQuery1.Close;
课程信息表 where 课程号='''+Edit1.Text+'''and 学号 ADOQuery1.Open;
if ADOQuery1.RecordCount=0 then begin
if MessageDlg('确认选课吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then begin
ADOQuery2.Close;
教师课程表 where 课程号='''+Edit1.Text+''''); ADOQuery2.Open; ADOQuery1.Close;
课程信息表 values(:A,:B,:C,:D,:E,:F,:G,:H,:I)'); 课程号').AsString; 课程名').AsString; 学时').AsString; 学分').AsString; 开课时间').AsString; 教师工号').AsString; 教师姓名').AsString; 备注').AsString;
ADOQuery1.ExecSQL; ADOQuery5.Close; 学生信息表 where 学号
ADOQuery5.Open; ADOQuery1.Close;
成绩信息表 values(:J,:K,:L,:M,:N,:O,:P,:Q,:R,:S)'); 姓名').AsString; 课程号').AsString; 课程名').AsString;
学时').AsString; 学分').AsString; 备注').AsString;
ADOQuery1.ExecSQL;
ShowMessage('选课成功'); Edit1.Text:=''; end; end else
ShowMessage('已选过此课程'); end;
procedure TForm7.Button4Click(Sender: TObject); begin
ADOQuery4.Close; 课程信息表 where 学号
ADOQuery4.Open; end;
procedure TForm7.Button3Click(Sender: TObject); begin
ADOQuery1.Close;
课程信息表 where 课程号='''+Edit1.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=0 then begin
ShowMessage('未选此课程'); end else begin
if MessageDlg('删除后无法恢',mtConfirmation,[mbYes,mbNo],0)=mrYes then begin
ADOQuery1.Close;
课程信息表 where 课程号=:T'); ADOQuery1.ExecSQL; ADOQuery1.Close;
成绩信息表 where 课程号=:U'); ADOQuery1.ExecSQL; Edit1.Text:='';
ShowMessage('成功删除！'); end; end; end; end.
复，确认删除？
吗unit Unit8;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, DB, ADODB, DBCtrls; type
TForm8 = 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; var
Form8: TForm8; implementation uses
Unit9,Unit10,Unit11,Unit2; {$R *.dfm}
procedure TForm8.Button1Click(Sender: TObject); begin
Form10.Close; Form11.Close;
Form9.ManualDock(Form8.Panel1,nil,alNone); Form9.Show; end;
procedure TForm8.Button2Click(Sender: TObject); begin
Form9.Close; Form11.Close;
Form10.ManualDock(Form8.Panel1,nil,alNone); Form10.Show; end;
procedure TForm8.Button3Click(Sender: TObject); begin
Form9.Close; Form10.Close;
Form11.ManualDock(Form8.Panel1,nil,alNone); Form11.Show; end;
procedure TForm8.Image1Click(Sender: TObject); begin
ADOQuery1.Close;
姓名 from 教师信息表 where 教师工号 ADOQuery1.Open; end;
procedure TForm8.Timer1Timer(Sender: TObject); begin
Label1.Caption:=DateTimeToStr(Now); end; end.
unit Unit9;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, StdCtrls, ADODB, Grids, DBGrids; type
TForm9 = 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; var
Form9: TForm9; implementation uses Unit2; {$R *.dfm}
procedure TForm9.Button1Click(Sender: TObject); begin
DBGrid1.Visible:=True; ADOQuery1.Close; begin
教师信息表 where 教师工号 ADOQuery1.Open; end; end;
procedure TForm9.Button2Click(Sender: TObject); begin
ADOQuery1.Close;
DBGrid1.Visible:=False; end;
procedure TForm9.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 TForm9.Button3Click(Sender: TObject); begin
DBGrid1.Visible:=False; GroupBox1.Visible:=True; end;
procedure TForm9.Button6Click(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 TForm9.Button5Click(Sender: TObject); begin
GroupBox1.Visible:=False; end;
procedure TForm9.Button4Click(Sender: TObject); begin
if MessageDlg('确认修改吗？',mtConfirmation,[mbYes,mbNO],0)=mrYes then begin
if Edit4.Text=Label5.Caption then begin
ADOQuery1.Close;
管理信息表 where 账号密码 ='''+Edit1.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=1 then begin
if Edit2.Text=Edit3.Text then begin
ADOQuery1.Close; 管理信息表 SET 密码=:A where 账号
ADOQuery1.ExecSQL;
ShowMessage('修改成功'); end else
ShowMessage('新密码不一致') end else
ShowMessage('原密码错误'); end else
ShowMessage('验证码错误'); end;
Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Edit4.Text:=''; end; end.
unit Unit10;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids; type
TForm10 = 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;
var
Form10: TForm10; implementation uses Unit2; {$R *.dfm}
procedure TForm10.Button1Click(Sender: TObject); begin
DBGrid1.Visible:=True; ADOQuery1.Close; begin
课程信息表 where 教师工号 ADOQuery1.Open; end; end;
procedure TForm10.Button2Click(Sender: TObject); begin
ADOQuery1.Close;
DBGrid1.Visible:=False; end; end.
unit Unit11;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls; type
TForm11 = 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; var
Form11: TForm11; implementation uses
Unit8; {$R *.dfm}
procedure TForm11.Button1Click(Sender: TObject); begin
DBGrid1.Visible:=True; ADOQuery1.Close;
成绩信息表 where 课程号='''+Edit1.Text+''''); ADOQuery1.Open; end;
procedure TForm11.Button3Click(Sender: TObject); begin
Form11.Close; end;
procedure TForm11.Button2Click(Sender: TObject); begin
if MessageDlg('确认提交？',mtConfirmation,[mbYes,mbNO],0)=mrYes then begin
ADOQuery1.Close;
成绩信息表 SET 平时成绩=:A,期末成绩=:B where 学号='''+Edit2.Text+''''); ADOQuery1.ExecSQL; end; end; end.
unit Unit12;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, Menus, DB, ADODB, StdCtrls; type
TForm12 = 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; var
Form12: TForm12; implementation uses
Unit13,Unit14,Unit15,Unit16,Unit17,Unit18,Unit19,Unit20,Unit21; {$R *.dfm}
procedure TForm12.N4Click(Sender: TObject); begin
Form12.Close;
end;
procedure TForm12.N6Click(Sender: TObject); begin
Form13.ManualDock(Form12.Panel1,nil,alNone); Form13.Show; Form14.Close; Form15.Close; Form17.Close; Form18.Close; Form19.Close; Form20.Close; Form21.Close; end;
procedure TForm12.N7Click(Sender: TObject); begin
Form14.ManualDock(Form12.Panel1,nil,alNone); Form14.Show; Form13.Close; Form15.Close; Form16.Close; Form17.Close; Form18.Close; Form19.Close; Form20.Close; Form21.Close; end;
procedure TForm12.N3Click(Sender: TObject); begin
Panel1.Visible:=True;
Form15.ManualDock(Form12.Panel1,nil,alNone); Form15.Show; Form13.Close; Form14.Close; Form16.Close; Form17.Close; Form18.Close; Form19.Close; Form20.Close; Form21.Close; end;
procedure TForm12.N9Click(Sender: TObject); begin
Panel1.Visible:=True;
Form16.ManualDock(Form12.Panel1,nil,alNone);
Form16.Show; Form13.Close; Form14.Close; Form15.Close; Form17.Close; Form18.Close; Form19.Close; Form20.Close; Form21.Close; end;
procedure TForm12.N10Click(Sender: TObject); begin
Panel1.Visible:=True;
Form17.ManualDock(Form12.Panel1,nil,alNone); Form13.Close; Form14.Close; Form15.Close; Form16.Close; Form17.Show; Form18.Close; Form19.Close; Form20.Close; Form21.Close; end;
procedure TForm12.N12Click(Sender: TObject); begin
Panel1.Visible:=True;
Form18.ManualDock(Form12.Panel1,nil,alNone); Form13.Close; Form14.Close; Form15.Close; Form16.Close; Form17.Close; Form18.Show; Form19.Close; Form20.Close; Form21.Close; end;
procedure TForm12.N13Click(Sender: TObject); begin
Panel1.Visible:=True;
Form19.ManualDock(Form12.Panel1,nil,alNone); Form13.Close; Form14.Close;
Form15.Close; Form16.Close; Form17.Close; Form19.Show; Form18.Close; Form20.Close; Form21.Close; end;
procedure TForm12.N15Click(Sender: TObject); begin
Panel1.Visible:=True;
Form20.ManualDock(Form12.Panel1,nil,alNone); Form13.Close; Form14.Close; Form15.Close; Form16.Close; Form17.Close; Form20.Show; Form18.Close; Form19.Close; Form21.Close; end;
procedure TForm12.N2Click(Sender: TObject); begin
Panel1.Visible:=True;
Form21.ManualDock(Form12.Panel1,nil,alNone); Form13.Close; Form14.Close; Form15.Close; Form16.Close; Form17.Close; Form20.Close; Form18.Close; Form19.Close; Form21.Show; end;
procedure TForm12.Timer1Timer(Sender: TObject); begin
Label1.Caption:=DateTimeToStr(Now); end; end.
unit Unit13;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids; type
TForm13 = 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; var
Form13: TForm13; implementation uses Unit12; {$R *.dfm}
procedure TForm13.Button1Click(Sender: TObject); begin
DBGrid1.Visible:=True;
if RadioButton1.Checked then begin
ADOQuery1.Close;
学生信息表 where 学号='''+Edit1.Text+''''); ADOQuery1.Open; end
else if RadioButton2.Checked then begin
ADOQuery1.Close;
学生信息表 where 姓名='''+Edit2.Text+''''); ADOQuery1.Open; end
else
ShowMessage('请选择查询方式'); end;
procedure TForm13.Button2Click(Sender: TObject); begin
DBGrid1.Visible:=False; ADOQuery1.Close; Form13.Close; end;
procedure TForm13.Button3Click(Sender: TObject); begin
DBGrid1.Visible:=True; ADOQuery1.Close; 学生信息表');
ADOQuery1.Open; end; end.
unit Unit14;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids; type
TForm14 = 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; var
Form14: TForm14; implementation uses
Unit12; {$R *.dfm}
procedure TForm14.Button4Click(Sender: TObject); begin
Form14.Close; end;
procedure TForm14.Button1Click(Sender: TObject); begin
GroupBox1.Visible:=True; GroupBox2.Visible:=False; GroupBox3.Visible:=False; end;
procedure TForm14.Button5Click(Sender: TObject); begin
ADOQuery1.Close;
学生信息表 where 学号='''+Edit1.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=1 then begin
showmessage('此学号已存在'); end else begin
if MessageDlg('确认提交吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then begin
ADOQuery1.Close;
学生信息表 values(:A,:B,:C,:D,:E,:F,:G)'); ADOQuery1.ExecSQL;
管理信息表 values(:H,:I,:J,:K)'); ADOQuery1.ExecSQL;
showmessage('提交成功'); end; end; end;
procedure TForm14.Button2Click(Sender: TObject); begin
GroupBox1.Visible:=False;
GroupBox2.Visible:=True; GroupBox3.Visible:=False; end;
procedure TForm14.Button6Click(Sender: TObject); begin
ADOQuery1.Close;
学生信息表 where 学号='''+Edit8.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=0 then begin
showmessage('此学号不存在'); end else begin
if MessageDlg('删除后无法恢复，确',mtConfirmation,[mbYes,mbNo],0)=mrYes then begin
ADOQuery1.Close;
管理信息表 where 账号=:L'); ADOQuery1.ExecSQL; 学生信息表 where 学号=:O'); ADOQuery1.ExecSQL; Edit8.Text:='';
ShowMessage('成功删除！'); end; end; end;
procedure TForm14.Button7Click(Sender: TObject); begin
GroupBox2.Visible:=False; end;
procedure TForm14.Button8Click(Sender: TObject); begin
GroupBox1.Visible:=False; end;
procedure TForm14.Button3Click(Sender: TObject); begin
GroupBox3.Visible:=True; GroupBox1.Visible:=False; GroupBox2.Visible:=False; end;
procedure TForm14.Button9Click(Sender: TObject); begin
DBGrid1.Visible:=True;
认删除吗？
ADOQuery1.Close;
学生信息表 where 学号='''+Edit9.Text+''''); ADOQuery1.Open; end;
procedure TForm14.Button11Click(Sender: TObject); begin
GroupBox3.Visible:=False; end;
procedure TForm14.Button10Click(Sender: TObject); begin
ADOQuery1.Close;
学生信息表 where 学号='''+Edit9.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=0 then begin
showmessage('此学号不存在'); end else begin
if MessageDlg('确认修改并提交吗？',mtConfirmation,[mbYes,mbNO],0)=mrYes then begin
ADOQuery1.Close;
学生信息表 SET 姓名=:P,性别=:Q,出生日期=:R,专业=:S,电话=:T,备注=:U where 学号='''+Edit9.Text+''''); ADOQuery1.ExecSQL; Edit10.Text:=''; Edit11.Text:=''; Edit12.Text:=''; Edit13.Text:=''; Edit14.Text:='';
showmessage('提交成功'); end; end; end; end.
unit Unit15;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB; type
TForm15 = 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; var
Form15: TForm15; implementation uses
Unit12,Unit2; {$R *.dfm}
procedure TForm15.FormCreate(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 TForm15.Button2Click(Sender: TObject);
begin
Form15.Close; end;
procedure TForm15.Button3Click(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 TForm15.Button1Click(Sender: TObject); begin
if MessageDlg('确认修改吗？',mtConfirmation,[mbYes,mbNO],0)=mrYes then begin
if Edit4.Text=Label5.Caption then begin
ADOQuery1.Close;
管理信息表 where 账号密码 ='''+Edit1.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=1 then begin
if Edit2.Text=Edit3.Text then begin
ADOQuery1.Close; 管理信息表 SET 密码=:A where 账号
ADOQuery1.ExecSQL;
ShowMessage('修改成功'); end else
ShowMessage('新密码不一致') end else
ShowMessage('原密码错误'); end else
ShowMessage('验证码错误'); end;
Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Edit4.Text:=''; end; end.
unit Unit16;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids; type
TForm16 = class(TForm)
RadioButton1: TRadioButton; RadioButton2: TRadioButton; Edit1: TEdit; Edit2: TEdit;
DBGrid1: TDBGrid; ADOQuery1: TADOQuery; DataSource1: TDataSource; Button1: TButton; Button2: TButton; Button3: TButton;
procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end; var
Form16: TForm16; implementation uses
Unit12; {$R *.dfm}
procedure TForm16.Button1Click(Sender: TObject); begin
DBGrid1.Visible:=True;
if RadioButton1.Checked then
begin
ADOQuery1.Close;
教师信息表 where 教师工号='''+Edit1.Text+''''); ADOQuery1.Open; end
else if RadioButton2.Checked then begin
ADOQuery1.Close;
教师信息表 where 姓名='''+Edit2.Text+''''); ADOQuery1.Open; end else
ShowMessage('请选择查询条件'); end;
procedure TForm16.Button3Click(Sender: TObject); begin
DBGrid1.Visible:=False; Form16.Close; end;
procedure TForm16.Button2Click(Sender: TObject); begin
DBGrid1.Visible:=True; ADOQuery1.Close; 教师信息表');
ADOQuery1.Open; end; end.
unit Unit17;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids; type
TForm17 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;
Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit;
ComboBox1: TComboBox; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit;
Button5: TButton; Button6: TButton; ADOQuery1: TADOQuery; Label11: TLabel; Edit9: TEdit;
GroupBox2: TGroupBox; Label12: TLabel; Edit10: TEdit; Button7: TButton; Button8: TButton; GroupBox3: TGroupBox; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel; Edit11: TEdit; Edit12: TEdit; Edit13: TEdit; Edit14: TEdit; Label18: TLabel; Label19: TLabel;
ComboBox2: TComboBox; Label20: TLabel; Label21: TLabel; Edit15: TEdit; Edit16: TEdit; Edit17: TEdit; Edit18: TEdit;
Button9: TButton; DBGrid1: TDBGrid;
DataSource1: TDataSource; Button10: TButton; Button11: TButton;
procedure Button1Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button2Click(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); procedure Button4Click(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end; var
Form17: TForm17; implementation uses
Unit12; {$R *.dfm}
procedure TForm17.Button1Click(Sender: TObject); begin
GroupBox1.Visible:=True; GroupBox2.Visible:=False; GroupBox3.Visible:=False; end;
procedure TForm17.Button6Click(Sender: TObject); begin
GroupBox1.Visible:=False; end;
procedure TForm17.Button5Click(Sender: TObject); begin
if MessageDlg('确认提交吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then begin
ADOQuery1.Close;
教师信息表 where 教师工号='''+Edit1.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=1 then begin
ShowMessage('此工号已存在'); end else begin ADOQuery1.Close;
教师信息表 values(:A,:B,:C,:D,:E,:F,:G,:H,:I)'); ADOQuery1.ExecSQL; 管理信息表 values(:L,:M,:N,:O)'); ADOQuery1.ExecSQL;
ShowMessage('提交成功'); end; end; end;
procedure TForm17.Button2Click(Sender: TObject); begin
GroupBox2.Visible:=True; GroupBox1.Visible:=False; GroupBox3.Visible:=False; end;
procedure TForm17.Button7Click(Sender: TObject); begin
if MessageDlg('删除后无法恢复，确',mtConfirmation,[mbYes,mbNo],0)=mrYes then begin
ADOQuery1.Close;
教师信息表 where 教师工号='''+Edit10.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=0 then begin
ShowMessage('此工号不存在'); end else begin ADOQuery1.Close;
管理信息表 where 账号=:L'); ADOQuery1.ExecSQL;
教师信息表 where 教师工号=:O'); ADOQuery1.ExecSQL; Edit10.Text:='';
ShowMessage('成功删除！'); end; end;
认删除？
吗end;
procedure TForm17.Button8Click(Sender: TObject); begin
GroupBox2.Visible:=False; end;
procedure TForm17.Button3Click(Sender: TObject); begin
GroupBox3.Visible:=True; GroupBox1.Visible:=False; GroupBox2.Visible:=False; end;
procedure TForm17.Button9Click(Sender: TObject); begin
DBGrid1.Visible:=True; ADOQuery1.Close;
教师信息表 where 教师工号='''+Edit11.Text+''''); ADOQuery1.Open; end;
procedure TForm17.Button11Click(Sender: TObject); begin
GroupBox3.Visible:=False; end;
procedure TForm17.Button10Click(Sender: TObject); begin
if MessageDlg('确认修改并提交吗？',mtConfirmation,[mbYes,mbNO],0)=mrYes then begin
ADOQuery1.Close;
教师信息表 where 教师工号='''+Edit11.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=0 then begin
ShowMessage('此工号不存在'); end else begin ADOQuery1.Close;
教师信息表 SET 姓名=:P,性别=:Q,身份证=:R,电话=:S,住址=:T,职称=:U,学位=:V,备注=:W where 教师工号='''+Edit11.Text+''''); ADOQuery1.ExecSQL; Edit12.Text:=''; Edit13.Text:=''; Edit14.Text:=''; Edit15.Text:=''; Edit16.Text:='';
Edit17.Text:=''; Edit18.Text:='';
ShowMessage('修改成功！'); end; end; end;
procedure TForm17.Button4Click(Sender: TObject); begin
Form17.Close; end; end.
unit Unit18;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB; type
TForm18 = class(TForm)
RadioButton1: TRadioButton; RadioButton2: TRadioButton; Edit1: TEdit; Edit2: TEdit;
Button1: TButton; Button2: TButton; Button3: TButton; ADOQuery1: TADOQuery; DataSource1: TDataSource; DBGrid1: TDBGrid;
procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end; var
Form18: TForm18; implementation uses
Unit12; {$R *.dfm}
procedure TForm18.Button3Click(Sender: TObject);
begin
Form18.Close; end;
procedure TForm18.Button2Click(Sender: TObject); begin
DBGrid1.Visible:=True; ADOQuery1.Close; 课程信息表');
ADOQuery1.Open; end;
procedure TForm18.Button1Click(Sender: TObject); begin
DBGrid1.Visible:=True;
if RadioButton1.Checked then begin
ADOQuery1.Close;
课程信息表 where 课程号='''+Edit1.Text+''''); ADOQuery1.Open; end
else if RadioButton2.Checked then begin
ADOQuery1.Close;
课程信息表 where 教师工号='''+Edit2.Text+''''); ADOQuery1.Open; end else
ShowMessage('请选择查询条件'); end; end.
unit Unit19;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids; type
TForm19 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; GroupBox1: TGroupBox; Label2: TLabel; Label3: TLabel;
Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit;
Button5: TButton; Button6: TButton; ADOQuery1: TADOQuery; GroupBox2: TGroupBox; Label10: TLabel; Edit10: TEdit; Button7: TButton; Button8: TButton; GroupBox3: TGroupBox; Edit11: TEdit; Edit13: TEdit; Edit14: TEdit; Edit15: TEdit; Edit16: TEdit; Edit17: TEdit; Edit18: TEdit; Edit19: TEdit; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel; Label18: TLabel; Label19: TLabel; Button9: TButton; DBGrid1: TDBGrid;
DataSource1: TDataSource; Button10: TButton; Button11: TButton;
Button12: TButton; Button13: TButton; Label11: TLabel;
procedure Button4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button13Click(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end; var
Form19: TForm19; implementation uses
Unit12,Unit3; {$R *.dfm}
procedure TForm19.Button4Click(Sender: TObject); begin
Form19.Close; end;
procedure TForm19.Button1Click(Sender: TObject); begin
GroupBox1.Visible:=True; GroupBox2.Visible:=False; GroupBox3.Visible:=False; end;
procedure TForm19.Button6Click(Sender: TObject); begin
GroupBox1.Visible:=False; end;
procedure TForm19.Button5Click(Sender: TObject); begin
ADOQuery1.Close;
教师课程表 where 课程号='''+Edit2.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=1 then begin
ShowMessage('此课程已经存在'); end else begin
if MessageDlg('确认提交吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then begin
ADOQuery1.Close;
教师课程表 values(:A,:B,:C,:D,:E,:F,:G,:H)'); ADOQuery1.ExecSQL;
ShowMessage('提交成功'); end; end; end;
procedure TForm19.Button8Click(Sender: TObject); begin
GroupBox2.Visible:=False; end;
procedure TForm19.Button2Click(Sender: TObject); begin
GroupBox2.Visible:=True; GroupBox1.Visible:=False; GroupBox3.Visible:=False; end;
procedure TForm19.Button7Click(Sender: TObject); begin
ADOQuery1.Close;
课程信息表 where 课程号='''+Edit10.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=0 then begin
Showmessage('此课程不存在'); end else begin
if MessageDlg('删除后无法恢复，确认',mtConfirmation,[mbYes,mbNo],0)=mrYes then begin
ADOQuery1.Close;
课程信息表 where 课程号=:O'); ADOQuery1.ExecSQL;
删除吗？
Edit10.Text:='';
ShowMessage('成功删除！'); end; end; end;
procedure TForm19.Button3Click(Sender: TObject); begin
GroupBox3.Visible:=True; GroupBox1.Visible:=False; GroupBox2.Visible:=False; end;
procedure TForm19.Button9Click(Sender: TObject); begin
DBGrid1.Visible:=True; ADOQuery1.Close;
课程信息表 where 课程号='''+Edit11.Text+''''); ADOQuery1.Open; end;
procedure TForm19.Button11Click(Sender: TObject); begin
GroupBox3.Visible:=False; end;
procedure TForm19.Button10Click(Sender: TObject); begin
if MessageDlg('确认修改并提交吗？',mtConfirmation,[mbYes,mbNO],0)=mrYes then begin
ADOQuery1.Close;
课程信息表 where 课程号='''+Edit11.Text+''''; ADOQuery1.Open;
if ADOQuery1.RecordCount=0 then begin
ShowMessage('此课程不存在'); end else begin ADOQuery1.Close;
课程信息表 SET 课程名=:Q,学时=:R,学分=:S,开课时间=:T,教师工号=:U,教师名称=:V,备注=:W where 课程号='''+Edit11.Text+''''); ADOQuery1.ExecSQL; Edit13.Text:=''; Edit14.Text:=''; Edit15.Text:=''; Edit16.Text:=''; Edit17.Text:='';
Edit18.Text:=''; Edit19.Text:='';
ShowMessage('修改成功！'); end; end; end;
procedure TForm19.Button12Click(Sender: TObject); begin
已开通选课 ';
label11.Caption:='已开通选课 ' end;
procedure TForm19.Button13Click(Sender: TObject); begin
已关闭选课 ';
Label11.Caption:='已关闭选课 '; end; end.
unit Unit20;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls; type
TForm20 = class(TForm)
RadioButton1: TRadioButton; RadioButton2: TRadioButton; Edit1: TEdit; Edit2: TEdit;
Button1: TButton; Button2: TButton; Button3: TButton; DBGrid1: TDBGrid; ADOQuery1: TADOQuery; DataSource1: TDataSource;
procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end; var
Form20: TForm20; implementation uses
Unit12; {$R *.dfm}
procedure TForm20.Button3Click(Sender: TObject); begin
Form20.Close; end;
procedure TForm20.Button1Click(Sender: TObject); begin
DBGrid1.Visible:=True; ADOQuery1.Close; 成绩信息表');
ADOQuery1.Open; end;
procedure TForm20.Button2Click(Sender: TObject); begin
DBGrid1.Visible:=True;
if RadioButton1.Checked then begin
ADOQuery1.Close;
成绩信息表 where 学号='''+Edit1.Text+''''); ADOQuery1.Open; end
else if RadioButton2.Checked then begin
ADOQuery1.Close;
成绩信息表 where 课程号='''+Edit2.Text+''''); ADOQuery1.Open; end else
ShowMessage('请选择查询条件'); end; end.
unit Unit21;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls; type
TForm21 = class(TForm) Button1: TButton;
Button2: TButton; DBGrid1: TDBGrid; ADOQuery1: TADOQuery; DataSource1: TDataSource;
procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end; var
Form21: TForm21; implementation uses
Unit2,Unit12; {$R *.dfm}
procedure TForm21.Button1Click(Sender: TObject); begin
DBGrid1.Visible:=True; ADOQuery1.Close; begin
管理信息表 where 账号 ADOQuery1.Open; end; end;
procedure TForm21.Button2Click(Sender: TObject); begin
DBGrid1.Visible:=False; Form21.Close; end; end.
第七章 参考文献
《DLPHI 程序员成长攻略》 蒙祖强 龚涛 编着 中国水利水电出版社 《Delphi 开发 技术大全》 梁水 李方超 赛奎春 编着 人民邮电出版社 《Delphi 技术方案宝典》 梁水 李钟尉 吕双 编着 人民邮电出版社 《Delphi 开发 典型模块大全》 梁水 赛奎春 编着 人民邮电出版社 《Delphi 程序开发 范例宝典》 梁水 编着 人民邮电出版社
《Delphi 程序开发 范例宝典》 张岭 宋坤 梁冰 编着 人民邮电出版社 《数据库系统概论》 王珊 萨师煊 编着 高等教育出版社
因篇幅问题不能全部显示，请点此查看更多更全内容
Copyright © 2019- kqyc.cn 版权所有 赣ICP备2024042808号-2
违法及侵权请联系：TEL:199 1889 7713 E-MAIL:2724546146@qq.com
本站由北京市万商天勤律师事务所王兴未律师提供法律服务