我用VB做了一个人事软件，但是一调试就出现未定义变量，请高手看看，这倒底是怎么回事
Option ExplicitPublic cuTabCh As Boolean
Public cutable As String
Public cuAp As Integer '当前指针位置
Dim i As Integer
Public Pwin As String
Public Sub showemployee()
DataA.RecordSource = "select * from employee"
DataA.Refresh
DBGA.Columns("性别").Button = True
DBGA.Columns("学历").Button = True
DBGA.Columns("部门").Button = True
For i = 0 To 2
Mtab(i).Checked = False
Next i
Mtab(0).Checked = True
cutable = "employee"
cuTabCh = True
End Sub
Public Sub showleave()
DataA.RecordSource = "select * from leave"
DataA.Refresh
For i = 0 To 2
Mtab(i).Checked = False
Next i
Mtab(1).Checked = True
cutable = "leave"
cuTabCh = True
End Sub
Public Sub showsalary()
DataA.RecordSource = "select * from salary"
DataA.Refresh
For i = 0 To 2
Mtab(i).Checked = False
Next i
Mtab(2).Checked = True
cutable = "salary"
cuTabCh = True
End Sub
Private Sub Form_Load()
Dim fil, tbcount, i As Integer
Dim Tbstr(50), Tbnam(50) As String
DataA.DatabaseName = App.Path + "\sm.mdb"
DataB.DatabaseName = App.Path + "\sm.mdb"
DataB.RecordSource = "select * from employee"
Call showemployee
If Dir(App.Path + "\table.ini") = "" Then
LsDegree.AddItem "定制"
LsDepart.AddItem "定制"
Else
fil = FreeFile()
Open App.Path + "\table.ini" For Input As #fil
Do While Not EOF(fil)
Input #fil, Tbnam(i), Tbstr(i)
i = i + 1
Loop
Close #fil
tbcount = i
For i = 0 To tbcount
If Tbnam(i) = "lsdegree" Then
LsDegree.AddItem Tbstr(i)
ElseIf Tbnam(i) = "lsdepart" Then
LsDepart.AddItem Tbstr(i)
End If
Next i
LsDegree.AddItem "定制"
LsDepart.AddItem "定制"
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub DBGA_ButtonClick(ByVal ColIndex As Integer)
Dim Co As Column
Set Co = DBGA.Columns(ColIndex)
Select Case ColIndex
Case 4
Lssex.Left = DBGA.Left + Co.Left + Co.Width
Lssex.Top = DBGA.Top + DBGA.RowTop(DBGA.Row)
Lssex.Visible = True
Lssex.ZOrder 0
Lssex.SetFocus
Case 7 'degree
LsDegree.Left = DBGA.Left + Co.Left + Co.Width
LsDegree.Top = DBGA.Top + DBGA.RowTop(DBGA.Row)
LsDegree.Visible = True
LsDegree.ZOrder 0
LsDegree.SetFocus
Case 8 'department
LsDepart.Left = DBGA.Left + Co.Left + Co.Width
LsDepart.Top = DBGA.Top + DBGA.RowTop(DBGA.Row)
LsDepart.Visible = True
LsDepart.ZOrder 0
LsDepart.SetFocus
End Select
End Sub
Private Sub DBGA_HeadClick(ByVal ColIndex As Integer)
DBGA.ClearSelCols
End Sub
Private Sub DBGA_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
FrmMain.PopupMenu Mp
End If
End Sub
Private Sub DBGA_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
cuAp = DataA.Recordset.AbsolutePosition
If cuAp > -1 Then
DataB.Recordset.FindFirst "职工编号=" + CStr(DataA.Recordset.Fields("职工编号"))
If DataB.Recordset.NoMatch Then
Lab.Caption = "没有此职员"
Else
With DataB.Recordset
Lab.Caption = "工号：" + CStr(.Fields(0)) + " 姓名：" + CStr(.Fields(1)) + " 性别：" + CStr(.Fields(4)) + " 部门：" + CStr(.Fields(8)) + " 职位：" + CStr(.Fields(9)) + " 电话：" + CStr(.Fields(11))
End With
End If
End If
End Sub
Private Sub LsDegree_Click()
If LsDegree.Text = "定制" Then
FrmTable.Show
Else
DataA.Recordset.Edit
DataA.Recordset.Fields(7) = LsDegree.Text
DataA.Recordset.Fields(13) = CStr(frmLogin.CurId)
DataA.Recordset.Fields(14) = CStr(Now)
DataA.Recordset.Update
DataB.Refresh
End If
End Sub
Private Sub LsDepart_Click()
If LsDepart.Text = "定制" Then
FrmTable.Show
Else
DataA.Recordset.Edit
DataA.Recordset.Fields(8) = LsDepart.Text
DataA.Recordset.Fields(13) = CStr(frmLogin.CurId)
DataA.Recordset.Fields(14) = CStr(Now)
DataA.Recordset.Update
DataB.Refresh
End If
End Sub
Private Sub Lssex_Click()
DataA.Recordset.Edit
DataA.Recordset.Fields(4) = Lssex.Text
DataA.Recordset.Fields(13) = CStr(frmLogin.CurId)
DataA.Recordset.Fields(14) = CStr(Now)
DataA.Recordset.Update
DataB.Refresh
End Sub
'#################################
Private Sub Lssex_LostFocus()
Lssex.Visible = False
End Sub
Private Sub Lsdegree_LostFocus()
LsDegree.Visible = False
End Sub
Private Sub Lsdepart_LostFocus()
LsDepart.Visible = False
End Sub
Private Sub DBGA_Scroll(Cancel As Integer)
Lssex.Visible = False
LsDegree.Visible = False
LsDepart.Visible = False
End Sub
'#################################
Private Sub MAbout_Click()
frmAbout.Show
End Sub
Private Sub Mhelp_Click()
FrmHelp.Show
End Sub
Private Sub Moption_Click(Index As Integer)
If Index = 0 Then
If frmLogin.CurUser = "root" Then
FrmSys.Show
Else
FrmPsw.Show
Pwin = "Frmmain"
FrmMain.Enabled = False
End If
Else
End
End If
End Sub
Private Sub Mpop_Click(Index As Integer)
Select Case Index
Case 1
FrmEdit.Show
FrmMain.Enabled = False
Case 2
If DBGA.SelBookmarks.Count = 1 Then
If MsgBox("确定要删除吗？", vbOKCancel, "确定") = vbOK Then DataA.Recordset.Delete
cuAp = 0
Else
MsgBox "请选择要删除的条目！"
End If
Case 3
FrmSearch.Show
End Select
End Sub
Private Sub Mtab_Click(Index As Integer)
Dim i As Integer
For i = 0 To 2
Mtab(i).Checked = False
Next i
Mtab(Index).Checked = True
Select Case Index
Case 0
Call showemployee
Case 1
Call showleave
Case 2
Call showsalary
End Select
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 'edit
FrmEdit.Show
FrmMain.Enabled = False
Case 2 'del
If DBGA.SelBookmarks.Count = 1 Then
If MsgBox("确定要删除吗？", vbOKCancel, "确定") = vbOK Then DataA.Recordset.Delete
cuAp = 0
Else
MsgBox "请选择要删除的条目！"
End If
Case 3 'seek
FrmSearch.Show
Case 4 'setup
FrmSetup.Show
End Select
End Sub
Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Call showemployee
Case 2
Call showleave
Case 3
Call showsalary
Case 4
If frmLogin.CurUser = "root" Then
FrmSys.Show
Else
FrmPsw.Show
Pwin = "Frmmain"
FrmMain.Enabled = False
End If
End Select
End Sub
