Question

VB程序设计中×处出现缺少语句结束，怎么改呢？

Option Explicit
Public fMainFormAs frmMain'程序主窗体 ×
Public PWD As String '用户密码
Public Level As Boolean '用户级别
Public CONN As String '数据库连接字符串
Public flagEdit As Boolean
Sub Main()
CONN = "FileDSN=renshi.dsn;UID=sa;PWD="
Dim fLogin As New frmLogin
fLogin.Show vbModal
If Not fLogin.OK Then
'登录失败后退出程序
End
End If
Unload fLogin
Set fMainForm = New frmMain
fMainForm.Show
End Sub

Answer 1

'【不要把Sub Main()过程里面当作是窗体的运算区域】
'Sub Main() 过程一般功能为：接收外部Command 参数，
'检查程序工作环境、检查必备文件是否存在、
'检查数据库是否可用、设置是否允许多次启动，指定启动窗体...。
'在第一显示的窗体Show 显示之后，应立即结束本过程，
'尽量不要再加入其它运算、及判断代码
'其他检测、运算、判断代码写到第一显示的窗体里面。
'如果你的工程只开启一个主窗体，那么下列一行代码为多余
' Public fMainForm As frmMain '程序主窗体
'如果你的登陆密码窗体只使用一个窗体，那么下列一行代码为多余
' Dim fLogin As New frmLogin
'数据库连接字符串赋值,尽量与数据库连接代码写在一起，不要让一个
'完整的数据库连接代码，经过1-3个过程拼凑赋值，这样除错时会增加查找过程代码的麻烦。
Option Explicit
'这个PWD变量如果只用于frmLogin窗体的检测密码，那么在此设置为全局变量不是很好..。
Public PWD As String '用户密码
Public Level As Boolean '用户级别
Public CONN As String '数据库连接字符串
Public flagEdit As Boolean

Sub Main() '工程必须在属性设置 Sub Main为启动对象
If App.PrevInstance Then End '设置不让程序重复启动
frmLogin.Show
'窗体Show之后，代码流程还会返回本过程执行一次End Sub
'这时候才算是本过程结束。所以show之后尽量不要有其它代码
End Sub

'以下为第一显示窗体frmLogin的示例
Option Explicit
Private Sub Command1_Click()
PWD = Text1.Text
If PWD = "123" Then
frmMain.Show '直接开启你的主窗体即可
Unload Me
Else
End
End If
End Sub

'当你设计一个窗体，必须要连续开启2-N个相同窗体显示
'才需要用到Set ？？= New ？？或 Dim ?? as New ??
'而且使用本方法之后，不建议直接使用 .Show 方法
'否则你开启了3个窗体，操作时没能判断那个窗体的开启顺序
'给个例子,于窗体frmLogin添加Command2控件
Private Sub Command2_Click()
Dim i As Integer
Dim NewForm(0 To 2) As New frmMain
For i = 0 To 2
Load NewForm(i)
NewForm(i).Caption = "第" & (i + 1) & "主个窗体"
NewForm(i).Left = i * 300
NewForm(i).Top = i * 300
NewForm(i).Visible = True
Next i
End Sub

Answer 2

VB的Sub、Function、For、While、IF、Select case等关键字代码过程结束的时候必须要有结束标记。

如：

If ... Then
  ...
End If   '//IF语句
Function ....
  ...
End Function  '//Function过程

确认一下是否语法正确。

Answer 3

If Not fLogin.OK Then
'登录失败后退出程序
End ‘这块有问题！
End If

Answer 4

Public fMainFormAs frmMain'程序主窗体
Public fMainForm As frmMain'程序主窗体

Answer 5

同意楼上意见。。。检查if语句。。。