1、多媒体广告的设计文档一.程序功能介绍;1.打开运行程序,首先进入一个2秒的欢迎窗体;2.欢迎窗体消失后进入登陆页面的主窗体;3.验证有效性:若学号(员工号)为空,弹出提示框提示输入用户名;若密码为空,弹出提示框提示输入密码;若没有选择登陆的身份,弹出提示框提示选择一个登录身份;若以上步骤验证有效后,验证输入的学号或员工号和选择的登录身份是否相符合,不符合则弹出提示框提示选择的身份有误;若以上步骤均有效,验证用户名对应的密码是否正确,若不正确则弹出提示框提示输入的用户名或密码有误;4.教师登录后,可在相对应窗体顶部的菜单中选择相应的查询和进行学科的成绩录入等,若要返回主窗体的登陆界面则选择注销;
2、5.学生登陆后,可在相对应窗体的顶部菜单中选择相应的查询,若要返回主窗体的登陆界面则选择注销;6.主窗体底部可显示一些信息,相应窗体也显示相应信息;7.若要退出程序则点击菜单上的安全退出即可。有效学生登录教师登录无效二.程序流程图;三.数据库名称,表名称,表结构;1.数据库名称: 2008040506 ;2.表名称:temp 学生表; 结构:Name char 姓名Sno char 学号Sex char 性别Chinese int 语文Math int 数学English int 英语Totalscore int 总分 权限属性:Alter,Insert,Select,Update;temp1
3、 用户密码表;结构: Sno char Password int (以后可改为char型)权限属性:Select;temp2 教师表;结构: Teacher char 教师 Sno char 员工号 Sex char 性别 Subject char 科目 Title char 职称 Seniority int 工龄权限属性:Select;Temp3 上课信息表;结构: Teacher char 教师 Sno char 员工号 Date char 日期 Classroom char 教室 Subject char 科目权限属性:Select;Temp4 学生平时成绩表;结构: Name char
4、 姓名 Sno char 学号 Score int 分数权限属性:Select,Insert;四.ODBC名称;数据源名称: DataSource用户名和密码: 用户名:yt 密码:yt五.核心代码;procedure TForm1.Button1Click(Sender: TObject);var i:integer;begin if form1.Edit1.text= then MessageDlg(请输入学号或员工号!,mtwarning,mbyes,0) else begin if form1.Edit2.Text= then MessageDlg(请输入密码!,mtwarning,m
5、byes,0) else begin If Form1.radiobutton2.checked=true then begin i := length(Form1.Edit1.Text); datamodule4.adoquery1.SQL.clear; datamodule4.adoquery1.SQL.add(select Password from temp1 where Sno=+Form1.Edit1.Text+); datamodule4.adoquery1.active:=true; if (Form1.radiobutton2.checked=true and (i 4) t
6、hen MessageDlg(您选择的身份有误!,mtwarning,mbyes,0) end else if Form1.radiobutton1.checked=true then begin i := length(Form1.Edit1.Text); datamodule4.adoquery1.SQL.clear; datamodule4.adoquery1.SQL.add(select Password from temp1 where Sno=+Form1.Edit1.Text+); datamodule4.adoquery1.active:=true; if (Form1.rad
7、iobutton1.checked=true and (i 4) then if Form1.Edit2.Text = form1.DBEdit1.Text then begin datamodule6.adoquery1.SQL.clear; datamodule6.adoquery1.SQL.add(select Teacher from temp2 where Sno=+Form1.Edit1.Text+); datamodule6.adoquery1.active:=true; form1.visible:=false; form5.visible:=true; MessageDlg(
8、欢迎 +trim(form5.DBEdit1.Text)+ 老师登陆,mtInformation,mbyes,0); end else MessageDlg(您输入的用户名或密码有误!,mtwarning,mbyes,0); if (Form1.radiobutton1.checked=true and (i 4) then MessageDlg(您选择的身份有误!,mtwarning,mbyes,0) end else MessageDlg(请选择一个登录身份!,mtwarning,mbyes,0) end endend;procedure TForm1.RadioButton2Click(
9、Sender: TObject);begin form1.Label1.Visible:=true; form1.Label1.Caption:=输入学号:;end;procedure TForm1.RadioButton1Click(Sender: TObject);begin form1.Label1.Visible:=true; form1.Label1.Caption:=输入员工号:;end;procedure TForm1.Button2Click(Sender: TObject);beginapplication.Terminate;end;procedure TForm1.Tim
10、er2Timer(Sender: TObject);begin StatusBar1.Panels3.Text :=日期:+FormatDateTime(yyyy-mm-dd,now)+ +FormatDateTime(hh:mm:ss,now);end;procedure TForm1.N8Click(Sender: TObject);begin MessageDlg(感谢您的测试,有建议请发送邮件到:504762745,mtInformation,mbyes,0)end;procedure TForm1.N6Click(Sender: TObject);begin if MessageBo
11、x(Form3.Handle,是否确认退出?,提示:,MB_YESNO) = IDYES then application.Terminate;end;procedure TForm1.N9Click(Sender: TObject);begin MessageDlg(本软件为测试版! 版本号为v1.0,mtInformation,mbyes,0)end;procedure TForm1.N10Click(Sender: TObject);begin MessageDlg(作者QQ:504762745,欢迎交流!,mtInformation,mbyes,0)end;end.六.程序目前存在的不足;还有很多可以开发的地方,但是教师成绩录入的那块存在个问题,就是如果后面老师录入成绩后,怎么再次显示总分;等等
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1