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