学生信息标准管理系统数据库设计和编码.docx
《学生信息标准管理系统数据库设计和编码.docx》由会员分享，可在线阅读，更多相关《学生信息标准管理系统数据库设计和编码.docx（25页珍藏版）》请在冰豆网上搜索。
学生信息标准管理系统数据库设计和编码
实验六学生信息管理系统数据库设计和应用程序编码
一、实验目
掌握程序设计语言选取、程序编码风格和程序效率问题。
应用数据库设计工具和程序设计工具，进行数据库设计和应用程序编码。
3、
二、实验仪器和设备
1、计算机
2、SQL-SERBER软件、高档语言编译调试软件
三、实验内容
在实验五基本上，完毕如下内容：
1、依照设计阶段E-R图转化并优化关系模式建立数据库表。
2、选定程序设计语言，注重编码风格，将实现模块功能算法转化为程序代码。
3、源程序文档化。
四．实验记录
1、依照设计阶段E-R图转化并优化关系模式建立数据库表。
2、选定程序设计语言，注重编码风格，将实现模块功能算法转化为程序代码。
程序重要实现某些代码如下：
unitMainUnit;
interface
uses
Windows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms,
Dialogs，ImgList，ComCtrls，ToolWin，Menus;
type
TmainForm=class（TForm）
MainMenu1：
TMainMenu;
N1：
TMenuItem;
ToolBar1：
TToolBar;
tb_depart：
TToolButton;
tb_class：
TToolButton;
tb_user：
TToolButton;
tb_stu：
TToolButton;
tb_stuquery：
TToolButton;
tb_change：
TToolButton;
tb_reward：
TToolButton;
tb_punish：
TToolButton;
tb_quit：
TToolButton;
ImageList1：
TImageList;
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;
StatusBar1：
TStatusBar;
proceduretb_quitClick（Sender：
TObject）;
procedureFormCreate（Sender：
TObject）;
proceduretb_departClick（Sender：
TObject）;
proceduretb_classClick（Sender：
TObject）;
proceduretb_userClick（Sender：
TObject）;
proceduretb_stuClick（Sender：
TObject）;
proceduretb_stuqueryClick（Sender：
TObject）;
proceduretb_changeClick（Sender：
TObject）;
proceduretb_rewardClick（Sender：
TObject）;
procedureN2Click（Sender：
TObject）;
proceduretb_punishClick（Sender：
TObject）;
procedureN3Click（Sender：
TObject）;
procedureN5Click（Sender：
TObject）;
procedureN7Click（Sender：
TObject）;
procedureN11Click（Sender：
TObject）;
procedureN13Click（Sender：
TObject）;
procedureN14Click（Sender：
TObject）;
procedureN15Click（Sender：
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
mainForm：
TmainForm;
depart:
boolean=true;
Fclass:
boolean=true;
user:
boolean=true;
stu:
boolean=true;
query:
boolean=true;
change:
boolean=true;
reward:
boolean=true;
punish:
boolean=true;
implementation
usesdm，departUnit，classUnit，userUnit，stuUnit，queryUnit，changeUnit,
rewardUnit，punishUnit;
{$R*.dfm}
procedureTmainForm.tb_quitClick（Sender：
TObject）;
begin
close;
end;
procedureTmainForm.FormCreate（Sender：
TObject）;
begin
tb_depart.Enabled:
=dmform.ADOQuery_login.FieldByName（'qx1'）.AsBoolean;
tb_class.Enabled:
=dmform.ADOQuery_login.FieldByName（'qx2'）.AsBoolean;
tb_user.Enabled:
=dmform.ADOQuery_login.FieldByName（'qx3'）.AsBoolean;
tb_stu.Enabled:
=dmform.ADOQuery_login.FieldByName（'qx4'）.AsBoolean;
tb_stuquery.Enabled:
=dmform.ADOQuery_login.FieldByName（'qx5'）.AsBoolean;
tb_change.Enabled:
=dmform.ADOQuery_login.FieldByName（'qx6'）.AsBoolean;
tb_reward.Enabled:
=dmform.ADOQuery_login.FieldByName（'qx7'）.AsBoolean;
tb_punish.Enabled:
=dmform.ADOQuery_login.FieldByName（'qx8'）.AsBoolean;
end;
procedureTmainForm.tb_departClick（Sender：
TObject）;
begin//院系设立
iftb_depart.Downthen
begin
departform:
=tdepartform.Create（self）;
departform.Show;
end
else
begin
departForm.Free;
end;
end;
procedureTmainForm.tb_classClick（Sender：
TObject）;
begin//班级管理
iftb_class.Downthen
begin
classform:
=tclassform.Create（self）;
classform.Show;
end
else
begin
classForm.Free;
end;
end;
procedureTmainForm.tb_userClick（Sender：
TObject）;
begin//顾客管理
iftb_user.Downthen
begin
userform:
=tuserform.Create（self）;
userform.Show;
end
else
begin
userForm.Free;
end;
end;
procedureTmainForm.tb_stuClick（Sender：
TObject）;
begin//学生管理
iftb_stu.Downthen
begin
stuform:
=tstuform.Create（self）;
stuform.Show;
end
else
begin
stuForm.Free;
end;
end;
procedureTmainForm.tb_stuqueryClick（Sender：
TObject）;
begin//学生查询
iftb_stuquery.Downthen
begin
queryform:
=tqueryform.Create（self）;
queryform.Show;
end
else
begin
queryForm.Free;
end;
end;
procedureTmainForm.tb_changeClick（Sender：
TObject）;
begin//学籍变更
iftb_change.Downthen
begin
changeform:
=tchangeform.Create（self）;
changeform.Show;
end
else
begin
changeForm.Free;
end;
end;
procedureTmainForm.tb_rewardClick（Sender：
TObject）;
begin//奖励状况
iftb_reward.Downthen
begin
rewardform:
=trewardform.Create（self）;
rewardform.Show;
end
else
begin
rewardForm.Free;
end;
end;
procedureTmainForm.N2Click（Sender：
TObject）;
begin
ifdepartthen
begin
departform:
=tdepartform.Create（self）;
depart:
=false;
departform.Show;
end
else
begin
departForm.Free;
depart:
=true;
tb_depart.Down:
=false;
end;
end;
procedureTmainForm.tb_punishClick（Sender：
TObject）;
begin//惩罚状况
iftb_punish.Downthen
begin
punishform:
=tpunishform.Create（self）;
punishform.Show;
end
else
begin
punishForm.Free;
end;
end;
procedureTmainForm.N3Click（Sender：
TObject）;
begin
iffclassthen
begin
classform:
=tclassform.Create（self）;
fclass:
=false;
classform.Show;
end
else
begin
classForm.Free;
fclass:
=true;
tb_class.Down:
=false;
end;
end;
procedureTmainForm.N5Click（Sender：
TObject）;
begin
ifuserthen
begin
userform:
=tuserform.Create（self）;
user:
=false;
userform.Show;
end
else
begin
userForm.Free;
user:
=true;
tb_user.Down:
=false;
end;
end;
procedureTmainForm.N7Click（Sender：
TObject）;
begin
close;
end;
procedureTmainForm.N11Click（Sender：
TObject）;
begin
ifquerythen
begin
queryform:
=tqueryform.Create（self）;
query:
=false;
queryform.Show;
end
else
begin
queryForm.Free;
query:
=true;
tb_stuquery.Down:
=false;
end;
end;
procedureTmainForm.N13Click（Sender：
TObject）;
begin
ifchangethen
begin
changeform:
=tchangeform.Create（self）;
change:
=false;
changeform.Show;
end
else
begin
changeForm.Free;
change:
=true;
tb_change.Down:
=false;
end;
end;
procedureTmainForm.N14Click（Sender：
TObject）;
begin
ifrewardthen
begin
rewardform:
=trewardform.Create（self）;
reward:
=false;
rewardform.Show;
end
else
begin
rewardForm.Free;
reward:
=true;
tb_reward.Down:
=false;
end;
end;
procedureTmainForm.N15Click（Sender：
TObject）;
begin
ifpunishthen
begin
punishform:
=tpunishform.Create（self）;
punish:
=false;
punishform.Show;
end
else
begin
punishForm.Free;
punish:
=true;
tb_punish.Down:
=false;
end;
end;
end.
登陆模块：
procedureTloginForm.btn_okClick（Sender：
TObject）;
var
sql:
string;
begin
sql:
='select*fromloginwhereusername=:
aandpasswrd=:
b';
dmform.ADOQuery_login.Close;
dmform.ADOQuery_login.SQL.Clear;
dmform.ADOQuery_login.SQL.Add（sql）;
dmform.ADOQuery_login.Parameters[0].Value:
=edit1.Text;
dmform.ADOQuery_login.Parameters[1].Value:
=edit2.Text;
dmform.ADOQuery_login.Open;
ifdmform.ADOQuery_login.RecordCount>0then
begin
loginform.ModalResult:
=mrok;
end
else
begin
application.MessageBox（'顾客名或者密码错误,请重新输入!
','登录提示',mb_ok）;
edit1.Text:
='';
edit2.Text:
='';
edit1.SetFocus;
end;
end;
procedureTloginForm.btn_cancelClick（Sender：
TObject）;
begin
loginform.ModalResult:
=mrCancel;
end;
end.
班级管理模块：
procedureTclassForm.FormClose（Sender：
TObject；varAction：
TCloseAction）;
begin
action:
=cafree;
mainform.tb_class.Down:
=false;
end;
procedureTclassForm.tb_exitClick（Sender：
TObject）;
begin
close;
end;
procedureTclassForm.tb_postClick（Sender：
TObject）;
var
s:
string;
begin
s:
='insertintoclass（班级编号,班级名称,所属院系,班主任,联系电话,班级描述）values（:
a,:
b,:
c,:
d,:
e,:
f）';
dmform.ADOQuery_class.Close;
dmform.ADOQuery_class.SQL.Clear;
dmform.ADOQuery_class.SQL.Add（s）;
dmform.ADOQuery_class.Parameters[0].Value:
=edit1.Text;
dmform.ADOQuery_class.Parameters[1].Value:
=edit2.Text;
dmform.ADOQuery_class.Parameters[2].Value:
=edit3.Text;
dmform.ADOQuery_class.Parameters[3].Value:
=edit4.Text;
dmform.ADOQuery_class.Parameters[4].Value:
=edit5.Text;
dmform.ADOQuery_class.Parameters[5].Value:
=edit6.Text;
dmform.ADOQuery_class.ExecSQL;
dmform.ADOQuery_class.Close;
dmform.ADOQuery_class.SQL.Clear;
dmform.ADOQuery_class.SQL.Add（'select*fromclass'）;
dmform.ADOQuery_class.Open;
end;
procedureTclassForm.tb_deleteClick（Sender：
TObject）;
begin
ifmessagedlg（'拟定删除该记录吗？
',mtConfirmation,[mbYes，mbNo],0）=mryesthen
begin
dmform.ADOQuery_class.Delete;
end;
end;
procedureTclassForm.tb_addClick（Sender：
TObject）;
begin
edit1.Text:
='';
edit2.Text:
='';
edit3.Text:
='';
edit4.Text:
='';
edit5.Text:
='';
edit6.Text:
='';
edit1.SetFocus;
end;
procedureTclassForm.tb_editClick（Sender：
TObject）;
var
s:
string;
i:
string;
begin
s:
='updateclassset班级编号=:
a,班级名称=:
b,所属院系=:
c,班主任=:
d,联系电话=:
e,班级描述=:
fwhere班级编号=:
n';
i:
=dmform.ADOQuery_class.fieldbyname（'班级编号'）.AsString;
dmform.ADOQuery_class.Close;
dmform.ADOQuery_class.SQL.Clear;
dmform.ADOQuery_class.SQL.Add（s）;
dmform.ADOQuery_class.Parameters[0].Value:
=edit1.Text;
dmform.ADOQuery_class.Parameters[1].Value:
=edit2.Text;
dmform.ADOQuery_class.Parameters[2].Value:
=edit3.Text;
dmform.ADOQuery_class.Parameters[3].Value:
=edit4.Text;
dmform.ADOQuery_class.Parameters[4].Value:
=edit5.Text;
dmform.ADOQuery_class.Parameters[5].Value:
=edit6.Text;
dmform.ADOQuery_class.Parameters[6].Value:
=i;
dmform.ADOQuery_class.ExecSQL;
dmform.ADOQuery_class.Close;
dmform.ADOQuery_class.SQL.Clear;
dmform.ADOQuery_class.SQL.Add（'select*fromclass'）;
dmform.ADOQuery_class.Open;
end;
end.
院系设立模块：
procedureTdepartForm.FormClose（Sender：
TObject；varAction：
TCloseAction）;
begin
action:
=cafree;
mainform.tb_depart.Down:
=false;
end;
procedureTdepartForm.tb_exitClick（Sender：
TObject）;
begin
close;
end;
procedureTdepartForm.tb_addClick（Sender：
TObject）;
begin
edit_yxbh.Text:
='';
edit_yxmc.Text:
='';
edit_yxld.Text:
='';
edit_lddh.Text:
='';
edit_yxms.Text:
='';
edit_yxbh.SetFocus;
end;
procedureTdepartForm.tb_postClick（Sender：
TObject）;
var
s:
string;
begin
s:
='insertintodepartment（院系编号,院系名称,院系领导,领导电话,院系描述）values（:
a,:
b,:
c
升级会员 