使用了几天的FDBatchMove微小结

2019-06-30 10:18:14 1.2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

SAP成本核算-事中控制（成本对象控制/成本归集与结算）本文详细介绍了SAP系统中工单成本归集与结算的全流程管理。主要内容包括：1）工单成本三阶段归集（投料、报工、入库）的具体操作与计算方法；2）工单实际成本结算七步骤：从实际费用归集、成本分割、作业价格计算到差异结算的全过程；3）关键注意事项如测试运行验证、价格单位确认、无在制品处理等。通过标准价计算、实际作业重估等机制，系统实现了生产成本从计划到实际的精确核算，最终生成财务所需的差异结算凭证。所有操作均提供单工单和批量处理两种方式，满足不同业务场景需求。阅读详情

终于放下了，无谓惊喜，略有不甘。

1、mode=insert还算好用，即使拷贝了空字段，还可以事后补0，问题不大。

2、mode=update很不好用，收access语句的限制，一是as字段名不能重名，这可要了亲命了，iIF（isnull（字段1），0，字段1）如果不用别名，这个字段在写操作时绝对是不认的（在sqlserver中iIF（isnull（字段1），0，字段1）还是字段1，但在access中iIF（isnull（字段1），0，字段1）不加as绝对是个空字段，我是经过上百次测试得到的结果），也就是说要想使用这个iif判断函数，你要先把源表的字段全改了，然后再as sql数据表字段，用其他别名方式，如=别名、空格+别名等，运行不报错，但绝对不能正确赋值。尤其是源表多个字段需要update时，如果再加上行记录中有空值，那绝对是噩耗，我测试了上百次，不断地更换各种方法，就是不能正常赋值，绝望透顶。

无奈，写了一天的代码，全部推翻重写了一遍FTP，现在我还在恶心想吐。

幸亏当时没有选择access作为数据库，否则我估计会疯掉的。

3、fdbatchmove的readersql已经知道怎么用了，但是也不想再用了，感觉很垃圾，move个副本还是可以，期间要是想加工点什么，感觉是很徒劳的，如果table-->table可能好一下，导入execl还是希望大家不要尝试update了。

...全文

微信小程序使用TCP通信最终目的：在微信小程序内实现对局域网发起TCP通信实现步骤：建立TCP服务 + 小程序发起通信。阅读详情

秋天之落叶

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

秋天之落叶 2019-07-04

打赏
举报

引用 4 楼 BlueStorm 的回复:

使用了writesql后，mode的属性就会被忽略了

另外一问题：ODBC连接execl，open装载文件时，execl表会很快的打开并关闭，屏幕上能看到文件一闪就关闭的状态，这个有没有办法解决？

BlueStorm 2019-07-03

打赏
举报

the port of OS, ------ 自动翻译：操作系统的端口，人工翻译：操作系统的移植

BlueStorm 2019-07-03

打赏
举报

就算是要手动赋值，用的也是Query.ParambyName('a').AsInteger=3这种形式，而不是Query.FieldByName('a').AsInteger=3

BlueStorm 2019-07-03

打赏
举报

FDBatchMoveSQLWriter1.FDDataSet.Execute();这个语句也不需要。

秋天之落叶 2019-07-03

打赏
举报

加分结贴，虽然现在分没什么用，还是要尊重知识的，哈

秋天之落叶 2019-07-03

打赏
举报

昨天不同的语句往上加，几乎试遍了writesql那几十个属性，哈哈，几十几百次的运行，错误依旧，真是差点吐了，如果当时不小心注释了这几个赋值语句，就没有以后了，呵呵。
今天看了帖子，注释了赋值语句，立刻天就变晴朗了，杯具啊。
受打击了，中午吃碗红烧肉补一补。

秋天之落叶 2019-07-03

打赏
举报

引用 10 楼 BlueStorm 的回复:

[更正]（4)更新的过程是这样的：
通过FDBatchMoveSQLReader1读到一个dataset，然后针对这个dataset的每一行产生一个WriteSql语句. 例如：
如果dataset的第一行a字段的值是3，b字段的值是6，那么产生的FDBatchMoveSQLWriter1.WriteSql语句就是update test set b=6 where a=3，然后发到服务器去执行；
如果dataset的第二行a字段的值是8，b字段的值是5，那么产生的FDBatchMoveSQLWriter1.WriteSql语句就是update test set b=5 where a=8，然后发到服务器去执行；
dataset的其他行以此类推。
参数的赋值过程全部逗死自动化的，不需要用代码写出赋值过程。

果然，你这都是怎么知道的？控件之间的套路不一样啊，我把帮助中的英文在不同的翻译软件中翻译，还找了一个据说能过20级英语的同时给看了（开玩笑哈），里面的信息只有关联属性reader、表名和sql不能同时使用，要加索引什么的，我搜遍了网上，也没有这样的解释或例子，你是自己追踪到的吗。
万分感谢，我去继续学习学习，哈哈

秋天之落叶 2019-07-03

打赏
举报

本地导入数据已经全部搞定，xls xlsx TXT csv，这下轻松多了，哈哈。

秋天之落叶 2019-07-03

打赏
举报

引用 16 楼 BlueStorm 的回复:

the port of OS, ------ 自动翻译：操作系统的端口，人工翻译：操作系统的移植

