【正文】 EOF() MBH = 0001 RETURN ELSE GO BOTTOM MBH = BH DO WHILE .() IF UPPER(PZRB)UPPER(MRB) SKIP 1 IF BOF() MBH = 0001 EXIT ENDIF ELSE X1 = VAL(BH) X1 = X1+1 X2 = TRIM(LTRIM(STR(X1))) DO CASE CASE LEN(X2)=1 MBH = 000+X2 CASE LEN(X2)=2 MBH = 00+X2 CASE LEN(X2)=3 MBH = 0+X2 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 23 頁 共 85 頁 CASE LEN(X2)=4 MBH=X2 ENDCASE EXIT ENDIF ENDDO RETURN ENDIF ELSE GO BOTTOM MBH = BH DO WHILE .() IF UPPER(PZRB)UPPER(MRB) SKIP 1 IF BOF() MBH = 0001 EXIT ENDIF ELSE X1 = VAL(BH) X1 = X1+1 X2 = TRIM(LTRIM(STR(X1))) DO CASE CASE LEN(X2)=1 MBH = 000+X2 CASE LEN(X2)=2 MBH = 00+X2 CASE LEN(X2)=3 MBH = 0+X2 CASE LEN(X2)=4 MBH=X2 ENDCASE EXIT ENDIF ENDDO ENDIF RETURN ****************** * 憑證輸入格式文件 * ****************** ***************** * 第一屏 * ***************** 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 24 頁 共 85 頁 17,50 SAY 39。 。通過此功能，把銀行給企事業(yè)單位的對(duì)帳單輸入計(jì)算機(jī)， 存入 “ 對(duì)帳單文件 ” 。 二、科目代碼的設(shè)置要求和編碼方式 １、科目代碼設(shè)置要求 適合計(jì)算機(jī)處理；簡明實(shí)用；要有系 統(tǒng)性（一級(jí)科目代碼位長 3 位，代碼 首位為 1表示資產(chǎn)類科目； 2表示負(fù)債類科目； 3 表示所有者權(quán)益類科目； 4 表示成本類科目； 5 表示損益類科目）；要有擴(kuò)展性；單義性。KL ＠ 8,32 SAY“ 繼續(xù)修改 ?”GET JX PICTUREY READ STORE TRIM(amp。 二、口令的 設(shè)置與修改。 ２、 豎直上托式。 ２、確定了模塊內(nèi)的算法及數(shù)據(jù)結(jié)構(gòu)。 二、概要設(shè)計(jì)的內(nèi)容 １、系統(tǒng)要求 。 本章以系統(tǒng)開發(fā)過程為主線，簡要介紹各過程的任務(wù)、要求及注意事項(xiàng)。 ４、通用性設(shè)計(jì)。 ３、表格工具，用表格來表示詳細(xì)處理過程，這類工具適于處理邏輯十分復(fù)雜 的條件和活動(dòng)間的關(guān)聯(lián)。 ５、圖標(biāo)式菜單（類 WINDOWS 風(fēng)格）。 ENDCASE KL STORE SPACE(30)TO amp。KL,1,1))50)+CHR (ASC(SUBS(amp。 ２、增加科目的內(nèi)容及注意事項(xiàng) 應(yīng)包括的內(nèi)容主要有：科目代碼、科目名稱、科目級(jí)別、科目類別、余額 方向，年初余額、期初余額、借方發(fā)生額、貸方發(fā)生額、借方累計(jì)發(fā)生額、 貸方累計(jì)發(fā)生額。 ３、自動(dòng)銀行對(duì)帳。 。第一屏 39。.(PZRB)=39。+STR(A112,4,0)+39。 B1 = RQ=CTOD(+B0+).=CTOD(+B2+).=+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 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 27 頁 共 85 頁 ENDDO B1 = BH=39。BH1+S 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 18 頁 共 85 頁 IF .() ACTI WIND PZSR1 0 , 1 SAY 重號(hào) ,按任意鍵重新輸入 WAIT DEAC WIND PZSR1 LOOP ENDIF SELECT 2 SEEK amp。 。 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 10 頁 共 85 頁 二、銀行對(duì)賬模塊應(yīng)設(shè)置的功能 １、輸入對(duì)帳單。 ４、便于輸入。KLM ＠ 5,50 SAY“ 改口令為： ”GET amp。 ３、人員設(shè)置數(shù)據(jù)庫中應(yīng)設(shè)置的數(shù)據(jù)項(xiàng)。減少用戶的記憶負(fù)擔(dān) 二、菜單式樣 １、水平上托式菜單。 三、詳細(xì)設(shè)計(jì)的完成標(biāo)志 １、詳細(xì)地規(guī)定了各模塊之間的接口，包括參數(shù)的形式和傳遞方式，上下 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 3 頁 共 85 頁 層調(diào)用關(guān)系 。 第三節(jié) 概要設(shè)計(jì) 一、概要設(shè)計(jì)的任務(wù)及意義 概要設(shè)計(jì)是在系統(tǒng)可行性分析之后，為實(shí)現(xiàn)系統(tǒng)進(jìn)行的技術(shù)設(shè)計(jì)，概要設(shè)計(jì) 工作的好壞，直接影響到費(fèi)用的多少，開發(fā)進(jìn)度的快慢。 通過本章的學(xué)習(xí)，要求讀者對(duì)帳務(wù)處理系統(tǒng)的開發(fā)過程及每個(gè)過程所涉 及的原理有一個(gè)初步的了解，明白各個(gè)過程完成的內(nèi)容及任務(wù)對(duì)以后工 作的重要性。 ５、保密性設(shè)計(jì)。 ４、幾種常用的詳細(xì)設(shè)計(jì)工具： 流程圖 ；框圖；判定樹 第五節(jié) 詳細(xì)設(shè)計(jì)交付的文件 一、程序設(shè)計(jì)說明書 程序設(shè)計(jì)說明書又稱詳細(xì)設(shè)計(jì)說明書。 三、菜單設(shè)計(jì)的考慮及權(quán)衡 １、設(shè)計(jì)按下 ESC 鍵將控制返回到上一級(jí)菜單。KLM ELSE 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 7 頁 共 85 頁 STORE amp。KL ))45)。系統(tǒng)正常運(yùn)行時(shí)，如果某科目已記帳，在該科目下級(jí)增 加新的明細(xì)科目，應(yīng)考慮該科目下級(jí)各明細(xì)科目金額的合計(jì)數(shù)是否與該科 目的金額相等。由計(jì)算機(jī)自動(dòng)在 “ 對(duì)帳單文件 ” 和 “ 銀行日記帳未達(dá)帳項(xiàng) 文件 ” 中尋找完全相同的經(jīng)濟(jì)業(yè)務(wù)予以核銷，所謂完全相同的經(jīng)濟(jì)業(yè)務(wù)是 指經(jīng)濟(jì)業(yè)務(wù)發(fā)生的時(shí)間、內(nèi)容、摘要、結(jié)算票據(jù)號(hào)、金額都相同的經(jīng)濟(jì)業(yè) 務(wù)，由于同一筆業(yè)務(wù)在銀行和單位日記帳上分別由不同的人記載，經(jīng)濟(jì)業(yè) 務(wù)發(fā)生的時(shí)間，摘要等不可能一模一樣，所以比較經(jīng)濟(jì)業(yè)務(wù)是否相同的標(biāo) 準(zhǔn) (也稱匹配標(biāo)準(zhǔn) )只有票據(jù)號(hào) (如：支票號(hào) )和金額 ，對(duì)于沒有票據(jù)號(hào)的經(jīng) 濟(jì)業(yè)務(wù)，只能看金額是否相同，通常情況下，可由計(jì)算機(jī)先比較票據(jù)號(hào)和 金額，核銷掉相同的經(jīng)濟(jì)業(yè)務(wù)，剩下的經(jīng)濟(jì)業(yè)務(wù)再用金額作匹配標(biāo)準(zhǔn)進(jìn)行 匹配。 。 20,26 SAY 39。+ UPPE(PZLXQ)+39。+。+DTOC(B12)+39。 + UPPE(PZLXQ)+39。 RGB(150,150,150,50,50,50),RGB(150,150,150,150,0,0),RGB(150,150,150,50,50,50) DEFINE WINDOW SZ FROM 1,0 TO 23,79 FOOTER +W_TITLE+ COLOR SCHEME 13 ACTIVATE WINDOW SZ CHO=1 DO CASE CASE BAR_NUM=1 DO PZSR11 CHO=0 CASE BAR_NUM=2 DO PZSR22 CHO=0 CASE BAR_NUM=3 DO PZSR4 CHO=0 CASE BAR_NUM=5 PZLXQ=S DO CXPZKHC1 WITH PZLXQ CASE BAR_NUM=6 PZLXQ=F DO CXPZKHC1 WITH PZLXQ CASE BAR_NUM=7 PZLXQ=Z DO CXPZKHC1 WITH PZLXQ 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 16 頁 共 85 頁 CASE BAR_NUM=9 DO PZXG11 SELE 1 DELE ALL FOR JE=0 PACK CHO=0 CASE BAR_NUM=10 DO PZXG22 SELE 1 DELE ALL FOR JE=0 PACK CHO=0 CASE BAR_NUM=11 DO PZXG4 SELE 1 DELE ALL FOR JE=0 PACK CHO=0 CASE BAR_NUM=13 DO DYPZ CASE BAR_NUM=14 DO DYPZMXB1 CASE BAR_NUM=15 DO DYPZHZB ENDCASE IF CHO=0 DO PZKBF ENDIF CLEAR WINDOW SZ RETURN *: EOF: ******************* * 收款憑證輸入程序 ******************* SET TALK OFF DEFI WIND PZSR1 FROM 19,20 TO 21,60 SHAD COLO SCHE 12 DEFI WIND PZSR2 FROM 19,10 TO 21,70 SHAD COLO SCHE 14 AN = Y PUBLIC DIMENSION ZY(25) , DFKM(25) , JE(25) , XM