【正文】 CE(30)TO amp。KLM ELSE 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 7 頁(yè) 共 85 頁(yè) STORE amp。KLM+SPAC(30LFN(amp。KLM))TO amp。KLM ENDIF STORE CHR(ASC(SUBS(amp。KL、 1))+50)+CHR(ASC(SUBS(amp。KL、 1))+45)。 +CHP(ASC(SUBS(amp。KL、 1))+40)TO amp。KL CLEAR ＠ 1， 30 SAY“ 修改口令 ”+STR(K ， 2) ＠ 3， 5 SAY“ 原口令名為： ”+amp。KLM ＠ 3,50 SAY“ 原口令為 ”+amp。KL ＠ 5,5 SAY“ 口令名改為： ”GET amp。KLM ＠ 5,50 SAY“ 改口令為： ”GET amp。KL ＠ 8,32 SAY“ 繼續(xù)修改 ?”GET JX PICTUREY READ STORE TRIM(amp。KLM)TO amp。KLM STORE CHR (ASC(SUBS(amp。KL,1,1))50)+CHR (ASC(SUBS(amp。KL ))45)。 +CHR(ASC(SUBS(amp。KL ))40)TO amp。KL K=K+1 ENDDO SAVE TO ALL LIKE KL* RETURN 三、口令校驗(yàn)程序的設(shè)計(jì)應(yīng)注意以下一些問(wèn)題： １、口令明碼不能顯示。 ２、口 令輸入允許一定的出錯(cuò)次數(shù)。 ３、口令密碼的檢驗(yàn)可以采用通用模塊完成。 ４、口令明碼長(zhǎng)度有一定的要求。 ５、口令輸入出錯(cuò)時(shí)的處理要恰當(dāng)。 第二節(jié) 科目設(shè)置與管理 一、設(shè)置科目代碼的意義 １、便于反映會(huì)計(jì)科目間的邏輯關(guān)系，便于分類、檢索、加快計(jì)算機(jī)處理速度， 利用會(huì)計(jì)科目代碼的不同位數(shù)，可以反映會(huì)計(jì)科目間的邏輯關(guān)系。 ２、減少數(shù)據(jù)含義的不確定性。 ３、可以節(jié)省存儲(chǔ)單元、提高運(yùn)算速度和正確性。 ４、便于輸入。 二、科目代碼的設(shè)置要求和編碼方式 １、科目代碼設(shè)置要求 適合計(jì)算機(jī)處理；簡(jiǎn)明實(shí)用；要有系 統(tǒng)性（一級(jí)科目代碼位長(zhǎng) 3 位，代碼 首位為 1表示資產(chǎn)類科目； 2表示負(fù)債類科目； 3 表示所有者權(quán)益類科目； 4 表示成本類科目； 5 表示損益類科目）；要有擴(kuò)展性；單義性。 ２、編碼方式 會(huì)計(jì)科目的編碼方式，通常采用群碼，組碼和順序碼等相結(jié)合的編碼方式。 三、科目代碼設(shè)置 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 8 頁(yè) 共 85 頁(yè) １、科目代碼設(shè)置主控模塊 該模塊是科目代碼設(shè)置的主控模塊，用戶可以根據(jù)需求分別選擇科目代碼 的增、刪、改、查詢、打印等功能，退出模塊前，應(yīng)根據(jù)總分類帳戶與明 細(xì)帳戶平行登記的原理，將各明細(xì)科目自下向上逐級(jí)匯總，進(jìn)行核對(duì)，判 斷總分類帳戶的金額與 其所屬各明細(xì)分類帳戶金額的合計(jì)數(shù)是否相等；還 應(yīng)根據(jù)資產(chǎn)等于負(fù)債加所有者權(quán)益的平衡關(guān)系，核對(duì)所有科目的借方余額 是否等于貸方余額，以確保輸入數(shù)據(jù)的正確性。 ２、增加科目的內(nèi)容及注意事項(xiàng) 應(yīng)包括的內(nèi)容主要有：科目代碼、科目名稱、科目級(jí)別、科目類別、余額 方向，年初余額、期初余額、借方發(fā)生額、貸方發(fā)生額、借方累計(jì)發(fā)生額、 貸方累計(jì)發(fā)生額。系統(tǒng)正常運(yùn)行時(shí)，如果某科目已記帳，在該科目下級(jí)增 加新的明細(xì)科目，應(yīng)考慮該科目下級(jí)各明細(xì)科目金額的合計(jì)數(shù)是否與該科 目的金額相等。 ３、科目代碼設(shè)置主控模塊 DEFI WIND ZWSZ2 FROM 4,28 TO 15,50 SHAD COLO SCHE 14 DO WHILE .T. ACTI WIND ZWSZ2 @ 0 , 2 SAY 科目維護(hù)控制模塊 @ 2 , 5 PROMPT 1:增加科目 @ 3 , 5 PROMPT 2:單項(xiàng)查詢 @ 4 , 5 PROMPT 3:刪除科目 @ 5 , 5 PROMPT 4:修改科目 @ 6 , 5 PROMPT 5:全屏查詢 @ 7 , 5 PROMPT 6:打印科目表 @ 8 , 5 PROMPT 0:退出 @ 9 , 2 SAY 請(qǐng)選擇 MENU TO CHO DEAC WIND ZWSZ2 DO CASE CASE CHO=1 DO ZWSZ21 CASE CHO=2 DO KMBRO CASE CHO=3 DO KMDE CASE CHO=4 DO KMXG CASE CHO=5 DO KMBRO1 CASE CHO=6 DO K2D CASE CHO=7 EXIT 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 9 頁(yè) 共 85 頁(yè) ENDCASE ENDDO DEAC WIND ZWSZ2 RETURN ４、增加科目的程序?qū)崿F(xiàn) ５、修改科目模塊程序設(shè)計(jì)時(shí)應(yīng)考慮的問(wèn)題主要有： 為方便操作、修改方式既可單一科目修改，也可對(duì)科目余額表進(jìn)行瀏覽修改； 被修改的科目應(yīng)該沒(méi)有被登帳，沒(méi)有發(fā)生額和余額，避免造成會(huì)計(jì)核算的數(shù) 據(jù)丟失或失真。 ６、刪除科目 用于刪除無(wú)用的科目，既可是一級(jí)科目或控制科目，也可是明細(xì)科目。刪除 科目模塊程序設(shè)計(jì)時(shí)考慮的問(wèn)題主要有： ，則要求該明細(xì)科目既無(wú)余額，也無(wú)發(fā)生額。 (總帳科目 )或控制性科目，則要求該科目本身， 及其所 屬的所有明細(xì)科目都沒(méi)有余額和發(fā)生額，且該一級(jí)科目或控制性科目被 刪除后，其所屬的所有明細(xì)科目也自動(dòng)被刪除。 第三節(jié) 自動(dòng)轉(zhuǎn)帳設(shè)置 一、自動(dòng)轉(zhuǎn)帳及其意義 １、自動(dòng)轉(zhuǎn)帳 ２、機(jī)制憑證 ３、自動(dòng)轉(zhuǎn)帳分錄 ４、為什么要進(jìn)行自動(dòng)轉(zhuǎn)帳設(shè)置 二、自動(dòng)轉(zhuǎn)帳分錄的分類 １、第一類自動(dòng)轉(zhuǎn)帳分錄其金額的大小與本月發(fā)生的任何經(jīng)濟(jì)業(yè)務(wù)無(wú)關(guān)，稱為獨(dú)立 自動(dòng)分錄。獨(dú)立自動(dòng)分錄可以在任何時(shí)候用于編制機(jī)制憑證，即可以在月初使 用，也可能在月末使用。 ２、第二類自動(dòng)轉(zhuǎn)帳分錄其金額的大小與本月發(fā)生的業(yè)務(wù)有關(guān)，稱為相關(guān)自動(dòng)分錄。 相關(guān)自動(dòng)分錄只能在某些相關(guān)的經(jīng)濟(jì)業(yè)務(wù)發(fā)生后才能用來(lái)編制機(jī)制憑證。 三、自動(dòng)轉(zhuǎn)帳分錄的定義 １、自動(dòng)轉(zhuǎn)帳分錄文件的結(jié)構(gòu) １、自動(dòng)轉(zhuǎn)帳分錄的定義 第四節(jié) 銀行對(duì)帳的設(shè)計(jì) 一、未達(dá)賬項(xiàng)的類型及產(chǎn)生原因 １、未達(dá)賬項(xiàng)的類型： 銀收我未收未達(dá)帳項(xiàng)；銀付我未付未達(dá)帳項(xiàng)； 我收銀未收未達(dá)帳項(xiàng)；我付銀未付未達(dá)帳項(xiàng)。 ２、未達(dá)賬項(xiàng)的產(chǎn)生原因： 時(shí)間上的延誤；記錄上的錯(cuò)誤。 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 10 頁(yè) 共 85 頁(yè) 二、銀行對(duì)賬模塊應(yīng)設(shè)置的功能 １、輸入對(duì)帳單。通過(guò)此功能，把銀行給企事業(yè)單位的對(duì)帳單輸入計(jì)算機(jī)， 存入 “ 對(duì)帳單文件 ” 。 ２、初始銀行未達(dá)帳項(xiàng) 錄入。通過(guò)此模塊，把使用計(jì)算機(jī)輔助對(duì)帳前已存在的 我有銀無(wú)業(yè)務(wù)從銀行存款余額調(diào)節(jié)表上摘錄下來(lái)，存入 “ 銀行日記帳未達(dá) 帳項(xiàng)文件 ” 。 ３、自動(dòng)銀行對(duì)帳。由計(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ì)于沒(méi)有票據(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)行 匹配。 無(wú)論同時(shí)用票據(jù)號(hào)和金額作匹配標(biāo)準(zhǔn)，還是只用金額作匹配標(biāo)準(zhǔn)，都可能 有下列幾種可能： 1.“ 對(duì)帳單文件 ” 中一條業(yè)務(wù)記錄只和 “ 銀行日記帳未達(dá)帳項(xiàng) ” 文件 中一條業(yè)務(wù)記錄相同。 2.“ 對(duì)帳單文件 ” 中一條業(yè)務(wù)記錄和 “ 銀行日記帳未達(dá)帳項(xiàng)文件 ” 中 多條業(yè)務(wù)記錄相同。 3.“ 對(duì)帳單文件 ” 中多條業(yè)務(wù)記錄和 “ 銀行日記帳未達(dá)帳項(xiàng)文件 ” 中 一條業(yè)務(wù)記錄相同。 4.“ 對(duì)帳單文件 ” 中多條業(yè)務(wù)記錄和 “ 銀行日記帳未達(dá)帳項(xiàng)文件 ” 中 多條業(yè)務(wù)記錄相同。 ４、手工核銷未達(dá)帳項(xiàng) 有些經(jīng)濟(jì)業(yè)務(wù)是不可能通過(guò) “ 自動(dòng)銀行對(duì)帳 ” 模塊核銷的，只能用強(qiáng)制的 方式由人工核銷。 四、銀行對(duì)帳主程序 DEFI WIND ZHDZDSR FROM 4,30 TO 12,50 SHAD COLO SCHE 14 DO WHILE .T. ACTI WIND ZHDZDSR B1=2 @ 0, 2 SAY 對(duì)帳單處理 @ 1 , B1 PROMPT 錄入銀行對(duì)帳單 @ 2 , B1 PROMPT 查詢修改對(duì)帳單 @ 3 , B1 PROMPT 打印銀行對(duì)帳單 @ 4, B1 PROMPT 生成銀行調(diào)節(jié)表 @ 5 , B1 PROMPT 返 回 MENU TO YHDZ DO CASE CASE YHDZ=1 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 11 頁(yè) 共 85 頁(yè) 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 五、對(duì)帳單輸入程序 DEFI WIND ZHSR1 FROM 2,12 TO 17,68 SHAD COLO SCHE 14 DEFI WIND ZHSR2 FROM 18,20 TO 20,60 SHAD COLO SCHE 12 DEFI WIND ZHSR3 FROM 18,20 TO 20,60 SHAD COLO SCHE 14 ACTI WIND ZHSR2 MY=N @ 0,0 SAY 銀行對(duì)帳單數(shù)據(jù)將丟失 !繼續(xù)否 Y/N? GET MY READ DEAC WIND ZHSR2 IF UPPE(MY)Y RETU ENDI ACTI WIND ZHSR3 @ 0,0 SAY 帳號(hào)和金額同時(shí)為空則退出 SELE 10 USE DATA＼ ZHDZB INDE DATA＼ ZHDZB1 SELE 9 USE DATA＼ ZHSR INDE DATA＼ ZHSR1 ZAP DIME MJE1(10),MJE2(10),MZH(10) DO WHILE .T. I=1 DO WHILE I=10 STOR TO MJE1(I),MJE2(I) STOR SPACE(20) TO MZH(I) I=I+1