home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / private / djmgts11.zip / DJ.ZIP / DJ.SC < prev    next >
Text File  |  1993-01-31  |  14KB  |  537 lines
  1. ;*************** DJ DATA ENTRY ********************************************
  2. ;release version 1.1 shareware 
  3. ;(C)1993 Ed Witles 
  4. ;**************************************************************************
  5. ;Get User Info
  6. clearimage
  7. view "user"
  8. servicename=[Servicename]
  9. deposit=[Deposit]
  10. djname=[Djname]
  11. servicestreet=[Servicestreet]
  12. servicecity=[Servicecity]
  13. servicestate=[Servicestate]
  14. servicezip=[Servicezip]
  15. servicephone=[Servicephone]
  16. clearimage
  17. ;**************************************************************************
  18. ;**************************************************************************
  19. Proc Customize()
  20. CLEARALL
  21. CLEAR
  22. clearimage
  23. View "user"
  24. EditKey
  25. pickform "F"
  26. While True
  27.    Wait Table
  28.    Until "F2","F3"
  29.       Switch
  30.    Case Retval= "F2" : Do_It! main()
  31.    Case Retval= "F3" : Reset main()
  32. EndSwitch
  33. EndWhile
  34. endproc
  35. ;**************************************************************************
  36. proc Register()
  37. clearimage
  38. clear
  39. @10,10??" Enter Your Name: "
  40. @10,35 ACCEPT "A30"
  41. TO NAME
  42. @10,10??" Enter Your Code: "
  43. @10,35 ACCEPT "A30"
  44. TO CODE
  45. N=LEN(NAME) D=1
  46. FOR A FROM 1 TO N
  47. B=SUBSTR(NAME,A,1)
  48. C=ABS(ASC(B)) D=D+C
  49. ENDFOR
  50. VALID=STRVAL(D)
  51. IF NOT CODE=VALID
  52.    THEN MESSAGE " CODE IS INVALID ...... PLEASE TRY AGAIN ....." BEEP
  53.    SLEEP 2000 main()
  54. ENDIF
  55. PASSWORD"booger"
  56. EDIT "GEORGE"
  57. MOVETO [Name]
  58. CTRLBACKSPACE
  59. TYPEIN NAME
  60. MOVETO [Key Code]
  61. CTRLBACKSPACE
  62. TYPEIN "VALID"
  63. DO_IT!
  64. UNPASSWORD "booger"
  65. CLEARALL
  66. MESSAGE "THANK YOU FOR REGISTERING..." SLEEP 2000 MAIN()
  67. ENDPROC
  68. ;**************************************************************************
  69. PROC VALIDCOPY()
  70. CLEARIMAGE
  71. CLEAR
  72. PASSWORD "booger"
  73. VIEW "GEORGE"
  74. NAME=[Name]
  75. CODE=[Key Code]
  76. UNPASSWORD "booger"
  77. CLEARIMAGE
  78. ENDPROC
  79. ;**************************************************************************
  80. PROC exptotsum()
  81. CLEAR
  82. CLEARALL
  83. Query
  84.  
  85.  Expense |   Date    | Music Supplies | Advertising | Office Supplies | 
  86.          | >12/31/92 | calc sum       | calc sum    | calc sum        | 
  87.  
  88.  Expense | Costume/Cleanings | Vehicle Expenses | Meal Expenses | 
  89.          | calc sum          | calc sum         | calc sum      | 
  90.  
  91.  Expense | Hardware Purchases | Rental/Overhead | Misc Expenses (A) | 
  92.          | calc sum           | calc sum        | calc sum          | 
  93.  
  94.  Expense | Misc Expenses (B) | Misc Expenses (C) | Bad Debts | 
  95.          | calc sum          | calc sum          | calc sum  | 
  96.  
  97. Endquery
  98.  
  99. DO_IT!
  100.  
  101. ClearAll
  102. Clear
  103. View "ANSWER"
  104. While True
  105.    Wait Table
  106.    Until "F3"
  107.       Message "Press F3 When Done....."
  108.       Switch
  109.       Case Retval= "F3" : Message "" Reset Main()
  110. EndSwitch
  111. EndWhile
  112. EndProc
  113. ;***************************************************************************
  114.  
  115. ;**************************************************************************
  116. Proc Expense()
  117. ClearAll
  118. Clear
  119. Empty "Exp_Tmp"
  120. View "Exp_Tmp"
  121. EditKey
  122. formkey
  123. While True
  124.    Wait Table
  125.    Until "F2","F3"
  126.       Switch
  127.    Case Retval= "F2" : Do_It!  Add "Exp_TMP" "Expense"  Main()
  128.    Case Retval= "F3" : Reset Main()
  129. EndSwitch
  130. EndWhile
  131. EndProc
  132. ;**************************************************************************       
  133.  
  134. ;**************************************************************************
  135. Proc NewClient()
  136. ClearAll
  137. Clear
  138. Empty "DjClient"
  139. View "DjClient"
  140. EditKey
  141. FormKey
  142. While True
  143.    Wait Table
  144.    Until "F2","F3"
  145.       Switch
  146.    Case Retval= "F2" : Do_It!  Add "DjClient" "clients"  Main()
  147.    Case Retval= "F3" : Reset Main()
  148. EndSwitch
  149. EndWhile
  150. EndProc
  151. ;**************************************************************************       
  152. PROC DanceFind()
  153. ClearAll
  154. Clear
  155. @11,10??"Please enter Dance or Song Title: "
  156. Accept "A25"
  157. Picture "*!"
  158. To dance
  159. Message " Searching for: ",DANCE
  160. EMPTY "Dan_Tmp"
  161.  
  162. Query
  163.  
  164.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  165.          | Check ..~DANCE.. | Check           | Check           | Check           | 
  166.  
  167.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  168.          | Check           | Check           | Check           | 
  169.  
  170.  Country | Song & Artist 7 | Comments | 
  171.          | Check           | Check    | 
  172.  
  173. Endquery
  174.  
  175.  
  176. Do_It!
  177.  
  178. If Not (IsEmpty("Answer"))
  179.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  180.    EndIf
  181. ClearImage
  182. Message "Pass #2"
  183.  
  184.  
  185. Query
  186.  
  187.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  188.          | Check  | Check ..~DANCE..          | Check           | Check           | 
  189.  
  190.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  191.          | Check           | Check           | Check           | 
  192.  
  193.  Country | Song & Artist 7 | Comments | 
  194.          | Check           | Check    | 
  195.  
  196. Endquery
  197.  
  198. Do_It!
  199.  
  200.  
  201. If Not (IsEmpty("Answer"))
  202.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  203.    EndIf
  204. ClearImage
  205. Message "Pass #3"
  206.  
  207.  
  208. Query
  209.  
  210.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  211.          | Check  | Check           | Check ..~DANCE..          | Check           | 
  212.  
  213.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  214.          | Check           | Check           | Check           | 
  215.  
  216.  Country | Song & Artist 7 | Comments | 
  217.          | Check           | Check    | 
  218.  
  219. Endquery
  220.  
  221. Do_It!
  222.  
  223.  
  224. If Not (IsEmpty("Answer"))
  225.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  226.    EndIf
  227. ClearImage
  228. Message "Pass #4"
  229.  
  230.  
  231. Query
  232.  
  233.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  234.          | Check  | Check           | Check           | Check  ..~DANCE..         | 
  235.  
  236.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  237.          | Check           | Check           | Check           | 
  238.  
  239.  Country | Song & Artist 7 | Comments | 
  240.          | Check           | Check    | 
  241.  
  242. Endquery
  243.  
  244. Do_It!
  245.  
  246.  
  247. If Not (IsEmpty("Answer"))
  248.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  249.    EndIf
  250. ClearImage
  251. Message "Pass #5"
  252.  
  253.  
  254. Query
  255.  
  256.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  257.          | Check  | Check          | Check           | Check           | 
  258.  
  259.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  260.          | Check  ..~DANCE..         | Check           | Check           | 
  261.  
  262.  Country | Song & Artist 7 | Comments | 
  263.          | Check           | Check    | 
  264.  
  265. Endquery
  266.  
  267. Do_It!
  268.  
  269. If Not (IsEmpty("Answer"))
  270.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  271.    EndIf
  272. ClearImage
  273. Message "Pass #6"
  274.  
  275.  
  276. Query
  277.  
  278.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  279.          | Check  | Check           | Check           | Check           | 
  280.  
  281.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  282.          | Check           | Check ..~DANCE..         | Check           | 
  283.  
  284.  Country | Song & Artist 7 | Comments | 
  285.          | Check           | Check    | 
  286.  
  287. Endquery
  288.  
  289. Do_It!
  290.  
  291.  
  292. If Not (IsEmpty("Answer"))
  293.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  294.    EndIf
  295. ClearImage
  296. Message "Pass #7"
  297.  
  298.  
  299. Query
  300.  
  301.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  302.          | Check  | Check           | Check           | Check           | 
  303.  
  304.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  305.          | Check           | Check           | Check ..~DANCE..           | 
  306.  
  307.  Country | Song & Artist 7 | Comments | 
  308.          | Check           | Check    | 
  309.  
  310. Endquery
  311.  
  312. Do_It!
  313.  
  314.  
  315. If Not (IsEmpty("Answer"))
  316.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  317.    EndIf
  318. ClearImage
  319. Message "Final Pass..."
  320.  
  321.  
  322. Query
  323.  
  324.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  325.          | Check  | Check           | Check           | Check           | 
  326.  
  327.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  328.          | Check           | Check           | Check           | 
  329.  
  330.  Country | Song & Artist 7 | Comments | 
  331.          | Check ..~DANCE..      | Check    | 
  332.  
  333. Endquery
  334.  
  335. Do_It!
  336.  
  337.  
  338.  
  339. If (IsEmpty("Dan_Tmp"))
  340.    Then Message "No Records Exist...." Sleep 2000 Main()
  341.    Else View "Dan_Tmp" pickform "F" 
  342.        
  343.        Wait Table
  344.           Message "Press F2 or ESC when done viewing.."
  345.           Until "F2","ESC"
  346. EndIf
  347. ClearImage
  348. Clear
  349. Empty "Dan_Tmp"
  350. Main()
  351. EndProc
  352. ;**************************************************************************
  353.  
  354. ;**************************************************************************
  355. Proc Contract()
  356. ClearAll
  357. Clear
  358. @10,10??"   Enter The Client That You Want For A Contract... "
  359. Accept "A15" To Client
  360. @12,10??"   Enter The Function in case of duplicate name.."
  361. Accept "A15" To Func
  362. Query
  363.  
  364.  clients |  Date  | Event  |   Name(s)   | Phone # | Street address | 
  365.         | Check  | Check ..~Func..  | Check ~Client.. | Check   | Check          | 
  366.  
  367.  clients |  City  | State  |  Zip   |  From  |   To   | Location | 
  368.         |        |        |        | Check  | Check  | Check    | 
  369.  
  370.  clients | Music type | Place  |  Fee              | 
  371.         | Check      | Check  | Check _D,CALC _D-~deposit      |  
  372.  
  373. Endquery
  374. Do_It!
  375. ;**************************************************************************
  376.  
  377. Empty "Contract"
  378.  Menu {Tools} {More} {Add} {Answer} {contract}
  379.  Menu {Report} {Output} {Contract} {1} {Printer} 
  380.  Menu {Report} {Output} {Contract} {1} {Printer} Main()
  381.  
  382. Main()
  383. EndProc
  384. ;***************************************************************************
  385. Proc Ask_Song()
  386. ClearAll
  387. Clear
  388. @10,10??"   Enter The Group or Leave Blank..... Partial is Ok.. "
  389. @11,5 Accept "A30" To Title
  390. @12,10??"   Enter The Song Title or Leave Blank.... Partial is Ok.. "
  391. @13,5 Accept "A30" To Song
  392. Query
  393.  
  394.  Total_cd | CATALOG NUMBER | CATAGORY |      TITLE       | SIDE OR DISC # | 
  395.           | Check          | Check    | Check ..~Title.. | Check          | 
  396.  
  397.  Total_cd | SONG # |   SONG TITLE    | 
  398.           | Check  | Check ..~Song.. | 
  399.  
  400. Endquery
  401. Do_It!
  402. ClearAll
  403. Clear
  404. Empty "tocd_tmp" add "answer" "tocd_Tmp"
  405. View "tocd_tmp"
  406. Pickform "f"
  407. While True
  408.    Wait Table
  409.    Until "F3"
  410.       Message "Press F3 When Done....."
  411.       Switch
  412.       Case Retval= "F3" : Message "" Reset Main()
  413. EndSwitch
  414. EndWhile
  415. Main()
  416. EndProc
  417. ;***************************************************************************
  418. Proc ViewClient()
  419. ClearAll
  420. Clear
  421. View "clients"
  422. While True
  423.    Wait Table
  424.    Until "F3"
  425.       Message "Press F3 When Done....."
  426.       Switch
  427.       Case Retval= "F3" : Message "" Reset Main()
  428. EndSwitch
  429. EndWhile
  430. EndProc
  431. ;***************************************************************************
  432. ;***************************************************************************
  433. Proc ViewSongs()
  434. ClearAll
  435. Clear
  436. View "Total_cd"
  437. pickform "f"
  438. While True
  439.    Wait Table
  440.    Until "F3"
  441.       Message "Press F3 When Done....."
  442.       Switch
  443.       Case Retval= "F3" : Message "" Reset Main()
  444. EndSwitch
  445. EndWhile
  446. EndProc
  447. ;**************************************************************************
  448. Proc EdSongs()
  449. Clear
  450. ClearImage
  451. @5,10??"             You Are About To Edit The Master Music Table"
  452. sleep 2000
  453. Clear
  454. View "Total_cd"
  455. End
  456. EditKey
  457. While True
  458.    Message "Press 'F2' To Accept : Press 'F3' To Abort"
  459.    Wait Table
  460.    Until "F2","F3"
  461.  
  462.       Switch
  463.    Case Retval= "F2" : Do_It!  Main()
  464.    Case Retval= "F3" : Reset Main()
  465. EndSwitch
  466. EndWhile
  467. EndProc
  468. ;**************************************************************************
  469. ;**************************************************************************
  470. Proc EdClient()
  471. Clear
  472. ClearImage
  473. @5,10??"             You Are About To Edit The Master Client Table"
  474. sleep 2000
  475. Clear
  476. View "clients"
  477. End
  478. EditKey
  479. While True
  480.    Message "Press 'F2' To Accept : Press 'F3' To Abort"
  481.    Wait Table
  482.    Until "F2","F3"
  483.  
  484.       Switch
  485.    Case Retval= "F2" : Do_It!  Main()
  486.    Case Retval= "F3" : Reset Main()
  487. EndSwitch
  488. EndWhile
  489. EndProc
  490. ;**************************************************************************
  491. Proc Main()
  492. VALIDCOPY()
  493. IF NOT CODE="VALID"
  494.    THEN MESSAGE "Please Register Me.... " beep SLEEP 7000 beep
  495.    ENDIF   
  496. MESSAGE""
  497. ClearAll
  498. Clear
  499. @1,10??"    **** Your Personal Disc Jokey Management Program ****"
  500. @2,10??"              Version 1.1 (C) 1993 Ed Witles"
  501. @3,10??"    This copy is registered to ",NAME
  502. @5,10??"     ***************************************************"
  503. @6,10??"     *             Dj Main Menu                        *"
  504. @7,10??"     *     (0) To Customize With Your Name             *"
  505. @8,10??"     *     (1) Enter A New Client                      *"
  506. @9,10??"     *     (2) Generate A Contract                     *"
  507. @10,10??"     *     (3) View Clients                            *"
  508. @11,10??"     *     (4) Edit Clients                            *"
  509. @12,10??"     *     (5) Edit Total Cd List                      *"
  510. @13,10??"     *     (6) View Total Cd List                      *"
  511. @14,10??"     *     (7) Search Cd List by Song or Artist        *"
  512. @15,10??"     *     (9) Exit To DOS                             *"
  513. @16,10??"     *     (10) Search For Country Dances              *"
  514. @17,10??"     *     (11) Your Expenses Entry                    *"
  515. @18,10??"     *     (12) View Expenses To Date                  *"
  516. @19,10??"     ***************************************************"
  517. @20,10??"     Enter Your Selection.... "
  518.         Accept "N" min 0 max 13 to X
  519.         Switch
  520.                 Case X = 1:Do_It! NewClient()
  521.                 Case X = 2:Do_It! Contract()
  522.                 Case X = 3:Do_It! ViewClient()
  523.                 Case X = 4:Do_It! EdClient() 
  524.                 Case X = 9:Do_It! Exit
  525.                 Case X = 5:Do_It! EdSongs()
  526.                 Case X = 6:Do_It! ViewSongs()
  527.                 Case X = 7:Do_It! Ask_Song()
  528.                 CASE X =10:DO_IT! DANCEFIND()        
  529.                 CASE X =0.5:DO_IT! REGISTER()
  530.                 case X = 0:DO_IT! Customize()    
  531.                 CASE X =11: DO_IT! Expense()
  532.                 case x=12: DO_IT! ExpTotSum()      
  533.         EndSwitch
  534.                 
  535. EndProc
  536. ;**********************
  537. Main()