Option Explicit

Dim strDBFileName As String
Dim strDB As String

Private Sub Form_Load()
    `Center this form
    Me.Left = (Screen.Width - Width) \ 2
    Me.Top = (Screen.Height - Height) \ 2
    `Prompt user for database filename
    cdlOne.DialogTitle = "Select a Database File"
    cdlOne.Filter = "Database(*.mdb)|*.mdb"
    cdlOne.CancelError = True
    `Check for Cancel button click
    On Error Resume Next
    cdlOne.ShowOpen
    If Err = cdlCancel Then End

    `Prepare to analyze database
    strDBFileName = cdlOne.FileName
    Me.Caption = "DataDump - " & strDBFileName
    GetStructure
End Sub

Private Sub Form_Resize()
    `Size text box to fit form
    txtDB.Move 0, 0, ScaleWidth, ScaleHeight
    `Display analysis string in text box
    txtDB.Text = strDB
End Sub

Private Sub GetStructure()
    `Looping variables
    Dim intI As Integer
    Dim intJ As Integer
    `Database objects
    Dim dbDump As Database
    Dim recDump As Recordset
    Dim tbdDump As TableDef
    Dim fldDump As Field
    `Open the database
    Set dbDump = Workspaces(0).OpenDatabase(strDBFileName)
    strDB = "Database: " & dbDump.Name & vbCrLf
    `Process each table
    For intI = 0 To dbDump.TableDefs.Count - 1
        Set tbdDump = dbDump.TableDefs(intI)
        If Left(tbdDump.Name, 4) <> "MSys" Then
                `Get table's name
            strDB = strDB & Space(3) & "Table: "
            strDB = strDB & tbdDump.Name & vbCrLf
            `Process each field in each table
            For intJ = 0 To tbdDump.Fields.Count - 1

                Set fldDump = tbdDump.Fields(intJ)
                `Get field's name
                strDB = strDB & Space(6) & "Field: "
                strDB = strDB & fldDump.Name & vbCrLf
                `Get field's data type
                strDB = strDB & Space(9) & "Type: "
                Select Case fldDump.Type
                Case dbBoolean
                    strDB = strDB & "Boolean" & vbCrLf
                Case dbByte
                    strDB = strDB & "Byte" & vbCrLf
                Case dbInteger
                    strDB = strDB & "Integer" & vbCrLf
                Case dbLong
                    strDB = strDB & "Long" & vbCrLf
                Case dbCurrency
                    strDB = strDB & "Currency" & vbCrLf
                Case dbSingle
                    strDB = strDB & "Single" & vbCrLf
                Case dbDouble
                    strDB = strDB & "Double" & vbCrLf
                Case dbDate
                    strDB = strDB & "Date" & vbCrLf
                Case dbText
                    strDB = strDB & "Text" & vbCrLf
                Case dbLongBinary
                    strDB = strDB & "LongBinary" & vbCrLf
                Case dbMemo
                    strDB = strDB & "Memo" & vbCrLf
                Case Else
                    strDB = strDB & "(unknown) & vbCrLf"
                End Select
                `Get field's size in bytes
                If fldDump.Type <> dbLongBinary And _

                    fldDump.Type <> dbMemo Then
                    strDB = strDB & Space(9) & "Size: "
                    strDB = strDB & fldDump.Size & vbCrLf
                End If
            Next intJ
        End If
    Next intI
    `Close database
    dbDump.Close
End Sub

Option Explicit

Public blnSave As Boolean

Private Sub MDIForm_Load()
    `Center this form on screen
    Me.Move (Screen.Width - Width) \ 2, _
        (Screen.Height - Height) \ 2
    `Load all previous notes from database
    LoadNotes
    `Display splash image
    frmSplash.Show
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, _
UnloadMode As Integer)
    `Prepare to save all current notes
    blnSave = True
End Sub

Private Sub MDIForm_Resize()
    `Move splash image to center of MDI form
    frmSplash.Move (Me.ScaleWidth - frmSplash.Width) \ 2, _
        (Me.ScaleHeight - frmSplash.Height) \ 2
End Sub

Private Sub mnuAbout_Click()
    `Set properties and display About form
    About.Application = "Jot"
    About.Heading = _
        "Microsoft Visual Basic 6.0 Developer's Workshop"
    About.Copyright = "1998 John Clark Craig and Jeff Webb"

    About.Display
End Sub

Private Sub mnuExit_Click()
    Unload Me
End Sub

