ITPub博客

[@more@]Option ExplicitPrivate Const ERROR_SUCCESS As Long = 0 Private Const UF_SCRIPT As Long = &H1 Private Const UF_ACCOUNTDISABLE As Long = &H2 Private Type USER_INFO_1008 usri1008_flags As Long End Type Private Declare Function NetUserSetInfo Lib "Netapi32" _ (servername As Byte, _ username As Byte, _ ByVal level As Long, _ bufptr As Long, _ parm_err As Long) As Long Private Declare Function NetApiBufferFree Lib "Netapi32" _ (

[@more@]Option ExplicitPrivate Declare Function IsUserAnAdmin Lib "shell32" () As Long Private Sub Form_Load() Command1.Caption = "IsUserAnAdmin" Label1.Caption = "" End Sub Private Sub Command1_Click() Select Case IsUserAnAdmin() Case 1: Label1.Caption = "YES" Case False: Label1.Caption = "NO" End Select End Sub

[@more@]Option Explicit Private Declare Function LookupAccountName Lib "advapi32" _ Alias "LookupAccountNameA" _ (ByVal lpSystemName As String, _ ByVal lpAccountName As String, _ Sid As Byte, _ cbSid As Long, _ ByVal DomainName As String, _ cbDomainName As Long, _ peUse As Long) As Long Private Sub Command1_Click() Dim sAccount As String 'account name of interest Dim sSystem As String 'specifying the system Dim sDomain A

[@more@]在界面上添加一2个lable,1个textbox,1个button.代码如下：Option ExplicitPrivate Const NERR_SUCCESS As Long = 0&Private Type USER_INFO_1 usri1_name As Long usri1_password As Long usri1_password_age As Long usri1_priv As Long usri1_home_dir As Long usri1_comment As Long usri1_flags As Long usri1_script_path As LongEnd TypePrivate Declare Function NetUserGetInfo Lib "Netapi32" _ (Servername As Byte, _ Username As Byte, _ ByVal Level As Long, _ Buffer As Lon

[@more@]声明部分 Option Explicit Const NERR_Success = 0 Const ERROR_MORE_DATA = 234& Const MAX_PREFERRED_LENGTH = -1& Const LG_INCLUDE_INDIRECT = &H1 Const User_Priv_User = &H1 Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000 Const NERR_BASE = 2100 Const MAX_NERR = NERR_BASE + 899 Const LOAD_LIBRARY_AS_DATAFILE = &H2 Const FORMAT_MESSAGE_FROM_HMODULE = &H800 Type TUser1 ’ Level 1 ptrName As Long ptrPassword As Long dwPasswordAge As Long dwPriv As Long ptrHomeDir As Long ptr

使用VB建立SAP的PO数据例1：:Option ExplicitDim functionCtrl As ObjectDim sapConnection As ObjectDim theFunc As ObjectDim objStructPrivate Sub Command1_Click() If ConnectToSAP = False Then MsgBox "Connect Error" Exit Sub End If 'Set theFunc = functionCtrl.Add("RFC_READ_TABLE")Set theFunc = functionCtrl.Add("BAPI_PO_GETDETAIL")If theFunc Is Nothing Then MsgBox "Creating function module object failed" Exit SubEnd IftheFunc.Exports(

建立变式，通常有以下两种方法：[@more@]1、运行程式，如MB51，在初始界面中输入资料后，选择菜单：转到－>变式－>储存为变式，系统会进入到变式建立界面。2、运行程式时，使用F1找到对应的程序名称，然后执行SE38,输入程序名称，点选变式按钮，可进入变式建立或更改界面。

The use of object orientated code within SAP has lead to new method of enhancing standard SAP code calledBusiness Add-Ins or BADI's for short. Although the implementation concept is based on classes, methods andinheritance you do not really have to understand this fully to implement a BADI. Simply think of methodsas a function module with the same import and export parameters and follow the simple instructions below.[@more@]Steps:1.Execute Business Add-In(BADI) transaction SE182.Enter BADI name

BAPI stands for Business Application Programming Interface. [@more@] There are 5 different steps in BAPI. - Create BAPI Structure - Create BAPI Function Module or API Method. - Create BAPI object - Release BAPI Function Module. - Release BAPI object. Step1. Creating BAPI Structure: - Go to <SE11>. - Select Data Type & Enter a name. - Click on Create. - Note: Always BAPI should be in a development class with request number (Not Local Object). - Select Structure & hit

2008奥运在即，奥组委正在招募志愿者，你是否愿意成为一名志愿者，说明你的理由。[@more@]To Be a VolunteerThe 29th Olympic Games is going to held in Beijing, China in 2008. This is a great event for every person in the world, especially for our Chinese. And I’ve heard that the Olympic Committee is recruiting volunteers and I earnestly hope that I can be chosen to be one of the members.The Olympic Games being able to be held in Beijing is a great honor for every Chinese. And as a college student, I b

[@more@]一、名词解释人力资源：人力资源，又称劳动力资源或劳动力，是指能够推动整个经济和社会发展、具有劳动能力的人口总和。人力资源的最基本方面，包括体力和智力。如果从现实的应用形态来看，则包括体质、智力、知识和技能四个方面。人性：是指人的本性，它是哲学、人类学、社会学、心理学及文学等许多学科研究的对象。人力资源管理是对人的管理，必然要研究人性。认识人的本质或本性，是人力资源管理中的重要问题。人本管理：人本管理是指在人类社会任何有组织的活动中，从人性出发来分析问题，以人性为中心，按人性的基本状况来进

[@more@]ERP的基础是物流 那么 怎样在系统中控制物流? 最基础的需求是控制进/出/消耗 包括1/从哪里进来(采购订单/生产订单/其他库位) 到哪里去(销售订单/生产订单/成本中心/内部订单/其他库位/其他工厂) 2/这种移动的原因 (可以对移动进行控制,例如在用户报损 可以细分各部门责任) 3/这种移动的数量和金额 对库房帐和财务帐带来的影响 以及这种影响能否自动实现(MM-FI的接口)sap系统中用于标志物料移动(收货/发货/转储/转储记帐)的三位的数字/字母通常分几大类:收货 发货 转储 库房调整常用的有:收货类101 采购订单收货 103 采购订单收货至

第九章 小企业市场营销[@more@] 一、名词解释1、 顾客满意：是指一个人通过对某一产品的价值在使用过程中的可感知效果（或结果）与他之前的预期价值比较后，所形成的愉悦或失望状态。 2、 产品：是能够提供给市场用来满足某种需要和欲望的任何东西。3、 产品组合 ：是一个制造商或经销商所提供给顾客的一组产品。它包括若干产品线或产品品目 。4、 产品生命周期：是指产品从投入市场到退出市场所经历的全部过程。 5、 新产品：凡是消费者认为是新的、能从中获得新的满足的、可以接受的产品都属于新产品。6、 分销渠道：是为促进产品/服

第八章 财务报表与筹资需求[@more@]一、名词解释 1、资产负债表：是一种静态报表，可以反映企业在报表日的财务状况，长期和短期偿债能力，资产、负债和所有者权益结构情况，以及企业资本结构状况等财务信息。 2、利润表：或叫损益表， 用来反映企业在某一特定期间(月份、年度)内的利润(或亏损)总额。 3、现金流量表：是以现金为基础编制的财务状况变动表，用来反映企业在年度内资金的来源和运用情况以及各项流动资金的增减变动情况。4、内部财务分析：又称为财务分析，是以企业的资产负债表、利润表和利润分配表为基础，为了解企业的变

案例5[@more@] 在卖掉小计算机公司后，杰姆·斯爵德与他的妻子及年幼的孩子们开始了18个月的航海旅行。他在早些年创办了这家企业，先已身价百万。现在他在寻找新的冒险。在甲板上给他的两个儿子阅读了课文之后（他们都有轻微的视力缺陷），他有了一个开创新企业的雄心。他在想，计算机为什么不可以编程以帮助特殊的学生正确的认识并读出单词呢？问题： 1． 你对斯爵德的创意如何归类？2． 斯爵德的新主意来源于哪儿？3．你认为斯爵德会开办一个公司或购买一家企业来实现他的想法吗？为什么？要点提示：1：该创意归为新市场；2：个人

案例4[@more@] 下面描述了罗·A.伯格破产时的情景。1979年，伯格曾极度兴奋。他建立了四年的照相馆，每年有4000万美元的收入，在八个州有57个分店，生意还不错。突然，他破产了。他借了100万美元的债务，利率突然猛涨，银行要求还款。而伯格从拥有500万美元的金身化为身无分文的穷鬼。他不得不为生计而去找工作，绝望的心情也随之而至，“我不能忍受，”伯格回忆说，“我简直崩溃了，我对自身的价值和以前作出的每项企业决策都产生了怀疑。”问题：1． 导致伯格失败的原因是什么？对原因进行解释？2．他应该从失败中得到什么教训？他将如

案例3[@more@] 在20世纪80年代，一个主要食品企业开始争夺腌菜市场份额。为扩大市场，它使用了电视广告和极具竞争力的价格策略。在某个地区它的46盎司的泡菜价格很快从1.89美元降到0.79美元，这个价格是低于生产成本的。这对原有的占该地区主要市场份额的一家生产腌菜的家庭企业形成剧烈的竞争压力，这一家庭企业的主要产品就是腌菜，现在必须同销售额达几十亿美元的大企业展开较量。问题：1、这家小企业对价格竞争应作出如何反应？2、这个家族企业需要什么样的广告策划？3、家族企业如何在这样的激烈竞争背景下生存？解答要点：1、小企

案例2[@more@] 当艾米·克拉小的时候，她父亲有许多加油站，在那里她帮助加油并学会了许多加油站的知识。当她高中毕业时，她进入了一所商业学院并被培养成为一名秘书。她毕业后就结婚了，她丈夫进入了加油站的行业。近来，艾米决定开办一家她自己的加油站。如果她能得到石油公司（授权她丈夫开办加油站的同一家公司）的特许经营权，那么她将拥有一个三隔间和一些汽车修理设备的服务站，对于这个特许经营权来说她是合格的。克拉表达了她的想法：“我是一个做事情就做到底的人，我喜欢把事情做得比以前更好更大，我想这就是我要开一家自己

案例1[@more@] 下面是一位企业主解释他为什么放慢企业增长速度的想法：“我限制了我的企业的发展步伐，努力服务好现有顾客。也有一些专家向我提出建议，接受合伙或贷款以促进企业快速发展和增大市场份额。为此，我也曾有过按照专家建议去做的冲动。当被这些想法所诱惑时，我就想想那样做我能得到什么，我可能赚更多的钱，但我将遇到更多的问题，而且还可能破坏我与家人的关系，而家庭关系对我来说是非常重要的。问题：1. 这种对事业的态度可以认为是企业家对待事业的态度吗？这个业主能称得上是一个真正的企业家吗？2. 你同意他的想法吗？

第五章 商业计划的制订[@more@] 一、名词解释1、商业计划：是创业者或企业为了实现未来增长战略所制定的详细计划，主要用于向投资方和风险投资商说明公司未来发展战略与实施计划，从而取得投资方或风险投资商支持的一份商业计划报告， 同时也是展示自己有实现战略和为投资者带来回报的能力及拥有资源实力的商业计划报告。 二、不定项选择 1．以下选项中，属于商业计划与项目可行性报告共同包括的是( )。 A．管理因素分析 B．经营战略分析 C．经济效益分析 D．技术分析 2．商业计划的使用者不包括( )。