VB6数据库查询的一段代码，上下翻页等

最新推荐文章于 2023-02-11 17:40:19 发布
最新推荐文章于 2023-02-11 17:40:19 发布
阅读量320 收藏
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/wmnmtm/article/details/82923278
版权

5107363452415052753.jpg

 

 

 

 

Private Sub cancelCommand_Click()
        txtAddress.Enabled = False
        txtBirthdate.Enabled = False
        txtComment.Enabled = False
        txtDept.Enabled = False
        txtDuty.Enabled = False
        txtEducation.Enabled = False
        txtJobtime.Enabled = False
        txtJointime.Enabled = False
        txtName.Enabled = False
        txtNation.Enabled = False
        txtPersona.Enabled = False
        txtPolitical.Enabled = False
        txtPopulation.Enabled = False
        txtWife.Enabled = False
        comboSex.Enabled = False
        firstCommand.Enabled = True
        previousCommand.Enabled = True
        nextCommand.Enabled = True
        lastCommand.Enabled = True
        editCommand.Enabled = True
        updateCommand.Enabled = False
        cancelCommand.Enabled = False
        deleteCommand.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = False
        Command1.Enabled = True
        Adodc1.Refresh
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Command2_Click()
    '添加新会员
    txtAddress.Enabled = True
    txtBirthdate.Enabled = True
    txtComment.Enabled = True
    txtDept.Enabled = True
    txtDuty.Enabled = True
    txtEducation.Enabled = True
    txtJobtime.Enabled = True
    txtJointime.Enabled = True
    txtName.Enabled = True
    txtNation.Enabled = True
    txtPersona.Enabled = True
    txtPolitical.Enabled = True
    txtPopulation.Enabled = True
    txtWife.Enabled = True
    comboSex.Enabled = True
    firstCommand.Enabled = False
    previousCommand.Enabled = False
    nextCommand.Enabled = False
    lastCommand.Enabled = False
    editCommand.Enabled = False
    updateCommand.Enabled = False
    cancelCommand.Enabled = False
    deleteCommand.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = True
    Command1.Enabled = False
    Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
    If Not (Testtxt(txtAddress.Text) And Testtxt(txtBirthdate.Text) And Testtxt(txtComment.Text) And Testtxt(txtDept.Text) And Testtxt(txtDuty.Text) And Testtxt(txtEducation.Text) And Testtxt(txtJobtime.Text) And Testtxt(txtJointime.Text) And Testtxt(txtName.Text) And Testtxt(txtNation.Text) And Testtxt(txtPersona.Text) And Testtxt(txtPolitical.Text) And Testtxt(txtPopulation.Text) And Testtxt(txtWife.Text)) Then
        MsgBox "信息输入不完整，请检查并确认信息！", vbOKOnly + vbExclamation, "请注意"
        txtName.SetFocus
        Exit Sub
    End If
    If Not IsNumeric(Trim(txtPopulation)) Then
        MsgBox "家庭人口，请输入数字！", vbOKOnly + vbExclamation, "请注意"
        txtPopulation.SetFocus
        Exit Sub
    End If
    If Not (IsDate(txtBirthdate.Text) And IsDate(txtJobtime.Text) And IsDate(txtJointime.Text)) Then
        MsgBox "日期时间格式应为：YYYY-MM-DD，请确认输入无误！", vbOKOnly + vbExclamation, "请注意"
        txtBirthdate.SetFocus
    Else
        Adodc1.Recordset.Update
        Call LogPlug("会员信息", "添加新会员：" & Trim(txtName.Text))
        MsgBox "添加会员信息成功！", vbOKOnly + vbExclamation, "恭喜"
        Adodc1.Recordset.MoveLast
    End If
        txtAddress.Enabled = False
        txtBirthdate.Enabled = False
        txtComment.Enabled = False
        txtDept.Enabled = False
        txtDuty.Enabled = False
        txtEducation.Enabled = False
        txtJobtime.Enabled = False
        txtJointime.Enabled = False
        txtName.Enabled = False
        txtNation.Enabled = False
        txtPersona.Enabled = False
        txtPolitical.Enabled = False
        txtPopulation.Enabled = False
        txtWife.Enabled = False
        comboSex.Enabled = False
        firstCommand.Enabled = True
        previousCommand.Enabled = True
        nextCommand.Enabled = True
        lastCommand.Enabled = True
        editCommand.Enabled = True
        updateCommand.Enabled = False
        cancelCommand.Enabled = False
        deleteCommand.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = False
        Command1.Enabled = True
End Sub

Private Sub Command4_Click()

End Sub

Private Sub Command6_Click()

End Sub

