frmbrowseaccount.frm

一个为公安系统接警中心控制软件,不错哦.

         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000002&
      Height          =   435
      Left            =   3240
      TabIndex        =   10
      Top             =   120
      Width           =   2625
   End
End
Attribute VB_Name = "frmBrowseAccount"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m_bSortByCode As Boolean
Dim WithEvents rsNames As ADODB.Recordset
Attribute rsNames.VB_VarHelpID = -1

Private Sub BrowseGrid_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
SaveGridColWidth Me.Caption, BrowseGrid
End Sub

Private Sub BrowseGrid_DblClick()
Let frmAccountEdit.ShowType = BrowseGrid.Columns(0).CellText(BrowseGrid.Bookmark)
 frmAccountEdit.Show vbModal

End Sub

Private Sub BrowseGrid_RowResize(Cancel As Integer)
SavePrivateSetting Me.Caption, "GrdHeight", BrowseGrid.RowHeight
End Sub

Private Sub cmdDelete_Click()
    On Error GoTo DeleteErr
    Dim m_CurAccountCode As String
    Dim cmddeleteSQL As ADODB.Command
    Set cmddeleteSQL = New ADODB.Command
    cmddeleteSQL.ActiveConnection = m_gCnAlarm
    If Me.BrowseGrid.Row >= 0 Then
        With DataBrowseAccount.Recordset
            m_CurAccountCode = !FAccountId
            cmddeleteSQL.CommandText = "delete  from ZOnearea where FaccountID = '" & m_CurAccountCode & "'"
            cmddeleteSQL.Execute
            cmddeleteSQL.CommandText = "delete  from noticeman where FaccountID = '" & m_CurAccountCode & "'"
            cmddeleteSQL.Execute
            .Delete
       End With
    End If
    
    Exit Sub
DeleteErr:
    MsgBox Err.Description
End Sub

Private Sub cmdPrint_Click()
    Let frmPrint.Initial(Me.Caption, Me.GrdColumns) = Me
    frmPrint.Show vbModal
End Sub
Property Get GrdColumns() As Object
    Set GrdColumns = BrowseGrid.Columns
End Property
Property Get DataType() As String
    DataType = "Grid"
End Property
Property Get PrintCaption() As String
    PrintCaption = Me.Caption
End Property
Public Sub PrintMe(ByRef PrintObj As Object, Optional sRangeInfo As String)
    If sRangeInfo = "" Then
        PrintTable BrowseGrid, Me.DataBrowseAccount.Recordset, Me, True, PrintObj, False
    Else
        Dim nFromPage As Integer, nEndPage As Integer
        Do While Len(sRangeInfo) > 0
            GetFromToEndPageNo sRangeInfo, nFromPage, nEndPage  '三个参数均传址调用
            PrintTable BrowseGrid, DataBrowseAccount.Recordset, Me, False, PrintObj, False, nFromPage, nEndPage
        Loop
    End If
End Sub

Public Sub PrintHeader(PrintObj As Object, LMargin As Integer, T_PWidth As Integer)
'    Dim sTemp As String

'    PrintObj.Print
'    sTemp = lblCondition.Caption
'    PrintObj.CurrentX = LMargin
'    PrintObj.Print sTemp;
End Sub

Public Sub PrintTail(PrintObj As Object, LMargin As Integer, T_PWidth As Integer, T_PHeight As Integer, Row_Height As Integer, nCurPage As Integer, nTotalPage As Integer)
    Dim sTailText As String
    
    PrintObj.CurrentY = T_PHeight - Row_Height * Me.RowTailCount()
    sTailText = "<高特技软件>"
    PrintObj.CurrentX = LMargin + 5
    PrintObj.Print sTailText;
    
    sTailText = Format(Date, "打印日期：YYYY年MM月DD日") & "  第" & nCurPage & "/" & nTotalPage & "页"
    PrintObj.CurrentX = LMargin + T_PWidth - PrintObj.TextWidth(sTailText) - 5
    PrintObj.Print sTailText
End Sub

Property Get RowTailCount() As Integer
    RowTailCount = 1
End Property


Private Sub cmdSingleInfo_Click()

    Let frmAccountEdit.ShowType = BrowseGrid.Columns(0).CellText(BrowseGrid.Bookmark)
    frmAccountEdit.Show vbModal
End Sub

Private Sub DataBrowseAccount_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    DataBrowseAccount.Caption = "当前用户:" & CStr(pRecordset.AbsolutePosition) & "/" & CStr(pRecordset.RecordCount)
End Sub

Private Sub Form_Load()
    Set rsNames = New ADODB.Recordset
    Me.DataBrowseAccount.ConnectionString = m_gsConnection
    Me.DataBrowseAccount.RecordSource = "SELECT FAccountID,FAccountName,FAddress,Ftelephone,Fmanager, FaccountType,Format(FInstallDate,'yyyy年mm月dd日') as installDate,FalarmType from Accountinfo order by FaccountID " ',FRoadlIne
    Me.DataBrowseAccount.Refresh
    m_bSortByCode = True
    Me.OptCode.Value = True
    RefushGrid
    InitQueryList
