标题:关于窗体调用的问题
只看楼主
lzxm160
Rank: 1
等 级:新手上路
帖 子:103
专家分:0
注 册:2006-12-26
 问题点数:0 回复次数:2 
关于窗体调用的问题
在同一个解决方案里面有两个项目,第一个项目里的窗体from1为密码验证窗体,密码验证通过则要显示第二个项目里的窗体from11,
谁知道用vb.net 怎么才能实现
代码要写在哪里才合适,代码怎么写呢


楼下的代码很正确 关键是两个窗体不在一个项目程序里 而是在同一个解决方案里面

[此贴子已经被作者于2006-12-27 12:31:49编辑过]

搜索更多相关主题的帖子: 窗体 项目 解决方案 密码 代码 
2006-12-26 18:44
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
得分:0 
if 密码正确 then
Dim f2 as new Form2()
me.Hide()
f2.Show()
else
密码错误.
end if

飘过~~
2006-12-26 22:55
ninggang
Rank: 3Rank: 3
等 级:新手上路
威 望:6
帖 子:637
专家分:0
注 册:2006-11-1
得分:0 

这个问题可以适当扩充一下:
首先,可以定义一个一般通用模块,把所有窗体类的公共变量放在里面,在判断在密码验证窗体中,可以这样写代码:
(这是密码窗口的代码)
Public constr As String="....."
Public sqlstr AS String="select count(*) from 密码表 where user='...' and Password='....'"
Public mycon As New SqlConnection(sqlstr)
在对应的事件代码中
If mycon.State=........closed Then
mycon.Open()
End If '注意这里最好是先写个判断语句,将起打开(或许已经打开了),用了后将mycon关闭,因为如果同时用了sqlDataReader和DataSet比较容易出现错误,呵呵,还有数据阅读器sqldatareader也一样,用了后关闭,养成好的习惯
以免发生意想不到的错误
Dim mycom As New SqlCommand(sqlstr,mycon)
mycom.ExecuteScalar()
If mycom.ExecuteScalar()<>1 Then
MsgBox("密码或用户名错误")
Application.Exit()
Else
MsgBox("恭喜你,登陆成功")
Me.Close()
End If
<2>在模块中
module
首先定义公共变量,呵呵
然后:
Private Sub main()
Dim ps As New 密码筐类
Ps.StartPosition=.....自己写
Ps.ShowDialog()
Application.Run(New 你所要运行的窗体(比如说主窗体))
End main
End module


大家一起努力,共同打造未来!!
2006-12-27 16:17



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-112276-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.106524 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved