


====================================
General
==== ================================
Connect to the database (just splice the connection database string and call the function):
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()
Verify username and password (that is, take the username and password entered on the interface and match it in the database. If it can be found, pass):
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
Exit (actually Just hide all open windows and display the login window):
For Each f As Form In Application.OpenForms f.Hide() frmLogin.Show() Next
====================== ==============
Customer
============================== =======
Withdrawal:
'连接数据库 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()
Deposit:
'连接数据库 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()
Account inquiry:
'连接数据库 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()
=== ================================
admin
========== ========================
Record operation log:
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()
View all operation logs:
'连接数据库 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
View all user accounts
'连接数据库 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
The above is the content of the VB operation ACCESS example practice question-ATM cash machine code segment. For more related content, please pay attention to the PHP Chinese website (www. php.cn)!

The combination of C# and .NET provides developers with a powerful programming environment. 1) C# supports polymorphism and asynchronous programming, 2) .NET provides cross-platform capabilities and concurrent processing mechanisms, which makes them widely used in desktop, web and mobile application development.

.NETFramework is a software framework, and C# is a programming language. 1..NETFramework provides libraries and services, supporting desktop, web and mobile application development. 2.C# is designed for .NETFramework and supports modern programming functions. 3..NETFramework manages code execution through CLR, and the C# code is compiled into IL and runs by CLR. 4. Use .NETFramework to quickly develop applications, and C# provides advanced functions such as LINQ. 5. Common errors include type conversion and asynchronous programming deadlocks. VisualStudio tools are required for debugging.

C# is a modern, object-oriented programming language developed by Microsoft, and .NET is a development framework provided by Microsoft. C# combines the performance of C and the simplicity of Java, and is suitable for building various applications. The .NET framework supports multiple languages, provides garbage collection mechanisms, and simplifies memory management.

C# and .NET runtime work closely together to empower developers to efficient, powerful and cross-platform development capabilities. 1) C# is a type-safe and object-oriented programming language designed to integrate seamlessly with the .NET framework. 2) The .NET runtime manages the execution of C# code, provides garbage collection, type safety and other services, and ensures efficient and cross-platform operation.

To start C#.NET development, you need to: 1. Understand the basic knowledge of C# and the core concepts of the .NET framework; 2. Master the basic concepts of variables, data types, control structures, functions and classes; 3. Learn advanced features of C#, such as LINQ and asynchronous programming; 4. Be familiar with debugging techniques and performance optimization methods for common errors. With these steps, you can gradually penetrate the world of C#.NET and write efficient applications.

The relationship between C# and .NET is inseparable, but they are not the same thing. C# is a programming language, while .NET is a development platform. C# is used to write code, compile into .NET's intermediate language (IL), and executed by the .NET runtime (CLR).

C#.NET is still important because it provides powerful tools and libraries that support multiple application development. 1) C# combines .NET framework to make development efficient and convenient. 2) C#'s type safety and garbage collection mechanism enhance its advantages. 3) .NET provides a cross-platform running environment and rich APIs, improving development flexibility.

C#.NETisversatileforbothwebanddesktopdevelopment.1)Forweb,useASP.NETfordynamicapplications.2)Fordesktop,employWindowsFormsorWPFforrichinterfaces.3)UseXamarinforcross-platformdevelopment,enablingcodesharingacrossWindows,macOS,Linux,andmobiledevices.


Hot AI Tools

Undresser.AI Undress
AI-powered app for creating realistic nude photos

AI Clothes Remover
Online AI tool for removing clothes from photos.

Undress AI Tool
Undress images for free

Clothoff.io
AI clothes remover

Video Face Swap
Swap faces in any video effortlessly with our completely free AI face swap tool!

Hot Article

Hot Tools

SecLists
SecLists is the ultimate security tester's companion. It is a collection of various types of lists that are frequently used during security assessments, all in one place. SecLists helps make security testing more efficient and productive by conveniently providing all the lists a security tester might need. List types include usernames, passwords, URLs, fuzzing payloads, sensitive data patterns, web shells, and more. The tester can simply pull this repository onto a new test machine and he will have access to every type of list he needs.

WebStorm Mac version
Useful JavaScript development tools

Atom editor mac version download
The most popular open source editor

EditPlus Chinese cracked version
Small size, syntax highlighting, does not support code prompt function

DVWA
Damn Vulnerable Web App (DVWA) is a PHP/MySQL web application that is very vulnerable. Its main goals are to be an aid for security professionals to test their skills and tools in a legal environment, to help web developers better understand the process of securing web applications, and to help teachers/students teach/learn in a classroom environment Web application security. The goal of DVWA is to practice some of the most common web vulnerabilities through a simple and straightforward interface, with varying degrees of difficulty. Please note that this software