评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

班级管理系统VB(一)毕业论文网(7)

2013-05-11 01:01 nbsp;        End If
        ElseIf y = 1 Then
            MsgBox ("请你先清空在写入内容后点添加")
        End If
Else
MsgBox "你不是管理员，请先登陆管理员", , "提示"
End If
End Sub

Private Sub Command2_Click()
y = 1
Dim c As Integer
Dim a As String
If o = 1 Then
  If CInt(Text3.Text) > CInt(Text4.Text) Or CInt(Text3.Text) = 0 Then
   MsgBox ("没有此记录")
   ElseIf CInt(Text3.Text) > 0 And CInt(Text3.Text) <= CInt(Text4.Text) Then
   c = CInt(Text3.Text)
   Open "d:\bjglxt\班级事件" For Random As #1
   Get #1, c, a
   If a = "" Then
    MsgBox ("您当时添加的是一条空记录")
    Text1.Text = a
   ElseIf a <> "" Then
   Text1.Text = a
  End If
  Close
 End If
ElseIf o = 0 Then
MsgBox ("请输入正确的记录号(只限数字且不要超出记录条数)")
End If
Timer1.Enabled = True
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text3.Text = ""
y = 0
End Sub

Private Sub Command4_Click()
End Sub

Private Sub Form_Load()
y = 0
o = 0
Dim c As Integer
Open "d:\bjglxt\班级事件\cc.txt" For Random As #2
Get #2, , c
Text4.Text = c
Close
End Sub
Private Sub Timer1_Timer()
If Text3.Text <> "" Then
o = 1
 If Text3.Text >= "a" And Text3.Text <= "z" Then
 'Timer1.Enabled = False
 MsgBox ("请输入正确的记录号(只限数字)")
 Text3.Text = ""
 End If （科教范文网 lw.AsEac.com编辑整理）
ElseIf Text3.Text = "" Then
  o = 0
End If
End Sub

 

6:班级荣誉:

代码分析:
Dim b As Integer
Dim o As Integer
Dim y As Integer
Private Sub Command1_Click()
Dim a As String
Dim q As Integer

If isadtr = True Then
    If y = 0 Then
            If Text1.Text = "" Then
                  q = MsgBox("你要添加一条空记录吗？", vbYesNo)
                  If q = 6 Then
                  b = Text4.Text
                  b = b + 1
                  a = Text1.Text
                  Open "d:\bjglxt\班级事件\cc.txt" For Random As #2
                  Open "d:\bjglxt\班级事件\dd.txt" For Random As #1
                  Put #1, b, a
                  Put #2, , b
                  Text4.Text = b
           &nb