?? frmsetpara.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmSetpara
Caption = "參數設置 1：布防參數"
ClientHeight = 6705
ClientLeft = 60
ClientTop = 345
ClientWidth = 6765
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6705
ScaleWidth = 6765
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdPrev
Caption = "上一步"
Enabled = 0 'False
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2640
TabIndex = 6
Top = 6120
Width = 1335
End
Begin VB.CommandButton cmdEdit
Caption = "修 改"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5400
TabIndex = 5
Top = 2280
Width = 1335
End
Begin VB.CommandButton cmdEnter
Caption = "下一步"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 240
TabIndex = 4
Top = 6120
Width = 1335
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 5160
TabIndex = 3
Top = 6120
Width = 1335
End
Begin VB.CommandButton cmdDelete
Caption = "刪 除"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5385
TabIndex = 2
Top = 1365
Width = 1335
End
Begin VB.CommandButton cmdAdd
Caption = "添 加"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5385
TabIndex = 1
Top = 390
Width = 1335
End
Begin MSComctlLib.ListView lvwPara
Height = 5295
Left = 240
TabIndex = 0
Top = 360
Width = 5000
_ExtentX = 8811
_ExtentY = 9340
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin VB.Line Line2
BorderColor = &H80000005&
BorderWidth = 2
X1 = 120
X2 = 6600
Y1 = 6000
Y2 = 6000
End
Begin VB.Line Line1
X1 = 120
X2 = 6600
Y1 = 5970
Y2 = 5970
End
End
Attribute VB_Name = "frmSetpara"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdd_Click()
frmBufpara.Caption = "添加布防"
frmBufpara.Show vbModal
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdDelete_Click()
frmBufpara.Caption = "刪除布防"
'屏蔽frmBufpara上的textbox和optionbutton
frmBufpara.Text1.Enabled = False
frmBufpara.Text2.Enabled = False
frmBufpara.Text3.Enabled = False
frmBufpara.Option1.Enabled = False
frmBufpara.Option2.Enabled = False
frmBufpara.Option3.Enabled = False
frmBufpara.Option4.Enabled = False
frmBufpara.Show vbModal
End Sub
Private Sub cmdEdit_Click()
frmBufpara.Caption = "編輯布防"
frmBufpara.Show vbModal
End Sub
Private Sub cmdEnter_Click()
Me.Hide
frmSetpara2.Show vbModal
End Sub
'建表頭
Private Sub makecolumns()
lvwPara.View = lvwReport
lvwPara.FullRowSelect = True
lvwPara.ColumnHeaders.Clear
lvwPara.ColumnHeaders.Add , , "布控名稱", lvwPara.Width / 5
lvwPara.ColumnHeaders.Add , , "事件編碼", lvwPara.Width / 5
lvwPara.ColumnHeaders.Add , , "端口屬性", lvwPara.Width / 5
lvwPara.ColumnHeaders.Add , , "端口編號", lvwPara.Width / 5
lvwPara.ColumnHeaders.Add , , "是否啟用", lvwPara.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
lvwPara.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 = lvwPara.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 lvwPara_ItemClick(ByVal Item As MSComctlLib.ListItem)
chkIndex = Item.index
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -