sap开发者指导之十四

[e-mail]ApplicationProgrammingInterfacesBAPIWindowsAPIAPIBCDelphiWindowsAPIBAPISAPbusinessobjectBAPISAPBAPIBAPIRFCBAPIC++JavaVBBAPIRFCBAPICRFCBAPIBAPIBA[e-mail]BAPISalesOrderCreateFromDat1BAPIBAPISAPBAPISalesOrderSalesD[e-mail][e-mail].BAPI.1OCX2BAPIDimo_BAPICtrlAsObjectSeto_BAPICtrl=CreateObject(SAP.BAPI.1)‘VBSAPBAPIControlForm3SAPSAPBAPIControlo_BAPICtrl.Connection.ApplicationServer=ServerIPo_BAPICtrl.Connection.SystemNumber=systemnumberoBAPICtrl.Connection.Client=clientoBAPICtrl.Connection.User=usernameoBAPICtrl.Connection.Language=language...oBAPICtrl.Connection.Logon(0,FALSE)LogonTrueSAPLogonControlBAPISetoLogonCtrl=CreateObject(SAP.LogonControl.1)‘[e-mail]=oLogonControl.Connection4SAPoBAPICtrl.GetSAPObject(StringObjectType,VariantObjectKey1,...,VariantObjectKey10)ObjectTypeObjectKeyiSetbo_User=o_BAPICtrl.GetSAPObject(USER,“AD000”)USERUSERNAMEAD000ObjectTypeBAPIExplore5BAPIBAPIDimAsDimAsObject.DimAs(ObjectBusinessObject,StringMethod,StringParameter)USERBAPIAddFaxSetoAddFax=oBAPICtrl.DimAs(boUser,Create,AddFax)oAddFax.Rows.AddoAddFax.Value(1,COUNTRY)=[e-mail](1,FAX)=02012345678CompanySetoCompany=oBAPICtrl.DimAs(boUser,Create,Company)boUser.Value(Company)=BP01CreateboUser.CreateAddFax:=oAddFax,…6SAPoBAPICtrl.Connection.LogoffSetsapConnection=Nothing7SetoBAPICtrl=NothingVBBAPIBAPIFormLabel1LabelUserNametxt_UserNameTextBoxcmd_connectCommandButtonConnecttoSAPcmd_disconnectCommandButtonDisconnecttoSAPcmd_LockCom[e-mail]_BAPICtrlAsObjectPrivateSubcmd_Connect_Click()Seto_BAPICtrl=CreateObject(SAP.BAPI.1)o_BAPICtrl.Connection.ApplicationServer=192.168.0.200o_BAPICtrl.Connection.SystemNumber=00o_BAPICtrl.Connection.Client=700o_BAPICtrl.Connection.User=AD003o_BAPICtrl.Connection.Password=*****o_BAPICtrl.Connection.Language=ZHIfNoto_BAPICtrl.Connection.Logon(0,True)Then'MsgBoxNoaccesstoR/3System!,vbOKOnly+vbExclamation,AlertEndIfEndSubPrivateSubcmd_Lock_Click()Dimbo_UserAsObjectSetbo_User=o_BAPICtrl.GetSAPObject(USER,txt_UserName)bo_User.LockReturn:=lo_retFori_tmp=1Tolo_ret.rowcountMsgBoxlo_ret(i_tmp,MESSAGE)Nexti_tmpEndSubPrivateSubcmd_Unlock_Click()Dimbo_UserAsObjectSetbo_User=o_BAPICtrl.GetSAPObject(USER,txt_UserName)bo_User.UnLockReturn:=lo_retFori_tmp=1Tolo_ret.rowcountMsgBoxlo_ret(i_tmp,MESSAGE)Nexti_tmpEndSubPrivateSubcmd_disconnect_Click()o_BAPICtrl.Connection.LogoffSeto_BAPICtrl=[e-mail]APIBAPIBAPIExploerFunctionmoduleBAPI==================================================================[e-mail]==============================================================================20060712============