VB查询数据库之写入数据库——机房收费系统总结(三)
2024-08-27 13:19:18
在机房收费系统中,新注册的用户,更改的密码,上机下级记录,上机收费记录等等都要写入数据库,这样,后面的查询才能生效。像数据库中写入数据,首先,找到你要写入数据的数据库中的表,在表中建立新的行,让后再把相对应的数据写书数据库,保存,更新。我认为大概就是这样,以机房收费系统注册用户为例,看看写入数据库的代码吧!
添加用户窗体如下所示(以它为例):
代码如下(仅供参考):
在写如之前,首先要确定输入数据库中的各个数据不能为空。
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
版权声明:本文为博主原创文章,未经博主允许不得转载。
最新文章
- 【小白的CFD之旅】13 敲门实例【续3】
- iOS 当请求到的数据是double类型,会失去精准度,并且去掉小数点后的0
- svn不能添加.a文件的解决方法
- Visual Studio远程调试监视器(MSVSMON.EXE)的32位版本不能用于调试64位进程或64位转储
- MVC中Action的执行过程
- ubuntu安装LAMP环境
- 19.状态者模式(State Pattern)
- Nginx_Lua
- android学习笔记21——消息提示Toast
- MDNavBarView下拉导航菜单(仿美团导航下拉菜单)
- 使用Python编程语言连接MySQL数据库代码
- Python爬虫使用Selenium+PhantomJS抓取Ajax和动态HTML内容
- 绑定运行计划sql_plan_baseline
- friend keyword 对于模板 并不只不过友元!!!
- python学习------迭代器协议和生成器
- 大数据新手之路一:安装JDK
- HDU 2012 素数判定
- centos 打包报错License for package Android SDK Build-Tools 25.0.3 not accepted
- Python中字典和集合的用法
- PTA——支票面额