EAServer 新手上路----JaguarCts开发者必读

原创 2007年09月28日 22:43:00
Sybase EAServer的文章也有一些,很少提及到开发中的一些细节问题。本人从事JaguarCts开发不久,遇到了许多细节问题,想来刚从事JaguarCts开发者也会遇上,以做参考,另则心中还存有许多问题,故撰此文,起抛砖引玉之效,JaguarCts高手能释疑,深表感谢。

一、系统配置部分:
1
运行环境:
WIN2000 SERVER
版,SP2补丁,P3850CPUPB8.0Beta+EAServer3.6.1
2
运行环境安装注意事项:
在开发环境中JaguarCts服务器不要安装成NT服务,因为开发中经常修改JaguarCts组件,会出现“OBJECT CAN‘T SAVE”的错误,若不是NT服务,用Jaguar Server(debug)。出现此类错误后重启动J aguar Server(debug)即可。若安装成NT服务可用以下指令删除:
serverstart servicename  -remove  (serivename
NT服务中Jaguar的服务名)
WIN2000 SERVER
版一定要打补丁,其实SP1也可,否则无法生成代理(Proxy)。
3
启动Jaguar管理器(图(一))
A JaguarMagager菜单Tool/Connect/ Jaguar Manager

BProfile Manager可以新增一个Profile
CUser Name 中输入JAGADMIN(系统)
D PassWord默认为空。
E Host Name可以是LocalHost。(如果你有一定的经验,它可以改为你的机器名,但在Connect成功后要进去修改Listener中各端口的主机名。)
4
启动安全管理器(图(二))
A JaguarManager菜单Tool/Connect ecurity Manager
B PIN默认密码是“SYBASE”
5
修改Jagadmin的密码
A3连接成功后,在JaguarManager中双击Servers,显示当前所有服务,选一服务后击右键,在右键菜单中选server property打开属性面板。
B在属性面板中选Security改密码。

6
管理连接缓冲
AJaguarManager中双击Servers,在列表中选一个Server
BInstall Connection Caches
C右键,在弹出的菜单上选“Create and Install a New Connection Cache”
D在弹出的窗口中输入Connection Cache名。
E确定后就进入了Connection Cache配置面板。
F本文以配置SQLSERVER为例。在General选项卡中配置Server Name SqlServer的服务名。User Name为登录SqlServer的用户ID,输入PassWord。在Driver选项卡中选ODBCDLL OR CLASS NAME ODBC32.DLLPING一下试试。
GPING通不过,你就得看一下本文前面(3)提到的HostName你输入的是什么,若LocalHost就不行,改为你的机器名。

