DelphiCDSService2010

所属分类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
................\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

近期下载者

相关文件

评论我要评论

收藏者