设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1027|回复: 9
打印 上一主题 下一主题

[窗体] 如何在窗体中传递变量

[复制链接]
跳转到指定楼层
1#
发表于 2008-1-25 14:54:07 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如何把登陆界面中用户录入的用户名与密码等信息传递给其它的窗体显示。
比如说:
在模块中,声明了全局变量,用来保存用户名和密码

我在登陆界面输入了用户名和官码,系统判断为合法用户,然后关闭登陆界面,进入主界面。但无法在主界面的FORM——LOAD中把登陆界面中保存起来的用户名和密码获取过来,用一个标签显示出来,测试的结果都是传递过来的变更是空值

请大侠教教我怎么弄,急,在线等。谢谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2008-1-25 14:56:19 | 只看该作者
全局变量 有否使用public 或global声明
3#
发表于 2008-1-25 14:57:25 | 只看该作者
上传你的例子才好说
4#
 楼主| 发表于 2008-1-25 15:07:29 | 只看该作者
以下是我登陆界面的代码
Private Sub Command12_Click()
Dim stdocname As String
Dim stlinkcriteria As String
'Dim user_name_login As String
Set rsX = CurrentDb.OpenRecordset("select * from [login] where [user_id]='" & Text8 & "' and [user_password]='" & Text10 & "'")
If Not rsX.EOF Then
     
     user_id = Me.Text8.Value   '保存用户工号
     user_name_login = rsX.user_name  '保存用户名
     user_password = Me.Text10.Value  '保存密码
      rsX.Close
     DoCmd.Close
     stdocname = "考核管理信息系统主界面"
     DoCmd.OpenForm stdocname, , , stlinkcriteria
Else
     MsgBox "用户名或密码错误,请重新登陆!", vbOKOnly, "系统提示"
     Text8 = Null
     Text10 = Null
     rsX.Close
     Text8.SetFocus
End If
End Sub
以下是在模块中的变更声明
Global user_id As String
Global user_name As String
Global user_password As String
以下是我在登陆进去后主窗体的FORM_load代码
Private Sub Form_Load()
  
  DoCmd.Maximize
  Me!Label51.Caption = Str(Year(Date)) + "年" + Str(Month(Date)) + "月" + Str(Day(Date)) + "日"
   
  Me!Label49.Caption = user_name_login

End Sub
现在我想在主窗体的label49上显示登陆界面的用户名信息。
5#
发表于 2008-1-25 15:22:47 | 只看该作者
学习中!!!!!!!!
6#
发表于 2008-1-25 15:23:24 | 只看该作者
只声明了3个变量,user_name_login这个变量没有声明,Me!Label49.Caption = user_name_login当然为空
7#
发表于 2008-1-25 15:24:46 | 只看该作者
学习中!!!!!!!!
8#
 楼主| 发表于 2008-1-25 15:27:25 | 只看该作者
谢谢,怎么把这个给漏了,晕倒
9#
 楼主| 发表于 2008-1-26 12:17:50 | 只看该作者
非常感谢
10#
发表于 2008-2-17 22:07:50 | 只看该作者
虚心学习啊!!!!!!!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-14 15:02 , Processed in 0.094068 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表