frmexampledb.frm

一个外国人所编非常酷的数据库综合程序源码

End Sub
Private Sub imgColors_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then
    imgColors.Picture = imgButton(1).Picture
    lblColors.ForeColor = QBColor(0)
End If

End Sub
Private Sub imgColors_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgColors.Picture = imgButton(0).Picture
lblColors.ForeColor = lButtonForeColor

End Sub
Private Sub imgDelete_Click()

lblDelete_Click

End Sub
Private Sub imgDelete_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton And lblDelete.Enabled = True Then
    imgDelete.Picture = imgButton(1).Picture
    lblDelete.ForeColor = QBColor(0)
End If

End Sub
Private Sub imgDelete_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgDelete.Picture = imgButton(0).Picture
lblDelete.ForeColor = lButtonForeColor

End Sub
Private Sub imgExit_Click()

lblExit_Click

End Sub
Private Sub imgExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then
    imgExit.Picture = imgButton(1).Picture
    lblExit.ForeColor = QBColor(0)
End If

End Sub
Private Sub imgExit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgExit.Picture = imgButton(0).Picture
lblExit.ForeColor = lButtonForeColor

End Sub

Private Sub imgHelp_Click()

lblHelp_Click

End Sub

Private Sub imgHelp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then
    imgHelp.Picture = imgButton(1).Picture
    lblHelp.ForeColor = QBColor(0)
End If

End Sub

Private Sub imgHelp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgHelp.Picture = imgButton(0).Picture
lblHelp.ForeColor = lButtonForeColor

End Sub
Private Sub imgLabelHolder_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

'Move the form...
If Button = vbLeftButton And Me.WindowState = vbNormal Then
    Call DragForm(Me)
End If

End Sub

Private Sub imgNew_Click()

lblNew_Click

End Sub
Private Sub imgNew_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then
    imgNew.Picture = imgButton(1).Picture
    lblNew.ForeColor = QBColor(0)
End If

End Sub
Private Sub imgNew_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgNew.Picture = imgButton(0).Picture
lblNew.ForeColor = lButtonForeColor

End Sub

Private Sub imgNotes_Click()

If lblNotes.Enabled = True Then
    lblNotes_Click
End If

End Sub
Private Sub imgNotes_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton And lblNotes.Enabled = True Then
    imgNotes.Picture = imgButton(1).Picture
    lblNotes.ForeColor = QBColor(0)
End If

End Sub
Private Sub imgNotes_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgNotes.Picture = imgButton(0).Picture
lblNotes.ForeColor = lButtonForeColor

End Sub
Private Sub imgPrint_Click()

If lblPrint.Enabled = True Then
    lblPrint_Click
End If

End Sub
Private Sub imgPrint_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton And lblPrint.Enabled = True Then
    imgPrint.Picture = imgButton(1).Picture
    lblPrint.ForeColor = QBColor(0)
End If

End Sub
Private Sub imgPrint_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgPrint.Picture = imgButton(0).Picture
lblPrint.ForeColor = lButtonForeColor

End Sub

Private Sub imgQKeys_Click()

    lblQKeys_Click
    
End Sub

Private Sub imgQKeys_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then
    imgQKeys.Picture = imgButton(1).Picture
    lblQKeys.ForeColor = QBColor(0)
End If

End Sub

Private Sub imgQKeys_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgQKeys.Picture = imgButton(0).Picture
lblQKeys.ForeColor = lButtonForeColor

End Sub

Private Sub imgReload_Click()
If lblReload.Enabled = True Then
    lblReload_Click
End If

End Sub
Private Sub imgReload_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton And lblReload.Enabled = True Then
    imgReload.Picture = imgButton(1).Picture
    lblReload.ForeColor = QBColor(0)
End If

End Sub

Private Sub imgReload_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgReload.Picture = imgButton(0).Picture
lblReload.ForeColor = lButtonForeColor

End Sub
Private Sub imgSave_Click()

If lblSave.Enabled = True Then
    lblSave_Click
End If

End Sub
Private Sub imgSave_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton And lblSave.Enabled = True Then
    imgSave.Picture = imgButton(1).Picture
    lblSave.ForeColor = QBColor(0)
End If

End Sub
Private Sub imgSave_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgSave.Picture = imgButton(0).Picture
lblSave.ForeColor = lButtonForeColor

End Sub

Private Sub lblCaptions_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

'Move the form...
If Button = vbLeftButton And Me.WindowState = vbNormal Then
    Call DragForm(Me)
End If

End Sub

Private Sub lblColors_Click()

frmColors.Show
frmColors.ZOrder

End Sub
Private Sub lblColors_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then
    imgColors.Picture = imgButton(1).Picture
    lblColors.ForeColor = QBColor(0)
End If

End Sub

Private Sub lblColors_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Help.HelpText = "Click here to go to the colors window."

End Sub
Private Sub lblColors_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgColors.Picture = imgButton(0).Picture
lblColors.ForeColor = lButtonForeColor

End Sub


Private Sub lblDelete_Click()

    If lblDelete.Enabled = True Then
        'MsgBox QuickRef.ID
        QuickRef.ID = txtID.Text
        If (DeleteStudent(DataList1.Text)) Then
            ClearAllFields
            List1_Click
        End If
    End If
    
End Sub

Private Sub lblDelete_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton And lblDelete.Enabled = True Then
    imgDelete.Picture = imgButton(1).Picture
    lblDelete.ForeColor = QBColor(0)
End If

End Sub

