using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using SAPFunctionsOCX;
using SAPLogonCtrl;
using SAPTableFactoryCtrl;
namespace SAPFunction
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void BtnConn_Click(object sender, EventArgs e)
{
//设置登录连接的类
DataSet dset = new DataSet();
SAPLogonCtrl.SAPLogonControlClass logon = new SAPLogonCtrl.SAPLogonControlClass();
//连接参数设置
logon.ApplicationServer = "172.18.95.173";
logon.Client = "164";
logon.Language = "ZH";
logon.User = "CRMDEV69";
logon.Password = "654321";
logon.SystemNumber = 7;
//实例化连接对象
SAPLogonCtrl.Connection Conn;
Conn = (SAPLogonCtrl.Connection)logon.NewConnection();
//Conn.CodePage = "8400";
//调用登录方法
if (Conn.Logon(0, true))
{
label1.Text = "登录成功!";
}
//实例SAPFunction对象
SAPFunctionsOCX.SAPFunctionsClass func = new SAPFunctionsClass();
//设置连接
func.Connection = Conn;
SAPFunctionsOCX.IFunction ifunc = (SAPFunctionsOCX.IFunction)func.Add("ZCSMS_GET_HRINFO");
//设置输入参数
SAPFunctionsOCX.IParameter BEGDAFROM = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("BEGDAFROM");
BEGDAFROM.Value = "";
SAPFunctionsOCX.IParameter BEGDATO = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("BEGDATO");
BEGDATO.Value = "";
SAPFunctionsOCX.IParameter MILL = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("MILL");
MILL.Value = "7960";
SAPFunctionsOCX.IParameter NUMBERFROM = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("NUMBERFROM");
NUMBERFROM.Value = "0061500001";
SAPFunctionsOCX.IParameter NUMBERTO = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("NUMBERTO");
NUMBERTO.Value = "0061500020";
//调用RFC方法
ifunc.Call();
SAPTableFactoryCtrl.Tables ENQs = (SAPTableFactoryCtrl.Tables)ifunc.Tables;
SAPTableFactoryCtrl.Table ENQ = (SAPTableFactoryCtrl.Table)ENQs.get_Item("THR");
int j = ENQ.RowCount;
DataTable dt = new DataTable();
for (int i = 1 ;i<=ENQ.RowCount; i ++)
{
DataRow dr = dt.NewRow();
if (i == 1)
{
dt.Columns.Add("MILL");
dt.Columns.Add("PERNR");
dt.Columns.Add("NAME1");
dt.Columns.Add("STEXT");
}
dr["MILL"] = (String)ENQ.get_Value(i, "MILL");
dr["PERNR"] = (String)ENQ.get_Value(i, "PERNR");
dr["NAME1"] = (String)ENQ.get_Value(i, "NAME1");
dr["STEXT"] = (String)ENQ.get_Value(i, "STEXT");
dt.Rows.Add(dr);
}
dataGridView1.DataSource = dt.DefaultView;
}
}
}
当然, RFC连接SAP只是其中的方法之一, BAPI等多种方式.
运维网声明
1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表,该帖子作者与运维网 享有帖子相关版权
3、所有作品的著作权均归原作者享有,请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意,请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息,一经发现立即删除。若您因此触犯法律,一切后果自负,我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责,亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏,不得用于商业或者其他用途,否则,一切后果均由您自己承担,我们对此不承担任何法律责任
7、如涉及侵犯版权等问题,请您及时通知我们,我们将立即采取措施予以解决
8、联系人Email:admin@iyunv.com 网址:www.yunweiku.com