提几个问题，大家来看看

ksxm 2003-12-26 07:17:23

1.treeview中如何使的右键点选节点可以选中？（同时要打开快捷菜单的那种）

2.你们做系统的时候，比如一个库存表，好多人同时操作，如何保证它的信息是最新的？（比如我open了以后，5分钟以后再操作，当然表中有的信息已经被别人操作过了，除了CLOSE，OPEN还有什么别的更好的办法吗？）

3.大家谈谈你们做进销存的时候，表之间的连接跟约束关系

...全文

44 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

hncx 2003-12-27

打赏
举报

4,用一个query查询出两个球和结果，再作一个计算字段，在计算字段中对他们求和就行了

hncx 2003-12-27

打赏
举报

2,可以及时的刷新

DragonBill 2003-12-27

打赏
举报

关于第2点或者做一个提醒功能喽，提醒用户更新资料。总之，不赞成自动查询资料并刷新的功能。

DragonBill 2003-12-27

打赏
举报

3.没什么特别的做法。要么做成reference,要么干脆什么约束关系也没有，只是在查询的时候当做where条件join喽。

4. select sum(入库数量) 入库,sum(出库数量) 出库
from 入库表　LEFT JOIN 出库表　ON 入库表物料ID=出库表物料ID
where 入库表物料ID='铆钉'

ksxm 2003-12-26

打赏
举报

关于第2点基本上也是用这种方法，感觉好象不是非常好，不知道有没有好一点的方法了

ksxm 2003-12-26

打赏
举报

谢谢楼上的2位
3.表之间的关系连接，比如一个采购的表，有一个字断ID（主键），入库的表也是一个ID字段对应于采购的表中的ID字段，或者说说你们做库存是怎么做的？
4.比如一个表是入库，一个表是出库，如何用一句SQL语句实现找出一个原材料它的入库数字和出库数字？下面这样的效果
名称入库出库
铆钉 10 5

okook 2003-12-26

打赏
举报

我来个简单的：）
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Node : TTreeNode;
begin
if Button= mbRight then
begin
Node := TreeView1.GetNodeAt(X,Y);
if Node lt; gt;nil then
Node.Selected := True;
end;
end;

bigery 2003-12-26

打赏
举报

DragonBill 2003-12-26

打赏
举报

第4、3点不明白意思。
第2点个人的一般做法是在画面上加个刷新钮，要拿最新的记录，自己刷新一下就行了，不赞成用Timer来控制的办法。
第1点写在OnMouseDown事件中，代码如下：
var
TreeNode : TTreeNode;
begin
if (Button = mbRight) then
TreeNode := TreeView1.GetNodeAt(X, Y);
TreeView1.Select(TreeNode);
至于PopupMenu，自己做一个再把TTreeView的PopupMenu属性设置一下就行了。

wangxd 2003-12-26