• Home
 · 
• Miscellaneous
 · 
• The ultimate contact management program. Tired of never remembering names or phone numbers of bisne

The ultimate contact management program. Tired of never remembering names or phone numbers of bisne

The ultimate contact management program. Tired of never remembering names or phone numbers of bisnesses. The newest version Of a profesional

API Declarations



Send the money order to:

Dimitriy Levitin
55 Winchester st. Ap.2
Medford,Mass, 02155




Rate The ultimate contact management program. Tired of never remembering names or phone numbers of bisne

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim NumRecs, i As Integer
Dim S As String

    Close
    With CMDialog1
        .Filter = "Data File|*.lst"
        .InitDir = App.Path
        .DefaultExt = "*.lst"
        .DialogTitle = "Open File"
        .Action = 1
        DATAFILE = .Filename
        TITLEFILE = .FileTitle
    End With
        
    If DATAFILE = "" Then Exit Sub

    DataFileNum = FreeFile
    Open DATAFILE For Random As #DataFileNum Len = Len(Entry)

    ListOfNames.Clear
    Call ClearFields
    NumRecs = LOF(DataFileNum) / Len(Entry)
    
    For i = 1 To NumRecs
        Get #DataFileNum, i, Entry
        
        If Not Entry.Deleted Then
            S$ = Trim$(Entry.Company) ''+ ", " + Trim$(Entry.CName)
            ListOfNames.AddItem S$
            ListOfNames.ItemData(ListOfNames.NewIndex) = i
        End If
    Next
    
    ShowButtons
    frmMain.Caption = "Contact Manager v.2.0  -  " & TITLEFILE
    lblCount.Caption = "Record: " & (ListOfNames.ListIndex + 1) & " of " & ListOfNames.ListCount
    txtDateTime.ToolTipText = "Double Click to enter present Date/Time"

    If ListOfNames.ListCount > 0 Then ListOfNames.ListIndex = 0


Dim NEWDATAFILE As String
Dim NEWDATAFILENUM As Integer
Dim NumRecs, i As Integer

''============ Don't need it anymore ========
    If DATAFILE = "" Then
        MsgBox "There are no data to save on disk!", 64
        Exit Sub
    End If
''=========================================
    With CMDialog1
        .Filter = "Data File|*.lst"
        .InitDir = App.Path
        .DefaultExt = "*.lst"
        .DialogTitle = "Save As ..."
        .Action = 2
        NEWDATAFILE = .Filename
        TITLEFILE = .FileTitle
    End With
    
    If NEWDATAFILE = "" Then Exit Sub

    NEWDATAFILENUM = FreeFile
    Open NEWDATAFILE For Random As #NEWDATAFILENUM Len = Len(Entry)

    NumRecs = LOF(DataFileNum) / Len(Entry)
    
    For i = 1 To NumRecs
        Get #DataFileNum, i, Entry
        
        If Not Entry.Deleted Then
            Put #NEWDATAFILENUM, , Entry
        End If
    Next
    
    ShowButtons
    frmMain.Caption = "Contact Manager v.2.0  -  " & TITLEFILE
    lblCount.Caption = "Record: " & (ListOfNames.ListIndex + 1) & " of " & ListOfNames.ListCount
''======================================
''Update the list of the most recently opened files
''    UpdateFileMenu (NEWDATAFILE)
''======================================
    Close
    
    DATAFILE = NEWDATAFILE
    DataFileNum = FreeFile
    
    Open DATAFILE For Random As #DataFileNum Len = Len(Entry)
    
    If ListOfNames.ListCount > 0 Then ListOfNames.ListIndex = 0

End Sub