XML ATM帮助VB.Net

时间:2018-12-06 07:23:05

标签: vb.net

因此,我正在为我的软件课程制作一个应用程序,它是一台ATM。它以一个表单开始,您在其中输入PIN到文本框中,然后检查XML文件,如果正确,它将允许您进入。

Private Sub btnPINENTER_Click(sender As Object, e As EventArgs) Handles btnPINENTER.Click

    Dim AccountPIN As Integer

    Dim AccountName As String

    Dim InputPIN As Integer = Val(txtPIN.Text)

    Dim xelement As XElement = XElement.Load("Accounts.xml")
    Dim Records As IEnumerable(Of XElement) = xelement.Elements()

    For Each Account In Records
        AccountPIN = (Account.Element("PIN").Value)
        AccountName = (Account.Element("Name").Value)

        If InputPIN = AccountPIN Then

            MsgBox("Correct Password" & vbNewLine & "Welcome" & AccountName)
            Me.Hide()
            FrmATM.Show()
            txtPIN.Text = ""

        End If
    Next Account
End Sub

对不起,我是stackoverflow的新手,所以我不确定如何将其粘贴为实际代码。

下一步是第二种表单的工作方式类似于ATM机。因此有三个按钮,存款,提款和帐户余额。现在,我需要一种能够使用“存款”和“ WIthdraw”按钮的方法,以便它们可以更新XML文件中的数据,但是我对如何做到这一点一无所知。你可以说我是新手。任何帮助将不胜感激。

0 个答案:

没有答案