立即注册 登录
公卫人 返回首页

asteriod的个人空间 https://www.epiman.cn/?12177 [收藏] [复制] [RSS]

日志

sas二次开发------之教你用最简单的方法调用SAS

热度 10002已有 1875 次阅读2010-11-18 14:41 |

 首先,为什么要进行二次开发?因为saas功能强大,能完成许多复杂的分析工作,并生成各种报表。但是,由于sas又需要熟悉sas语言才能使用。那么,我们写好的sas程序,如何给不懂sas的用户使用呢?最好的办法是提供用户界面,让用户通过简单设定就能访问sas,而不要访问sas的源程序。
   sas的二次开发,方法很多,下面把一些入门和简单的基础知识作介绍。
   (1)web开发,我的空间里有关于sas web应用的详细资料,不做深入介绍,优点是用户通过瘦客户端ie访问sas,用户无需安装sas软件即可使用;
   (2)sas AF:SAS/AF是一个应用开发工具。用户使用SAS/AF可将包含众多功能的SAS软件作为方法库,
利用SAS/AF的屏幕设计能力以及SCL语言的处理能力来快速开发各种功能。感兴趣的话,可以找资料来学习。
   (3)其他应用程序,如vb和c语言等也可以调用sas。
   今天,把office里的access调用sas的方法演示给大家: 
   首先,启动access,新建一个窗体,插入一个文本框控件(text1)和按钮(command1)。
在command1的单击事件下输入如下代码:
Dim OleSAS As Object
Dim SasProg As String
Dim path, odsstring, filename As String
SasProg = Me.Text1.Value
odsstring = "ods rtf file='d:\测试.rtf';"
Set OleSAS = CreateObject("SAS.Application")
If (OleSAS.Busy) Then
   Response = MsgBox("SAS系统忙碌,请稍候再试", vbOKOnly, "SAS Session", 0, 0)
Else
   Response = MsgBox("SAS系统接受了您的分析请求!", vbOKOnly, "SAS Session", 0, 0)
End If
OleSAS.Visible = False
OleSAS.Submit (odsstring)
OleSAS.Submit (SasProg)
OleSAS.Submit ("ods rtf close;")
MsgBox "数据分析成功!结果您可以打开查看!", vbQuestion, "提示"
   然后,保存。打开这个access窗体,在文本框给键入如下sas程序
proc report data=sashelp.class nowindows;
columns name age sex height weight;
define sex /width=6 ;
run;
  然后,单击command1按钮,看看您看到了什么?全过程中,你看不到sas的窗体,但分析结果已经输出到你的d盘了。
  详细的代码和演示如下:
  
  


路过

鸡蛋
1

鲜花
1

握手

雷人

刚表态过的朋友 (2 人)

发表评论 评论 (1 个评论)

回复 asteriod 2010-11-19 09:34
需要源码的,请站内联系!

facelist

您需要登录后才可以评论 登录 | 立即注册

手机版|会员|至尊|接种|公卫人 ( 沪ICP备06060850号-3 )

GMT+8, 2024-4-30 01:55 , Processed in 0.028561 second(s), 6 queries , Gzip On, MemCached On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

返回顶部