DelphiCDSService2010

Directory: Delphi VCL
Plat: Delphi
Size: 494KB
Downloads: 32
Upload time: 2010-03-05 18:10:24
Uploader: qqaa123
Description:   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

File list:
DelphiCDSService
................\App_Data
................\bin
................\...\DelphiCDSService.dll
................\...\DelphiCDSService.pdb
................\DelphiCDSService.csproj
................\DelphiCDSService.csproj.user
................\DNDDSToCDS.cs
................\obj
................\...\Debug
................\...\.....\DelphiCDSService.csproj.FileListAbsolute.txt
................\...\.....\DelphiCDSService.dll
................\...\.....\DelphiCDSService.pdb
................\...\.....\TempPE
................\Properties
................\..........\AssemblyInfo.cs
................\Service1.asmx
................\Service1.asmx.cs
................\Web.config
DelphiCDSService.gpState
DelphiCDSService.sln
DelphiClient
............\Project1.cfg
............\Project1.dof
............\Project1.dpr
............\Project1.exe
............\Project1.res
............\Project1.~dpr
............\Service1.dcu
............\Service1.pas
............\Service1.~pas
............\Unit1.dcu
............\Unit1.dfm
............\Unit1.pas
............\Unit1.~dfm
............\Unit1.~pas

Download users:

Relate files:

Comment: Add Comment

Favorite users: