我做一个评分系统,首先将学生考卷机读卡上读出来信息(如:12482148421844488821122)保存在数据库的一个字段中,然后提出这些信息和标准答案(如:448422121111412824221)比较,相同匹配的为正确答案,将所有正确答案相加乘以一个分数基值就是这个学生的分数。
数据库为foxpro,编程语言为DELPHI问题:我用的普通循环和计数语句,当程序运行到2000多条记录时,总是提示数据库出错。我怀疑是我的算法的问题,请各位指点迷津,介绍一个好的算法,谢谢!
数据库为foxpro,编程语言为DELPHI问题:我用的普通循环和计数语句,当程序运行到2000多条记录时,总是提示数据库出错。我怀疑是我的算法的问题,请各位指点迷津,介绍一个好的算法,谢谢!
解决方案 »
- 急!急!急!怎样用opengl或glscene画人的头部的3D图(送分了)?
- DBGrid控件的问题
- 当我打开窗口文件时Delphi它就自已关闭了谁知道是怎么回事呀?
- 急救!谁又Windows XP的注册码,小弟安装Delphi的时候挂了……
- 有关网络通信的问题,高人帮忙看看!!!!!!!
- 请问各位如何将ASCII码表示的数据转换成十六进制表示的数据,有没有什么函数?
- 菜鸟的小问题,不过问题可不菜呀!!关于远程数据库连接oracle的
- 怎样调用拨号连接对话框??
- delphi6 + win2000server 怎么就加了一个Quickrep控件,一编译也出错??
- 有没有MAPINFO的好手知道这个问题?
- 我想用combobox中实现如下功能,请帮助
- 为什么用sqlserver的DTS导入foxpro的数据时,数据读取错误
张三 448422121111412824221 ?
李四 448422121111412824221 ?1、自定义一个函数;返回值是正确答案的得分;
function getscores(var answer: string; score: integer): integer;
begin
result := ?
end;2、with adoquery1 do
begin
close;
sql.clear;
sql.text := 'select * from table_student ';
open;
while not eof do
begin
fieldbyname('得分').asinteger := getscores(fieldbyname('答案').asstring,3);
//其中3是你的每个题的基分;
next;
end;
end;