frmcardholder.frm

本论文以西电基础教学实验中心学生上机管理系统为背景

         Caption         =   "姓名："
         Height          =   180
         Left            =   -74640
         TabIndex        =   21
         Top             =   1440
         Width           =   540
      End
      Begin VB.Label LblXType 
         AutoSize        =   -1  'True
         Caption         =   "学员类型："
         Height          =   180
         Left            =   -74640
         TabIndex        =   20
         Top             =   480
         Width           =   900
      End
      Begin VB.Label LblSCH_Memo 
         AutoSize        =   -1  'True
         Caption         =   "描述："
         Height          =   180
         Left            =   360
         TabIndex        =   19
         Top             =   2040
         Width           =   540
      End
      Begin VB.Label LblSCH_Name 
         AutoSize        =   -1  'True
         Caption         =   "姓名："
         Height          =   180
         Left            =   360
         TabIndex        =   18
         Top             =   1440
         Width           =   540
      End
      Begin VB.Label LblSMoney 
         AutoSize        =   -1  'True
         Caption         =   "卡金："
         Height          =   180
         Left            =   2400
         TabIndex        =   17
         Top             =   1440
         Width           =   540
      End
      Begin VB.Label LblSCH_ID 
         AutoSize        =   -1  'True
         Caption         =   "卡号："
         Height          =   180
         Left            =   360
         TabIndex        =   16
         Top             =   1200
         Width           =   540
      End
      Begin VB.Label LblNo 
         AutoSize        =   -1  'True
         Caption         =   "学号："
         Height          =   180
         Left            =   2400
         TabIndex        =   15
         Top             =   480
         Width           =   540
      End
      Begin VB.Label LblSType 
         AutoSize        =   -1  'True
         Caption         =   "学生类别："
         Height          =   180
         Left            =   360
         TabIndex        =   14
         Top             =   480
         Width           =   900
      End
      Begin VB.Label lblSTCH_ID 
         AutoSize        =   -1  'True
         Height          =   180
         Left            =   1080
         TabIndex        =   13
         Top             =   1200
         Width           =   90
      End
   End
End
Attribute VB_Name = "frmCardholder"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''                                                                ''
''Filename       frmCardholder.frm                                ''
''                                                                ''
''Created On     2004.2.14                                        ''
''                                                                ''
''Description    持卡人信息维护窗体                               ''
''                                                                ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim RsCardholderST As Recordset
Dim rsSort As Recordset
Dim RsCreateNo As Recordset
Dim RsCreateNoLin  As Recordset
Dim CmdXueYuan As Command
Public rsLinShi As Recordset
Public rsXueYuan As Recordset
Dim rsClass As Recordset
Public Add As Boolean
Public ADDLS As Boolean
Public ADDXY As Boolean
Dim strGroup As String
Public strStudentID As String
Public strXueYuan As String
Dim i As Integer
Dim j As Integer

Private Sub cboGroup_Click()
'If ADDXY = True Then
If cboXType.Text <> "" And cboGroup.Text <> "" Then
    Group
    Set rsSort = New Recordset
    rsSort.Open "select * from TbSort where ST_Name='" & cboXType.Text & "'", Modmain.conn, 3, 2
    
    Set RsCreateNo = New Recordset
    RsCreateNo.Open "select * from TbCreateNo where Abbreviation='" & rsSort.Fields!ST_ID & "'", Modmain.conn, 3, 2
    i = CInt(CInt(RsCreateNo.Fields!maxno) + 1)
    Dim str As String
    str = strGroup & Right("00000000" & i, 7)
    lblXTCH_ID.Caption = RsCreateNo.Fields!Abbreviation & str
    'TxtXCH_Name.SetFocus
'End If
End If

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''自动产生学生卡卡号                                              ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cboSType_Click()
If cboSType.Text <> "" Then
    Set rsSort = New Recordset
    rsSort.Open "select * from TbSort where ST_Name='" & cboSType.Text & "'", Modmain.conn, 3, 2
End If
If cboSType.Text <> "" And txtNo.Text <> "" Then
    lblSTCH_ID.Caption = rsSort.Fields!ST_ID & txtNo.Text
    'TxtSCH_Name.SetFocus
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''自动产生学员卡卡号                                              ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cboXType_Click()
'If ADDXY = True Then
If cboXType.Text <> "" And cboGroup.Text <> "" Then
    Group
    Set rsSort = New Recordset
    rsSort.Open "select * from TbSort where ST_Name='" & cboXType.Text & "'", Modmain.conn, 3, 2
    
    Set RsCreateNo = New Recordset
    RsCreateNo.Open "select * from TbCreateNo where Abbreviation='" & rsSort.Fields!ST_ID & "'", Modmain.conn, 3, 2
    i = CInt(CInt(RsCreateNo.Fields!maxno) + 1)
    Dim str As String
    str = strGroup & Right("00000000" & i, 7)
    lblXTCH_ID.Caption = RsCreateNo.Fields!Abbreviation & str
    'TxtXCH_Name.SetFocus
'End If
End If
End Sub


Private Sub cmdAddInfo_Click()
cmdSaveInfo.Enabled = True
If ssTbCardholder.Tab = 0 Then
    StudentAdd
    ElseIf ssTbCardholder.Tab = 1 Then
        XueyuanAdd
        ElseIf ssTbCardholder.Tab = 2 Then
            LinshiAdd
End If
End Sub

Private Sub cmdEdit_Click()
cmdSaveInfo.Enabled = True
If ssTbCardholder.Tab = 0 Then
    Add = False
    frmCardholderFind.Show 1
    ssTbCardholder.Tab = 0
    ElseIf ssTbCardholder.Tab = 1 Then
        ADDXY = False
        frmCardholderFind.Show 1
        ElseIf ssTbCardholder.Tab = 2 Then
            ADDLS = False
            frmCardholderFind.Show 1
