我已经创建了这个模块,并且我知道结构中的学生和教师作为字符串放置(这些存储为我的单选按钮),但是当我将这些保存到文件中时,这可以通过保存 true 或 false id 和密码的值。但是,我无法阅读其他班级的单选按钮。
这是我的模块类
Imports System.IO
Module user_info_mod
Structure user
<VBFixedString(3)> Dim name As String
<VBFixedString(3)> Dim password As String
<VBFixedString(7)> Dim student As String
<VBFixedString(3)> Dim teacher As String
End Structure
Public newuser As user
Public userNumber As Integer = FreeFile()
Public userrecordNumber As Integer = 1
Public Sub setRecordNumber()
Dim n As Byte = 0
FileOpen(userNumber, "D:\users.dat", OpenMode.Random, OpenAccess.Read)
While Not EOF(userNumber)
n = n + 1 'increments the record number of the user
FileGet(userNumber, newuser, n)
End While
userrecordNumber = n
FileClose(userNumber)
End Sub
End Module
这是我试图读取主文件中的单选按钮(newuser.student=True)
Private Sub cmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLogin.Click
Dim password As String
password = txtPassword.Text
Dim username As String
username = txtUsername.Text
FileOpen(userNumber, "D:\users.dat", OpenMode.Random, OpenAccess.Read)
FileGet(userNumber, newuser, userrecordNumber)
If password = newuser.password And username = newuser.name And newuser.student = True Then
MsgBox("ID Accepted")
Dim frmNew As New Student_selection
frmNew.ShowDialog()
FileClose(userNumber)
Else
FileClose(userNumber)
MsgBox("ID is not accepted")
End If
End Sub
如果我要在模块中将字符串更改为布尔值,这不能让我在模块内设置记录号时保存用户的文件,那么解决这个问题的正确方法是什么?