Delphi通过WebService访问数据库

【实例简介】
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;
【实例截图】
【核心代码】
4744302542862225408.rar
├── 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
├── DelphiCDSService.suo
└── DelphiClient
├── Project1.cfg
├── Project1.dof
├── Project1.dpr
├── Project1.~dpr
├── Project1.exe
├── Project1.res
├── Service1.dcu
├── Service1.pas
├── Service1.~pas
├── Unit1.dcu
├── Unit1.dfm
├── Unit1.~dfm
├── Unit1.pas
└── Unit1.~pas

8 directories, 29 files