'LISTING 27.4  27LIST04.TXT  -- Zoona struktura

Sub Get_Data()
  Contacts.FName = CnctForm.FirstName
  Contacts.LNAme = CnctForm.LastName
  Contacts.Address = CnctForm.Address
  Contacts.City = CnctForm.City
  Contacts.State = CnctForm.State
  Contacts.Zip = CnctForm.Zip
End Sub

Sub Clear_Record()
  Contacts.FName = ""
  Contacts.LNAme = ""
  Contacts.Address = ""
  Contacts.City = ""
  Contacts.State = ""
  Contacts.Zip = ""
End Sub

Sub Clear_Form()
  CnctForm.FirstName = ""
  CnctForm.LastName = ""
  CnctForm.Address = ""
  CnctForm.City = ""
  CnctForm.State = ""
  CnctForm.Zip = ""
End Sub

Sub Display_Info()
  Dim CRLF As String
  CRLF = (Chr(13) & Chr(10))  ' przejcie do nowej linii

  MsgBox "Wprowadzone informacje" & CRLF & "Imi: " & Contacts.FName & CRLF & "Nazwisko: " & Contacts.LNAme & CRLF & "Addres: " & Contacts.Address & CRLF & "Miasto: " & Contacts.City & CRLF & "Stan: " & Contacts.State & CRLF & "Kod poczt.: " & Contacts.Zip, , "Contacts - wprowadzanie"
End Sub

Private Sub Command1_Click()
  Clear_Record
  CLear_Form
End Sub

Private Sub Command2_Click()
  Get_Data
  Display_Info
End Sub

Private Sub Form_Load()
End Sub
