3层的fibplus 的demo有问题还是设置问题 无法更新!!!!! ( 积分: 100 )

  • 主题发起人 主题发起人 oldfrog7792388
  • 开始时间 开始时间
O

oldfrog7792388

Unregistered / Unconfirmed
GUEST, unregistred user!
我看fibplus的demo中datasnap的例子发现插入记录可以&nbsp;更新不能完成&nbsp;把代码贴出来看看问题出在哪里&nbsp;谢谢高手指教!<br>procedure&nbsp;TCustomerServerModule.pvCustsBeforeUpdateRecord(Sender:&nbsp;TObject;<br>&nbsp;&nbsp;SourceDS:&nbsp;TDataSet;&nbsp;DeltaDS:&nbsp;TCustomClientDataSet;<br>&nbsp;&nbsp;UpdateKind:&nbsp;TUpdateKind;&nbsp;var&nbsp;Applied:&nbsp;Boolean);<br><br>&nbsp;&nbsp;procedure&nbsp;ExecUpdateQuery(SQLText:&nbsp;String);<br>&nbsp;&nbsp;var&nbsp;i:&nbsp;Integer;<br>&nbsp;&nbsp;&nbsp;&nbsp;mysql:string;<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;usql.SQL.Text&nbsp;:=&nbsp;SQLText;<br>&nbsp;&nbsp;&nbsp;&nbsp;usql.Prepare;<br>&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;i&nbsp;:=&nbsp;0&nbsp;to&nbsp;usql.Params.Count&nbsp;-&nbsp;1&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;usql.Params.Name&nbsp;=&nbsp;'OLD_CUST_NO'<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;then&nbsp;usql.Params.Value&nbsp;:=&nbsp;DeltaDS.FieldByName('CUST_NO').NewValue<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else&nbsp;usql.Params.Value&nbsp;:=&nbsp;DeltaDS.FindField(usql.Params.Name).Value;<br>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;UpdateKind&nbsp;=&nbsp;ukInsert&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;usql.ParamByName('CUST_NO').IsNull&nbsp;then&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;usql.ParamByName('CUST_NO').Value&nbsp;:=&nbsp;db.Gen_Id(dtCusts.AutoUpdateOptions.GeneratorName,&nbsp;1);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DeltaDS.FieldByName('CUST_NO').NewValue&nbsp;:=&nbsp;usql.ParamByName('CUST_NO').Value;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;mysql:=usql.SQL.Text;<br>&nbsp;&nbsp;&nbsp;&nbsp;usql.ExecQuery;<br>&nbsp;&nbsp;end;<br>begin<br>&nbsp;&nbsp;case&nbsp;UpdateKind&nbsp;of<br>&nbsp;&nbsp;&nbsp;ukInsert:&nbsp;ExecUpdateQuery(dtCusts.InsertSQL.Text);<br>&nbsp;&nbsp;&nbsp;ukModify:&nbsp;ExecUpdateQuery(dtCusts.UpdateSQL.Text);<br>&nbsp;&nbsp;&nbsp;ukDelete:&nbsp;ExecUpdateQuery(dtCusts.DeleteSQL.Text);<br>&nbsp;&nbsp;end;<br>&nbsp;&nbsp;Applied&nbsp;:=&nbsp;True;<br>end
 
等待高手......
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
594
import
I
S
回复
0
查看
928
SUNSTONE的Delphi笔记
S
后退
顶部