利用 VB6 開發 SAP 連結程式

Private Sub Command1_Click()
' 定義R/3帳號和密碼變數（帳號應具備 SAP管理員 開發執行函數的權限）
Dim logname As String * 22, password As String * 22
Call logonr3(logname, password) ' 控制SAP登錄界面程式
If logflag Then ' 控制生產、開發系統指標
StatusBar1.Visible = True
StatusBar1.SimpleText = "正在登錄SAP R/3系統..."
Dim R3AppServer As String, R3Client As String, R3SystemNo As String
If Form2.opPRD.Value Then
' 以下服務器參數請根據客戶配置情況更改
R3AppServer = "10.3.1.4" ' ERP 伺服器 IP
R3Client = "800"　　　　　'ERP 集團代碼
R3SystemNo = "00" '生產系統號
Else
R3AppServer = "10.3.3.1" ' ERP 開發平台 IP
R3Client = "101"
R3SystemNo = "00"
End If
Unload Form2 ' 釋放 Form2 ， 所有元件及變數不可使用
Set Functions = CreateObject("Sap.Functions") ' 建立 RFC 的本機元件
Set Connect = Functions.Connection ' 設置連接
Connect.ApplicationServer = R3AppServer ' 連接 Server IP
Connect.Client = R3Client ' 連線 SAP Client ID
Connect.Language = "EN" ' 連接 SAP系統界面英文
Connect.User = Trim(logname) ' 連線SAP登入帳號
Connect.password = Trim(password) ' 連線SAP登入用戶密碼
Connect.SystemNumber = R3SystemNo ' 連線 SAP 系統號碼
If Not Connect.Logon(0, True) Then ' 判斷登錄 SAP
MsgBox "登錄SAP R/3失敗，請重新登錄!", vbOKOnly + vbExclamation, "系統提示"
Command1.SetFocus
Else ' 登錄SAP成功
Command1.Enabled = False
Command2.Enabled = True
test.Enabled = True
End If
 
StatusBar1.SimpleText = ""
StatusBar1.Visible = False
End If
End Sub 
 
Private Sub Command2_Click() ' 註銷SAP登錄
Connect.LogOff
Command2.Enabled = False
Command1.Enabled = True
test.Enabled = False
End Sub 
 
Private Sub Command3_Click() ' 退出SAP連接範例程式
If Form1.Command2.Enabled Then
MsgBox "退出前請結束SAP R/3系統!", vbOKOnly + vbInformation, "系統提示"
Else
End
End If
End Sub 
 
Private Sub Form_Load()
Command2.Enabled = False
test.Enabled = False
logoflag = False
End Sub
 
Private Sub test_Click() ' SAP RFC 遠程呼叫範例
Dim GetCustomers As Object
Dim Customers As Object
Dim i As Integer
' 通過 RFC 連接遠端 SAP 內部函數 RFC_CUSTOMER_GET
'取得控制的 SAP 內建函數名稱
Set GetCustomers = Functions.Add("RFC_CUSTOMER_GET") 
 
GetCustomers.Exports("KUNNR") = "L001765" ' 向函數入口連線（客戶代碼）
' 向函數入口傳入查詢表格名稱
Set Customers = GetCustomers.Tables("CUSTOMER_T")
 
If GetCustomers.Call Then ' 成功傳回時顯示所有資料
For i = 1 To Customers.rowcount
MsgBox Customers(i, "KUNNR")
Next i
Else
MsgBox " 搜索錯誤! 錯誤訊息: " + GetCustomers.Exception
End If
End Sub