中：
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、 生成组件代理对象
NEW--PROJECT----EAServer Proxy Wizard一直NEXT，值得注意的是出现一个TreeView时、让你选一个包（即在3中创建的包），下一步是选一个代理库（可以选存在的PBL，也可以新增一个PBL），NEXT后是Deployment Actions,要选三（代理对象名=包名+组件名）
8、 若不出意外，代理对象就生成了。
B、客户端：
1、 新建一个应用。
2、 新建一个连接对象
NEW--PBObject--Connection Object Wizard其中值得注意的是Connectivity Options(Requires EAServer Connection)；Pakage Name即3中创建的包。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
I上一页 [1] [2] [3] [4] 下一页
|
