VB+数据库+串口图文教程.docVIP

先看下面的文字： VB很简单，比C语言简单很多，文科生学习的都是VB。 以下是我的想法： 1.理解并熟悉基本的ActiveX控件（包括属性、调用方法）； 2.理解并掌握变量、函数（方法）的定义与调用； 以上两点都是很基本的要求，但是都要进行编程实验，从最简单的开始， 一步步开始，一步步熟悉，不然即使有现成的代码完成了设计也很难有实质性进步。 下面开始实质性要求了： 1. 熟悉下图基本控件，熟悉其基本属性、基本方法，并掌握变量、函数（方法）的定义与调用； 这部分可能会要求写十几个（以上的）程序，很是很难坚持的，但是请你一定注意，没有这部分的训练，VB对你来说就真的没什么价值了。 这一个过程最好持续一周！最少三天！！！ 注意：保留你做的每一个程序，哪怕很简单，但这却是你进步的足迹。 【要求】最终完成一定复杂度的计算器程序。如下图： 如果太难，那你自己完成一个自己认为可以胜任的（代码100行） 现在开始进阶了，在这部分，结合本次课程设计，你重点了解数据库和串口方面的知识。 放心，我现在已经在进行这样的工作，即把相关的资料整理在下面的网站上 /?p=482 （现在可能还没有更新，但是可能会很快的！！！） 这样，你会节约大量的时间，进步很快! 给你一个模板： 下面开始一下具体的图文讲解了： 串口操作： 打开串口控件 工程——部件，然后选择： 确认后会发现有如下控件 设置参数 MSComm1.Settings = 9600,n,8,1 MSComm1.RThreshold = 1 MSComm1.CommPort = 4 MSComm1.InputMode = comInputModeText 二进制接收 打开 If MSComm1.PortOpen = False Then ask = MsgBox(打开串口失败,请连接好串口！, vbExclamation, 警告) End If MSComm1.PortOpen = True 关闭 MSComm1.PortOpen = False 接收数据 Dim intInputLen As Integer Select Case MSComm1.CommEvent Case comEvReceive ‘时间触发 此处添加处理接收的代码 intInputLen = MSComm1.InBufferCount ‘读取数据 发送数据 MSComm1.OutBufferCount = 0 ‘缓冲区清零 MSComm1.Output = Outbyte ‘发数据,Outbyte为想发的数据 数据库操作 添加Adodc和DataGrid控件 工程——部件 选择如下图 确认后会有如下控件 添加ADO控件 在窗体上加一个ADO控件 选中后右键选择 ADODC属性 打开属性页 如下图 点击生成 然后选择 下一步后选择数据库（在这之前你应该建好数据库，并写有数据） 关于数据库的创建，在本文档的最后会有介绍。 选择好数据库 测试连接 成功 确定后回到属性页 点击记录源 填写如下SQL语句（其中，命令文本中的time，tem，temcode，id应为你自己的数据库中的字段。） 在窗体上再添加一个文本框 把其属性设置为： 运行 你可以看到text中显示的就是数据库中的数据了。 再在窗体上添加一个DataGrid控件： 设置属性： 运行可以看到： 关于具体数据库具体操作（这里指代码级）还有很多内容，这个一时下面我作一些简单介绍（这些只能支持简单的数据库操作）： 浏览记录集： AbsoloutPostion属性 AbsoloutPostion返回当前的记录集值，第n条记录的AbsoloutPostion属性值为n。 BOF和EOF的属性 BOF判定记录指针是否在首记录之前，若BOF为True，则当前位置位于记录集的第1条记录之前；与此类似，EOF判定记录指针是否在末记录之后。（这很重要，自己去体会！） RecordCount属性 略！（自己看看） Find方法 略！（不是不重要，知识内容有点多，打字很浪费时间，另本次任务基本可不用） Move方法 使用Move方法可以使用代码控制指针的位置： MoveFirst：移动至第一条记录； MoveLast：移动至最后一条记录； MoveNext：移动至下一条记录； MovePrevious：移动至前一条记录； Move[n]：移动n条记录，当n大于零，则向前（记录集尾部）移动n条记录，当n小于零，则向后（记录集头部）移动n条记录。 Example：（注意体会！！！） ‘上一条 Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst ‘下一条