要实现从表单中读取满足一些条件的记录,可能不只一条,然后让这些记录一条条和表单中的满足其他条件的记录进行比较,做一些运算,忘大家给点思路,算法,最好是有的例子可以进行学习
解决方案 »
- 全部窗体都使用一种第三方字体
- 初学Delphi,紧急求教。
- 网络地址过滤
- delphi+sql server开发数据库起步与提高
- 关于ActiveForm的问题。
- 简单问题!
- tidhttp新问题在线等待,急急急(绝对高分)
- 安装ehlib3.0时出现提示“ehlib30.bpl can't be installed because it is not a design time package”这是什么原因呢???
- 如何判断一个实例已经创建
- FastReport中的frReport能实现自动纵向分页吗?如果不能有其他办法吗?Up有分!!!!
- 关于DELPHI6报表中QRDBText控件的问题 在线等待
- 怎样在程序中动态添加/删除数据库字段?(TADOQuery/Delphi)
s1:=trim(edit1.Text);
s2:=trim(edit2.Text); Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select client_id from db_client_info');
Query1.Open;
do while not query1.DataSource.DataSet.IsEmpty
begin
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('select commodity_daima,bargain_price,bargain_quantity,bargain_heading from db_bargain_rec');
Query2.SQL.Add('where bargain_kai_or_pin=1,client_id=:v_client_id,bargain_time=:v_day');
Query2.ParamByname('v_client_id').Asstring:=Query1.FieldValues['client_id'];
Query2.ParamByname('v_day').AsDateTime:=s2;
Query2.Prepare;
Query2.Open; do while not query2.DataSource.DataSet.IsEmpty
begin
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('select * from db_bargain_rec');
Query3.SQL.Add('where commodity_daima=:v_commodity_daima,bargain_kai_or_pin=0,client_id=:v_client_id,bargain_heading=:v_bargain_heading');
Query3.ParamByname('v_commodity_daima').Asstring:=Query2.FieldValues['commodity_daima'];
Query3.ParamByname('v_client_id').Asstring:=Query1.FieldValues['client_id'];
s3:=Query2.FieldValues['bargain_heading'];
Query3.ParamByname('v_bargain_heading').Asstring:=(not s3);
Query3.Prepare;
Query3.Open; do while not query3.DataSource.DataSet.IsEmpty
begin
s4:=Query2.
query1.DataSource.DataSet.Next;
end
end;
这是我编的一点点,中间有些具体的是乱写的 你们看看怎么办???
还有个问题query3,2同时要对同一张表操作可以吗
而且他们还要互相欠套