二、开发应用部分
A
、服务端:
1
新建EAServer Profile如下图。Server Name即计算机名。Port Number9000Login NameJagadmin
2
àTARGET----àNEW----EAServer Component开始向导
3
Implement NewàNext-à应用名、库文件存放-àNext-àNext- àPBObjectName(n_cst_base)àInterFace--EAServer àComponent Name--EAServer PakeageàProfile-- InstanceàComponent Type(stadard component)--àName(组件以包为单位,新增一个包或选一个存在的包)-- Transaction Supported Option(NotàPooling Options(Supported)-- OtheràInterface Options(Next)--àSupported)-- FinishàNext--àNext--àProject(Next)--àOptions(全选)--
4
打开刚创建的组件N_cst_base,在Constructor事件中:
   SQLCA.DBMS       = "MSS Microsoft SQL Server 6.x"
   SQLCA.Database   = "Jaguar_2001"
   SQLCA.ServerName = "jaguarcts"
   SQLCA.LogId      = "sa"
   SQLCA.AutoCommit = False
   SQLCA.DBParm     = ""
   CONNECT USING SQLCA ;
   IF SQLCA.SQLCODE = -1 THEN
      messagebox(“system”,"
数据库连接失败!"+SQLCA.SQLERRTEXT)
   END IF
5
N_cst_baseDestructor事件中:
   Disconnect Using SQLCA ;
6
N_cst_basek中新增一个对象函数:
of_user_login(string as_userid,string as_password) return integer
//
integer  li_return
SELECT count(*) INTO :li_return FROM jag001 WHERE jag0101 = : as_userid and jag0102 = : as_password ;
RETURN li_return
Jag001
表的字段:jag0101(varchar(20))—jag0102(varchar(20))
7
生成组件代理对象
àPROJECT----àNEW--EAServer Proxy Wizard一直NEXT,值得注意的是出现一个TreeView时、让你选一个包(即在3中创建的包),下一步是选一个代理库(可以选存在的PBL,也可以新增一个PBL),NEXT后是Deployment Actions,要选三(代理对象名=包名+组件名)
8
若不出意外,代理对象就生成了。
B
、客户端:
1
新建一个应用。
2
新建一个连接对象
Connection Object Wizard
其中值得注意的是ConnectivityàPBObject--àNEW-- Options(Requires EAServer Connection)Pakage Name3中创建的包。Connection Object名可以默认,也可以自已输入;resource of connect information可以任选一种。
3
在新应用的open事件:
n_cst_connect  inv_connect_srv         //2
创建的连接对象声明
Jaguar_2001_n_cst_base  inv_login_srv   //
代理对象声明
integer        li_return

inv_connect_srv = CREATE n_cst_connect
li_return = inv_connect_srv.ConnectToServer( )  

TRY                   //
创建代理对象inv_login_srv
li_return  =
inv_connect_srv.CreateInstance(inv_login_srv,"Jaguar_2001/n_cst_base")
CATCH (cts_pbuserexception uae)
    li_return = 999
END TRY

IF li_return <> 0 THEN
    MessageBox("Error Info", "ErrorCode= " + string(inv_connect_srv.ErrCode) + "~nErrText= " + inv_connect_srv.ErrText)
END IF

TRY             // 
进行登录,表中有一行数据(xzh2000,000000 
    li_return = inv_login_srv.of_user_logon(‘xzh2000’,’000000’)
CATCH (cts_pbuserexception uae1)
    li_return = 999
END TRY

If  li_return  = 1 then
   Messagebox(“system”,”OK”)
Else
   Messagebox(“system”,”CANCEL”)
End if

 

Windows Mobile 开发者新手上路指南

软件安装顺序: 1. 安装Microsoft ActiveSync 4.0以上版本 2. 安装VS2005 开发Pocket PC需安装windows mobile 5.0 Pock...
  • wangkaiming123456
  • wangkaiming123456
  • 2013年01月24日 14:33
  • 216

OpenRS插件开发之自动生成菜单

平台:VC6.0; 目的:OpneRS上简单的自动生成菜单插件测试; 效果:(下图“My Test Menu”菜单) 说明:        在OpenRS上若欲把自己的某些需求(比如:匹配)做成插件...
  • zshuaihua
  • zshuaihua
  • 2015年04月08日 15:28
  • 919

php新手上路教程

http://www.yiwenbaida.com/guangzhou/gongshang/7006454.html http://www.yiwenbaida.com/guangzhou/gong...
  • retertertreter
  • retertertreter
  • 2014年05月05日 17:35
  • 496

Redis安装-新手上路

 一、安装 下载源码包:; # wget http://redis.googlecode.com/files/redis-2.4.10.tar.gz 解压缩: #...
  • jiangtao_st
  • jiangtao_st
  • 2013年12月26日 11:44
  • 563

GitHub新手上路

小白博客,记录大于科普。
  • junloin
  • junloin
  • 2017年02月28日 21:49
  • 222

树莓派新手上路

Lab1:配置Raspberrypi    上星期就领到了传说中“世界上最小的台式机”——树莓派,听说只要300块。不过还是要感谢下浙大计算机系的慷慨,让我们可以在嵌入式的课上有机会接触到这个小不点儿...
  • suiyueyoucheng
  • suiyueyoucheng
  • 2014年03月13日 23:40
  • 569

新手上路 腾云驾雾

1 自我介绍 我叫王满凯,三横王,满意的满,凯旋的凯。 来自江苏扬州,(鱼米之乡,吃货之乡:富春包子,阳春面,冶春早茶……) 母校在江苏,盐城师范学院,专业学的是电气自动化。 今年6月份刚毕业...
  • qq_35556474
  • qq_35556474
  • 2016年07月12日 09:27
  • 180

OkHttp 新手上路

1.概念OKHttp 是一款高效的HTTP客户端,支持连接同一地址的链接共享同一个socket,通过连接池来减小响应延迟,还有透明的GZIP压缩,请求缓存等优势,其核心主要有路由、连接协议、拦截器、代...
  • u011033906
  • u011033906
  • 2017年02月10日 19:59
  • 96

对 RBAC 的理解 新手上路

刚刚接触RBAC(Role Base Access Control) 这种权限控制思想,一下大部分内容都是本人摘自其他网页的资料,然后做了整合,但对新手来说用来上手还是可以考虑的! RBAC的基...
  • a4613934
  • a4613934
  • 2013年10月24日 17:22
  • 1188

新手上路,请多关照

每行每业都不容易,只有自己双手去赢得的幸福才是最受人尊敬的。加油吧,在意结果,只会让自己更懦弱;放手一搏,唱出心中那首歌! ...
  • zhangfan_lovebk
  • zhangfan_lovebk
  • 2016年09月25日 22:10
  • 150
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:EAServer 新手上路----JaguarCts开发者必读
举报原因:
原因补充:

(最多只允许输入30个字)