📄 frmaccountedit.frm
字号:
TabIndex = 24
Top = 3720
Width = 1695
End
Begin VB.TextBox txtSelfTest
BackColor = &H00FFFFC0&
Enabled = 0 'False
Height = 300
Left = 2640
TabIndex = 23
Top = 3120
Width = 2295
End
Begin VB.TextBox txtOCTime
BackColor = &H00FFFFC0&
Enabled = 0 'False
ForeColor = &H80000007&
Height = 300
Left = 2640
TabIndex = 22
Top = 2472
Width = 2295
End
Begin VB.TextBox txtATime
BackColor = &H00FFFFC0&
Enabled = 0 'False
ForeColor = &H80000007&
Height = 300
Left = 2640
TabIndex = 21
Top = 1848
Width = 2295
End
Begin VB.ComboBox Combo1
Height = 300
Left = -71880
TabIndex = 14
Top = 480
Width = 735
End
Begin VB.TextBox txtFields
DataField = "FManager"
DataSource = "DataAccountInfo"
Height = 300
Index = 2
Left = -73440
MaxLength = 20
TabIndex = 3
Top = 1440
Width = 975
End
Begin VB.TextBox txtFields
DataField = "FTelephone"
DataSource = "DataAccountInfo"
Height = 300
Index = 3
Left = -69000
MaxLength = 20
TabIndex = 5
Top = 1440
Width = 1335
End
Begin VB.TextBox txtFields
DataField = "FAddress"
DataSource = "DataAccountInfo"
Height = 300
Index = 4
Left = -73440
MaxLength = 50
TabIndex = 6
Top = 2160
Width = 5775
End
Begin VB.TextBox txtFields
DataField = "FAccountName"
DataSource = "DataAccountInfo"
Height = 300
Index = 1
Left = -71400
MaxLength = 50
TabIndex = 2
Top = 720
Width = 3735
End
Begin VB.TextBox txtFields
DataField = "FAccountID"
DataSource = "DataAccountInfo"
Height = 300
Index = 0
Left = -73440
MaxLength = 4
TabIndex = 1
Top = 720
Width = 975
End
Begin VB.Frame Frame1
Caption = "通知人列表"
Height = 4215
Left = -74880
TabIndex = 30
Top = 840
Width = 7215
Begin MSDataGridLib.DataGrid NoticeGrid
Height = 3375
Left = 120
TabIndex = 42
Top = 240
Width = 6975
_ExtentX = 12303
_ExtentY = 5953
_Version = 393216
HeadLines = 1.5
RowHeight = 15
TabAction = 2
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
End
Begin VB.Frame Frame2
Caption = "具体路线"
Height = 1815
Left = -74760
TabIndex = 31
Top = 2760
Width = 7095
End
Begin VB.TextBox txtInstallDate
DataField = "Finstalldate"
Height = 270
Left = 2640
TabIndex = 47
Text = "Text1"
Top = 1200
Width = 1695
End
Begin VB.Label Label13
Caption = "用户类型"
Height = 255
Left = -72360
TabIndex = 46
Top = 1500
Width = 735
End
Begin VB.Label Label12
Caption = "选择通知表"
Height = 255
Left = -72960
TabIndex = 29
Top = 480
Width = 1095
End
Begin VB.Label Label11
Caption = "报警器当前状态"
Height = 255
Left = 720
TabIndex = 20
Top = 3780
Width = 1335
End
Begin VB.Label Label10
Caption = "最后一次布撤防时间"
Height = 255
Left = 720
TabIndex = 19
Top = 2532
Width = 1815
End
Begin VB.Label Label9
Caption = "最后一次自检时间"
Height = 255
Left = 720
TabIndex = 18
Top = 3156
Width = 1695
End
Begin VB.Label Label8
Caption = "最后一次报警时间"
Height = 255
Left = 720
TabIndex = 17
Top = 1908
Width = 1455
End
Begin VB.Label Label7
Caption = "安装日期"
Height = 255
Left = 720
TabIndex = 16
Top = 1284
Width = 855
End
Begin VB.Label Label6
Caption = "报警器类型"
Height = 255
Left = 720
TabIndex = 15
Top = 660
Width = 1095
End
Begin VB.Label Label5
Caption = "单位负责人"
Height = 255
Left = -74640
TabIndex = 13
Top = 1500
Width = 975
End
Begin VB.Label Label4
Caption = "报警电话"
Height = 375
Left = -69960
TabIndex = 12
Top = 1500
Width = 975
End
Begin VB.Label Label3
Caption = "用户地址"
Height = 375
Left = -74640
TabIndex = 11
Top = 2200
Width = 975
End
Begin VB.Label Label2
Caption = "用户名称"
Height = 375
Left = -72360
TabIndex = 10
Top = 800
Width = 975
End
Begin VB.Label Label1
Caption = "用户编号"
Height = 375
Left = -74640
TabIndex = 9
Top = 800
Width = 975
End
End
End
Attribute VB_Name = "frmAccountEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim WithEvents adoAccountInfoRS As ADODB.Recordset
Attribute adoAccountInfoRS.VB_VarHelpID = -1
Dim WithEvents adoZoneInfoRS As ADODB.Recordset
Attribute adoZoneInfoRS.VB_VarHelpID = -1
Dim WithEvents adoNoticeRs As ADODB.Recordset
Attribute adoNoticeRs.VB_VarHelpID = -1
Dim cmdZoneSQL As ADODB.Command
Dim ZoneParam As ADODB.Parameter
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Dim mbFormLoadComplete As Boolean
Dim m_CurAccountCode As String
Property Let ShowType(strAccountCode As String)
m_CurAccountCode = strAccountCode
End Property
Private Sub adoAccountInfoRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'为这个 recordset 显示当前记录位置
lblStatus.Caption = "当前用户: " & CStr(pRecordset.AbsolutePosition) & " 入网用户总数" & CStr(pRecordset.RecordCount)
If mbAddNewFlag Or (Not mbFormLoadComplete) Then
Exit Sub
End If
Refushdata
End Sub
Private Sub cmdAdd_Click()
Dim LastZoneCode As String
On Error GoTo AddErr
With adoZoneInfoRS
If Not (.EOF And .BOF) Then
.MoveLast
End If
If .EOF And .BOF Then
LastZoneCode = "01"
Else
LastZoneCode = GetNextCode(!Fzonecode)
End If
.AddNew
!FAccountId = m_CurAccountCode
!Fzonecode = LastZoneCode
!FnoticeNo = 1
.Update
End With
'zoneGrid.SetFocus
'zoneGrid.ro
Exit Sub
AddErr:
LastZoneCode = GetNextCode(LastZoneCode)
adoZoneInfoRS!Fzonecode = LastZoneCode
adoZoneInfoRS!FnoticeNo = 1
Resume
'MsgBox Err.Description
End Sub
Private Sub cmdAddAccount_Click()
On Error GoTo AddErr
Dim LastAccountCode As String
With adoAccountInfoRS
If Not (.BOF And .EOF) Then
mvBookMark = .Bookmark
Else
LastAccountCode = "0000"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -