【導讀】帳務(wù)核算系統(tǒng)是會計核算軟件中使用最為廣泛、最為重要的一個子系統(tǒng)。本章以系統(tǒng)開發(fā)過程為主線，簡要介紹各過程的任務(wù)、要求及注意事項。３、特殊事務(wù)方面的調(diào)查。４、處理方式方面的調(diào)查。來進行系統(tǒng)的調(diào)查，因此，設(shè)計人員應(yīng)認真對待調(diào)查工作。統(tǒng)開發(fā)的初步安排等方面進行規(guī)劃，編寫需求分析說明書。１、計算機系統(tǒng)的配置方面。５、保密性設(shè)計。６、可維護性設(shè)計。存取數(shù)據(jù)，允許哪些人只讀或禁止訪問；文件名。代碼的軟件表示，這種表示應(yīng)當是無歧義且高度結(jié)構(gòu)化的。２、采用詳細設(shè)計工具對程序模塊進行過程描述。修改，修改后再次評審，直至通過為止。２、確定了模塊內(nèi)的算法及數(shù)據(jù)結(jié)構(gòu)。使用有限數(shù)量的基本邏輯結(jié)構(gòu)；利用基本結(jié)構(gòu)將過程組成容易識別的“塊”；程序設(shè)計說明書又稱詳細設(shè)計說明書。標題；模塊開發(fā)情況；功能說明；設(shè)計說明；源代碼清單；預(yù)測用戶的下一步動作；提供錯誤信息來幫助糾正錯誤；３、考慮用戶擁有使用過的其它軟件的菜單風格。

　　

