UC知道做了个VB系统 在没装VB的机子上登陆界面弹的出来 登陆进去后其他界面就弹不出来了
来源：百度知道 编辑：UC知道 时间：2024/06/26 00:39:30
做了个VB系统 在没装VB的机子上登陆界面弹的出来 登陆进去后其他界面就弹不出来了 要求机子不装VB也能跑起来 是不是要什么必需是文件啊 不过没听说VB要什么必需的文件啊 又不是.net
这是登陆按钮代码,我把密码错误的代码给去掉了，各位大虾看看有什么问题
Private Sub Command1_Click()
DimPassword As String
Adodc1.RecordSource = "select * from enter where 用户名 ='" & Text2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Quanxian = Adodc1.Recordset.Fields("权限")
MPassword = Adodc1.Recordset.Fields("密码")
If Text1.Text = MPassword Then '判断数据的密码是否正确
FrmJieMian.StatusBar1.Panels.Item(2).Text = "当前操作员： " + Adodc1.Recordset.Fields("用户名")
Name1 = Text2.Text
FrmJieMian.Show
'添加登录日志
Open (App.Path & "\系统日志.ini") For Input As #1
Do While Not EOF(1)
Line Input #1, Intext
TStr = TStr + Intext + Chr(13) + Chr(10)
Loop
Close #1
TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-m
这是登陆按钮代码,我把密码错误的代码给去掉了，各位大虾看看有什么问题
Private Sub Command1_Click()
DimPassword As String
Adodc1.RecordSource = "select * from enter where 用户名 ='" & Text2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Quanxian = Adodc1.Recordset.Fields("权限")
MPassword = Adodc1.Recordset.Fields("密码")
If Text1.Text = MPassword Then '判断数据的密码是否正确
FrmJieMian.StatusBar1.Panels.Item(2).Text = "当前操作员： " + Adodc1.Recordset.Fields("用户名")
Name1 = Text2.Text
FrmJieMian.Show
'添加登录日志
Open (App.Path & "\系统日志.ini") For Input As #1
Do While Not EOF(1)
Line Input #1, Intext
TStr = TStr + Intext + Chr(13) + Chr(10)
Loop
Close #1
TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-m
vb需要很多库才能在没有vb环境的机器上运行，像msvbvm60.dll,oleaut32.dll以及stdole2.tlb等。你可以通过打包工具查看你的程序依赖的包，制作成安装程序后，在没装vb的电脑上安装就可以了。
--
exe直接生成就可以，但是不是生成了exe就行，还需要通过安装程序把vb需要的运行库安装到目标电脑才可以运行。
既然能够弹出登录界面，那么电脑一定没什么问题。问题就出在你的登录按钮的代码里。
验证完登录密码后，别忘记写代码让它显示工作界面啊
代码更改如下。
Private Sub Command1_Click() ‘Command1请自行替换成登录按钮的名称，如Command1
…… ’这段代码是验证用户名和密码的代码，你已经写完了，所以略过不提
Form1.Show ‘这是最重要的一步，请把Form1改为要显示的窗体的名称
End Sub
做exe 文件时有错