急求VB程序注释!
来源:百度知道 编辑:UC知道 时间:2024/06/24 11:23:25
①
Dim WithEvents adoPrimaryRS As Recordset
Dim WithEvents adoPrimary As Recordset
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Private Sub Form_Load()
On Error Resume Next
For Each TextBox In Me.Controls
TextBox.Font.NAME = "宋体"
TextBox.Font.Size = 12
Next
SqlBuMen = "select distinct 分类名称 from 地点分类管理表"
Set RsBuMen = conn.Execute(SqlBuMen)
While Not RsBuMen.EOF
Combo2.AddItem Trim(RsBuMen("分类名称"))
RsBuMen.MoveNext
Wend
SqlBuMen = "select distinct 线路名称 from 线路管理表"
Set RsBuMen = conn.Execute(SqlBuMen)
While Not RsBuMen.EOF
Combo3.AddItem Trim(RsBuMen("线路名称"))
RsBuMen.MoveNext
Wend
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select 逻辑序号,地点名称,射频
①
Dim WithEvents adoPrimaryRS As Recordset '定义新包含事件的数据库读取表格RecordSet
Dim WithEvents adoPrimary As Recordset
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Private Sub Form_Load()
On Error Resume Next '错误处理
For Each TextBox In Me.Controls '读取所有文本框
TextBox.Font.NAME = "宋体" '设置字体
TextBox.Font.Size = 12
Next
SqlBuMen = "select distinct 分类名称 from 地点分类管理表" '数据库连接字符串,用于打开表格
Set RsBuMen = conn.Execute(SqlBuMen) '执行打开
While Not RsBuMen.EOF '挨行读取.不是到了结尾就继续执行
Combo2.AddItem Trim(RsBuMen("分类名称")) '在列表框中添加项目
RsBuMen.MoveNext '向后移一行,没有此行代码程序死循环
Wend
SqlBuMen = "select distinct 线路名称 from 线路管理表"'再次读取
Set RsBuMen = conn.Execute(SqlBuMen) '再次打开
While Not RsBuMen.EOF '同上
Combo3.AddItem Trim(RsBuMen("线路名称"))
RsBuMen.MoveNext
Wend <