Private Sub deleteCommand_Click()
    str2 = MsgBox("你确定删除当前记录吗？！", vbOKCancel, "删除当前记录")
    If str2 = vbOK Then
        Call LogPlug("会员信息", "删除会员：" & Trim(txtName.Text) & "的信息。")
        If Adodc1.Recordset.RecordCount = 1 Then
            Adodc1.Recordset.Delete
            Unload Me
            Me.Show
        Else
            Adodc1.Recordset.MoveNext
            If Adodc1.Recordset.EOF Then
                Adodc1.Recordset.MoveLast
                Adodc1.Recordset.Delete
                Adodc1.Recordset.MoveFirst
            Else
                Adodc1.Recordset.MovePrevious
                Adodc1.Recordset.Delete
                Adodc1.Recordset.MoveNext
            End If
        End If
    End If
        txtAddress.Enabled = False
        txtBirthdate.Enabled = False
        txtComment.Enabled = False
        txtDept.Enabled = False
        txtDuty.Enabled = False
        txtEducation.Enabled = False
        txtJobtime.Enabled = False
        txtJointime.Enabled = False
        txtName.Enabled = False
        txtNation.Enabled = False
        txtPersona.Enabled = False
        txtPolitical.Enabled = False
        txtPopulation.Enabled = False
        txtWife.Enabled = False
        comboSex.Enabled = False
        firstCommand.Enabled = True
        previousCommand.Enabled = True
        nextCommand.Enabled = True
        lastCommand.Enabled = True
        editCommand.Enabled = True
        updateCommand.Enabled = False
        cancelCommand.Enabled = False
        deleteCommand.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = False
        Command1.Enabled = True
End Sub

Private Sub editCommand_Click()
    txtAddress.Enabled = True
    txtBirthdate.Enabled = True
    txtComment.Enabled = True
    txtDept.Enabled = True
    txtDuty.Enabled = True
    txtEducation.Enabled = True
    txtJobtime.Enabled = True
    txtJointime.Enabled = True
    txtName.Enabled = True
    txtNation.Enabled = True
    txtPersona.Enabled = True
    txtPolitical.Enabled = True
    txtPopulation.Enabled = True
    txtWife.Enabled = True
    comboSex.Enabled = True
    firstCommand.Enabled = False
    previousCommand.Enabled = False
    nextCommand.Enabled = False
    lastCommand.Enabled = False
    editCommand.Enabled = False
    updateCommand.Enabled = True
    cancelCommand.Enabled = True
    deleteCommand.Enabled = True
    Command2.Enabled = False
    Command3.Enabled = False
    Command1.Enabled = False
End Sub

Private Sub firstCommand_Click()
    '第一条
    Adodc1.Recordset.MoveFirst
End Sub

Private Sub Form_Load()
    Dim Sc As String
    Sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\tradeunion.mdb"
    Set cn = New ADODB.Connection
    cn.Open Sc
    Dim OneQuerySql As String
    OneQuerySql = "select* from 会员基本信息表"
    Dim AdoRsTradeMem As New ADODB.Recordset
    If AdoRsTradeMem.State = adStateOpen Then
        AdoRsTradeMem.Close
    End If
    AdoRsTradeMem.Open OneQuerySql, cn, adOpenKeyset, adLockOptimistic
    Set Adodc1.Recordset = AdoRsTradeMem
    If Adodc1.Recordset.EOF Then
        MsgBox "系统内不存在任何会员基本信息，请先添加会员信息", vbOKOnly + vbExclamation, "警告"
        txtAddress.Enabled = True
        txtBirthdate.Enabled = True
        txtComment.Enabled = True
        txtDept.Enabled = True
        txtDuty.Enabled = True
        txtEducation.Enabled = True
        txtJobtime.Enabled = True
        txtJointime.Enabled = True
        txtName.Enabled = True
        txtNation.Enabled = True
        txtPersona.Enabled = True
        txtPolitical.Enabled = True
        txtPopulation.Enabled = True
        txtWife.Enabled = True
        comboSex.Enabled = True
        firstCommand.Enabled = False
        previousCommand.Enabled = False
        nextCommand.Enabled = False
        lastCommand.Enabled = False
        editCommand.Enabled = False
        updateCommand.Enabled = False
        cancelCommand.Enabled = False
        deleteCommand.Enabled = False
        Command2.Enabled = False
        Command3.Enabled = True
        Command1.Enabled = False
        Adodc1.Recordset.AddNew
        Exit Sub
    Else
        Adodc1.Recordset.MoveFirst
        txtAddress.Enabled = False
        txtBirthdate.Enabled = False
        txtComment.Enabled = False
        txtDept.Enabled = False
        txtDuty.Enabled = False
        txtEducation.Enabled = False
        txtJobtime.Enabled = False
        txtJointime.Enabled = False
        txtName.Enabled = False
        txtNation.Enabled = False
        txtPersona.Enabled = False
        txtPolitical.Enabled = False
        txtPopulation.Enabled = False
        txtWife.Enabled = False
        comboSex.Enabled = False
        firstCommand.Enabled = True
        previousCommand.Enabled = True
        nextCommand.Enabled = True
        lastCommand.Enabled = True
        editCommand.Enabled = True
        updateCommand.Enabled = False
        cancelCommand.Enabled = False
        deleteCommand.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = False
        Command1.Enabled = True
    End If
