关于用户/密码的问题(100分)

  • 主题发起人 主题发起人 MrMengyi
  • 开始时间 开始时间
M

MrMengyi

Unregistered / Unconfirmed
GUEST, unregistred user!
在midas程序中
要求用户输入帐号和密码
由于是oracle数据库
所以用户/密码有数据库维护
就是说 用户输入的是可以登录数据库的密码
如何在 midas程序中将 username/password传给
midas做的服务器程序呢?
请将出您的想法
最好简单一些
 
database/loginpassword
 
什么意思!?
请注意是在midas做的B/S结构
 
先连接到数据库,取得user和password,然后对比
 
问题在于先连接数据库是不行的
用户的密码就是他登录数据库的密码
 
在程序启动之前先弹出登录对话框,看看你的工程文件,要在那里写代码,在那里启动远程数据
模块。
 
各位老大:
可能我没讲清楚
问题的关键在于怎么把user name和password传到服务器,在服务器验证
 
其实最简单的方法不是最好的方法,最好是自己做一个远程数据模块来认证!
 
你在远程应用服务器的接口中增加一个验证方法:
procedure AuthUser(const AUserName, APasswd : WideString);
实现时通过传入的参数作为数据库的用户/密码去连接数据库,如果连接失败,
则raise exception,客户断Catch 这个 exception 就知道是否通过验证了。
 
你是b/s结构,那通过ASP连接来验证用户
 
MrMengyi,你说明白点,你到底是要验证那个用户、口令,是那个system/manager呢,还是你在
数据表中录入的用户。
 
希望你将100分都给我
客户端登录时:
with LoginDataSetdo
begin
Close;
Params[0].AsString:=UpperCase(Edit1.Text);//param lognm
Params[1].AsString:=Edit1.Text;
//param name
Params[2].AsString:=Edit2.Text;
//param passward
Params[3].AsString:='a8';
//param database
Active:=True;
。。。。
end;
服务器端
procedure TSZQFX.LoginQueryBeforeOpen(DataSet: TDataSet);
begin
SZQFXDB.Close;
SZQFXDB.Params.Strings[0]:='USER NAME='+LoginQuery.ParamByName('name').Value;
SZQFXDB.Params.Strings[1]:='PASSWORD='+LoginQuery.ParamByName('password').Value;
SZQFXDB.AliasName:=LoginQuery.ParamByName('database').Value;
SZQFXDB.Open;
end;
LoginQuery与客户端的LoginDataSet 对应,SZQFXDB是数据库控件,在parameter overrides
中写:
USER=
PASSWORD=
这样就行了

 
呵呵
还是probor理解我的意思
其实我也是这么做的
老大,你不会是自己人吧
这个代码是我做南通MIS的呀
特别是'a8' ==> a8200
 
接受答案了.
 
类似的问题,通过ASP来验证,如何做呀?
set oradatabase=orasession.dbopendatabase('dbserver',username/userpass,0)
其中username、userpass是变量,这样写通不过,应该如何写呀????
 
后退
顶部