【正文】 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 25 頁 共 85 頁 KMDM3 = SUBSTR(KMDM,1,7) KMDM4 = SUBSTR(KMDM,1,9) CASE LEN(TRIM(KMDM))=7 KMDM2 = SUBSTR(KMDM,1,5) KMDM3 = SUBSTR(KMDM,1,7) CASE LEN(TRIM(KMDM))=5 KMDM2 = SUBSTR(KMDM,1,5) ENDCASE MI = 1 KMMC1 = SELECT 3 DO WHILE MI=4 MJ = STR(MI,1) IF KMDMamp。MJ SEEK KMDMamp。MJ KMMC1 = KMMC1+TRIM(KMMC)+/ KMDMamp。MJ= ENDIF MI = MI+1 ENDDO RETURN ******************* * 查詢憑證程序 * ******************* PARA PZLXQ PUBLIC DIMENSION PZH1(1000) STORE TO PZH1 DEFI WIND PZCX FROM 3,25 TO 16,50 SHAD DOUBL COLO SCHE 14 DEFI WIND PZCX1 FROM 18,20 TO 21,60 SHAD DOUBL COLO SCHE 14 DO WHILE .T. ACTI WIND PZCX @ 0, 3 SAY 憑證查詢功能選擇模塊 @ 2 , 3 PROMPT 1. 按日期查詢 @ 3 , 3 PROMPT 2. 按憑證號查詢 @ 4 , 3 PROMPT 3. 按科目碼查詢 @ 5 , 3 PROMPT 4. 按金額查詢 @ 6 , 3 PROMPT 5. 按組合條件查詢 @ 7 , 3 PROMPT 6. 查詢期限發(fā)生額 @ 8 , 3 PROMPT 0. 退出 @ 10, 2 SAY 請選擇 MENU TO CH DEAC WIND PZCX B12 = DATE() B11 = DATE() 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 26 頁 共 85 頁 I1 = 1 DO CASE CASE CH=1 DO WHILE .T. ACTI WIND PZCX1 @ 0 , 0 SAY 輸入查詢?nèi)掌谇?: 日至 日 @ 0 , 15 GET B11 @ 0 , 27 GET B12 READ DEAC WIND PZCX1 IF B11B12 LOOP ELSE EXIT ENDIF ENDDO SELECT 1 B0 = 39。+DTOC(B11)+39。 B2 = 39。+DTOC(B12)+39。 B1 = RQ=CTOD( + B0 + ).=CTOD( + B2 + ).(PZRB)=39。 + UPPE(PZLXQ)+39。 KZ1 = DO CXPZKHC2 WITH PZLXQ , KZ1 IF KZ1 LOOP ENDIF DO CXPZKHC3 WITH PZLXQ CASE CH=2 DO WHILE .T. A11 = A12 = ACTI WIND PZCX1 @ 0 , 0 SAY 請輸入查詢憑證號 : 號至 號 @ 0 , 18 GET A11 PICTURE 9999 @ 0 , 28 GET A12 PICTURE 9999 READ A11=TRIM(A11) A12=TRIM(A12) DEAC WIND PZCX1 IF A11(TRIM(A11))=(TRIM(A12))=0 LOOP ELSE EXIT ENDIF 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 27 頁 共 85 頁 ENDDO B1 = BH=39。+ A11 +39。.=39。+A12+39。.(PZRB)=39。+ UPPE(PZLXQ)+39。 SELECT 1 KZ1 = DO CXPZKHC2 WITH PZLXQ , KZ1 IF KZ1 LOOP ENDIF DO CXPZKHC3 WITH PZLXQ CASE CH=3 KMBM1 = DO WHILE .T. ACTI WIND PZCX1 @ 0 , 0 SAY 請輸入查詢科目編碼 : GET KMBM1 PICTURE 99999999999 READ DEAC WIND PZCX1 IF LEN(TRIM(KMBM1))=0 LOOP ELSE EXIT ENDIF ENDDO KMBM1 = 39。+KMBM1+39。 B1 = KMDM=+KMBM1+.(PZRB)=+39。+UPPE(PZLXQ)+39。 SELECT 1 KZ1 = DO CXPZKHC2 WITH PZLXQ , KZ1 IF KZ1 LOOP ENDIF DO CXPZKHC3 WITH PZLXQ CASE CH=4 C11 = 0 ACTI WIND PZCX1 @ 0 , 0 SAY 請輸入查詢金額 : GET C11 PICTURE READ DEAC WIND PZCX1 B1 = JE=+STR(C11,12,2)+.(PZRB)=+39。+UPPE(PZLXQ)+39。 SELECT 1 KZ1 = DO CXPZKHC2 WITH PZLXQ , KZ1 IF KZ1 LOOP 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 28 頁 共 85 頁 ENDIF DO CXPZKHC3 WITH PZLXQ CASE CH=5 DO WHILE .T. A111 = 0 A112 = 0 C11 = C12 = 0 ACTI WIND PZCX1 @ 0 , 0 SAY 輸入查詢要求 :日期 日至 日 @ 1 , 0 SAY 憑證號 號至 號 @ 0 , 17 GET B11 @ 0 , 27 GET B12 @ 1 , 17 GET A111 PICTURE 9999 @ 1 , 27 GET A112 PICTURE 9999 READ DEAC WIND PZCX1 IF A111==0 LOOP ELSE EXIT ENDIF ENDDO B0 = 39。+DTOC(B11)+39。 B2 = 39。+DTOC(B12)+39。 B1 = RQ=CTOD(+B0+).=CTOD(+B2+).=+39。+。 STR(A111,4,0)+39。+.=+39。+STR(A112,4,0)+39。+。 .(PZRB)=+39。+UPPE(PZLXQ)+39。 SELECT 1 KZ1 = DO CXPZKHC2 WITH PZLXQ , KZ1 IF KZ1 LOOP ENDIF DO CXPZKHC3 WITH PZLXQ CASE CH=6 KMBM1 = RQ1 = 0 RQ2 = 0 DO WHILE .T. ACTI WIND PZCX1 @ 0 , 1 SAY 請輸入查詢科目代碼 : GET KMBM1 PICTURE 9999999 READ DEAC WIND PZCX1 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 29 頁 共 85 頁 IF KMBM1= LOOP ELSE EXIT ENDIF ENDDO SELECT 3 SEEK KMBM1 IF EOF() ACTI WIND PZCX1 @ 0 , 0 SAY 查無此科目碼 !按任一鍵返回 ! WAIT DEAC WIND PZCX1 LOOP ENDIF DO WHILE .T. ACTI WIND PZCX1 @ 0 , 0 SAY 請輸入查詢期限從 日至 日 @ 0 , 17 GET RQ1 PICTURE 99 VALID RQ1==31 @ 0 , 24 GET RQ2 PICTURE 99 VALID RQ2==31 READ DEAC WIND PZCX1 IF RQ1==0 LOOP ELSE EXIT ENDIF ENDDO DO CXPZKHC4 CASE CH=7 RETURN ENDCASE ENDDO RETURN *: EOF: ******************* * 查詢憑證子程序 * ******************* PARAMETERS PZLXQ , KZ1 DEFI WIND PZCX21 FROM 18,20 TO 20,60 SHAD COLO SCHE 12 SELECT 1 GO TOP LOCA FOR amp。B1 IF EOF() 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 30 頁 共 85 頁 ACTI WIND PZCX21 @ 0 , 0 SAY 查無此憑證 ! 按任一鍵返回 ! WAIT DEAC WIND PZCX21 KZ1 = N RETURN ENDIF PZH1=SPACE(4) DO WHILE .() IF PZH1(I1)BH I1 = I1+1 PZH1(I1) = BH ENDIF CONTINUE ENDDO RETURN ********************** * 查詢憑證子程序 * ********************** PARA PZLXQ SELE 12 USE DATA＼ ZWKLK MDWMC=DWMC SELECT 1 J = 2 DO WHILE J=I1 LOCATE FOR BH=PZH1(J).=PZLXQ IF LOWER(PZLXQ)=S LX = 收款 ELSE IF LOWER(PZLXQ)=F LX = 付款 ELSE LX = 轉(zhuǎn)帳 ENDIF ENDIF @ 1 , 35 SAY LX+憑證 LINE1 = 單位 :+TRIM(MDWMC)+ +NN+年 +YY+月 +RR+日 +第 +BH+號 LINE2 = ┏━━━━━━━━━┳━━━━━━━━━━━┳━┳━━━━━━┓ LINE3 = ┃ 摘 要 ┃ 科 目 名 稱 ┃JD┃ 金 額 ┃ LINE4 = ┣━━━━━━━━━╋━━━━━━━━━━━╋━╋━━━━━━┫ @ 2 , 0 SAY LINE1 @ 3 , 0