End If
End Sub

Private Sub cmdFind_Click()
If ssTbCardholder.Tab = 0 Then
    frmCHFind.Show 1
    frmHourStatistic.AddLog ("L42")
    ElseIf ssTbCardholder.Tab = 1 Then
        Set rsXueYuan = New Recordset
        rsXueYuan.Open "select * from TbCardholder C inner join tbsort S ON LEFT(C.CH_ID,2)=S.ST_ID where left(CH_ID,2) = '0J'OR left(CH_ID,2) = '0W'", Modmain.conn, 3, 2
        DRXueYuan.Show 1
        frmHourStatistic.AddLog ("L44")
        ElseIf ssTbCardholder.Tab = 2 And cmdFind.Caption = "打印" Then
            Set rsLinShi = New Recordset
            rsLinShi.Open "select * from TbCardholder where left(CH_ID,2) LIKE '0L'", Modmain.conn, 3, 2
            DRLinShi.Show 1
            frmHourStatistic.AddLog ("L44")
End If
End Sub

Private Sub cmdSaveInfo_Click()
If ssTbCardholder.Tab = 0 Then
    StudentSave
    ElseIf ssTbCardholder.Tab = 1 Then
        XueyuanSave
        ElseIf ssTbCardholder.Tab = 2 Then
            LinshiSave
End If
End Sub
Private Sub Form_Load()
ADDLS = True
Add = True
ADDXY = True
Set RsCardholderST = New Recordset
RsCardholderST.Open "select * from TbCardholder", Modmain.conn, 3, 2
End Sub

Private Sub ssTbCardholder_Click(PreviousTab As Integer)
If ssTbCardholder.Tab = 2 Then
    cmdFind.Caption = "打印"
    ElseIf ssTbCardholder.Tab = 0 Then
        cmdFind.Caption = "查询"
        ElseIf ssTbCardholder.Tab = 1 Then
        cmdFind.Caption = "打印"
End If
End Sub

Private Sub txtLCH_Memo_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{tab}"
End If
End Sub
Private Sub TxtLCH_Name_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{tab}"
End If
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''自动产生临时卡卡号                                              ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub TxtLCH_Name_LostFocus()
If ADDLS = True Then
    Set RsCreateNoLin = New Recordset
    RsCreateNoLin.Open "select * from TbCreateNo where Abbreviation='0l'", Modmain.conn, 3, 2
    j = CInt(CInt(RsCreateNoLin.Fields!maxno) + 1)
    Dim str As String
    str = CStr("00000000" & j)
    lblLTCH_ID.Caption = "0L" & Right(str, 8)
End If
End Sub
Private Sub TxtLMoney_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{tab}"
End If
Dim L As Boolean
    L = Chr(KeyAscii) Like "[0-9]" Or KeyAscii = 8
    If L = False Then
        KeyAscii = 0
    End If
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''自动产生学生卡卡号                                              ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub txtNo_Change()
If cboSType.Text <> "" And txtNo.Text <> "" Then
    lblSTCH_ID.Caption = rsSort.Fields!ST_ID & txtNo.Text
End If
End Sub

Private Sub txtNo_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{tab}"
End If
Dim L As Boolean
    L = Chr(KeyAscii) Like "[0-9]" Or KeyAscii = 8
    If L = False Then
        KeyAscii = 0
    End If
End Sub
Private Sub txtSCH_Memo_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{tab}"
End If
End Sub
Private Sub TxtSCH_Name_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{tab}"
End If
End Sub
Private Sub TxtSMoney_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{tab}"
End If
Dim L As Boolean
    L = Chr(KeyAscii) Like "[0-9]" Or KeyAscii = 8
    If L = False Then
        KeyAscii = 0
    End If
End Sub
Private Sub txtXCH_Memo_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{tab}"
End If
End Sub
Private Sub TxtXCH_Name_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{tab}"
End If
End Sub
Private Sub TxtXMoney_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{tab}"
End If
Dim L As Boolean
    L = Chr(KeyAscii) Like "[0-9]" Or KeyAscii = 8
    If L = False Then
        KeyAscii = 0
    End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''保存新添加的持卡人(学生卡)信息                                  ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub SaveInfo()
    RsCardholderST.AddNew
    RsCardholderST.Fields("CH_ID") = lblSTCH_ID.Caption
    RsCardholderST.Fields("CH_Name") = TxtSCH_Name.Text
    RsCardholderST.Fields("Money") = TxtSMoney.Text
    RsCardholderST.Fields("State") = "正常"
    If Trim(txtSCH_Memo.Text) <> "" Then
        RsCardholderST.Fields("CH_Memo") = Trim(txtSCH_Memo.Text)
    Else
        RsCardholderST.Fields("CH_Memo") = ""
    End If
    RsCardholderST.Update
    Call AddLog("L45", lblSTCH_ID)
    MsgBox "保存成功", vbOKOnly + vbInformation, "机房管理"    '保存完毕并提醒
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''验证新添加的持卡人(学生卡)信息                                  ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function Judge() As Boolean
If txtNo.Text <> "" Then
    Set rsClass = New Recordset
    Dim aa As Integer
    aa = Right(CStr(txtNo.Text), 3)
    Dim str As String
    str = "select * from TBClass where left(C_ID,5) like '" & Left(txtNo.Text, 5) & "' and  CInt(StartNo)<=" & aa & " and CInt(EndNo) >=" & aa & " "