frmsetbf.frm

Visual Basic串口通信技术与典型实例

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmSetbf 
   Caption         =   "布防参数"
   ClientHeight    =   4830
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7980
   LinkTopic       =   "Form1"
   ScaleHeight     =   4830
   ScaleWidth      =   7980
   StartUpPosition =   3  'Windows Default
   Begin MSComctlLib.ListView ListView 
      Height          =   2175
      Left            =   840
      TabIndex        =   6
      Top             =   240
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   3836
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   5160
      TabIndex        =   5
      Top             =   3840
      Width           =   1215
   End
   Begin VB.CommandButton cmdLast 
      Caption         =   "上一步"
      Height          =   375
      Left            =   3360
      TabIndex        =   4
      Top             =   3840
      Width           =   1335
   End
   Begin VB.CommandButton cmdNext 
      Caption         =   "下一步"
      Height          =   375
      Left            =   1200
      TabIndex        =   3
      Top             =   3840
      Width           =   1215
   End
   Begin VB.CommandButton cmdEdit 
      Caption         =   "修改"
      Height          =   375
      Left            =   5160
      TabIndex        =   2
      Top             =   2760
      Width           =   1215
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "删除"
      Height          =   375
      Left            =   3360
      TabIndex        =   1
      Top             =   2760
      Width           =   1215
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加"
      Height          =   375
      Left            =   1200
      TabIndex        =   0
      Top             =   2760
      Width           =   1335
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   8040
      Y1              =   3480
      Y2              =   3480
   End
End
Attribute VB_Name = "frmSetbf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdd_Click()
   frmbf.Caption = "添加布防"
   frmbf.Show vbModal
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdDelete_Click()
   frmbf.Caption = "删除布防"
 '屏蔽frmbf上的textbox和optionbutton
   frmbf.Text1.Enabled = False
   frmbf.Text2.Enabled = False
   frmbf.Text3.Enabled = False
   frmbf.Option1.Enabled = False
   frmbf.Option2.Enabled = False
   frmbf.Option3.Enabled = False
   frmbf.Option4.Enabled = False
   frmbf.Show vbModal
End Sub

Private Sub cmdEdit_Click()
   frmbf.Caption = "编辑布防"
   frmbf.Show vbModal
End Sub

Private Sub cmdNext_Click()
   Me.Hide
   frmSetcj.Show vbModal
End Sub
'建表头
Private Sub makecolumns()
   ListView.View = lvwReport
   ListView.FullRowSelect = True
   ListView.ColumnHeaders.Clear
   ListView.ColumnHeaders.Add , , "布控名称", ListView.Width / 5
   ListView.ColumnHeaders.Add , , "事件编码", ListView.Width / 5
   ListView.ColumnHeaders.Add , , "端口属性", ListView.Width / 5
   ListView.ColumnHeaders.Add , , "端口编号", ListView.Width / 5
   ListView.ColumnHeaders.Add , , "是否启用", ListView.Width / 5
End Sub



Private Sub Form_Load()
   Call makecolumns
   Call Init
End Sub
'初始化
Private Sub Init()
Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
Dim str As String
    str = "select * from BufangSet"
    rs.Open str, cn, adOpenDynamic, adLockOptimistic
    
    ListView.ListItems.Clear
    
    If addlistitem(rs) Then chkIndex = 1
End Sub
'将打开的表r加入listview的item中，如果r不为空集的话，则返回true，反之为false
Private Function addlistitem(r As ADODB.Recordset) As Boolean
       '如果r为空集，则不用加入listview中
      If r.EOF Or r.BOF Then
                addlistitem = False
                Exit Function
      End If
   
      addlistitem = True
     
      r.MoveFirst
  
  While Not r.EOF And Not r.BOF
     Dim str1, str2, str3, str4 As String
     Dim sf As Boolean
     '将str1-4赋成打开的记录集的值（按顺序)
     
     str1 = r!bfname
     
     If IsNull(str1) Then
           MsgBox ("此纪录无主键")
           Exit Function
     End If
     
     If IsNull(r!bfcode) Then
                 str2 = "-"
     Else
                 str2 = DectoBin(r!bfcode)
     End If
     
     If IsNull(r!porperty) Then
                 str3 = "-"
     Else
                 str3 = r!porperty
     End If
     
     If IsNull(r!Number) Then
               str4 = "-"
     Else
               str4 = r!Number
     End If
     
     If IsNull(r!promote) Then
                sf = "-"
     Else
        sf = r!promote
      End If
     
     Set mLogItem = ListView.ListItems.Add(Text:=str1)
      mLogItem.ListSubItems.Add Text:=str2
      mLogItem.ListSubItems.Add Text:=str3
      mLogItem.ListSubItems.Add Text:=str4
      Select Case sf
       Case True
         mLogItem.ListSubItems.Add Text:="启用"
       Case False
         mLogItem.ListSubItems.Add Text:="禁用"
      End Select
      r.MoveNext
  Wend
      r.Close
End Function

Private Sub listView_ItemClick(ByVal Item As MSComctlLib.ListItem)
    chkIndex = Item.index
End Sub