Z
zaoya
Unregistered / Unconfirmed
GUEST, unregistred user!
在multi-tier Application中执行Client端时,出现标题中错误
(属EOleSysError类Exception),CoInitialize是Windows Api,
请问各位大虾有何高招?
我在TMyRemoteDataModule继承的类中定义了一个函数
function CheckLogin(User_Name,Pass_word:WideString):Boolean;
(实际上是IMyInterface中继承而来)
它检查用户等录的用户名与口令,以决定是否提供各个表的Provider.
由于Users表不在TRemoteDataModule中提供,故另定义一个TDataModule,
其中有一个TDataBase与一个TQuery,TQuery的SQL为
"Select * from users where user_name=:usr andpass_word=wd",
然后在CheckLogin中将形参User_Name与Pass_word带入并ExecuteSQL,
检查TQuery是否为空即知返回True/False.
在Client端执行CheckLogin,并检查返回值,再决定Application是否
继续往下执行.
(属EOleSysError类Exception),CoInitialize是Windows Api,
请问各位大虾有何高招?
我在TMyRemoteDataModule继承的类中定义了一个函数
function CheckLogin(User_Name,Pass_word:WideString):Boolean;
(实际上是IMyInterface中继承而来)
它检查用户等录的用户名与口令,以决定是否提供各个表的Provider.
由于Users表不在TRemoteDataModule中提供,故另定义一个TDataModule,
其中有一个TDataBase与一个TQuery,TQuery的SQL为
"Select * from users where user_name=:usr andpass_word=wd",
然后在CheckLogin中将形参User_Name与Pass_word带入并ExecuteSQL,
检查TQuery是否为空即知返回True/False.
在Client端执行CheckLogin,并检查返回值,再决定Application是否
继续往下执行.