會(huì)計(jì)軟件分析與設(shè)計(jì)(doc89)-財(cái)務(wù)分析-資料下載頁
2025-08-10 13:08本頁面
【導(dǎo)讀】帳務(wù)核算系統(tǒng)是會(huì)計(jì)核算軟件中使用最為廣泛、最為重要的一個(gè)子系統(tǒng)。本章以系統(tǒng)開發(fā)過程為主線，簡(jiǎn)要介紹各過程的任務(wù)、要求及注意事項(xiàng)。３、特殊事務(wù)方面的調(diào)查。４、處理方式方面的調(diào)查。來進(jìn)行系統(tǒng)的調(diào)查，因此，設(shè)計(jì)人員應(yīng)認(rèn)真對(duì)待調(diào)查工作。統(tǒng)開發(fā)的初步安排等方面進(jìn)行規(guī)劃，編寫需求分析說明書。１、計(jì)算機(jī)系統(tǒng)的配置方面。５、保密性設(shè)計(jì)。６、可維護(hù)性設(shè)計(jì)。存取數(shù)據(jù)，允許哪些人只讀或禁止訪問；文件名。代碼的軟件表示，這種表示應(yīng)當(dāng)是無歧義且高度結(jié)構(gòu)化的。２、采用詳細(xì)設(shè)計(jì)工具對(duì)程序模塊進(jìn)行過程描述。修改，修改后再次評(píng)審，直至通過為止。２、確定了模塊內(nèi)的算法及數(shù)據(jù)結(jié)構(gòu)。使用有限數(shù)量的基本邏輯結(jié)構(gòu)；利用基本結(jié)構(gòu)將過程組成容易識(shí)別的“塊”；程序設(shè)計(jì)說明書又稱詳細(xì)設(shè)計(jì)說明書。標(biāo)題；模塊開發(fā)情況；功能說明；設(shè)計(jì)說明；源代碼清單；預(yù)測(cè)用戶的下一步動(dòng)作；提供錯(cuò)誤信息來幫助糾正錯(cuò)誤；３、考慮用戶擁有使用過的其它軟件的菜單風(fēng)格。
【正文】 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 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. 按憑證號(hào)查詢 @ 4 , 3 PROMPT 3. 按科目碼查詢 @ 5 , 3 PROMPT 4. 按金額查詢 @ 6 , 3 PROMPT 5. 按組合條件查詢 @ 7 , 3 PROMPT 6. 查詢期限發(fā)生額 @ 8 , 3 PROMPT 0. 退出 @ 10, 2 SAY 請(qǐng)選擇 MENU TO CH DEAC WIND PZCX B12 = DATE() B11 = DATE() 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 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 請(qǐng)輸入查詢憑證號(hào) : 號(hào)至 號(hào) @ 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 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 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 請(qǐng)輸入查詢科目編碼 : 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 請(qǐng)輸入查詢金額 : 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 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 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 憑證號(hào) 號(hào)至 號(hào) @ 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 請(qǐng)輸入查詢科目代碼 : GET KMBM1 PICTURE 9999999 READ DEAC WIND PZCX1 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 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 請(qǐng)輸入查詢期限從 日至 日 @ 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() 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 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+號(hào) LINE2 = ┏━━━━━━━━━┳━━━━━━━━━━━┳━┳━━━━━━┓ LINE3 = ┃ 摘 要 ┃ 科 目 名 稱 ┃JD┃ 金 額 ┃ LINE4 = ┣━━━━━━━━━╋━━━━━━━━━━━╋━╋━━━━━━┫ @ 2 , 0 SAY LINE1 @ 3 , 0
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1