会者不难,难者不会!送分来也!(300)统计问题(200分)

  • 主题发起人 主题发起人 brink
  • 开始时间 开始时间
B

brink

Unregistered / Unconfirmed
GUEST, unregistred user!
问题一、
我有几个表 rp(为对应的表的日期字段)
A 表(库存表) (生产,退货)
字段 xh,gg,sl1,sl2,kczt,rq
b 表(生产表)
字段 xh,gg,sl1,sl2,rq
c 表(销售表)
字段 xh,gg,sl1,sl2,rq
D 表(损耗表)
字段 xh,gg,sl1,sl2,rq
要求:(按型号规格汇总)并对本月总体汇总
型号 规格 上月库存 本月生产 本月销售 本月退货 本月损耗 本月库存
xh gg a.sl1,a.sl2 b.sl1,b.sl2 c.sl1,c.sl2 a.sl1,a.sl2 d.sl1,d.sl2 a.sl1,a.sl2 (对应字段)

总计 a.sl1,a.sl2 b.sl1,b.sl2 c.sl1,c.sl2 a.sl1,a.sl2 d.sl1,d.sl2 a.sl1,a.sl2 (对应字段)

第二个问题
//(查找edit1中的记录并修改其状态)
procedure Tkchbform.SpeedButton1Click(Sender: TObject);
begin
with repertoryQuery do
begin
close;
sql.clear;
sql.add('select RP_xh,RP_gg,RP_ph,RP_dgl,RP_sl,RP_pnds,RP_kczt from repertory where RP_ph='''+trim(edit1.text)+''' and RP_kczt= '''+'正常'+'''');
open;
if eof then
begin
showmessage('输入错误请重新输入!');
edit1.SetFocus ;
end
else begin
SQL.Add('update repertory set RP_kczt='''+'合并'+''' where RP_ph='''+edit1.text+'''');
ExecSQL ;//这后面少了什么?
end;
end;
end;
//取消修改
procedure Tkchbform.BitBtn2Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.Clear ;
sql.Add (' update repertory ');
sql.Add (' set RP_kczt='''+'正常'+''' where RP_kczt='''+'合并'+'''');
execsql;//这后面少了什么?
end;
end;

输入第一个查询时,SpeedButton1Click 库存中只有一条
取消修改(BitBtn2Click)
当我第二次执行SpeedButton1Click时,
就出现相同的记录,(本来是没有相同的记录的)
请问错在哪里?
 
各位richman帮帮忙
小弟我真的好急呀
 
>>'''+trim(edit1.text)+'''

'+''''+trim(edit1.text)+''''+'

???
 
第二个问题解决了,原来是掉了一对引号,让我找了好半天,以后得仍细一点才好,谢谢楼上的提出,
sql.add('select RP_xh,RP_gg,RP_ph,RP_dgl,RP_sl,RP_pnds,RP_kczt from repertory where [red]RP_ph='''+trim(edit1.text)+''''+'[/red] and RP_kczt= '''+'正常'+'''');
 
现在最重要是第一个问题了,
上面四个主表还有相对应的从表,有些字段值还需从对应的从表中取出
希望richman能够指点迷津,
给我一条思路也好,
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
928
SUNSTONE的Delphi笔记
S
I
回复
0
查看
811
import
I
后退
顶部