学生信息标准管理系统数据库设计和编码.docx
- 文档编号:27555771
- 上传时间:2023-07-02
- 格式:DOCX
- 页数:25
- 大小:75.97KB
学生信息标准管理系统数据库设计和编码.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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 信息 标准 管理 系统 数据库 设计 编码