Visual Basic .Net 对象和 类

Question

我正在设计一个非常高级的高级ATM。我知道我可以使用数据库，但想进一步探索我对对象的了解。

我在 windows 表格上有 ATM 运行。我希望表格打印一些例如将存储在帐户 class.

内的个人对象中的帐户余额

Public Class Account

                Public Shared _PersonName As String
                Public Shared _WithBank As String
                Public Shared _AccountNumber As Double
                Public Shared _AccountBalance As Double
                Public Shared _PIN As Integer

        Public Sub New(ByVal personName As String, ByVal accountNumber As Double, ByVal accountBalance As Double, ByVal pin As Integer)
                _PersonName = personName
                _AccountNumber = accountNumber
                _MaxWithdrawal = Withdrawal()
                _AccountBalance = accountBalance
                _PIN = pin
            End Sub
End Class

在表格本身中，我希望能够根据输入的密码在两个人之间切换。我希望能够说 Account.NewPerson.accountNumber 并能够检索输入了 PIN 码的人的帐号。

我正在努力创建对象。我可能做错了，如果有任何建设性的指导，我将不胜感激。我不确定把这些放在哪里。在相同的 class 或新的 class?

Public Shared Person1 As Account = New Account("Tom Jones", 123456789, 6000, 1234)
Public Shared Person2 As Account = New Account("Bob Marley", 987654321, 500, 5678)
Public Shared NewPerson As Account = New Account("", 0, 0, 0)

在表格中，我有一个 if 语句和 if else 语句。如果 result1 那么 Account.NewPerson = Account.Person1。 如果 result2 那么 Account.NewPerson = Account.Person2.

我认为这是正确的方法，但我可能完全走错了路。如果这个问题解决了，我会换掉 if else 语句进行搜索，因为我知道该怎么做。

感谢您的帮助

Answer 1

将您的帐户对象保存在通用列表中。

Dim Accounts As List(Of Account) = New List(Of Account) 
Accounts.Add(New Account("Tom Jones", 123456789, 6000, 1234) )  
Accounts.Add(New Account("Bob Marley", 987654321, 500, 5678) )
Dim currentName = Accounts(0)._PersonName

您还可以将列表绑定到表单中的组合框，并根据所选帐户更改视图。