新人请教如下这段DELPHI---SQL有什么问题
delphi吧
全部回复
仅看楼主
level 1
上海_超 楼主
本菜鸟第一次接触delphi,因工作需要更新一下原有的脚本,发现下面这么改无效,不知道有什么问题? 谢谢大家!!
background:
1. 从表1拿到前一个任务的ID1
2. 通过ID1去匹配表2的ID1,得到对应的ID2
3. 然后通过ID2去表3匹配ID2,得到对应的前一个任务的Name
4. 同理得到当前任务的Name
5. 判断当前执行的Name与前一个的Name是否一样,如果一样,则可以执行程序了
begin
PrevID1 := SQLSelect('ID1 FROM table1' +
' WHERE ID1 < ' + ExecutionContext.ID1 +
' AND X = ''' + ExecutionContext.X +
''' ORDER BY ID1 DESC', 1); //拿到前一个任务的ID1
If ( PrevID1 <> nil ) and ( PrevID1.RowCount > 0 ) then
begin
PrevID2 := SQLSelect('ID2 FROM table2' +
' WHERE ID1 = ''PrevID1''',1); //拿到前一个任务的ID2
PrevName2 := SQLSelect('Name2 FROM table3' +
' WHERE ID2 = PrevID2 ',1); //拿到前一个任务Name
Execution_ID2 := SQLSelect('ID2 FROM table2' +
' WHERE ID1 = ExecutionContext.ID1 ',1); //拿到当前任务ID2
Execution_Name := SQLSelect('Name FROM table3' +
' WHERE ID2 = Execution.ID2 ',1); //拿到当前任务Name
If ( PrevName = Execution_Name ) then //判断两个任务Name是否一致
begin
XXXXX / /继续下一步
end;
end;
end;
2020年10月21日 09点10分 1
1