module1.bas

用VB开发的论文管理系统。时间关系

Attribute VB_Name = "Module1"
Public counter As Integer  '记录数据库中文章的个数
Public num As Integer  '记录当前显示的是第几篇文章
Public treecounter As Integer  '记录文章目录数
Public treenum As Integer   '记录当前显示的是第几个文章目录

Public Sub lab()
  Form4.Label9.Caption = Str(counter)
  Form4.Label12.Caption = Str(num)
End Sub


Public Sub moveenabled()
  '1、若counter=0 则command6-9=false
  '2、若counter=1 则command6-9=false
  '3、若当前num=1 再向前移 则command6-7=false
  '4、若当前num=counter-1 再向后移 则command8-9=false
  '5、
  '6、
  '7、
  If counter = 0 Or counter = 1 Then
     Form4.Command6.Enabled = False
     Form4.Command7.Enabled = False
     Form4.Command8.Enabled = False
     Form4.Command9.Enabled = False
     GoTo error
  End If
  
  If num = 1 Then
     Form4.Command6.Enabled = False
     Form4.Command7.Enabled = False
     If num <> counter Then
        Form4.Command8.Enabled = True
        Form4.Command9.Enabled = True
     End If
  ElseIf num = counter Then
     Form4.Command8.Enabled = False
     Form4.Command9.Enabled = False
     If num <> 1 Then
        Form4.Command6.Enabled = True
        Form4.Command7.Enabled = True
     End If
  Else
     Form4.Command6.Enabled = True
     Form4.Command7.Enabled = True
     Form4.Command8.Enabled = True
     Form4.Command9.Enabled = True
  End If
  
error:
End Sub

Public Sub nomove()
    Form4.Command6.Enabled = False
    Form4.Command7.Enabled = False
    Form4.Command8.Enabled = False
    Form4.Command9.Enabled = False
End Sub