End Sub

Private Sub lastCommand_Click()
    '最后一条
    Adodc1.Recordset.MoveLast
End Sub

Private Sub nextCommand_Click()
    '下一条
    If Adodc1.Recordset.EOF Then
        Adodc1.Recordset.MoveFirst
    Else
        Adodc1.Recordset.MoveNext
    End If
End Sub

Private Sub previousCommand_Click()
    '上一条
    If Adodc1.Recordset.BOF Then
        Adodc1.Recordset.MoveLast
    Else
        Adodc1.Recordset.MovePrevious
    End If
End Sub

Private Sub updateCommand_Click()
    If Not (Testtxt(txtAddress.Text) And Testtxt(txtBirthdate.Text) And Testtxt(txtComment.Text) And Testtxt(txtDept.Text) And Testtxt(txtDuty.Text) And Testtxt(txtEducation.Text) And Testtxt(txtJobtime.Text) And Testtxt(txtJointime.Text) And Testtxt(txtName.Text) And Testtxt(txtNation.Text) And Testtxt(txtPersona.Text) And Testtxt(txtPolitical.Text) And Testtxt(txtPopulation.Text) And Testtxt(txtWife.Text)) Then
        MsgBox "信息输入不完整，请检查并确认信息！", vbOKOnly + vbExclamation, "请注意"
        txtName.SetFocus
        Exit Sub
    End If
    If Not IsNumeric(Trim(txtPopulation)) Then
        MsgBox "家庭人口，请输入数字！", vbOKOnly + vbExclamation, "请注意"
        txtPopulation.SetFocus
        Exit Sub
    End If
    If Not (IsDate(txtBirthdate.Text) And IsDate(txtJobtime.Text) And IsDate(txtJointime.Text)) Then
        MsgBox "日期时间格式应为：YYYY-MM-DD，请确认输入无误！", vbOKOnly + vbExclamation, "请注意"
        txtBirthdate.SetFocus
    Else
        Adodc1.Recordset.Update
        Call LogPlug("会员信息", "修改会员：" & Trim(txtName.Text) & "的信息。")
        MsgBox "修改会员信息成功！", vbOKOnly + vbExclamation, "恭喜"
    End If
   
        '成功更新后，将各输入框重设为不可编辑状态
        txtAddress.Enabled = False
        txtBirthdate.Enabled = False
        txtComment.Enabled = False
        txtDept.Enabled = False
        txtDuty.Enabled = False
        txtEducation.Enabled = False
        txtJobtime.Enabled = False
        txtJointime.Enabled = False
        txtName.Enabled = False
        txtNation.Enabled = False
        txtPersona.Enabled = False
        txtPolitical.Enabled = False
        txtPopulation.Enabled = False
        txtWife.Enabled = False
        comboSex.Enabled = False
        firstCommand.Enabled = True
        previousCommand.Enabled = True
        nextCommand.Enabled = True
        lastCommand.Enabled = True
        editCommand.Enabled = True
        updateCommand.Enabled = False
        cancelCommand.Enabled = False
        deleteCommand.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = False
        Command1.Enabled = True
End Sub

 

 

 

 

 

