做个网站www.51erp.net，发布了一个ERP/MIS平台软件，请大家试用第二帖(0分)

下一个看看，上次那个有问题，用的是不是SQLSERVER2000呀？

谢谢解答
我用ToolBar2000模拟了很久 原来如此
你的软件正在研究中

to 左右手:
用的是SQL Server2000，如果注册不上去，需要看看是否SQL安全性设置不符要求，必须是
Window+SQL Server认证模式
to yczjs:
如果有何疑问，尽管告知，我会一一做答的
to lzhuan:
这些天把库存做完后，一起讨论一下BOM如何？

楼主:
你的库存统计这个模块还没完善吧,我想听一下你做库存统计的思路,
是用的SQL的存储过程还是用delphi的循环,我现在正在做这个模块,想听听你的高见.

to kingswang:
一般情况下都要用SP的，这样效率高，而且速度快，否则用脚本写就比较慢了，用SP写好后
客户端只是个显示工具而已
MPS、MRP、CRP等等，都会用SP的，程序简洁，效率还高

我写的这个程序是用脚本写的,一千多条记录统计库存要等好长时间,
用SP我没写过,能不能将你写的库存统计的SP给我一段.
e_mail:kingswang@eyou.com

to kingswang:
库存设计结构不同，统计数据不同，SP也会不同的，客户一般会看流水账、主帐，流水帐的修改
会随时影响主帐，数据直接从主帐查就行了。这是我三年前些的流水帐的触发器，跟SP
没有什么区别，你可以看看，也希望你能学习一下触发器、过程

CREATE TRIGGER [ImlistInsert] ON [Imlist]
FOR INSERT
AS
DECLARE @TranName VARCHAR(48), @State VARCHAR(48)
DECLARE @DateC VARCHAR(48), @HomeC VARCHAR(48), @ItemC VARCHAR(48), @InOut VARCHAR(48), @Quant FLOAT
SET @DateC = '19730309'; SELECT @TranName = 'TranImlist'

BEGIN TRANSACTION @TranName
SELECT @State = State FROM Config WHERE ItemC = 'IM01'

SELECT @HomeC = HomeC, @ItemC = ItemC, @Quant = Quant, @InOut = InOut FROM Inserted
IF (SELECT DateC FROM Immain WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC) IS NULL
INSERT INTO Immain (DateC, HomeC, ItemC) VALUES ('19730309', @HomeC, @ItemC)

--现有库存数量
IF SUBSTRING(@InOut, 1, 1) = '＋'
BEGIN
UPDATE Dmitem SET QuanT = QuanT + @Quant WHERE ItemC = @ItemC
UPDATE Immain SET QuanT = QuanT + @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC
END ELSE
IF SUBSTRING(@InOut, 1, 1) = '－'
BEGIN
UPDATE Dmitem SET QuanT = QuanT - @Quant WHERE ItemC = @ItemC
UPDATE Immain SET QuanT = QuanT - @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC
END

IF (@State = '执行') AND ((SELECT QuanT FROM Dmitem WHERE ItemC = @ItemC) < 0 OR (SELECT QuanT FROM Immain WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC) < 0)
BEGIN
RAISERROR('库存数量不能＜０，请重新输入！', 15, 1)
ROLLBACK TRANSACTION @TranName
END

--已分配量数量
IF SUBSTRING(@InOut, 2, 1) = '＋'
UPDATE Dmitem SET QuanA = QuanA + @Quant WHERE ItemC = @ItemC ELSE
IF SUBSTRING(@InOut, 2, 1) = '－'
UPDATE Dmitem SET QuanA = QuanA - @Quant WHERE ItemC = @ItemC

--累计入库数量
IF SUBSTRING(@InOut, 3, 1) = '＋'
UPDATE Immain SET MIQua = MIQua + @Quant, YIQua = YIQua + @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC ELSE
IF SUBSTRING(@InOut, 3, 1) = '－'
UPDATE Immain SET MIQua = MIQua - @Quant, YIQua = YIQua - @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC

--累计出库数量
IF SUBSTRING(@InOut, 4, 1) = '＋'
UPDATE Immain SET MOQua = MOQua + @Quant, YOQua = YOQua + @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC ELSE
IF SUBSTRING(@InOut, 4, 1) = '－'
UPDATE Immain SET MOQua = MOQua - @Quant, YOQua = YOQua - @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC

--采购待验数量
IF SUBSTRING(@InOut, 5, 1) = '＋'
UPDATE Immain SET QuanC = QuanC + @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC ELSE
IF SUBSTRING(@InOut, 5, 1) = '－'
UPDATE Immain SET QuanC = QuanC - @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC

