当前位置： 首页 > article >正文

我的第一个VB程序

article 2025/9/15 23:12:31

 

        今天是2007-8-28日，今天，我要为我的第一个VB程序搜集资料，准备做一个功能齐全的通讯录，想想要不了多久就能看到效果，不免有一点点期待，现在做asp已经没有什么意思了，这次学VB也是一个偶然的决定，经过这几天的学习，还是有一些效果的，现在，对数据库的连接、编辑、显示、删除都没有问题了，只需对效果性的内容搜集些资料。

        功能预计有：常规的添加、编辑、删除、查找，热度定义（根据重要程度，对久未联系的提示回访），日程安排，闹铃，导出TXT，数据库备份、恢复、压缩。 

         分类功能：交叉、无限级分类，同一单位查看，同一地区查看，拼音搜索，语音阅读。

         输入“赵”时,会把通讯录中所有姓赵的人的通讯信息全部显示出来以供选择

 ------------------------------------------------------------------------------------------------

 VB6.0中数据库连接示例：

------------------------------------------------------------------------------------------------

Private Sub Command1_Click()
    Adodc1.Refresh
End Sub

Private Sub Command2_Click()
    Unload Me
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 日志表 order by 操作时间 desc"
    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
End Sub


'备忘与说明：连接ACCESS2000数据库，并显示日志
'先在DataEnvironment1窗口设置Connect1,在右键菜单“提供程序”里设置Jet 4.0 Ole Db那一项，再设置“连接”，选择ACCESS2000数据库
'点“测试连接”按钮，如果提示“连接正确”，说明数据库成功连接。

'建一ADODC1控件
'建一DATA Grid 控件，DataSourse 属性设置为ADODC1

---------------------------------------------------------------------------------------------

  数据库记录编辑

---------------------------------------------------------------------------------------------

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 = True
        Command1.Enabled = True
        Adodc1.Refresh
End Sub

Private Sub Command1_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 Command2_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 Command3_Click()
    Unload Me
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 = True
        Command1.Enabled = True

    End If
End Sub

 

'在窗口建一ADODC1控件，
Private Sub Label12_Click()

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 = True
        Command1.Enabled = True
End Sub

 

 

 

http://www.lryc.cn/news/2413701.html

相关文章：

  • 编程常用工具
  • Spark SQL 初探： 使用大数据分析2000万数据
  • 安装程序不能验证 Update.inf 文件的完整性 之解决办法
  • 10分钟带你搭建属于自己的博客
  • 如何在谷歌地图（google maps）中获取经纬度
  • 基于DDD的微服务设计和开发实战
  • UILite——C++类库(XLib非界面功能库+UI和DirectUI库)简介
  • Linux操作系统介绍
  • 介绍个京阿尼的旧作
  • matlab水力学工具箱,水工设计工具箱免费版
  • 跨页传送-PreviousPage
  • 安卓应用《撕掉她的衣服》简化版
  • 新手唱歌从入门到精通，经典唱歌教程系列合集
  • 木马病毒表现手机中病毒/木马病毒对手机有用吗-手把手教白帽子自学
  • 解决笔记本电脑开机密码遗忘的几种方案，帮你轻松解除
  • 探索未来编程的新纪元：Eve语言
  • Windows Server 2003 Service Pack 2 安装和部署指南
  • sem_wait
  • 多进程和多线程
  • 全面解析msvcr100.dll丢失的5种解决方法，快速解决dll丢失问题
  • Linux嵌入式定义四个缓存区,Linux文件缓冲区详解
  • Linux服务器本地POST接口测试
  • 【正点原子FPGA连载】第二十章IP核之FIFO实验 -摘自【正点原子】新起点之FPGA开发指南_V2.1
  • _beginthreadex 和 _beginthread 的区别
  • 在java中调用weka聚类方法并显示相应的类标签+weka中创建arff数据
  • 企业安全意识必修课——修改远程桌面登录端口避免恶意扫描入侵
  • JSP | 简易购物车的实现
  • HTC （Desire V）T328W ROOT 教程 及关闭充电动画
  • 传奇单机版就是自己在家里架设一个
  • 基于SpringBoot+Vue酒店订房系统的设计与实现