文件名称:DelphiCDSService2010
- 所属分类：
- Dephi控件源码
- 资源属性：
- [Windows] [Visual.Net] [源码]
- 上传时间：
- 2012-11-26
- 文件大小：
- 494kb
- 下载次数：
- 0次
- 提 供 者：
- yangh******
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
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
//查询数据
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
................\App_Data
................\bin\DelphiCDSService.dll
................\...\DelphiCDSService.pdb
................\bin
................\DelphiCDSService.csproj
................\DelphiCDSService.csproj.user
................\DNDDSToCDS.cs
................\obj\Debug\DelphiCDSService.csproj.FileListAbsolute.txt
................\...\.....\DelphiCDSService.dll
................\...\.....\DelphiCDSService.pdb
................\...\.....\TempPE
................\...\Debug
................\obj
................\Properties\AssemblyInfo.cs
................\Properties
................\Service1.asmx
................\Service1.asmx.cs
................\Web.config
DelphiCDSService
.......lient\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
DelphiClient
DelphiCDSService.gpState
DelphiCDSService.sln
................\App_Data
................\bin\DelphiCDSService.dll
................\...\DelphiCDSService.pdb
................\bin
................\DelphiCDSService.csproj
................\DelphiCDSService.csproj.user
................\DNDDSToCDS.cs
................\obj\Debug\DelphiCDSService.csproj.FileListAbsolute.txt
................\...\.....\DelphiCDSService.dll
................\...\.....\DelphiCDSService.pdb
................\...\.....\TempPE
................\...\Debug
................\obj
................\Properties\AssemblyInfo.cs
................\Properties
................\Service1.asmx
................\Service1.asmx.cs
................\Web.config
DelphiCDSService
.......lient\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
DelphiClient
DelphiCDSService.gpState
DelphiCDSService.sln