Question

怎样调用其他FORM的控件内容...

现在有连个FORM的程序如下...
第一个:
Option Explicit

Dim pwdcount As Integer '密码输入次数

Private Sub command1_click()
Dim sql As String
If Trim(txtusername.Text) = "" Then
MsgBox "没有输入用户名，请重新输入!", vbOKOnly + vbExclamation, "警告"
txtusername.SetFocus
Else
Adodc1.Refresh
Adodc1.Recordset.Find "username='" & txtusername & "'", , , 1
If Adodc1.Recordset.EOF Then
MsgBox "没有此用户，请重新输入!", vbOKOnly + vbExclamation, "警告"
pwdcount = pwdcount + 1
If pwdcount = 3 Then
MsgBox "错误输入已达3次，系统退出", vbOKOnly + vbExclamation, "警告"
Unload Me
End
End If
txtusername.Text = ""
txtusername.SetFocus
Else
If Adodc1.Recordset.Fields("password") = Trim(txtpassword.Text) Then
MsgBox "成功登陆！！！"
'进入界面
Unload Me
jiemian.Show

Else
pwdcount = pwdcount + 1
If pwdcount = 3 Then
MsgBox "错误输入已达3次，系统退出", vbOKOnly + vbExclamation, "警告"
Unload Me
End
End If
MsgBox "密码错误，请重新输入", vbOKOnly + vbExclamation, "警告"
txtpassword = ""
txtpassword.SetFocus
End If
End If
End If
End Sub

Private Sub command2_click()
Unload Me
jiemian.Show
End Sub

Private Sub Form_Load()
Dim mpath As String
Dim mlink$
mpath = App.Path ' 获取程序所在的路径
If Right(mpath, 1) <> "\" Then mpath = mpath + "\" ' 判断是否为子目录
mlink = "Provider=Microsoft.Jet.OLEDB.4.0;" ' 指定提供者
mlink = mlink + "Data Source=" + mpath + "db1.mdb" ' 在数据库文件名前插入路径
Adodc1.ConnectionString = mlink ' 设置连接属性
Adodc1.Refresh ' 必须用Refresh方法激活
End Sub
第二个:
Private Sub command2_click()
Text1 = index_Form1.txtusername
Adodc1.Recordset.Update
MsgBox "修改成功！！！"
End Sub

Private Sub command3_click()
Unload Me

End Sub

Private Sub Form_lyd_Load()
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "select * from 用户表 where username='" & index_Form1.txtusername & "'"
Adodc1.Refresh
End Sub
我想在Adodc1.RecordSource = "select * from 用户表 where username='" & index_Form1.txtusername & "'"这里调用第一个中的用户名txtusername...该怎么做,我老师说过可以在通用申明段申明...具体应怎样操作...?

Answer 1

调用其他窗体控件属性 不需要声明变量直接引用就可以
比如我在其他窗体要打印窗体1中的文本框控件内容
print form1.text1.text

Answer 2

MsgBox "成功登陆！！！"
'在模块声明一个全局变量，例如MC
MC=Adodc1.Recordset.Fields("username")
'在其他任何界面均可以调用这个MC变量
'进入界面
Unload Me
jiemian.Show

Answer 3

这个要用模块(Module)
通过模块可储存全局变量
模块:
Public username1 as string

窗体一:
Private Sub Form_Unload(Cancel As Integer)
username1=txtusername.Text
End Sub

窗体二:
Private Sub Form_lyd_Load()
username=username1
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "select * from 用户表 where username='" & index_Form1.txtusername & "'"
Adodc1.Refresh
End Sub

Answer 4

新建个模块 在模块中用 Public 申明个全局变量 如：Public aaa As String
在窗体的加载事件中写入 aaa = Form1.Text1
这样就可以调用变量 aaa 了