Delphi 2015下IntraWeb网络考试系统开发综合实例.doc

Delphi 2006下IntraWeb网络考试系统开发综合实例 第一天：制定数据库结构（test.mdb） 表一：Stuser（记录学生用户资料） 字段名 字段类型 长度 备注 realname 文本 12 真实姓名 Userid 文本 12 用户编号（各学校统一）有索引，唯一 Userpass 文本 10 用户密码 userClass 文本 6 班级（如200501指2005年入学6班） Seri 文本 2 学生的学号 status 文本 ４ 用户状态 Sexid 文本 2 性别 school 文本 4 学校代码 序号 自动编号 提高建议：可以加个积分字段，把学生每次练习和测试或其它活动的成绩累积起来，以此在首页上排名，这样的话更能促使学生自觉地进行练习与测试。 表二：Teuser（记录教师及管理员资料） 字段名 字段类型 长度 备注 Username 文本 12 用户帐号，有索引，唯一 realname 文本 １２ 用户的真实姓名 Userpass 文本 10 用户密码 school 文本 20 所在学校 Subject 文本 12 任教科目 userphone 文本 15 联系电话 Sexid 文本 2 性别 序号 自动编号 表三：Papername（记录试卷名称、科目及具体题目的数量及分值） 字段名 字段类型 长度 备注 序号 自动编号 papername 文本 30 试卷名 bywho 文本 12 输入者 inputtime 文本 12 输入时间 Subject 文本 10 试卷所属科目 status 文本 4 试卷状态（练习、删除、考卷、统考） Singleti 数字／字节 单选题数量 Singlescore 数字／字节 分值 Multi 数字／字节 多选题数量 Mulscore 数字／字节 分值 Fillti 数字／字节 填空题数量 Fillscore 数字／字节 分值 judgeti 数字／字节 判断题数量 judgescore 数字／字节 分值 canrondom 是／否 试题是否能随机顺序出卷 在这里出卷的时候就可以设置好基本的参数，如是否可以随机顺序，因为有的题目必须按一定顺序出，就不能用随机组卷的方法来考试。 统考由管理员或教师设定，删除只能由管理员作最后处理，教师可以删除自己出的卷，但只是假删除，完全删除要由管理员执行。 表四：Sysset（设置与记录考试试卷的主要参数） 字段名 字段类型 长度 备注 Paperid 长整数 30 试卷编号 Trainstatus 是／否 练习开关状态 Teststatus 是／否 测试开关状态 Mustlog 是／否 是否必须是注册用户 isrepeat 是／否 是否能重复进行测试 repeattime 字节 可重复考试次数，最大３ checkpm 是／否 考试完毕后是否能查看排名 可以多套试卷同时存在，每套试卷有独立的参数控制，为减少数据库重复及节约数据空间，试卷名用编号而不用文本，不然的话３０字节长度比４个字节长度要大得太多了！ 表五：Tiku（具体试卷题目） 字段名 字段类型 长度 备注 Content memo 题干 Type 文本 4 题型 Key1 文本 200 选择1 Key2 文本 200 选择2 Key3 文本 200 选择3 Key4 文本 200 选择4 Key5 文本 200 选择5 Turekey 文本 200 正确答案 paperid 长整数 papername表里的自动编号 程序中可以是对四种题型进行试卷编制，但在此范例程序中只对选择题（单选和多选）进行示范。 表六：Result（用户测试及练习的成绩） 字段名 字段类型 长度 备注 编号 自动编号 Username 文本 10 用户名 Userid 文本 12 用户编号（唯一） Testtime 文本 12 测试所用时间 Percent 文本 4 正确率 Paperid 长整数 试卷编号（唯一） Userip 数字／整型 测试机ＩＰ tinum 数字／整型 总题量 numright 数字／整型 正确数量 Point 数字／整型 成绩 2007-2-2 第二天：登陆窗口的制作与代码实现 环境：Delphi for win32 + IntraWeb8.0 File-New-Other-Intraweb Application Wizard，出现如下窗口 　　 （新建程序.jpg），　　　　　　　　　　　　　　　　　　（参数.jpg） 确定，进入Delphi界面，可以看到有四个文件选项（还