home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP6_1.PRG < prev    next >
Encoding:
Text File  |  1993-11-17  |  4.0 KB  |  156 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP6_1.PRG                                           ⌐ª
  3. *⌐ª     Function: ╩²╛▌┬╝╚δ╡─╖╢└²╥╗.                                    ⌐ª
  4. *⌐ª   DBF & File: CONCRETE.DBF IN_CONCR.DBF                            ⌐ª
  5. *⌐ª   Creat data: 93.10                                                ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. SET STAT    OFF
  8. SET TALK    OFF
  9. SET SAFETY  OFF
  10. SET MESSAGE TO 24 CENTER
  11.  
  12. PUBLIC  DBNAME1
  13. PRIVATE KEY_VALU,QA,IN1,IN2
  14. STORE 0 TO QA
  15. STORE 1 TO SELE
  16. IN1="C"
  17. IN2=SPACE(8)
  18. DIMENSION OPT(3)
  19. OPT(1)=" 1. ╩Σ╚δ╨┬╩²╛▌  "
  20. OPT(2)=" 2. ╝╚╢¿╬─╝■    "
  21. OPT(3)=" 3. ┤┼┼╠╫░╚δ    "
  22. CLEAR
  23. DO WHILE .T.
  24.    @8,30 MENU OPT(3) ,3,3 SHADOW
  25.    READ MENU TO SELE
  26.    DO CASE
  27.       CASE SELE=0 .OR. SELE=2
  28.            CLEAR WINDOWS
  29.            CLEAR
  30.            RETURN
  31.       CASE SELE=1
  32.            CLEAR
  33.            EXIT
  34.       CASE SELE=3
  35.            DO SELELOAD
  36.            USE IN_CONCR
  37.            ZAP
  38.            APPEND FROM &DBNAME1
  39.            GO TOP
  40.            BROW
  41.            PACK
  42.            CLEAR
  43.            RETURN
  44.    ENDCASE
  45. ENDDO
  46. CLEAR
  47. DEFINE WINDOW WIN_IN02 FROM 8,16 TO 20,60 TITLE "╗∞─²═┴╩²╛▌╩Σ╚δ┤░┐┌";
  48.        DOUBLE COLOR SCHEME 5  FOOTER "  [ESC] - ═╦│÷"
  49. CLEAR
  50. SELECT 2
  51. USE CONCRETE
  52. INDEX ON CODE TAG CODE
  53. SELECT 1
  54. USE IN_CONCR
  55. SET RELATION TO CODE INTO CONCRETE
  56. ZAP
  57. ACTIVATE WINDOW WIN_IN02
  58. DBNAME="CONCRETE.DBF"
  59. DO WHILE .T.
  60.    APPEND BLANK
  61.    @ 2,6 SAY "        ▒α║┼:"  GET CODE   VALID(CHE_CODE())  PICT "XXXX"
  62.    * ╙├╫╘╢¿╥σ║»╩² CHE_CODE() ╝∞▓Θ╩Σ╚δ▒α║┼╩╟╖±┤µ╘┌╙┌ CONCRETE.DBF ┐Γ└∩,
  63.    * ╚τ▓╗┤µ╘┌, ╘≥▒╪╨δ╘┘┤╬╓╪╨┬╩Σ╚δ, ╓▒╡╜┤µ╘┌╬¬╓╣
  64.    READ
  65.    KEY_VALU=READKEY()
  66.    IF KEY_VALU=12.OR.KEY_VALU=268
  67.       * ┼╨╢╧╩╟╖±░┤ [Esc] ╝ⁿ, ░┤┴╦╘≥╜ß╩°╩Σ╚δ╣²│╠, ╝╠╨°═∙╧┬╓┤╨╨
  68.       CLOSE DATABASES
  69.       CLEAR WINDOWS
  70.       EXIT
  71.    ENDIF
  72.    REPLACE NAME  WITH CONCRETE->NAME
  73.    REPLACE TYPE  WITH CONCRETE->TYPE
  74.    @ 3,6 SAY "        ╞╖├√: "+NAME
  75.    @ 4,6 SAY "        └α╨═: "+TYPE
  76.    @ 5,6 SAY "    ╩²┴┐(m3):"  GET QUANTITY PICT "9999.999"
  77.    READ
  78.    * ╚τ▓╗╩Σ╚δ╩²┴┐(m3), ░┤╗╪│╡╝ⁿ, ╩Σ╚δ├µ╗²(m2) ║±╢╚(mm),
  79.    * ╙╔│╠╨≥╫╘╢»╧α│╦║≤, ░╤╜ß╣√╕│╙δ QUATITY
  80.    IF QUANTITY=0
  81.       @ 6,6 SAY "    ├µ╗²(m2):"  GET AREA     PICT "9999.999"
  82.       @ 7,6 SAY "    ║±╢╚(mm):"  GET THICK    PICT "9999.999"
  83.       READ
  84.       QA=AREA*THICK/1000
  85.       @ 5,6 SAY "    ╩²┴┐(m3): "+STR(QA,8,3)
  86.       REPLACE QUANTITY WITH QA
  87.    ENDIF
  88.    CLEAR
  89. ENDDO
  90. DEACTIVATE WINDOW WIN_IN02
  91. USE IN_CONCR
  92. BROWSE NOAPPEND NODELETE
  93. CLOSE DATABASES
  94. DEFINE WINDOW WIN_IN12 FROM 10,20 TO 15, 60 SHADOW ;
  95.        TITLE " ╩Σ╚δ╬─╝■┤µ┼╠ "  COLOR SCHEME 5
  96. ACTIVATE WINDOW WIN_IN12
  97. @ 1,6 SAY "   ╩Σ│÷┼╠╖√:" GET IN1 PICT "X"
  98. @ 2,6 SAY " ╩Σ│÷╬─╝■├√:" GET IN2 PICT "XXXXXXXX"
  99. READ
  100. IN2=TRIM(IN2)
  101. IF !LEN(IN2)=0
  102.    DBNAME2=IN1+":"+IN2+".DBF"
  103.    COPY FILE IN_CONCR.DBF TO (DBNAME2)
  104. ENDIF
  105. DEACTIVATE WINDOW WIN_IN12
  106. CLOSE ALL
  107. CLEAR
  108. RETURN
  109.  
  110.  
  111. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  112. *⌐ª      Program: CHE_CODE.PRG
  113. *⌐ª     Function: ╝∞▓Θ╩Σ╚δ▒α║┼╩╟╖±┤µ╘┌╙┌ CONCRETE.DBF ┐Γ╓╨
  114. *⌐ª   DBF & File: CONCRETE.DBF IN_CONCR.DBF
  115. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  116. PROCEDURE CHE_CODE
  117. XH=CODE
  118. SELECT 3
  119. USE &DBNAME AGAIN
  120. DO WHILE .NOT. EOF()
  121.    IF XH = CODE
  122.       USE
  123.       SELECT  1
  124.       RETURN .T.
  125.    ENDIF
  126.    SKIP
  127. ENDDO
  128. USE
  129. SELECT 1
  130. RETURN .F.
  131.  
  132. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  133. *⌐ª      Program: SELELOAD.PRG
  134. *⌐ª     Function: ╤í╘±╥╗╕÷╩²╛▌┐Γ╫≈╬¬╩Σ╚δ╬─╝■╫░╚δ
  135. *⌐ª   DBF & File: *.DBF
  136. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  137. PROCEDURE SELELOAD
  138. STORE 1 TO SELE2
  139. DIMENSION OPTION(50)
  140. option(1)=SYS(2000,"*.DBF")
  141. FOR I=2 TO 50
  142.     OPTION(I) = SYS(2000,"*.DBF",1)
  143.     IF LEN(ALLTRIM(OPTION(I))) = 0
  144.        EXIT
  145.     ENDIF
  146. ENDFOR
  147. @ 6,30 MENU OPTION,I,12 TITLE "  ╩²╛▌┐Γ╤í╘± " SHADOW
  148. READ MENU TO SELE2
  149. IF SELE2=0
  150.    CLOSE DATABASES
  151.    CLEAR WINDOWS
  152.    RETURN
  153. ENDIF
  154. DBNAME1=OPTION(SELE2)
  155. RETURN
  156.