Private Sub mnuContents_Click()
    cdlOne.HelpFile = App.Path & "\..\..\Help\Mvbdw.hlp"
    cdlOne.HelpCommand = cdlHelpContents
    cdlOne.ShowHelp
End Sub

Private Sub mnuSearch_Click()
    cdlOne.HelpFile = App.Path & "\..\..\Help\Mvbdw.hlp"
    cdlOne.HelpCommand = cdlHelpPartialKey
    cdlOne.ShowHelp
End Sub

Private Sub LoadNotes()
    Dim dbJot As Database
    Dim recJot As Recordset
    `Open database of previous notes
    On Error Resume Next
    Set dbJot = Workspaces(0).OpenDatabase("Jot.mdb")
    `If database doesn't exist, nothing to display
    If Err Then Exit Sub
    On Error GoTo 0
    `Open table of notes
    Set recJot = dbJot.OpenRecordset("JotTable")
    `RecordCount will be 1 if there are any records
    If recJot.RecordCount Then
        `Create note window for each note
        Do Until recJot.EOF

            MakeNewNote Format(recJot!JotDateTime, _
                "General Date"), recJot!JotNote
            recJot.MoveNext
        Loop
    End If
    `Empty database table for now
    dbJot.Execute "Delete * from JotTable"
    `Close recordset and database
    recJot.Close
    dbJot.Close
End Sub

Private Sub MakeNewNote(sdtDateTime As String, strNote As String)
    `Create new copy of note form
    Dim newNote As New frmNote
    `Set caption and note contents
    newNote.rtfNote.Text = strNote
    newNote.Caption = sdtDateTime
    `Display new note form
    newNote.Show
End Sub

Private Sub tlbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "New"
        MakeNewNote Format(Now, "General Date"), ""
    Case "Delete"
        Unload ActiveForm
    Case "Cascade"
        frmJot.Arrange vbCascade
    Case "TileVertically"
        frmJot.Arrange vbTileVertical
    Case "TileHorizontally"
        frmJot.Arrange vbTileHorizontal

    Case "ArrangeIcons"
        frmJot.Arrange vbArrangeIcons
    Case Else
    End Select
End Sub

Option Explicit

Private Sub Form_Load()
    `Move image to upper left corner
    imgSplash.Move 0, 0
    `Size this form to size of splash image
    Me.Width = imgSplash.Width
    Me.Height = imgSplash.Height
End Sub

Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    `Update date and time in caption with hot key Ctrl-T
    If KeyCode = 84 And Shift = 2 Then
        Me.Caption = Format(Now, "General Date")
    End If
End Sub

Private Sub Form_Resize()
    rtfNote.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim dbJot As Database
    Dim recJot As Recordset
    Dim tbdJot As TableDef
    Dim fldJot As Field

    Dim vntErrorNumber As Variant
    Dim dtmDateTime As Date
    Dim strNote As String
    `blnSave means save this note
    If frmJot.blnSave = False Then Exit Sub
    `Open database to save this note
    On Error Resume Next
    Set dbJot = Workspaces(0).OpenDatabase("Jot.mdb")
    vntErrorNumber = Err
    On Error GoTo 0
    `Create database if it does not already exist
    If vntErrorNumber Then
        `Create empty database
        Set dbJot = Workspaces(0).CreateDatabase( _
            "Jot.mdb", dbLangGeneral)
        `Create table
        Set tbdJot = dbJot.CreateTableDef("JotTable")
        `Create field
        Set fldJot = tbdJot.CreateField("JotDateTime", dbDate)
        `Add new field to table's Fields collection
        tbdJot.Fields.Append fldJot
        `Create second field
        Set fldJot = tbdJot.CreateField("JotNote", dbMemo)
        `Add it to table
        tbdJot.Fields.Append fldJot
        `Add new table to TableDefs collection
        dbJot.TableDefs.Append tbdJot
        `New database is now open
    End If
    `Get working recordset
    Set recJot = dbJot.OpenRecordset("JotTable", dbOpenTable)
    `Add new record
    recJot.AddNew
    `Prepare data for placing in record

    dtmDateTime = Me.Caption
    strNote = Me.rtfNote.Text
    If strNote = "" Then strNote = " "
    `Load fields in new record
    recJot!JotDateTime = dtmDateTime
    recJot!JotNote = strNote
    `Be sure database is updated
    recJot.Update
    `Close recordset and database
    recJot.Close
    dbJot.Close
End Sub