End Sub

Private Sub Form_Resize()
    On Error Resume Next
    Me.Label1.Left = (Me.ScaleWidth - Me.Label1.Width) / 2
    Me.BrowseGrid.Height = Me.ScaleHeight - Me.Picture1.Height - Me.BrowseGrid.Top - 30
    Me.BrowseGrid.Width = Me.ScaleWidth - Me.BrowseGrid.Left - 30
End Sub
Private Sub OptCode_Click()
    RefushSort (1)
    m_bSortByCode = True
End Sub

Private Sub optPhone_Click()
    RefushSort (2)
    m_bSortByCode = False
End Sub
Private Sub RefushSort(SortIndex As Integer)
    Dim sortField As String
    sortField = Me.DataBrowseAccount.Recordset.Sort
    If SortIndex = 1 Then
       If Not m_bSortByCode Then
            Me.DataBrowseAccount.RecordSource = "SELECT FAccountID,FAccountName,FAddress,Ftelephone,Fmanager, FaccountType,Format(FInstallDate,'yyyy年mm月dd日') as installDate,FalarmType from Accountinfo order by FaccountID "
            Me.DataBrowseAccount.Refresh
            RefushGrid
       End If
    Else
       If m_bSortByCode Then
            Me.DataBrowseAccount.RecordSource = "SELECT FAccountID,FAccountName,FAddress,Ftelephone,Fmanager, FaccountType,Format(FInstallDate,'yyyy年mm月dd日') as installDate,FalarmType from Accountinfo order by Ftelephone "
            Me.DataBrowseAccount.Refresh
            RefushGrid
       End If
    End If

End Sub
Public Sub RefushGrid()
With Me.BrowseGrid
     .Columns(0).Caption = "用户编码"
     .Columns(1).Caption = "用户名称"
     .Columns(2).Caption = "地址"
     .Columns(3).Caption = "联系电话"
     .Columns(4).Caption = "单位负责人"
     .Columns(5).Caption = "用户类型"
     .Columns(6).Caption = "安装日期"
     .Columns(7).Caption = "报警设备类型"
     Dim widthstr As String
    widthstr = GetPrivateSetting(Me.Caption, "grdwidth", "")
    '510,3195,3180,1035,930,435,1290,630
    SetColumnWidth widthstr, .Columns(0), 510
    SetColumnWidth widthstr, .Columns(1), 3195
    SetColumnWidth widthstr, .Columns(2), 3180
    SetColumnWidth widthstr, .Columns(3), 1035
    SetColumnWidth widthstr, .Columns(4), 930
    SetColumnWidth widthstr, .Columns(5), 435
    SetColumnWidth widthstr, .Columns(6), 1290
    SetColumnWidth widthstr, .Columns(7), 630
End With
End Sub
Sub InitQueryList()
   
listField.AddItem "用户编码"
listField.AddItem "用户名称"
listField.AddItem "地址"
listField.AddItem "联系电话"
listField.AddItem "用户类型"

ListCondition.AddItem "等于"
ListCondition.AddItem "小于"
ListCondition.AddItem "小于等于"
ListCondition.AddItem "大于"
ListCondition.AddItem "大于等于"
ListCondition.AddItem "不等于"
ListCondition.AddItem "包含"
End Sub

Private Sub CmdQuery_Click()
    If listField.ListIndex = -1 Or ListCondition.ListIndex = -1 Or txtQuery.Text = "" Then
        Exit Sub
    End If
    Dim FieldName As String
    Dim QueryCondition As String
     FieldName = Me.DataBrowseAccount.Recordset.Fields(listField.ListIndex).Name
   
    Select Case ListCondition.ListIndex
        Case 0
        QueryCondition = " = "
        Case 1
        QueryCondition = " < "
        Case 2
        QueryCondition = " <= "
        Case 3
        QueryCondition = " > "
        Case 4
        QueryCondition = " >= "
        Case 5
        QueryCondition = " <> "
        Case 6
        QueryCondition = " like "
    End Select
    Dim strSQLQuery As String
    strSQLQuery = FieldName & QueryCondition & "'" & txtQuery.Text & "'"
    If ListCondition.ListIndex = 6 Then strSQLQuery = Left(strSQLQuery, Len(strSQLQuery) - 1) & "%'"
    Me.DataBrowseAccount.Recordset.Filter = strSQLQuery
    Me.DataBrowseAccount.Recordset.Requery
    RefushGrid
End Sub
Private Sub cmdRefush_Click()
    Me.DataBrowseAccount.Recordset.Filter = ""
    Me.DataBrowseAccount.Recordset.Requery
    RefushGrid
End Sub