积累的几个问题,好心淫进来看看,!~~~~来者给分,只要解决问题,不够再加

yaccor 2005-08-16 09:14:10
1.货品信息表T_Goods:GoodCode,GoodName,Type,Unit,Price,Number,Money
进货单:T_InGoods:BillCode(单号),InGoodsDate,GoodName,Price,
Number,Money;
我想对进货按货品名称对数量和金额进行汇总,达成下面这样的效果:
GoodCode1 GoodName1 Type Unit Price Number Money
GoodCode2 GoodName2 Type Unit Price Number Money
GoodCode3 GoodName3 Type Unit Price Number Money
.
.
.
这里的Number和Money 都是合计后的数据,这样的SQL语句怎么写?

2.我的进货表只能存放最后一条记录,每次输入一条新记录的时候系统自动把以前的记录
给清除掉了,这是怎么回事?我代码里没有Delete from T_InGoos.

3.删除主从表的数据问题:在按钮Delete触发时间里写
if MessageBox(Self.Handle, '您确定要删除该记录吗?','警告',MB_YesNo or MB_ICONInformation)=IDYes then
begin
Frm_Data.Qry_Bill.Delete;//删除主表信息
Frm_Data.Qry_BillDetail.Delete;//删除从表信息
end;
但总是报错,请问问题出在哪里?

...全文
123 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
Larry1030 2005-08-28
  • 打赏
  • 举报
回复
同意楼上
hqhhh 2005-08-17
  • 打赏
  • 举报
回复
1.
select a.GoodCode, a.GoodName, A.Type, A.Unit, A.Price, Sum(B.Number) as Number, sum(B.Money) as Money
from T_Goods a, T_InGoods b
where a.GoodCode = b.GoodCode
group by a.GoodCode, a.GoodName, A.Type, A.Unit, A.Price

3. 先删除从表,再删除主表
if MessageBox(Self.Handle, '您确定要删除该记录吗?','警告',MB_YesNo or MB_ICONInformation)=IDYes then
begin
Frm_Data.Qry_BillDetail.Delete;//删除从表信息
Frm_Data.Qry_Bill.Delete;//删除主表信息
end;
yaccor 2005-08-17
  • 打赏
  • 举报
回复
问题2偶已解决了,问题3的删除还是不行的,问题1期待高手
leonkim 2005-08-16
  • 打赏
  • 举报
回复
Delete:
Deletes the active record and positions the dataset on the next record.
yaccor 2005-08-16
  • 打赏
  • 举报
回复
按照各位的方法,问题3还是没解决啊,系统没报错了,但只删除了主表信息,从表没有删除掉
ttjacky 2005-08-16
  • 打赏
  • 举报
回复
1、用group by
select GoodCode,GoodName,Type,Unit,Price,sum(Number),sum(Money) from ...
group by GoodCode,GoodName,Type,Unit,Price
2、应是你代码的问题,仔细跟踪调试
3、应该先删除从表
fireflyxx 2005-08-16
  • 打赏
  • 举报
回复
3、把两句话对换一下应该就好了把,先删从表
hthunter 2005-08-16
  • 打赏
  • 举报
回复
1、没详细看,汇总通常用group by语法
2、应是你代码的问题,仔细跟踪调试
3、应该先删除从表吧?

828

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