那位大哥能够给一个在三层架构中实现用户登录的代码?

Question

小弟急用,客户端,中间层,后台SQL服务器.客户端是登录框,连接中间层,中间层连SQL来实现用户登录.
最好用ADO来实现.

Answer 1

如果是MIDAS的话，在客户端登录窗体放一个CLIENTDATASET组件连接中间层的数据提供者组件，然后使用CLIENTDATASET组件就像使用ADOQUERY一样的

Answer 2

在中间层创建一个函数CheckUser，设置参数为两个输入（username,password: widestring）一个输出（OleVariant）。在你创建的TLB文件的编辑窗口上找到NEW METHOD按钮，点击创建一个DCOM接口函数，命名为CheckUser。在parameters选项卡里设置Return Type：HRESULT然后添加三个参数
NAME          TYPE        MODIFIER
username      BSTR        [in]
password      BSTR        [in]
Server_Result VARIANT *   [out, retval]最后在点Refresh Implementation
DELPHI会自动给你生成一个函数，在这个函数里添加对两个参数的验证就可以了，验证后返回一个BOOL型的参数就可以了。
然后在客户端调用就可以了。
if DCOMConnection1.AppServer.CheckUser('admin','abc') then
begin
  ...
end;