微信扫一扫1742
社区成员
在delphi中怎样展开bom表，不用sql 后台procedure！，只用adoquery ,自定yi function() ,temp table 急急急！谢谢！
在delphi中怎样展开bom表，不用sql 后台procedure！，只用adoquery ,自定yi function() ,temp table 急急急！谢谢！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
JXLEE365 2004-05-08
伪代码如下：
1、产生一个数据集ADOQ1，并将0层物料（也不一定是0层，但肯定是主计划项目）加入；
2、遍历数据集ADOQ1：
rec ： integer；
repeat until false
begin
rec := ADOQ1.recno
*-进行有关处理；
*-将本层物料的子件追加在ADOQ1的后面；
if ADOQ1.recno = ADOQ1.recordcount then
break；｛跳出｝
ADOQ1.recno := rec+1; ｛开始下一轮循环｝
end
这样做还有一个好处，就是可以不用底层码。
1、产生一个数据集ADOQ1，并将0层物料（也不一定是0层，但肯定是主计划项目）加入；
2、遍历数据集ADOQ1：
rec ： integer；
repeat until false
begin
rec := ADOQ1.recno
*-进行有关处理；
*-将本层物料的子件追加在ADOQ1的后面；
if ADOQ1.recno = ADOQ1.recordcount then
break；｛跳出｝
ADOQ1.recno := rec+1; ｛开始下一轮循环｝
end
这样做还有一个好处，就是可以不用底层码。
- 打赏
- 举报
klbt 2004-05-07
建议到delphi提问，这里懂得人少。
- 打赏
- 举报
Delphi开发学习二：使用ADOQuery控件对SQL数据库表进行操作 首先我们在SQL中创建数据库名为PERSONNELMG_SYS的数据库，然后在这个数据库里创建USER_TABLE表，用来存放用户账户信息。 USER_TABLE表的结构如下图所示： 该表有用户名（USER_NAME） 、用户密码（USE
Delphi 将ADOQUERY的Parameters存储到流中.rar Delphi 将ADOQUERY的Parameters存储到流中，再从流中载入保存到数据表，本模块改编于 New Midas VCL Library(1.00)的JxStream.pas，procedure Write7BitEncodedInt(value: LongInt);写入shortstring. 适用于写入...
Delphi将ADOQUERY的Parameters存储到流中的演示.rar 在Delphi环境下，将ADOQUERY的Parameters存储到流中可能不太实用，但在基于TCP/IP 套接字模式开发的类三层架构中，如虫虫的远程数据对象，若能采用此法，必将大幅度提高此类对象的使用范围及查询效率。 本演示...
【Delphi】ADOConnection连接数据库、ADOQuery执行SQL语句、StringGrid填充数据集 【Delphi】ADOConnection连接数据库、ADOQuery执行SQL语句、StringGrid填充数据集
delphi连接mysql速度慢,高分求解决方案！为何在查询分析器中运行很快但在ADOQUERY打开却很慢？？？... 三表关联，多字段连续分组，这些应该都是严重影响查询的原因之一，但在查询分析器和TADOQUERY里面速度相差太大，一个不到1S，一个》10S，我的数据不多，不到100条。在SQL SERVER 的查询分析器里运行：select ...
DELPHI实现数据从EXCEL文件导入到SQLSERVER数据表中 实现数据从EXCEL文件导入到SQLSERVER数据表中，可以数据字典XT_SHUJUBZD数据表中定义各种导入规则，适应各种导入要求。定义的规则越简单，导入过程速度会越快。 以下是本人自己编写的完整程序源代码： unit ...
delphi adocommand adoquery 插入、更新sql 中文传参方式，报错incorrect string value 由于采用sql拼接方式动态生成sql字符串执行，存在输入项不能含有引号的问题，尝试使用参数方式解决。但是发现输入英文能够顺利保存，但是输入中文后，一直报错。 win7系统，delphi7，mysql odbc 5.5 32位，发现使用...
Delphi中access和sql数据库分别判断一个表中某字段是否存在 {$IFDEF sql}//在sql server数据库语句中进行判断 with dm.ADOQuery1 do begin Close; SQL.Clear; SQL.Add(' SELECT 1 FROM SYSOBJECTS T1 INNER JOIN SYSCOLUMNS T2 ON T1.ID=T2.ID WHERE T1.NAME='...
Delphi中ADOQuery使用了lookup字段后出现未知错误解决 ADOQuery添加了lookup字段后使用Append，再为字段赋值时会报错“EOleException 未知错误”，很困扰啊，终于能解决了。
Delphi创建SQLserver数据库视图的例子.rar Delphi创建SQLserver数据库视图的例子，使用create View语句来生成视图，当然本程序创建好视图后，也可删除视图，下面是详细的代码： //创建一个视图： procedure TForm1.Button1Click(Sender: TObject); ...
Delphi ADOQuery处理多条SQL语句 Delphi(Pascal) code var sqlStr:String;begin sqlStr:= ' begin ' sqlStr:= sqlStr+ 'update table1 set col1 = ''test'' where 1=2;'; sqlStr:= sqlStr+ 'update table1 set col1 = ''test2'' where 1=2;'; ...
在Delphi中使用日期选择器用于数据库查询.rar 在Delphi中使用日期选择器用于数据库查询，用户搜索满足选定日期条件中的数据，使用日期选择器可很好的提高日期格式的准确性，避免数据库出错和查询不到数据的情况，本例的运行效果请参见测试截图。相关代码如下： ...
delphi怎么在mysql中添加_delphi中怎么实现对sql数据库记录进行添加,删除,修改 可以用ADO里的ADOQuery，ADOTable，ADOConnection都可以进行这类操作,例使用ADOQueryWith ADOQuery1 dobegin Close;SQL.Clear; SQL.Add('Insert into 表 (字段...) Values (字段值....)'); //添加记录 ExecSQL; ...
