W
w8u
Unregistered / Unconfirmed
GUEST, unregistred user!
服务器端:
Database1.AliasName = 'jlxzbg'
Connected = True
DatabaseName = 'db_Jlxzbg'
HandleShared = True
LoginPrompt = False
query_rjzlkc: TQuery
Active = True
DatabaseName = 'db_Jlxzbg'
SQL.Strings = (
'SELECT rjbh, rjmc, kfs, bbh, rjlx, zynr, cplx, cpsl, cpbz, bz'
'FROM dbo.xz_rjzlkc Dbo_xz_rjzlkc')
dsp_rjzlkc: TDataSetProvider
DataSet = query_rjzlkc
Options = [poAllowCommandText]
ResolveToDataSet=false
client端:
dm_xzbg:TDm_xzbg
DCOMConnection1: TDCOMConnection
Connected = True
ServerName = 'JLXzbgServer.XzbgServer'
ComputerName = 'Jlwgh'
cds_rjzlkc: TClientDataSet
Active = True
ProviderName = 'dsp_rjzlkc'
RemoteServer = DCOMConnection1
一个录入窗口里:
ds_rjzlkc:TdataSource
DataSet = dm_xzbg.cds_rjzlkc
保存:
无论是添加还是修改
with dm_xzbg.cds_rjzlkcdo
begin
if ChangeCount>0 then
begin
ApplyUpdates(-1);
end;
。。。
end;
退出该窗体后,数据未保存到数据库,为什么?
Database1.AliasName = 'jlxzbg'
Connected = True
DatabaseName = 'db_Jlxzbg'
HandleShared = True
LoginPrompt = False
query_rjzlkc: TQuery
Active = True
DatabaseName = 'db_Jlxzbg'
SQL.Strings = (
'SELECT rjbh, rjmc, kfs, bbh, rjlx, zynr, cplx, cpsl, cpbz, bz'
'FROM dbo.xz_rjzlkc Dbo_xz_rjzlkc')
dsp_rjzlkc: TDataSetProvider
DataSet = query_rjzlkc
Options = [poAllowCommandText]
ResolveToDataSet=false
client端:
dm_xzbg:TDm_xzbg
DCOMConnection1: TDCOMConnection
Connected = True
ServerName = 'JLXzbgServer.XzbgServer'
ComputerName = 'Jlwgh'
cds_rjzlkc: TClientDataSet
Active = True
ProviderName = 'dsp_rjzlkc'
RemoteServer = DCOMConnection1
一个录入窗口里:
ds_rjzlkc:TdataSource
DataSet = dm_xzbg.cds_rjzlkc
保存:
无论是添加还是修改
with dm_xzbg.cds_rjzlkcdo
begin
if ChangeCount>0 then
begin
ApplyUpdates(-1);
end;
。。。
end;
退出该窗体后,数据未保存到数据库,为什么?