多媒体广告的设计文档.docx
《多媒体广告的设计文档.docx》由会员分享,可在线阅读,更多相关《多媒体广告的设计文档.docx(9页珍藏版)》请在冰豆网上搜索。
多媒体广告的设计文档
一.程序功能介绍;
1.打开运行程序,首先进入一个2秒的欢迎窗体;
2.欢迎窗体消失后进入登陆页面的主窗体;
3.验证有效性:
①若学号(员工号)为空,弹出提示框提示输入用户名;
②若密码为空,弹出提示框提示输入密码;
③若没有选择登陆的身份,弹出提示框提示选择一个登录身份;
④若以上步骤验证有效后,验证输入的学号或员工号和选择的登录身份是否相符合,不符合则弹出提示框提示选择的身份有误;
若以上步骤均有效,验证用户名对应的密码是否正确,若不正确则弹出提示框提示输入的用户名或密码有误;
4.教师登录后,可在相对应窗体顶部的菜单中选择相应的查询和进行学科的成绩录入等,若要返回主窗体的登陆界面则选择注销;
5.学生登陆后,可在相对应窗体的顶部菜单中选择相应的查询,若要返回主窗体的登陆界面则选择注销;
6.主窗体底部可显示一些信息,相应窗体也显示相应信息;
7.若要退出程序则点击菜单上的安全退出即可。
有效
学生登录
教师登录
无效
二.程序流程图;
三.数据库名称,表名称,表结构;
1.数据库名称:
2008040506;
2.表名称:
①temp学生表;
结构:
Namechar姓名
Snochar学号
Sexchar性别
Chineseint语文
Mathint数学
Englishint英语
Totalscoreint总分
权限属性:
Alter,Insert,Select,Update;
②temp1用户密码表;
结构:
Snochar
Passwordint(以后可改为char型)
权限属性:
Select;
③temp2教师表;
结构:
Teacherchar教师
Snochar员工号
Sexchar性别
Subjectchar科目
Titlechar职称
Seniorityint工龄
权限属性:
Select;
④Temp3上课信息表;
结构:
Teacherchar教师
Snochar员工号
Datechar日期
Classroomchar教室
Subjectchar科目
权限属性:
Select;
⑤Temp4学生平时成绩表;
结构:
Namechar姓名
Snochar学号
Scoreint分数
权限属性:
Select,Insert;
四.ODBC名称;
数据源名称:
DataSource
用户名和密码:
用户名:
yt
密码:
yt
五.核心代码;
procedureTForm1.Button1Click(Sender:
TObject);
var
i:
integer;
begin
ifform1.Edit1.text=''then
MessageDlg('请输入学号或员工号!
',mtwarning,[mbyes],0)
else
begin
ifform1.Edit2.Text=''then
MessageDlg('请输入密码!
',mtwarning,[mbyes],0)
else
begin
IfForm1.radiobutton2.checked=truethen
begin
i:
=length(Form1.Edit1.Text);
datamodule4.adoquery1.SQL.clear;
datamodule4.adoquery1.SQL.add('selectPasswordfromtemp1whereSno='+''''+Form1.Edit1.Text+'''');
datamodule4.adoquery1.active:
=true;
if(Form1.radiobutton2.checked=trueand(i<4))then
ifForm1.Edit2.Text=form1.DBEdit1.Textthen
begin
datamodule2.adoquery1.SQL.clear;
datamodule2.adoquery1.SQL.add('selectName,SnofromtempwhereSno='+''''+Form1.Edit1.Text+'''');
datamodule2.adoquery1.active:
=true;
form1.Visible:
=false;
form3.visible:
=true;
MessageDlg('欢迎'+trim(form3.abc.Text)+'同学登陆',mtInformation,[mbyes],0);
end
else
MessageDlg('您输入的用户名或密码有误!
',mtwarning,[mbyes],0);
if(Form1.radiobutton2.checked=trueand(i>4))then
MessageDlg('您选择的身份有误!
',mtwarning,[mbyes],0)
end
elseifForm1.radiobutton1.checked=truethen
begin
i:
=length(Form1.Edit1.Text);
datamodule4.adoquery1.SQL.clear;
datamodule4.adoquery1.SQL.add('selectPasswordfromtemp1whereSno='+''''+Form1.Edit1.Text+'''');
datamodule4.adoquery1.active:
=true;
if(Form1.radiobutton1.checked=trueand(i>4))then
ifForm1.Edit2.Text=form1.DBEdit1.Textthen
begin
datamodule6.adoquery1.SQL.clear;
datamodule6.adoquery1.SQL.add('selectTeacherfromtemp2whereSno='+''''+Form1.Edit1.Text+'''');
datamodule6.adoquery1.active:
=true;
form1.visible:
=false;
form5.visible:
=true;
MessageDlg('欢迎'+trim(form5.DBEdit1.Text)+'老师登陆',mtInformation,[mbyes],0);
end
else
MessageDlg('您输入的用户名或密码有误!
',mtwarning,[mbyes],0);
if(Form1.radiobutton1.checked=trueand(i<4))then
MessageDlg('您选择的身份有误!
',mtwarning,[mbyes],0)
end
else
MessageDlg('请选择一个登录身份!
',mtwarning,[mbyes],0)
end
end
end;
procedureTForm1.RadioButton2Click(Sender:
TObject);
begin
form1.Label1.Visible:
=true;
form1.Label1.Caption:
='输入学号:
';
end;
procedureTForm1.RadioButton1Click(Sender:
TObject);
begin
form1.Label1.Visible:
=true;
form1.Label1.Caption:
='输入员工号:
';
end;
procedureTForm1.Button2Click(Sender:
TObject);
begin
application.Terminate;
end;
procedureTForm1.Timer2Timer(Sender:
TObject);
begin
StatusBar1.Panels[3].Text:
='日期:
'+FormatDateTime('yyyy-mm-dd',now)+''+FormatDateTime('hh:
mm:
ss',now);
end;
procedureTForm1.N8Click(Sender:
TObject);
begin
MessageDlg('感谢您的测试,有建议请发送邮件到:
504762745@',mtInformation,[mbyes],0)
end;
procedureTForm1.N6Click(Sender:
TObject);
begin
ifMessageBox(Form3.Handle,'是否确认退出?
','提示:
',MB_YESNO)=IDYESthen
application.Terminate;
end;
procedureTForm1.N9Click(Sender:
TObject);
begin
MessageDlg('本软件为测试版!
版本号为v1.0',mtInformation,[mbyes],0)
end;
procedureTForm1.N10Click(Sender:
TObject);
begin
MessageDlg('作者QQ:
504762745,欢迎交流!
',mtInformation,[mbyes],0)
end;
end.
六.程序目前存在的不足;
还有很多可以开发的地方,但是教师成绩录入的那块存在个问题,就是如果后面老师录入成绩后,怎么再次显示总分;等等…