文件名称：Delphi通过WebService访问数据库
文件大小：494KB
文件格式：RAR
更新时间：2013-02-02 02:18:14
Delphi WebService ClientDataSet
Delphi通过WebService访问数据库. 1.查询数据 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; 2.更新数据 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.sln
DelphiClient
----Unit1.dfm(2KB)
----Project1.exe(1.17MB)
----Unit1.pas(2KB)
----Service1.~pas(3KB)
----Unit1.dcu(6KB)
----Service1.dcu(3KB)
----Project1.~dpr(188B)
----Project1.res(876B)
----Unit1.~dfm(2KB)
----Unit1.~pas(1KB)
----Project1.dof(3KB)
----Project1.dpr(219B)
----Project1.cfg(434B)
----Service1.pas(3KB)
DelphiCDSService.gpState
DelphiCDSService
----App_Data()
----obj()
--------Debug()
----bin()
--------DelphiCDSService.dll(17KB)
--------DelphiCDSService.pdb(30KB)
----Service1.asmx.cs(2KB)
----Service1.asmx(98B)
----DelphiCDSService.csproj.user(1KB)
----Web.config(1KB)
----DelphiCDSService.csproj(4KB)
----DNDDSToCDS.cs(27KB)
----Properties()
--------AssemblyInfo.cs(1KB)
DelphiCDSService.suo