visualfoxpro程序設(shè)計(jì)案例教程-2007st-資料下載頁
2025-01-12 03:49本頁面
【正文】 S=0 INPUT 輸入圓的半徑： TO R DO S1 WITH S,R ? S SET PROC TO RETURN * PROC S1 PARA X,R X=*R*R RETURN 運(yùn)行以上程序時(shí)，由鍵盤輸入值 2 4. SET TALK OFF CLEAR STORE 0 TO X USE 職工 INDEX ON YEAR(出生日期 ) TAG T SEEK 1975 6 DO WITH YEAR(出生日期 )＝ 1975 X＝ X+1 SKIP ENDDO ?X USE RETURN 5. SET TALK OFF SET HEADING OFF CLEAR USE 職工 COPY TO BB USE BB LOCATE FOR 性別＝ 女 IF FOUND() DISP 編號(hào) ,姓名 ,性別 OFF ENDIF USE RETURN 6. SET TALK OFF SET HEADING OFF CLEAR SELECT A USE 職務(wù) INDEX ON 職務(wù)號(hào) TO ZHWU SELECT B USE 職工 INDEX ON 職務(wù)號(hào) TO ZH SELECT A SET RELATION TO 職務(wù)號(hào) INTO 職工 DISPLAY ， ，職務(wù)名稱 OFF USE RETURN ，如下圖所示。其中有一個(gè)命令按鈕 Command1與三個(gè)文本框 Text Text Text3，對(duì) Command1（“計(jì)算”按鈕）的 Click事件編寫代碼如下： 7 SELECT MAX(工資 ) AS maxgz,MIN(工資 ) AS mingz,AVG(工資 ) AS avggz。 FORM 職工 =maxgz =mingz =avggz 請(qǐng)順序?qū)懗霰韱芜\(yùn)行后，單擊“計(jì)算”按鈕，文本框 Text Text Text3 上顯示的內(nèi)容。 8. SET TALK OFF CLEAR FOR J=1 TO 3 ?STR(J,2)+ ) FOR I=1 TO J ??STR(I*J,3) ENDFOR ENDFOR RETURN
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1