--不合格品数量
IF SUBSTRING(@InOut, 6, 1) = '＋'
UPDATE Immain SET QuanF = QuanF + @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC ELSE
IF SUBSTRING(@InOut, 6, 1) = '－'
UPDATE Immain SET QuanF = QuanF - @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC

--借 入数量
IF SUBSTRING(@InOut,11, 1) = '＋'
UPDATE Immain SET QuanL = QuanL + @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC ELSE
IF SUBSTRING(@InOut,11, 1) = '－'
UPDATE Immain SET QuanL = QuanL - @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC

--借 出数量
IF SUBSTRING(@InOut,12, 1) = '＋'
UPDATE Immain SET QuanB = QuanB + @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC ELSE
IF SUBSTRING(@InOut,12, 1) = '－'
UPDATE Immain SET QuanB = QuanB - @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC

--车间领用数量
IF SUBSTRING(@InOut, 7, 1) = '＋'
UPDATE Immain SET WorkI = WorkI + @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC ELSE
IF SUBSTRING(@InOut, 7, 1) = '－'
UPDATE Immain SET WorkI = WorkI - @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC

--车间生产数量
IF SUBSTRING(@InOut, 8, 1) = '＋'
UPDATE Immain SET WorkO = WorkO + @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC ELSE
IF SUBSTRING(@InOut, 8, 1) = '－'
UPDATE Immain SET WorkO = WorkO - @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC

--采购入库数量

IF SUBSTRING(@InOut, 9, 1) = '＋'
UPDATE Immain SET QuanP = QuanP + @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC ELSE
IF SUBSTRING(@InOut, 9, 1) = '－'
UPDATE Immain SET QuanP = QuanP - @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC

--销售出库数量
IF SUBSTRING(@InOut,10, 1) = '＋'
UPDATE Immain SET QuanS = QuanS + @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC ELSE
IF SUBSTRING(@InOut,10, 1) = '－'
UPDATE Immain SET QuanS = QuanS - @Quant WHERE DateC = @DateC AND HomeC = @HomeC AND ItemC = @ItemC

COMMIT TRANSACTION @TranName

太感谢楼主了,还是哪句话"郭大侠真是好人啊"!

郭兄：
可以阿，确实bom的设计是要作周密的考虑的。bom的结构是否合理，关系到
整个系统。我在这方面的经验也不是很多。我可以介绍一下我们公司的bom的设计方法。
希望对你有用。
下周我整理一下贴上来：）

UP

郭大侠真是好人啊
我又试了DEVExpressBar
可工具栏右边的自定义箭头如何去掉??
烦请解答
哎 偶太菜啊

to yczjs:
dxBarManager1.Bars[0].AllowQuickCustoming := False;

up

1.人力资源的员工信息维护中：
加入照片后，该图片不能被删除？
2.查询系统数据,好像不能使用?
双击后,出来一个定义查询的窗口,但是怎么使用啊?
3.整个界面和上次的差不多,
系统还是跑不起来呀?

to liu_liu:
1.图片是不能删除，就像Delphi的TDBImag，我原来加了个左键功能，后来嫌太难看了，给
屏蔽了。
2.选择字段后，再选择相应条件就可以了，你也可以把条件全部删除，那样就查出所有的数据了
3.我在平台底层做了大量修改，应用写的不多，所以看起来还不具备什么功能，现在平台基本
稳定了，我会集中精力做些应用的，估计一两个月应该会有些东西，有时还要加班，花在上面
的功夫少了些。
4.谢谢你的指正

一直没有能够测试，原因是我这里用的sql7.0，在上一贴我提过建议，把数据备份问题该成
sql7.0的，这样2000也可以恢复。

to Headchen:
Sorry，现在工作一直用SQL2K，不太好把它变成SQL7的数据，你有什么好的建议没有？

感谢郭大侠的解答 100分表示谢意!
这里还有一个问题过来领分
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1772573

to 郭玉梁：
好。
不过我在网站上怎么没有找到下载？现在还能下载吗？
我正在做bom和限额发料，要和U8连接，希望能够交流。
我们的产品结构比较复杂，我那个bom自认为还行

to 速查手册一直可以下载，在下载页面有。

to all:
我贴出个BOM，我准备按这个做，大家看看如何

父件代码
子件代码
单位用量
损耗率％
汇入工序
节点类型 单选件，多选件等
组 编 号 单选件，多选件时使用
缺省物料 说明单选件的缺省项目
生效日期
失效日期