VB查询数据库之写入数据库——机房收费系统总结（三）

在机房收费系统中，新注册的用户，更改的密码，上机下级记录，上机收费记录等等都要写入数据库，这样，后面的查询才能生效。像数据库中写入数据，首先，找到你要写入数据的数据库中的表，在表中建立新的行，让后再把相对应的数据写书数据库，保存，更新。我认为大概就是这样，以机房收费系统注册用户为例，看看写入数据库的代码吧！

添加用户窗体如下所示（以它为例）：

代码如下（仅供参考）：

在写如之前，首先要确定输入数据库中的各个数据不能为空。

Option Explicit
'————————————————————————
'窗体：添加用户窗体
'说明：查询每个文本框不为空，两次密码相同，最后把添加信息写入USER—info 表 中
'————————————————————————Private Sub cmdOk_Click()Dim mrc As ADODB.RecordsetDim MsgText As StringDim txtSQL As StringDim time1 As StringDim date1 As String'各个文本框不能空着,且密码和确认密码值要想同If Not Testtxt(Text1.Text) ThenMsgBox "请输入用户名！", vbOKOnly + vbExclamation, "警告"Text1.SetFocusExit SubEnd IfIf Not Testtxt(Text2.Text) ThenMsgBox "请返回上一个界面选择用户级别！", vbOKOnly + vbExclamation, "警告"frmadduser.ShowUnload MeExit SubEnd IfIf Not Testtxt(Text3.Text) ThenMsgBox "请输入用户名！", vbOKOnly + vbExclamation, "警告"Text3.SetFocusExit SubEnd IfIf Not Testtxt(Text4.Text) ThenMsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"Text3.SetFocusExit SubEnd IfIf Not Testtxt(Text5.Text) ThenMsgBox "请确认密码！", vbOKOnly + vbExclamation, "警告"Text5.SetFocusExit SubEnd IfIf Text4.Text <> Text5.Text ThenMsgBox "两次输入密码不一致，请重新输入！", 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) = UserNamemrc.UpdateMsgBox "添加用户成功成功！", vbOKOnly + vbExclamation, "警告"mrc.CloseMe.HideEnd Sub

Private Sub Form_Load()Text2.Text = level '在上一个窗体中设置用户级别End Sub

转载于:https://www.cnblogs.com/lucari/p/4608598.html

VB查询数据库之写入数据库——机房收费系统总结（三）相关推荐

数据库设计不求人（机房收费系统）
前言我想在进行数据库设计之前,需要要明白为什么设计数据库,不进行数据库设计可以吗?如果只是随便在院子里搭一个棚子需不需要先画图设计,但是如果要建造一栋大厦又需不需要设计? 思考之后,可以得出结论:面 ...
机房收费系统（三）选中学生强制下机
机房进行的差不多了,但是自己的学生上机状态查询总是出现错误,该如何单机选中下机呢?自己想的很好,不就是单机选中,然后flexgrid中的和数据库表中的额内容消失不见吗! 想的很简单,其实做起来也并非很 ...
VB.NET版机房收费系统---组合查询
查询的意思就是查找,寻找,指在某一个或几个地方找出自己所要的信息,假如我想搜索一下我自己写的博客,名字叫做初雪之恋,我在百度的搜索框中输入丁国华三个字,会有怎样的惊喜等着我? 啊哦,这个信息并不是我想 ...
.NET分层登陆——机房收费系统再总结
去年的时候,我写过一篇机房收费系统登陆的总结文章,那是站在VB的基础上,直接查询数据库实现的登陆.是非常初期的知识.假设想了解详情,请看VB查询数据库之登陆窗口--机房收费系统总结(一). 今天.我要 ...
【VB与数据库】机房收费系统开发阶段之登陆
在机房收费系统中开始就是登陆窗体,在开始的时候如果全局观没有把握好,就会丢掉更新数据库中的数据,我刚开始就忘了更新Onwork _Info中的数据,所以要做一个窗体前,就要给它建立好自己的关系图,牵一 ...
机房收费系统数据库概念结构设计
数据库的设计大致流程想必大家都知道,不知道的也能很容易的在网上找到相关的资料,通常,我们将数据库设计分为6个阶段,即需求分析阶段.概念结构设计阶段.逻辑结构设计阶段.物理结构设计阶段.实施阶段.运行和 ...
数据库设计说明书——机房收费系统
数据库设计说明书 1引言 1.1编写目的说明编写这份数据库设计说明书的目的,指出预期的读者. 本数据库设计说明书说明了机房收费系统的数据库设计和结构情况,用于开发人员进行项目设计,同时也为后期数据库 ...
vb.net机房收费系统之组合查询
我个人一直认为,组合查询是机房收费系统的一个难点,尤其是用到三层之后,如果要为组合查询中的每一个查询建立一个显然是太麻烦了. 下面介绍一下我的方法,对大家起个参考作用. 我将该表中可输入的内容定义为一 ...
机房收费系统（VB.NET）——超具体的报表制作过程
之前做机房收费系统用的报表是Grid++Report,这次VB.NET重构中用到了VisualStudio自带的报表控件. 刚開始当然对这块功能非常不熟悉,只是探究了一段时间后还是把它做出来了. 以下 ...

VB查询数据库之写入数据库——机房收费系统总结（三）

VB查询数据库之写入数据库——机房收费系统总结（三）相关推荐

最新文章

热门文章