基于VB6.0学生管理系统设计 Public UserName As String Sub Main() Dim newlogin As New Login '声明 newlogin.Show 1 If Not newlogin.Okf Then End End If Unload newlogin Set newMain = New MainForm '创建对象 newMain.Show End Sub Public Function ConnectStr() As String '自定义连
针对煤矿监控系统采用有线通信方式无法实现信息灵活采集的问题,构建了基于VB6.0的无线瓦斯监测系统,主要介绍了基于VB6.0的无线瓦斯监测系统软件的设计。该软件通过CAN总线网络接收数据采集终端发送的瓦斯数据信息,根据数据帧内容确定作业地点、作业人员、瓦斯浓度,并将数据存储在SQL Server 2000数据库中,从而实现了瓦斯浓度超限报警、实时数据显示、人员定位信息查询等功能。
