问题描述
implementation{$R*.dfm}procedureTForm1.Button1Click(Sender:TObject);varTable,Connection,Funct:variant;r:integer;beginConnection:=SAPLogoncontrol1.NewConnection;Connection.user:='likb';Connection.System:='999';Connection.Client:='999';Connection.ApplicationServer:='192.168.0.10';Connection.SystemNumber:='01';Connection.Password:='likb147';Connection.Language:='ZH';SAPLogonControl1.Enabled:=false;ifConnection.LogOn(0,true)thenbeginSAPFunctions1.Connection:=Connection;Funct:=SAPFunctions1.Add('ZR_ZBOGS');Funct.exports('P_JS').value:='3';ifnotFunct.callthenshowmessage(funct.exception)elsebegin//Table:=nil;Table:=Funct.tables.item('IT_ZBOGS');withADOQuery1dobeginclose;sql.Clear;sql.Add('insertintottest(a,b)values(:a,:b)');parameters.parambyname('a').value:=Table.value(1,2);parameters.parambyname('b').value:=Table.value(1,5);execSQL;end;end;end;end;end.