【正文】 , JD WITH J REPLACE FDJ WITH FDJ1 EXIT ENDIF MX = Y MY = 0 ENDDO ACTI WIND PZSR1 0 , 1 SAY 繼續(xù)輸入否 ? Y/N GET AN READ DEAC WIND PZSR1 IF UPPER(AN)Y 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 22 頁 共 85 頁 EXIT ENDIF ENDDO CLEAR RETURN *: EOF: **************** * 生成憑證號 **************** PARAMETERS MBH SET TALK OFF SELE 1 SET INDE TO DATA＼ PZKHC1 GO TOP LOCATE FOR UPPER(PZRB)=UPPER(MRB) IF EOF() SELECT 2 SET INDE TO PZK1 LOCATE FOR UPPER(PZRB)=UPPER(MRB) IF 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。 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) , XMH(25) DO WHILE UPPER(AN)=Y JFKM1 = FDJ1 = 0 BH1 = 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 17 頁 共 85 頁 RQ1 = MRQ MRB = S DO ZWBH WITH BH1 MY = 1 MX = Y MHJ = 0 MHJ1 = 0 MHJ2 = 0 MX = Y DO WHILE UPPER(MX)=Y I = 1 DO WHILE I=25 STORE SPACE(24) TO ZY(I) DFKM(I) = SPACE(11) XMH(I) = SPACE(10) JE(I) = I = I+1 ENDDO CLEAR DO WHILE .T. CLEAR TYPE A2 = XXXXXXXXXXXXXXXXXXXXXXXX A3 = 999 A5 = XXXXXXXXXX A6 = DO WHILE .T. SET FORMAT TO PZ12 READ IF READKEY()=()=292 EXIT ELSE LOOP ENDIF ENDDO SET FORMAT TO 17 , 58 GET FDJ1 PICTURE 99 READ IF JFKM1= .= CLEAR RETURN ENDIF IF MY=1 SELECT 1 SEEK amp。 提供一切有關(guān)憑證處理的功能，并加以強(qiáng)化。 用戶界面要求方便適用、美觀簡潔。 ３、查詢校驗(yàn)法 利用數(shù)據(jù)的相對穩(wěn)定性 ４、關(guān)聯(lián)校驗(yàn)法 利用憑證數(shù)據(jù)的對應(yīng)不可能性 ５、重復(fù)校驗(yàn)法 利用概率統(tǒng)計(jì)的原理 第四節(jié) 憑證處理程序的設(shè)計(jì) 一、系統(tǒng)應(yīng)滿足的要求 系統(tǒng)應(yīng)能保證所有的處理穩(wěn)定、處理的結(jié)果不隨時(shí)間波動，僅僅依賴于輸入。 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 14 頁 共 85 頁 第二節(jié) 電算化憑證處理 一、電算化憑證處理的功能 為用戶提供： 顯示憑證表格；靈活的編輯手段；保存用戶錄入的憑證； 提供一定的檢控功能；返回主控模塊； 為用戶提供： 用戶查詢某個(gè)特定憑證 ；按憑證編號查詢； 按任一條件查詢滿足條件的第一張憑證； 按任意組合條件查詢滿足條件的第一張憑證 (憑證編號不能參加條件組合 )； 用戶查詢多張憑證； 按任一條件逐個(gè)查詢滿足條件的憑證； 按任意組合條件逐個(gè)查詢滿足條件的憑證； 暫存查詢信息； 修改及刪除 憑證輸出 二、電算化憑證處理與手工憑證處理的區(qū)別： 第三節(jié) 憑證處理程序的安全可靠性 一、憑證出錯(cuò)的來源 １、人為造成 ２、（系統(tǒng)）處理程序出 錯(cuò)。 。 。 。 記帳憑證一般具有以下內(nèi)容： 。 “ 刪除科目 ” 模塊的程序。 四、銀行對帳主程序 DEFI WIND ZHDZDSR FROM 4,30 TO 12,50 SHAD COLO SCHE 14 DO WHILE .T. ACTI WIND ZHDZDSR B1=2 0, 2 SAY 對帳單處理 1 , B1 PROMPT 錄入銀行對帳單 2 , B1 PROMPT 查詢修改對帳單 3 , B1 PROMPT 打印銀行對帳單 4, B1 PROMPT 生成銀行調(diào)節(jié)表 5 , B1 PROMPT 返 回 MENU TO YHDZ DO CASE CASE YHDZ=1 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 11 頁 共 85 頁 DO ZHSR CASE YHDZ=2 DO ZHCX CASE YHDZ=3 DEAC WIND ZHDZDSR DO ZHDY ACTI WIND ZHDZDSR CASE YHDZ=4 DEAC WIND ZHDZDSR DO SCDZD ACTI WIND ZHDZDSR CASE YHDZ=5 EXIT ENDCASE ENDDO DEAC WIND ZHDZDSR RETU 五、對帳單輸入程序 DEFI WIND ZHSR1 FROM 2,12 TO 17,68 SHAD COLO SCHE 14