|
2.3 系统的总体设计 这个管理系统从4月1日开始着手设计开发,经过一段时间的分析，并根据对影音店光盘管理的具体要求及需要本软件实现的功能，将本软件分为4个大的模块，分别是：第一部分：系统维护；第二部分：考员管理；第三部分：考试管理； 第四部分：统计报表。 copyright paper51.com 程序流程图如下： copyright paper51.com
copyright paper51.com 2.4 系统的详细设计 内容来自www.paper51.com 进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象，根据本课题的需要，在这里选择一个空的数据库，命名建立了一个数据库名称为“bysj”，网络考试系统。并在此数据库下创建了六个表，用于存放原始数据。它只是存放数据，对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下： http://www.paper51.com
1. http://www.paper51.com
http://www.paper51.com
2. http://www.paper51.com
内容来自论文无忧网 www.paper51.com 3. 内容来自论文无忧网 www.paper51.com paper51.com 4. http://www.paper51.com paper51.com 5. paper51.com
http://www.paper51.com
6. copyright paper51.com
paper51.com 3 本程序的技术实现及具体功能 内容来自论文无忧网 www.paper51.com 3.1 登录的界面与程序设计实现 内容来自www.paper51.com
内容来自www.paper51.com 代码设计: 内容来自论文无忧网 www.paper51.com unit Unlogin; paper51.com interface http://www.paper51.com uses http://www.paper51.com
Windows, Messages, SysUtils, Variants,Classes, Graphics, Controls, Forms, 内容来自www.paper51.com Dialogs, StdCtrls, ExtCtrls, Buttons,jpeg; http://www.paper51.com type copyright paper51.com TLoginfrm = class(TForm) http://www.paper51.com
Button1: TButton; paper51.com Button2: TButton; copyright paper51.com Edit1: TEdit; http://www.paper51.com Edit2: TEdit; 内容来自www.paper51.com Bevel1: TBevel; copyright paper51.com Label1: TLabel; 内容来自www.paper51.com
Label2: TLabel; paper51.com Bevel2: TBevel; 内容来自论文无忧网 www.paper51.com Image1: TImage; 内容来自www.paper51.com procedureButton1Click(Sender: TObject); 内容来自www.paper51.com
procedureButton2Click(Sender: TObject); 内容来自论文无忧网 www.paper51.com private copyright paper51.com { Privatedeclarations } 内容来自论文无忧网 www.paper51.com public copyright paper51.com { Publicdeclarations } 内容来自论文无忧网 www.paper51.com end; 内容来自www.paper51.com
var copyright paper51.com Loginfrm: TLoginfrm; http://www.paper51.com implementation 内容来自论文无忧网 www.paper51.com
uses Undm, Unmain; 内容来自www.paper51.com
{$R *.dfm} 内容来自论文无忧网 www.paper51.com procedure TLoginfrm.Button1Click(Sender: TObject); 内容来自论文无忧网 www.paper51.com
begin paper51.com if edit1.Text=''then 内容来自论文无忧网 www.paper51.com
begin copyright paper51.com application.MessageBox('您没有输入登录名，请输入你的登录名！！','系统警告',MB_ok+MB_Iconstop); paper51.com exit; 内容来自论文无忧网 www.paper51.com end; 内容来自www.paper51.com ifedit2.Text='' then 内容来自www.paper51.com begin 内容来自论文无忧网 www.paper51.com application.MessageBox('您没有输入口令,请输入你的口令！！','系统警告',MB_ok+MB_Iconstop); 内容来自论文无忧网 www.paper51.com exit; 内容来自论文无忧网 www.paper51.com
end; 内容来自论文无忧网 www.paper51.com if datamodule1.CDSManerge.Locate('姓名',edit1.Text,[]) then paper51.com begin 内容来自论文无忧网 www.paper51.com
ifdatamodule1.CDSManerge.FieldByName('口令').AsString=edit2.Textthen paper51.com begin copyright paper51.com ifdatamodule1.CDSManerge.Fields[2].Value=2 then 内容来自论文无忧网 www.paper51.com begin paper51.com mainfrm.n1.Enabled:=false; 内容来自论文无忧网 www.paper51.com
mainfrm.toolbutton1.Enabled:=false; http://www.paper51.com mainfrm.toolbutton3.Enabled:=false; paper51.com
end; 内容来自论文无忧网 www.paper51.com close; 内容来自论文无忧网 www.paper51.com
end 内容来自www.paper51.com
else paper51.com application.MessageBox('你输入的口令有误，请重新输入！','系统警告',mb_ok+mb_iconstop); 内容来自论文无忧网 www.paper51.com
end 内容来自www.paper51.com
else 内容来自论文无忧网 www.paper51.com
application.MessageBox('你输入的姓名有误，请重新输入！','系统警告',mb_ok+mb_iconstop); copyright paper51.com end; copyright paper51.com procedure TLoginfrm.Button2Click(Sender: TObject); 内容来自论文无忧网 www.paper51.com
begin 内容来自论文无忧网 www.paper51.com application.Terminate; http://www.paper51.com end; 内容来自论文无忧网 www.paper51.com end. 内容来自www.paper51.com |