VB 操纵ACCESS 实例 练习题--ATM取款机 代码段【C#.Net教程】,VB，ACCESS ，ATM取款机

====================================
通用
====================================
衔接数据库（拼接衔接数据库字符串，挪用函数即可）：

Dim Con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ATM.mdb"
        Dim connConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection
        connConnection.ConnectionString = Con
        connConnection.Open()

考证用户名暗码（就是拿着界面上输入的用户名暗码 去数据库内里婚配，假如能够找到就经由过程）：

 Private Function UserIsValid() As Boolean
        '衔接数据库
        Dim Con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ATM.mdb"
        Dim connConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection
        connConnection.ConnectionString = Con
        connConnection.Open()

    '考证一下用户名暗码是不是存在
        Dim strSql As String = "select * from AccountInfo where AccountNo = '" & _
       Trim(TextBox1.Text) & "' and Password = '" & Trim(TextBox2.Text) & "'"
        Dim connCommand As OleDb.OleDbCommand = New OleDb.OleDbCommand(strSql, connConnection)
        Dim myReader As OleDb.OleDbDataReader = connCommand.ExecuteReader


        '假如有数据
        If myReader.HasRows Then
            myReader.Read() '读一行数据到reader内里
            If Trim(TextBox1.Text) = myReader(1) And Trim(TextBox2.Text) = myReader(2) Then
                connConnection.Close()
                Return True
            Else
                connConnection.Close()
                Return False
            End If


        End If
        connConnection.Close()
        '没数据直接返回毛病
        Return False

    End Function

退出(实在就是把一切翻开的窗口都隐蔽，把上岸窗口显现就能够了)：

For Each f As Form In Application.OpenForms
            f.Hide()
            frmLogin.Show()
        Next

====================================
客户
====================================
存款：

 '衔接数据库
        Dim Con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ATM.mdb"
        Dim connConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection
        connConnection.ConnectionString = Con
        connConnection.Open()


        '修正金额(存钱)
        Dim sql As String = "update AccountInfo set Balance = Balance + " + TextBox1.Text + " where AccountNo = '" + frmLogin.TextBox1.Text + "'"
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(sql, connConnection)
        cmd.ExecuteNonQuery()


        '纪录操纵日记
        sql = "insert into AccountAct (AccountNo,Lastopt,Amount) values ('" & Trim(frmLogin.TextBox1.Text) & "','" & Trim(DateTime.Now.ToString()) & "',
        " & CType(TextBox1.Text, Double) & ")"
        Dim cmd2 As OleDb.OleDbCommand = New OleDb.OleDbCommand(sql, connConnection)
        cmd2.ExecuteNonQuery()


        connConnection.Close()

存款：

'衔接数据库
        Dim Con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ATM.mdb"
        Dim connConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection
        connConnection.ConnectionString = Con
        connConnection.Open()


        '修正金额(取钱)
        Dim sql As String = "update AccountInfo set Balance = Balance - " + TextBox2.Text + " where AccountNo = '" + frmLogin.TextBox1.Text + "'"
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(sql, connConnection)
        cmd.ExecuteNonQuery()
        '纪录操纵日记
        sql = "insert into AccountAct (AccountNo,Lastopt,Amount) values ('" & Trim(frmLogin.TextBox1.Text) & "','" & Trim(DateTime.Now.ToString()) & "',
        " & CType(TextBox1.Text, Integer) & ")"
        cmd = New OleDb.OleDbCommand(sql, connConnection)
        cmd.ExecuteNonQuery()


        connConnection.Close()

查询账户：

'衔接数据库
        Dim Con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ATM.mdb"
        Dim connConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection
        connConnection.ConnectionString = Con
        connConnection.Open()


        Dim sql As String = "select Balance from AccountInfo where AccountNo = '" + frmLogin.TextBox1.Text + "'"
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(sql, connConnection)
        Dim myReader As OleDb.OleDbDataReader = cmd.ExecuteReader
        If myReader.HasRows Then
            myReader.Read()
            Label1.Text = myReader(0)
        Else
            MessageBox.Show("未找到账户信息")
        End If


        connConnection.Close()

===================================
管理员
==================================
纪录操纵日记：

 sql = "insert into AccountAct (AccountNo,Lastopt,Amount) values ('" & Trim(frmLogin.TextBox1.Text) & "','" & Trim(DateTime.Now.ToString()) & "',
 " & CType(TextBox1.Text, Integer) & ")"
        cmd = New OleDb.OleDbCommand(sql, connConnection)
        cmd.ExecuteNonQuery()


        connConnection.Close()

检察一切操纵日记：

'衔接数据库
        Dim Con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ATM.mdb"
        Dim connConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection
        connConnection.ConnectionString = Con
        connConnection.Open()


        '把查询的数据取出来放到data set
        Dim strSql As String = "select * from AccountAct"
        Dim myDataSet As DataSet = New DataSet()
        Dim myAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(strSql, connConnection)
        myAdapter.Fill(myDataSet, "AccountAct")
        connConnection.Close()


        '把数据从dataset中取出来显现在控件上()
        DataGridView1.DataSource = myDataSet.Tables(0)
        DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

检察一切用户账号

 '衔接数据库
        Dim Con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ATM.mdb"
        Dim connConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection
        connConnection.ConnectionString = Con
        connConnection.Open()


        '把查询的数据取出来放到data set
        Dim strSql As String = "select * from AccountInfo"
        Dim myDataSet As DataSet = New DataSet()
        Dim myAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(strSql, connConnection)
        myAdapter.Fill(myDataSet, "AccountInfo")
        connConnection.Close()


        '把数据从dataset中取出来显现在控件上()
        DataGridView1.DataSource = myDataSet.Tables(0)
        DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

以上就是VB 操纵ACCESS 实例 练习题--ATM存款机 代码段的内容，更多相关内容请关注ki4网（www.ki4.cn）！