wmnmtm
关注
VB DataGridView分页，本人只做了上一页和下一页
siyuan6351的专栏
09-29 1276
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ‘下一页         Dim page As New Pa
DBGridEh大全
热门推荐
jian704的专栏
09-01 1万+
查看完全版本：dbgrid应用全书论坛跳转到...╋名狐堂├名狐介绍├名狐讲座╋技术论坛├VFP 论坛├DELPHI├CGI、ASP、JAVA论坛├LINUX 论坛├dot NET论坛├其它语言C,C++,PB,VB╋专题技术├VFP + SQL Server├类的应用、VFP调用API├企业管理与软件╋情感论坛├情感
vb翻书特效代码
09-11
vb翻书特效代码，VB小项目案例，与大家一起分享下，希望对大家有所帮助
帐目查询(VB6.0源代码编写)'按日期查询并汇总商品销售信息
03-07
帐目查询(VB6.0源代码编写)'按日期查询并汇总商品销售信息 Adodc1.RecordSource = "select * from xsd where 日期 between " + Chr(35) + Str(DTPicker1.Value) + Chr(35) + "and " + Chr(35) + Str(DTPicker2.Value) + Chr(35) + "order by 日期"
VB中连接与查询ACCESS数据库模块代码
03-10
我在网上整理的VB中连接与查询ACCESS数据库模块代码。 挺好用的，觉得可以跟大家分享分享，资源分就两分
上一页，下一页的翻页制作`
最新发布
Lynn1724的博客
02-11 528
上一页，下一页的翻页制作`
VB客户报表打印预览程序
05-12
VB源码是实现这一功能的基础，通过编写控制打印流程和预览界面的代码，可以构建出这样一个系统。下面将详细介绍这个程序的主要组成部分和涉及的技术知识点。 首先，报表打印预览涉及到的关键概念是图形用户界面...
图片管理系统vb课程设计
11-29
《VB实现的图片管理系统课程设计...总的来说，通过VB进行图片管理系统的设计，不仅能锻炼编程技能，还能深入了解文件操作、数据库管理和用户界面设计等多方面知识。希望这个课程设计能为你的学习之路提供有价值的参考。
一个页码类文件
01-21
描述中提到，“写的一个简单的页码类，直接返回HTML代码”，这意味着这个类在被调用时，会生成一段HTML字符串，这段字符串包含了页码导航所需要的所有元素，如数字页码、上一页和下一页的链接等。开发者可以直接将这...
如何在DataGrid控件中实现编辑、删除、分类以及分页操作
萝卜青菜
09-25 1208
前言：这篇文章主要介绍如何在DataGrid控件中实现编辑、删除、分类以及分页操作。为了实现我们的意图，我们使用SqlServer2000自带的NorthWind数据库。程序分为两部分：1.包含HTML代码的.ASPX文件2.包含所有逻辑及方法的后台C#类文件代码：ASPX文件：在这里我们设计了一个DataGrid对象，我为一些属性和方法作了注解。它就变得如此的简单：<asp:DataGri
可以自动实现翻页的记事本（VB版）
04-02
利用VB6编写的记事本程序，可以实现记事本的主要功能，并且能够根据设置，按照一定的时间间隔翻页
VB产品入库查询系统源码
08-09
摘要:VB源码,数据库应用,产品入库查询<br>　　VB产品入库查询系统源码，两大功能，一个是产品入库、一个是产品查询。同时还包括入库信息录入和查询等。
VB数据颁显，分页显示数据库表中的记录
05-07
摘要:VB源码,数据库应用,分页　　VB分页显示数据库表中的记录，从当前页的第1条记录开始显示I条记录，向前翻页，书签指示当前页的第1条记录位置。。它是通过PRINTFORM方法打印输出窗体上的记录。为了不打印窗体上的控件，打印前使控件不可见。 　　当单击UPDOWN控件上的DOWN按钮时，使文本框的值减1。 　　当单击UPDOWN控件上的UP按钮时，使文本框的值加1。
VB进行SQL语句查询的演示程序源代码
06-12
摘要:VB源码,数据库应用,SQL查询　　VB进行SQL语句查询的演示程序源代码，适合输入SQL查询语句，即可对数据库进行查询。测试注意：需要先打开VB工程，重新设置窗体中AdoData控件的ConnetionString属性中数据库路径为“MySampleDB.mdb”所在路径，否则运行报错，最好是在AdoData控件的属性对话框中进行数据库路径的设置，或者移动Access数据库为指定的录目中。 信息来源:乐乐源码网(www.lelecode.com)
动态实现前后台分页、翻页按钮、上一页、下一页、首页、末页
weixin_30443747的博客
07-27 1231
HTML： <!-- 检索查询 --><ul class="retrieval"> 　　<li> 　　　　<label>检查时间</label> 　　　　<ul class="inspect_time"> 　　　　　　<li class="retrieval_co...
VB中Recordset的添加记录方法区分
专栏
03-29 9434
今天开始了煤气层水合物项目的进行 ,用一天时间搭建了框架,今天进行了参数录入的模块.在向数据库中写入数据时,遇到了一点问题,当我按下保存的时候,提示文件名,目录名或卷标语法不正确!  With rst            .MoveFirst       (1) .AddNew            .Fields(1) = txtLowTemp.Text            .Fiel
使用VB进行数据库查询基础及SQL介绍
本文主要介绍了如何使用VB（Visual Basic）开发数据库应用程序，特别是涉及到了简单的SELECT查询语句，以及数据库的一些基本概念。 在VB开发数据库应用程序中，VB扮演的角色是前端用户界面工具，负责交互展示和控制...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值