计算机语言还是比较偏门的，我就是看个大概，基本上是连蒙带猜的，然后计算机翻译再确认一下。
我同事最头疼的就是我问他计算机说明，遇到专有名词和一些特定语句他也基本蒙圈，哈哈哈

BlueStorm 2019-07-02

打赏
举报

[更正]（4)更新的过程是这样的：通过FDBatchMoveSQLReader1读到一个dataset，然后针对这个dataset的每一行产生一个WriteSql语句. 例如：如果dataset的第一行a字段的值是3，b字段的值是6，那么产生的FDBatchMoveSQLWriter1.WriteSql语句就是update test set b=6 where a=3，然后发到服务器去执行；如果dataset的第二行a字段的值是8，b字段的值是5，那么产生的FDBatchMoveSQLWriter1.WriteSql语句就是update test set b=5 where a=8，然后发到服务器去执行； dataset的其他行以此类推。参数的赋值过程全部逗死自动化的，不需要用代码写出赋值过程。

BlueStorm 2019-07-02

打赏
举报

(1)FDBatchMoveSQLWriter1.TableName := 'test'; 这一句要保留，作用就是让FDBatchMoveSQLWriter1知道目标表test的各个字段的类型，如果你不保留，就要FDBatchMoveSQLWriter1.ReadSQL：= 'select * from test', 作用也是用于让FDBatchMoveSQLWriter1知道目标表test的各个字段的类型。 (2) 不需要这种操作：FDBatchMoveSQLWriter1.FDDataSet.FieldByName('b').AsString := quotedstr(FDQuery2.FieldByName('b').AsString); (3) update test set b=:b where a=:a 这是Delphi的标准的参数化查询表达式，参数就是:a和:b，注意冒号在前面，而不是在后面。 (4)更新的过程是这样的：通过FDBatchMoveSQLReader1读到一个dataset，针对dataset的每一行产生一个update语句，例如第一行a字段的值是3，b字段的值是6，那么产生的WriteSql语句就是update test set b=4 where a=3，然后发到服务器去执行，dataset的下一行以此类推，直到DataSet的最后一行。参数的赋值过程是自动化的，不需要用代码写出赋值过程。

秋天之落叶 2019-07-02

打赏
举报

又折腾了2天，还是无法搞定（论坛很奇怪，加上代码就无法提交，只能简写了）：
1、这句还需不需要？FDBatchMoveSQLWriter1.TableName := 'test';
// FDBatchMoveSQLWriter1.WriteSQL := 'update test set b=b: where a=:a';
//----------------------
//3、这段代码我不会写，试了很多情况都不行，总是提示“字段b没有发现”
//4、如果上面reader使用readersql:='select * from [Sheet1$]'，那么下面这段代码又如何写呢？
// FDBatchMoveSQLWriter1.FDDataSet.FieldByName('b').AsString := quotedstr(FDQuery2.FieldByName('b').AsString);
// FDBatchMoveSQLWriter1.FDDataSet.FieldByName('a').AsString := quotedstr(FDQuery2.FieldByName('a').AsString);
// FDBatchMoveSQLWriter1.FDDataSet.Execute();
//----------------------
// FDBatchMove1.GuessFormat();
// FDBatchMove1.Execute;
---------总之，上面的错误是循环出现，不加mappings提示没有对应关系，加了mappings提示字段b找不到，要不就提示connection或者connectionname为空，错误百出。
writesql去掉直接使用TableName := 'test'则正常move，个人感觉还是sql语句的问题，F1实在是找不到可参考的实例。
请指教。

秋天之落叶 2019-07-02

打赏
举报

为什么不能回贴了？

秋天之落叶 2019-07-01

打赏
举报

引用 1 楼秋天之落叶的回复:

BlueStormt兄弟说的Mappings我没有常识，如果有对应关系，理论上可以。

今天测试了一下，果然可以，但是iif后面还是必须增加as，然后用不同名的别名再mappings对应关系才行，几十个字段真心不方便。
想了想，要是将别名和对应关系设置成参数形式，然后for i:=0 to fields.count-1 do str：=str+fields[i].fieldname估计可行，嘿嘿。

秋天之落叶 2019-07-01

打赏
举报

BlueStormt兄弟说的Mappings我没有常识，如果有对应关系，理论上可以。

日立奔腾浪潮微软松下联想 2019-07-01

打赏
举报

对，复杂映射关系用TFDBatchMoveSQLReader 复制数据到 TFDBatchMoveSQLWriter，可以实现非常复杂的转换，不止字段之间可以重新映射，还可以实现计算字段、记录过滤等等
方法论上，楼主最好新建一个项目来试验新技术，功能成熟之后再迁移到实际项目中，原项目在此期间继续使用原有技术继续发展，这样不管新技术结果如何不影响原项目的开发，也就是软件工程中的迭代模型

BlueStorm 2019-07-01

打赏
举报

update语句就是标准的sql语句，你可以在语句里面使用case语法

BlueStorm 2019-07-01

打赏
举报

使用了writesql后，mode的属性就会被忽略了

BlueStorm 2019-07-01

打赏
举报

根本就不需要mapping, 你就用writesql就可以了， update B where a = :f1, b = :f2 where id=:No, 其中f1、f2、No是源表的字段名称。根据这个思路，update语句完全可以根据你的需要来定了。

使用了几天的FDBatchMove微小结

相关推荐