home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1996 October / MACPOWER-1996-10.ISO.7z / MACPOWER-1996-10.ISO / MacPowerオリジナル / OMOまるちめであでござる / データシートの基本 (.txt) next >
UltraCard Stack  |  1996-07-28  |  32KB  |  132 lines
  1. PFONT
  2. AMERICAN HERITAGE
  3. APPLE CHANCERY
  4. ATHENS
  5. AVANT GARDE
  6. BOOKMAN
  7. CAIROE
  8. CHICAGO
  9. COURIER
  10. DINGBATSXE
  11. ERAIHITO
  12. FOOTNOTE
  13. GENEVA
  14.     HELVETICA
  15. HOEFLER TEXT
  16. HOEFLER TEXT ORNAMENTS@
  17. LONDON
  18. LOS ANGELES
  19. MOBILE@
  20. MONACO
  21. MT EXTRA
  22. N HELVETICA NARROW 
  23. NARITA@
  24. NARITA
  25. NEW CENTURY SCHLBK
  26. NEW YORK
  27. OSAKA
  28. PALATINOXE
  29. RPOPKAKU1H
  30. RPOPKAKU1K
  31. RPOPKAKU1R 
  32. RPOPKAKU2H
  33. RPOPKAKU2K
  34. RPOPKAKU2R
  35. RPOPMARU1H 
  36. RPOPMARU1K
  37. RPOPMARU1R
  38. RPOPMARU2H
  39. RPOPMARU2K 
  40. RPOPMARU2R
  41. SAN FRANCISCO
  42. SYMBOL
  43. TIMES
  44. TORONTO
  45. VENICE
  46. ZAPF CHANCERY
  47. ZAPF DINGBATS
  48. button id 1SCRP
  49. on mouseUp
  50.   go prev
  51. end mouseUp
  52. button id 2SCRP
  53. on mouseUp
  54.   go next
  55. end mouseUp
  56. VIDCD
  57. ^SCRP
  58. on mouseUp r
  59.   put row r of column 1 of me into field "
  60.   put row r of column 2 of me into field "
  61.   put row r of column 3 of me into field "
  62.   put row r of column 4 of me into field "
  63. end mouseUp
  64. MOCELL10
  65. 1-2-3
  66. 1-2-3
  67. 03-123-4567
  68. 03-123-4567
  69. MacPower
  70. 03-999-9999
  71. 65564
  72. Odata
  73. TTAIL
  74. bdata
  75. 03-123-4567TAIL
  76. on returnInField
  77.   tabkey
  78. end returnInField
  79. 1-2-3TAIL
  80. on mouseUp
  81.   put field "
  82. " & tab & field "
  83. O" & tab & field "
  84. b" & tab & field "
  85. " after datasheet "
  86.   put empty into field "
  87.   put empty into field "
  88.   put empty into field "
  89.   put empty into field "
  90.   select empty
  91.   tabkey
  92. end mouseUp
  93. on mouseUp
  94.   answer "
  95. H" with "
  96. " or "
  97.   if it is "
  98. " then exit mouseUp
  99.   get hilitedRows of datasheet "
  100.   if it is not empty then delete row it of datasheet "
  101. end mouseUp
  102. gSCRP
  103. on mouseUp
  104.   answer "
  105. B" with "
  106. " or "
  107.   if it is "
  108. " then exit mouseUp
  109.   sort datasheet "
  110. ^" by column 1
  111. end mouseUp
  112. datasheet id 1data
  113. MOCELL10
  114. sdata
  115. 1TAIL
  116. 1TAIL
  117. gdata
  118. BTAIL
  119. gSCRP
  120. on mouseUp
  121.   put field "
  122. g" into row (field "
  123. s") of column (field "
  124. ") of datasheet 1
  125. end mouseUp
  126. hSCRP
  127. on mouseUp
  128.   put row (field "
  129. s") of column (field "
  130. ") of datasheet 1 into field "
  131. end mouseUp
  132.