vb.net用户管理系统

最新推荐文章于 2025-08-17 09:28:27 发布

原创

最新推荐文章于 2025-08-17 09:28:27 发布 · 1.6k 阅读

收录于

这个VB.NET程序创建了一个用户管理系统，包括用户登录界面和数据网格视图展示用户信息。用户登录后，可以查看、编辑t_user表中的数据，系统会验证性别和生日输入的有效性，并对数据库进行相应更新。

Imports System.Data.SqlClient

Public Class Form1
Dim connstr As String = "Data Source=.;Initial Catalog=mydata;User ID=sa;Password=sa"

Dim txtusername As TextBox = New TextBox()
Dim txtpassword As TextBox = New TextBox()
WithEvents btnlogin As Button = New Button()
WithEvents dgv As DataGridView = New DataGridView()
Dim tc As TabControl = New TabControl()
Dim tp1 As TabPage = New TabPage("1")
Dim tp2 As TabPage = New TabPage("2")
Dim tp3 As TabPage = New TabPage("3")
Dim tp4 As TabPage = New TabPage("4")

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
Me.MaximizeBox = False
Me.AcceptButton = btnlogin

txtpassword.PasswordChar = "*"
btnlogin.Text = "登陆"
txtusername.Location = New Point(100, 100)
txtpassword.Location = New Point(100, 125)
btnlogin.Location = New Point(100, 150)

Me.Controls.Add(txtusername)
Me.Controls.Add(txtpassword)
Me.Controls.A