BAPI / RFC with Delphi(系列之七)--TBAPIControl使用BUS1001显示物料(Delphi源代码)

 1、新建一个Form,并在form上添加下列控件
 

Component Function
SAPBAPIControl1 SAP ActiveX-Component to connect to BAPI
Button1 Button to start the procedure
Panel1 Element to display the material-description

2、源代码如下(BUS1001显示物料) 

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, SAPBAPIControlLib_TLB, ExtCtrls;

type
  TForm1 = class(TForm)
  SAPBAPIControl1: TSAPBAPIControl;
  Button1: TButton;
  Panel1: TPanel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
Connection,MAT : Variant;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Connection:= SAPBapiControl1.Connection;
  if Connection.Logon then
  begin
    ShowMessage('LogOn');

   
(* Call the object with the needed parameters *)
   
MAT:= sapbapicontrol1.GetSAPObject('BUS1001','000000000000017550');

    (* Display material-description *)
    Panel1.Caption:=MAT.MATERIALDESCRIPTION;
  end;
end;

end.

posted on 2007-03-26 13:31  毛小娃  阅读(149)  评论(0编辑  收藏  举报

导航