将两条select语句的查询结果显示在一个DBGrid中~大家有方法没?

ngcr2001 2008-07-09 09:35:12
有两条select语句,对应不同的表,查询不同的结果,分别显示在两个DBGrid中,现在我想将这两个结果显示在一个DBGrid中,大家有方法没?

两语句分别如下:
procedure TForm1.Button4Click(Sender: TObject);
begin
with DM2.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('Select Name as 库存名称,Sum(Num) as 入库数量 from Stocks');
SQL.Add('group by Name');
Open;
end;
end;


procedure TForm1.Button8Click(Sender: TObject);
begin
with DM2.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('Select Name as 出库名称,Sum(num) as 出库数量 from OutStocks');
SQL.Add('group by Name');
Open;
end;
end;


想将这两条select语句的查询结果一起显示在一个DBGrid中~希望达人们帮帮忙~~

(附这两表的结构:

库存表Stocks:
字段:ID(自动编号的,无需显示) InNo(库存编号) Name(库存名称) Num(库存数量) InDate(入库日期)


出库表OutStocks:
字段:ID(自动编号的,无需显示) In_No(对应的库存编号) Name(出库名称) Num(出库数量) OutDate(出库数量)

这两个表的InNo和In_No及Name和Name是对应的

...全文
232 30 打赏 收藏 转发到动态 举报
写回复
用AI写文章
30 条回复
切换为时间正序
请发表友善的回复…
发表回复
ngcr2001 2008-07-09
  • 打赏
  • 举报
回复
[Quote=引用 28 楼 GDTOPONE 的回复:]
晕!你双激DBGrid,例如你要显示三个字段,你就新增多少个列,指定列要显示的字段,列标题,设定每列长度.

以你的情况就新增三列,第一列的fieldname属性输入"库存名称",第二列的fieldname属性输入"出库总数",第三列
fieldname属性输入"库存总数"(注:输入时不包含双引号)

每列的TITLE--->CAPTION设置显示的标题.

每死的WIDTH设置长度.
[/Quote]
嘿嘿,原来还可以这样设置,都不知道~非常非常非常非常感谢大大!!!!!!!!!!!!!
GDTOPONE 2008-07-09
  • 打赏
  • 举报
回复
晕!你双激DBGrid,例如你要显示三个字段,你就新增多少个列,指定列要显示的字段,列标题,设定每列长度.

以你的情况就新增三列,第一列的fieldname属性输入"库存名称",第二列的fieldname属性输入"出库总数",第三列
fieldname属性输入"库存总数"(注:输入时不包含双引号)

每列的TITLE--->CAPTION设置显示的标题.

每死的WIDTH设置长度.





ngcr2001 2008-07-09
  • 打赏
  • 举报
回复
[Quote=引用 24 楼 GDTOPONE 的回复:]
不好意思,现在有事要做了,我先忙,不明白就留给下位热心人帮你好了
[/Quote]没事,还是很感谢老大!
ngcr2001 2008-07-09
  • 打赏
  • 举报
回复
非常感谢大家,明天加分后再结~
^-^
ngcr2001 2008-07-09
  • 打赏
  • 举报
回复
[Quote=引用 23 楼 GDTOPONE 的回复:]
双激DBGrid可以设置格子的显示长度的
[/Quote]
select查询处理的字段双击也能设置吗?
GDTOPONE 2008-07-09
  • 打赏
  • 举报
回复
不好意思,现在有事要做了,我先忙,不明白就留给下位热心人帮你好了
GDTOPONE 2008-07-09
  • 打赏
  • 举报
回复
双激DBGrid可以设置格子的显示长度的
GDTOPONE 2008-07-09
  • 打赏
  • 举报
回复
格子可以在设计时定长的
ngcr2001 2008-07-09
  • 打赏
  • 举报
回复
[Quote=引用 20 楼 GDTOPONE 的回复:]
不明白"使用了union all后显示的时候字段的长度会被拉长"是什么意思,如果你不想用union all可以改改JeffChung的SQL语句:


库存名称 出库总数 库存总数
库存1 33 400
库存2 20 800



SQL code
select a.库存名称,b.出库数量 as 出库总数,a.入库数量 as 库存总数 from
( Select Name as 库存名称,Sum(Num) as 入库数量 from Stocks group by Name) a,
( Select Name as 出库名称,Sum(num) as …
[/Quote]
就是用了union all以后在DBGrid中显示出来的时候,头个字段如'库存名称'这个字段的格子会变得很长,老大没遇到过这种问题么~
GDTOPONE 2008-07-09
  • 打赏
  • 举报
回复
不明白"使用了union all后显示的时候字段的长度会被拉长"是什么意思,如果你不想用union all可以改改JeffChung的SQL语句:


库存名称 出库总数 库存总数
库存1 33 400
库存2 20 800



select a.库存名称,b.出库数量 as 出库总数,a.入库数量 as 库存总数 from
( Select Name as 库存名称,Sum(Num) as 入库数量 from Stocks group by Name) a,
( Select Name as 出库名称,Sum(num) as 出库数量 from OutStocks group by Name) b
where a.库存名称 = b.出库名称


simonhehe 2008-07-09
  • 打赏
  • 举报
回复
[Quote=引用 15 楼 ngcr2001 的回复:]
大家再帮忙看看
“使用了union all后显示的时候字段的长度会被拉长”的问题,有解决的方法没?
如果能解决的话,明天加分后结贴,感谢这么多热心人!!
[/Quote]
你说的字段拉长是指?

 --试下这样
SELECT 库存名称 = Name,入库数量,出库数量
FROM
(Select Name, Sum(Num) as 入库数量 from Stocks group by Name) A
FULL JOIN (Select Name, Sum(num) as 出库数量 from OutStocks group by Name) B
ON A.NAME = B.NAME

liangpei2008 2008-07-09
  • 打赏
  • 举报
回复


select 库存名称, sum(出库数量) as 出库总数, sum(入库数量) as 库存总数
from (Select Name as 库存名称, 0 as 出库数量, Num as 入库数量
from Stocks
union all
Select Name as 库存名称, num as 出库数量, 0 as 入库数量
from OutStocks) m
group by 库存名称
gyk120 2008-07-09
  • 打赏
  • 举报
回复
字段编辑器的“New Field”里面的“size”应该可以设置吧
simonhehe 2008-07-09
  • 打赏
  • 举报
回复
不过现在遇到一个小问题,库存名称这一字段很长,有没方法在代码里面设置这字段的长度?
--
--如下,修改AA表col1字段的长度为10
ALTER TABLE AA ALTER COLUMN col1 varchar(10)
ngcr2001 2008-07-09
  • 打赏
  • 举报
回复
大家再帮忙看看
“使用了union all后显示的时候字段的长度会被拉长”的问题,有解决的方法没?
如果能解决的话,明天加分后结贴,感谢这么多热心人!!
xiangzi15 2008-07-09
  • 打赏
  • 举报
回复
汗,这么一会,这么多人回复啊
xiangzi15 2008-07-09
  • 打赏
  • 举报
回复
6楼正解
JeffChung 2008-07-09
  • 打赏
  • 举报
回复

select * from
( Select Name as 库存名称,Sum(Num) as 入库数量 from Stocks group by Name) a,
( Select Name as 出库名称,Sum(num) as 出库数量 from OutStocks group by Name) b
where a.库存名称 = b.出库名称

yuanguangxing 2008-07-09
  • 打赏
  • 举报
回复
那也简单了,Select Name as 库存名称,Sum(Num) as 入库数量,0 as 出库数量 from Stocks group by Name
UNION ALL
Select Name as 出库名称,0 as 入库数量,Sum(num) as 出库数量 from OutStocks group by Name
simonhehe 2008-07-09
  • 打赏
  • 举报
回复

SELECT 库存名称 = Name,入库数量,出库数量
FROM
(Select Name, Sum(Num) as 入库数量 from Stocks group by Name) A
FULL JOIN (Select Name, Sum(num) as 出库数量 from OutStocks group by Name) B
ON A.NAME = B.NAME

加载更多回复(10)
第1章 窗体与界面设计 1 1.1 菜单应用 2 实例001 在系统菜单添加菜单项 2 实例002 带历史信息的菜单 3 实例003 菜单动态合并 4 实例004 像“开始”菜单一样漂亮的菜单 5 实例005 多彩的菜单 6 实例006 可以拉伸的菜单界面 8 1.2 工具栏设计 9 实例007 带背景的工具栏 9 实例008 浮动工具栏 10 1.3 状态栏设计 11 实例009 在状态栏显示检查框 11 实例010 带进度条的状态栏 12 实例011 状态栏加入图标 13 1.4 导航菜单界面 14 实例012 OutLook界面 14 实例013 带导航菜单的主界面 15 实例014 图形化的导航界面 16 1.5 特色程序界面 18 实例015 类QQ的程序界面 18 实例016 类似Windows XP的程序界面 20 实例017 以图形按钮显示的界面 21 实例018 以树型显示的程序界面 23 实例019 以XPManifest组件显示界面 24 实例020 动态按钮的窗体界面 25 1.6 特殊形状的窗体 26 实例021 非矩形窗体 26 实例022 建立字体形状窗体 28 1.7 多媒体光盘 29 实例023 自动启动的多媒体光盘程序 29 实例024 为触摸屏程序添加虚拟键盘 30 实例025 触摸屏系统 31 1.8 窗体效果 33 实例026 半透明渐显窗体 33 实例027 窗口颜色的渐变 34 实例028 带背景的窗体 35 实例029 为窗体增加边框 36 1.9 窗体动画 37 实例030 窗体的滚动字幕 37 实例031 动画显示窗体 38 实例032 制作闪烁的窗体 39 实例033 直接在窗体上绘图 40 实例034 动画形式的程序界面 41 实例035 以时钟显示界面窗体 42 1.10 标题栏窗体 44 实例036 标题栏上的按钮 45 实例037 使窗体标题栏文字右对齐 47 实例038 有标题栏但可以改变大小的窗口 48 1.11 设置窗体位置 49 实例039 不可移动的窗体 49 实例040 设置窗体在屏幕的位置 50 实例041 始终在最上面的窗体 51 1.12 设置窗体大小 52 实例042 限制窗体大小 52 实例043 获取桌面大小 53 实例044 组件大小随窗体的改变而改变 53 实例045 在窗口间移动按钮 54 实例046 如何实现Office助手 55 1.13 窗体控制技术 56 实例047 在关闭窗口前加入确认对话框 56 实例048 程序在循环响应界面操作 57 实例049 使用任意组件拖动窗体 58 实例050 动态创建窗体和释放窗体 59 实例051 修改提示字体及颜色 60 1.14 其他技术 61 实例052 窗口融合技术 61 实例053 给MDI窗体加背景 62 实例054 如何关闭MDI类型窗体的子窗体 63 实例055 向提示框添加图标 64 第2章 控件应用 67 2.1 TEdit控件应用典型实例 68 实例056 从右至左输入数据 68 实例057 为TEdit控件添加列表选择框 69 实例058 只允许输入数字的TEdit组件 70 2.2 TSpeedButton控件应用典型实例 71 实例059 在TSpeedButton按钮显示图标 71 实例060 折行显示按钮标题 72 2.3 TMemo控件应用典型实例 73 实例061 设置TMemo组件的边界 73 实例062 TMemo组件的光标定位 74 实例063 得到TMemo的可见行数 75 2.4 TListBox控件应用典型实例 76 实例064 在TListBox组件间交换数据 76 实例065 为TListBox添加水平滚动条 77 实例066 将数据库数据添加到组合框 78 实例067 借助绑定控件实现数据选择录入 79 2.5 TListView控件应用典型实例 80 实例068 TListView列表拒绝添加重复信息 80 实例069 将数据库数据添加到TListView控件 82 实例070 用TListView控件制作导航界面 83 实例071 在TListView控件对数据排序或统计 84 实例072 在TListView组件绘制底纹 86 实例073 在列表视图拖动视图项 87 2.6 TTreeView控件应用典型实例 88 实例074 将数据库数据显示到树视图 88 实例075 用TTreeView控件制作导航界面 90 实例076 TTreeView组件遍历磁盘目录 91 实例077 TTreeView组件在数据库的应用 92 2.7 TStringGrid控件应用典型实例 94 实例078 程序运行时对

2,496

社区成员

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

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