Private Sub lblDelete_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Help.HelpText = "Click here to delete this student. Once a student has been deleted from the 'Past' list the results are permanent."

End Sub
Private Sub lblDelete_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgDelete.Picture = imgButton(0).Picture
lblDelete.ForeColor = lButtonForeColor

End Sub
Private Sub lblExit_Click()

Unload frmExampledb

End Sub
Private Sub lblExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then
    imgExit.Picture = imgButton(1).Picture
    lblExit.ForeColor = QBColor(0)
End If

End Sub

Private Sub lblExit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Help.HelpText = "Click here to exit this window."

End Sub
Private Sub lblExit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgExit.Picture = imgButton(0).Picture
lblExit.ForeColor = lButtonForeColor

End Sub

Private Sub lblFrame_Click(Index As Integer)

    Call ShowFrame(Index)
    
End Sub

Private Sub lblFrame_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

If Index = 0 Then Help.HelpText = "Click this to see a student's personal information and First Nation information."
If Index = 1 Then Help.HelpText = "Click this to see a student's permanent address information."
If Index = 2 Then Help.HelpText = "Click this to see a student's education information."
If Index = 3 Then Help.HelpText = "Click this to see a student's post graduation information (Job title and Employer)."
End Sub

Private Sub lblHelp_Click()

Help.HelpCallingForm = Me.Name

frmHelper.Show
frmHelper.ZOrder

End Sub

Private Sub lblHelp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then
    imgHelp.Picture = imgButton(1).Picture
    lblHelp.ForeColor = QBColor(0)
End If

End Sub

Private Sub lblHelp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Help.HelpText = "Click here to show the help window."

End Sub
Private Sub lblHelp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

imgHelp.Picture = imgButton(0).Picture
lblHelp.ForeColor = lButtonForeColor

End Sub


Private Sub lblNew_Click()

On Local Error GoTo NewError

'Dim x As Long
Dim sInput As String
Dim sInput2 As String

'Clear all fields first...
dontWatchText = True
Call ClearAllFields
dontWatchText = False

'Get new Student Last name...
Do
sInput = Trim$(InputBox$("Enter the LAST name of the new student." & vbCrLf & "(must be less than 30 characters)", "New..."))
'Nothing entered...
If sInput = "" Then Exit Sub
Loop Until (Len(sInput) < 30)

'Strip out invalid characters in the student last name...
If InStr(sInput, "'") > 0 Then
    Mid$(sInput, InStr(sInput, "'"), 1) = Chr$(32)
ElseIf InStr(sInput, "#") > 0 Then
    Mid$(sInput, InStr(sInput, "#"), 1) = Chr$(32)
ElseIf InStr(sInput, "$") > 0 Then
    Mid$(sInput, InStr(sInput, "$"), 1) = Chr$(32)
ElseIf InStr(sInput, "%") > 0 Then
    Mid$(sInput, InStr(sInput, "%"), 1) = Chr$(32)
ElseIf InStr(sInput, "&") > 0 Then
    Mid$(sInput, InStr(sInput, "&"), 1) = Chr$(32)
ElseIf InStr(sInput, "*") > 0 Then
    Mid$(sInput, InStr(sInput, "*"), 1) = Chr$(32)
ElseIf InStr(sInput, "(") > 0 Then
    Mid$(sInput, InStr(sInput, "("), 1) = Chr$(32)
ElseIf InStr(sInput, ")") > 0 Then
    Mid$(sInput, InStr(sInput, ")"), 1) = Chr$(32)
End If

Do
'Get new Student First name...
sInput2 = Trim$(InputBox$("Enter the FIRST name of the new student." & vbCrLf & "(must be less than 20 characters)", "New..."))
'Nothing entered...
If sInput2 = "" Then Exit Sub
Loop Until (Len(sInput2) < 20)

'Strip out invalid characters in the student last name...
If InStr(sInput2, "'") > 0 Then
    Mid$(sInput2, InStr(sInput2, "'"), 1) = Chr$(32)
ElseIf InStr(sInput2, "#") > 0 Then
    Mid$(sInput2, InStr(sInput2, "#"), 1) = Chr$(32)
ElseIf InStr(sInput2, "$") > 0 Then
    Mid$(sInput2, InStr(sInput2, "$"), 1) = Chr$(32)
ElseIf InStr(sInput2, "%") > 0 Then
    Mid$(sInput2, InStr(sInput2, "%"), 1) = Chr$(32)
ElseIf InStr(sInput2, "&") > 0 Then
    Mid$(sInput2, InStr(sInput2, "&"), 1) = Chr$(32)
ElseIf InStr(sInput2, "*") > 0 Then
    Mid$(sInput2, InStr(sInput2, "*"), 1) = Chr$(32)
ElseIf InStr(sInput2, "(") > 0 Then
    Mid$(sInput2, InStr(sInput2, "("), 1) = Chr$(32)
ElseIf InStr(sInput2, ")") > 0 Then
    Mid$(sInput2, InStr(sInput2, ")"), 1) = Chr$(32)
End If

'Create the new student...
'Convert first name and last name to full name
Dim fulln As String
Dim cur_past As String
Dim fullprt As String

sInput = UCase(Mid(sInput, 1, 1)) + LCase(Mid(sInput, 2))
sInput2 = UCase(Mid(sInput2, 1, 1)) + LCase(Mid(sInput2, 2))
fulln = sInput & ", " & sInput2
txtLast_Name.Text = sInput
txtFirst_Name.Text = sInput2
' determi