请大家帮个忙!我有两个数据表:基础数据表(编号,数据类型,数据项目,指标上界,指标下界,标准分)和数据采集表(编号,采集数据,得分,日期),首先要让用户选择数据类型,根据所选的数据类型从基础数据表中提取相应的编号和数据项目录入到数据采集表中,然后让用户在采集数据字段中填上相应的数据,再把所填的这些数据与基础数据表中的指标上界和指标下界进行比较,超过的话对应的标准分就减分,再把这个实际分数写到数据采集表中的得分字段.请问大家在DELPHI中怎么实现呢?能否说一下思路和相应的程序给我参考参考!!!急啊!
解决方案 »
- 请问$IFDEF这些知识,哪本书有介绍呢?
- 各位,请问如何做到点击按钮就可找到http://www.china.com 网站!(DELPHI6.0)
- 如何捕捉数据库字段不存在异常?
- 为什么连接vfp数据库出现错误?
- 应用程序和编译成DLL方式的区别?
- 改变STRINGGRID中每一个单元格的颜色
- 请教:LeftStr('Programmer', 7) 有错?程序编译通不过
- 给dbchart1.title.text赋值字符串,如何
- 为什么使用SendMessage(Handle, EM_SETSEL, 0 ,0 );光标(应该说是插入符号,就是那条竖线)不能移动到编辑框的最开始位置?
- 关于缓冲?
- 有如下的代码,有几个地方不清楚,指教~~
- 求 三 层 式 架 构 方 案
1、你先把指标上届和下届使用查询方式找到,存储在变量中。
2、根据用户选择的类型,查询得到所需要的类型和数据。
3、通过对比变量进行计算,然后使用SQL语句存储到数据库中。
...(除了得分之外)
最后判断指标上下界,设置标准分
with ADODataSet do
begin
if (X := FieldByName('指标上界')-FieldByName('指标下界'))>0 then
Edit_DF.Text := FieldByName('标准分') - X;
end;
提交数据
with ADOCommand do
begin
try
CommandText := 'Insert into 数据采集表 Values(:BH,:CJSJ,:DF,:RQ)';
Parameters.ParameterByName['BH'].Value := BH;
Parameters.ParameterByName['CJSJ'].Value := CJSJ;
Parameters.ParameterByName['DF'].Value := DF;
Parameters.ParameterByName['RQ'].Value := RQ;
Execute;
except end;
end;