0

我已经创建了这个模块，并且我知道结构中的学生和教师作为字符串放置（这些存储为我的单选按钮），但是当我将这些保存到文件中时，这可以通过保存 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

如果我要在模块中将字符串更改为布尔值，这不能让我在模块内设置记录号时保存用户的文件，那么解决这个问题的正确方法是什么？

4

1 回答 1

0

问题已解决。必须先更改模块中单选按钮的顺序，然后再更改为布尔值。 Dim student As Boolean

于 2013-03-04T22:57:02.710 回答