DelphiCDSService2010
所属分类:Pascal/Delphi编程
开发工具:Delphi
文件大小:494KB
下载次数:32
上传日期:2010-03-05 18:10:24
上 传 者:
qqaa123
说明: delphi调用C#Webservice访问数据库
//查询数据
procedure TForm1.Button1Click(Sender: TObject)
var
ls_Table: string
ls_Service: Service1Soap
begin
ls_Service := Buf_GetBuleService
ls_Table := Customers
ClientDataSet1.XMLData := ls_Service.Buf_GetADONetToCDSXml( Northwind ,ls_Table, select * from +ls_Table)
end
//保存数据
procedure TForm1.Button2Click(Sender: TObject)
var
ls_Table: string
ls_Service: Service1Soap
begin
ls_Service := Buf_GetBuleService
ls_Table := Customers
if ClientDataSet1.State in [dsEdit,dsInsert] then
ClientDataSet1.Post
if ClientDataSet1.ChangeCount>0 then
ls_Service.Buf_PutCDSXmlToADONet( Northwind ,ls_Table,ClientDataSet1.XMLData)
end
(procedure TForm1.Button1Click(Sender: TObject)
var
ls_Table: string
ls_Service: Service1Soap
begin
ls_Service := Buf_GetBuleService
ls_Table := Customers
ClientDataSet1.XMLData := ls_Service.Buf_GetADONetToCDSXml( Northwind ,ls_Table, select* from +ls_Table)
end
procedure TForm1.Button2Click(Sender: TObject)
var
ls_Table: string
ls_Service: Service1Soap
begin
ls_Service := Buf_GetBuleService
ls_Table := Customers
if ClientDataSet1.State in [dsEdit,dsInsert] then
ClientDataSet1.Post
if ClientDataSet1.ChangeCount>0 then
ls_Service.Buf_PutCDSXmlToADONet( Northwind ,ls_Table,ClientDataSet1.XMLData)
end
)
文件列表:
DelphiCDSService.suo (15872, 2009-12-25)
DelphiCDSService\App_Data (0, 2009-12-25)
DelphiCDSService\bin\DelphiCDSService.dll (17408, 2009-12-25)
DelphiCDSService\bin\DelphiCDSService.pdb (30208, 2009-12-25)
DelphiCDSService\bin (0, 2009-12-25)
DelphiCDSService\DelphiCDSService.csproj (3698, 2009-12-25)
DelphiCDSService\DelphiCDSService.csproj.user (1290, 2009-12-25)
DelphiCDSService\DNDDSToCDS.cs (27289, 2009-12-25)
DelphiCDSService\obj\Debug\DelphiCDSService.csproj.FileListAbsolute.txt (378, 2009-12-25)
DelphiCDSService\obj\Debug\DelphiCDSService.dll (17408, 2009-12-25)
DelphiCDSService\obj\Debug\DelphiCDSService.pdb (30208, 2009-12-25)
DelphiCDSService\obj\Debug\TempPE (0, 2009-12-25)
DelphiCDSService\obj\Debug (0, 2009-12-25)
DelphiCDSService\obj (0, 2009-12-25)
DelphiCDSService\Properties\AssemblyInfo.cs (1331, 2009-12-25)
DelphiCDSService\Properties (0, 2009-12-25)
DelphiCDSService\Service1.asmx (98, 2009-12-25)
DelphiCDSService\Service1.asmx.cs (2209, 2009-12-25)
DelphiCDSService\Web.config (1439, 2009-12-25)
DelphiCDSService (0, 2009-12-25)
DelphiClient\Project1.cfg (434, 2009-12-25)
DelphiClient\Project1.dof (3028, 2009-12-25)
DelphiClient\Project1.dpr (219, 2009-12-25)
DelphiClient\Project1.exe (1229824, 2009-12-25)
DelphiClient\Project1.res (876, 2009-12-25)
DelphiClient\Project1.~dpr (188, 2009-12-25)
DelphiClient\Service1.dcu (2800, 2009-12-25)
DelphiClient\Service1.pas (3248, 2009-12-25)
DelphiClient\Service1.~pas (3248, 2009-12-25)
DelphiClient\Unit1.dcu (6042, 2009-12-25)
DelphiClient\Unit1.dfm (1767, 2009-12-25)
DelphiClient\Unit1.pas (1676, 2009-12-25)
DelphiClient\Unit1.~dfm (1737, 2009-12-25)
DelphiClient\Unit1.~pas (1245, 2009-12-25)
DelphiClient (0, 2009-12-25)
DelphiCDSService.gpState (260, 2009-12-25)
DelphiCDSService.sln (938, 2009-12-25)
近期下载者:
相关文件:
收藏者: