在机房收费系统中,新注册的用户,更改的密码,上机下级记录,上机收费记录等等都要写入数据库,这样,后面的查询才能生效。像数据库中写入数据,首先,找到你要写入数据的数据库中的表,在表中建立新的行,让后再把相对应的数据写书数据库,保存,更新。我认为大概就是这样,以机房收费系统注册用户为例,看看写入数据库的代码吧!
添加用户窗体如下所示(以它为例):
代码如下(仅供参考):
在写如之前,首先要确定输入数据库中的各个数据不能为空。
Option Explicit
'————————————————————————
'窗体:添加用户窗体
'说明:查询每个文本框不为空,两次密码相同,最后把添加信息写入USER—info 表 中
'————————————————————————
Private Sub cmdOk_Click()
Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim txtSQL As String
Dim time1 As String
Dim date1 As String
'各个文本框不能空着,且密码和确认密码值要想同
If Not Testtxt(Text1.Text) Then
MsgBox "请输入用户名!", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Exit Sub
End If
If Not Testtxt(Text2.Text) Then
MsgBox "请返回上一个界面选择用户级别!", vbOKOnly + vbExclamation, "警告"
frmadduser.Show
Unload Me
Exit Sub
End If
If Not Testtxt(Text3.Text) Then
MsgBox "请输入用户名!", vbOKOnly + vbExclamation, "警告"
Text3.SetFocus
Exit Sub
End If
If Not Testtxt(Text4.Text) Then
MsgBox "密码不能为空!", vbOKOnly + vbExclamation, "警告"
Text3.SetFocus
Exit Sub
End If
If Not Testtxt(Text5.Text) Then
MsgBox "请确认密码!", vbOKOnly + vbExclamation, "警告"
Text5.SetFocus
Exit Sub
End If
If Text4.Text <> Text5.Text Then
MsgBox "两次输入密码不一致,请重新输入!", vbOKOnly + vbExclamation, "警告"
End If
Set mrc = ExecuteSQL(txtSQL, MsgText)
txtSQL = "select * from User_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.AddNew '在表中建立新的列,写入添加数据
mrc.Fields(0) = Trim(Text1.Text)
mrc.Fields(1) = Trim(Text4.Text)
mrc.Fields(2) = Trim(Text2.Text)
mrc.Fields(3) = Trim(Text3.Text)
mrc.Fields(4) = UserName
mrc.Update
MsgBox "添加用户成功成功!", vbOKOnly + vbExclamation, "警告"
mrc.Close
Me.Hide
End Sub
Private Sub Form_Load()
Text2.Text = level '在上一个窗体中设置用户级别
End Sub
分享到:
相关推荐
vb 数据库操作实例,包括对数据库的链接,写入、读取、删除等操作,有具体实例代码。
VB数据库开发实例——专卖连锁销售统计系统并解析
VB数据库编程报告——学生管理系统
VB数据库编程报告——办公秘书系统
采用ado连接数据库.使用对象和记录集写入数据库。
Visual Basic数据库开发实例——预算管理系统
软件技术大作业——机房管理系统,vb编写,内含数据库、窗体工程、说明书等所有文档程序。
Visual Basic数据库开发实例——合同管理系统
自己做的数据库应用系统设计大作业——学生选课信息管理系统,SQL Server 2000和VB开发的,上传文件中包括word版系统设计说明书、实验报告、SQLServer数据库数据文件、日志文件以及VB源程序。
VS2019平台 利用VB.net 编写的FUNCTION 函数 对SQL2014数据库进行读取和写入的例程源码。运行直接查询数据库并显示。编辑好对应文本内容后点击保存,直接保存到SQL数据库中。适合工程直接引用以及项目二次开发。
Visual Basic数据库开发实例——宾馆管理系统
VB将多媒体文件写入Access数据库中 VB将多媒体文件写入Access数据库中
绝对原创的vb查询access数据库 本程序功能如下: 1.将数据库mycnno.mdb中的数据显示在控件datagrid中 2.用文本框1输入要查询的学号,文本框2显示查询的结果
VB读取文本 写入数据库 字符串操作实例
vb.net数据库连接实例,人事管理系统,数据库管理系统,图书馆管理,学生名册管理系统
停车收费管理系统(VB access数据库版本)停车收费管理系统(VB access数据库版本)停车收费管理系统(VB access数据库版本)
VB读取数据写入到数据库源码,直接可用!
VB简单考勤系统,作者:肖景峰,哈哈,称不上是系统,只能说是一个考勤程序的示例,可记录考勤人姓名、职务、考勤时间等信息,数据库是Access格式,功能并不多,是明日科技一本VB书中自带的例子,目的是为了学习VB...
vb编写的数据库系统源代码,网上下载,上传,供大家学习之用。
教程内容:VB开发数据库之使用数据绑定访问数据 使用数据库中数据,首先需要建立数据库连接,并获得其中的数据。VB为用户提供了许多方式访问数据库。