home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / database / dtadmo / form1.txt < prev    next >
Encoding:
Text File  |  1995-02-27  |  1.2 KB  |  75 lines
  1.  
  2. Sub cmdAddField_Click ()
  3.     addfield
  4.  
  5. End Sub
  6.  
  7. Sub cmdAddPrimaryKey_Click ()
  8.     makeindex
  9.  
  10. End Sub
  11.  
  12. Sub cmdDemoDtaCtrl_Click ()
  13.     form2.Show 1
  14.  
  15. End Sub
  16.  
  17. Sub cmdDemoDupeErr_Click ()
  18.     'the primary key must be unique and if
  19.     'the project is run in order, Tucson
  20.     'will already be in the database
  21.     addtucson
  22.  
  23. End Sub
  24.  
  25. Sub cmdEnd_Click ()
  26.     End
  27.  
  28. End Sub
  29.  
  30. Sub cmdKillMDBFile_Click ()
  31. 'Global Const MB_YESNO = 4              ' Yes and No buttons
  32. 'Global Const IDYES = 6                 ' Yes button pressed
  33. 'Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  34.  
  35.     Dim response As Integer
  36.     response = MsgBox("Are sure you want to delete the MDB database?", MB_YESNO + MB_DEFBUTTON2)
  37.     If response = IDYES Then killmdb
  38.  
  39. End Sub
  40.  
  41. Sub cmdLoadFile_Click ()
  42.     additems Label3
  43.  
  44. End Sub
  45.  
  46. Sub cmdMakeDataBase_Click ()
  47.     makedb
  48.  
  49. End Sub
  50.  
  51. Sub cmdMakeTable_Click ()
  52.     maketable
  53.  
  54. End Sub
  55.  
  56. Sub cmdNameIndex_Click ()
  57.     addnameidx
  58.  
  59. End Sub
  60.  
  61. Sub cmdSeekOnName_Click ()
  62.     seekname
  63.  
  64. End Sub
  65.  
  66. Sub Form_Load ()
  67.     If Right$(app.Path, 1) = "\" Then
  68.         ThePath = app.Path
  69.     Else
  70.         ThePath = app.Path & "\"
  71.     End If
  72.  
  73. End Sub
  74.  
  75.