frmoutic.frm

智能门锁的程序,用于控制门锁发卡程序,是科布尔的

VERSION 5.00
Begin VB.Form FrmOutIC 
   Caption         =   "发行各类卡"
   ClientHeight    =   5415
   ClientLeft      =   1275
   ClientTop       =   1335
   ClientWidth     =   6345
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   5415
   ScaleWidth      =   6345
   Begin VB.CommandButton CmdCancel 
      Caption         =   "取消"
      Height          =   495
      Left            =   4680
      TabIndex        =   2
      Top             =   1320
      Width           =   1455
   End
   Begin VB.CommandButton CmdAccept 
      Caption         =   "确定"
      Height          =   495
      Left            =   4680
      TabIndex        =   1
      Top             =   600
      Width           =   1455
   End
   Begin VB.ListBox LstICName 
      BackColor       =   &H00E0E0E0&
      Columns         =   3
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4140
      ItemData        =   "FrmOutIC.frx":0000
      Left            =   360
      List            =   "FrmOutIC.frx":0002
      TabIndex        =   0
      Top             =   360
      Width           =   3735
   End
End
Attribute VB_Name = "FrmOutIC"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdAccept_Click()
     Select Case LstICName.Text
           Case "清除卡"
                FrmOutSeting.Show vbModal, Me
           Case "校时卡"
                FrmOutTime.Show vbModal, Me
           Case "终止卡"
                FrmOutCheckOut.Show vbModal, Me
           Case "应急卡"
                FrmOutTemp.Show vbModal, Me
           Case "总控卡"
                FrmOutControl.Show vbModal, Me
           Case "楼号卡"
                FrmOutBuilding.Show vbModal, Me
           Case "楼层卡"
                FrmOutFloor.Show vbModal, Me
           Case "区域卡"
                FrmOutZone.Show vbModal, Me
           Case "维修卡"
                FrmOutRepair.Show vbModal, Me
           Case "会议卡"
                FrmOutMeeting.Show vbModal, Me
           Case "通道卡"
                FrmOutChannel.Show vbModal, Me
    End Select
End Sub

Private Sub CmdCancel_Click()
Unload Me
End Sub

Private Sub Form_Load()
    Dim stmp As String
    Dim MainMnuCount As Integer
    stmp = "UserName='" & gUserName & "'"
    With RC_Operator
         .MoveLast
         .FindFirst stmp
         If Not .NoMatch Then
           'If .Fields("FrmOutChannel") Then
            '   LstICName.AddItem "通道卡", 0
           'End If
           If .Fields("FrmOutRepair") Then
               LstICName.AddItem "维修卡", 0
           End If
           If .Fields("FrmOutZone") Then
               LstICName.AddItem "区域卡", 0
           End If
           'If .Fields("FrmOutmeeting") Then
            '   LstICName.AddItem "会议卡", 0
           'End If
           If .Fields("FrmOutFloor") Then
               LstICName.AddItem "楼层卡", 0
           End If
           If .Fields("FrmOutBuilding") Then
               LstICName.AddItem "楼号卡", 0
           End If
           If .Fields("FrmOutControl") Then
               LstICName.AddItem "总控卡", 0
           End If
           If .Fields("FrmOutTemp") Then
               LstICName.AddItem "应急卡", 0
           End If
           If .Fields("FrmOutCheckOut") Then
               LstICName.AddItem "终止卡", 0
           End If
           If .Fields("FrmOutTime") Then
               LstICName.AddItem "校时卡", 0
           End If
           If .Fields("FrmOutSeting") Then
               LstICName.AddItem "清除卡", 0
           End If

        End If
   End With

End Sub

Private Sub LstICName_DblClick()
CmdAccept_Click
End Sub