求一个数据库作业

[staringer]

希望是有关工厂方面的系统。
简单点的都无所谓，谢谢。。。


ps:高人顺便帮我看下下面的程序哪里错了。
SELECT Parts.ID,
Parts.Name,
Parts.Color,
Parts.Weight,
INTO :sle_2.text,
:sle_3.text,
:sle_4.text,
:sle_5.text,
FROM Parts
where Parts.ID= :sel_1.text;

if sle_1.text=sle_2.text then
else
sle_2.text=""
sle_3.text=""
sle_4.text=""
sle_5.text=""
messagebox("检索失败！","没有找到该书号信息！")
end if

[ropriest]

直接select Into 到sle_2.text控件可以么？（没试过）

不过最好是根据ID,Name,color,weight等的数据类型定义变量，先select into到变量中，然后再赋值给sle_控件

[staringer]

应该可以吧。。。
我看到一个例子都是这样做的。：）

大家帮帮我啊。。。

[waterloocsdn]

SELECT Parts.ID,
Parts.Name,
Parts.Color,
Parts.Weight, //逗号多余
INTO :sle_2.text,
:sle_3.text,
:sle_4.text,
:sle_5.text,
FROM Parts
where Parts.ID= :sel_1.text; //没指定事务对象

if sle_1.text=sle_2.text then
else
sle_2.text=""
sle_3.text=""
sle_4.text=""
sle_5.text=""
messagebox("检索失败！","没有找到该书号信息！")
end if


修改后语句如下：

SELECT Parts.ID,
Parts.Name,
Parts.Color,
Parts.Weight
INTO :sle_2.text,
:sle_3.text,
:sle_4.text,
:sle_5.text,
FROM Parts
where Parts.ID= :sel_1.text
USING SQLCA;事务对象名可以自己指定，系统默认的是SQLCA

if sle_1.text=sle_2.text then
else
sle_2.text=""
sle_3.text=""
sle_4.text=""
sle_5.text=""
messagebox("检索失败！","没有找到该书号信息！")
end if

[crimeace]

waterloocsdn(由鱼) 你好细心阿，支持

[staringer]

谢谢啦。