VB and sql SERVER 做管理系统
如何能实现只浏览当前登录用户的信息 只浏览当前用户的信息 困扰好久了 求高手解答
[解决办法]
设置一个全局变量,CurrentLoginUser
默认为空
如果form1中用户账号登录了以后,则该变量赋值为用户名
同时form2中读取该用户信息并显示。
[解决办法]
在[模块]中定义一全局变量,登录后用变量记录个人信息的唯一用户名或ID,
在Form2中查询个人信息,然后显示到界面。
例:
'--------------------
Model1.bas代码
Dim myid
'--------------------
Form1代码
'登录代码
'略
登录成功后
myid=rs("id")'用户信息表唯一ID
'---------------------------------
Form2代码
在Form_Load中加入查询个人信息
Dim sql
sql="select * from 个人信息表 where id='"& myid &"'"
rs.open sql,conn,1,1
然后你的代码。
------------
友情提示,这样的问题,最好能把你的代码发上来。