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时,
就出现相同的记录,(本来是没有相同的记录的)
请问错在哪里?
我有几个表 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时,
就出现相同的记录,(本来是没有相同的记录的)
请问错在哪里?