賬務(wù)處理與報表MIS的設(shè)計與實現(xiàn)講解學(xué)習(xí)

《管理信息系統(tǒng)》主講：李國紅E-mail:lighong6@1/8/20251《管理信息系統(tǒng)》：李國紅主講6.1賬務(wù)處理與報表系統(tǒng)設(shè)計概述6.2會計科目設(shè)置6.3記賬憑證輸入處理6.4登記現(xiàn)金日記賬6.5登記總賬6.6損益表數(shù)據(jù)自動生成及輸出6.7賬務(wù)處理與報表系統(tǒng)的菜單設(shè)計6.8MIS操作維護(hù)設(shè)計與實現(xiàn)6.9MIS用戶登錄的設(shè)計與實現(xiàn)第6章賬務(wù)處理與報表系統(tǒng)的設(shè)計與實現(xiàn)1/8/20252《管理信息系統(tǒng)》：李國紅主講6.1賬表MIS概述

(1/4)1.賬表MIS的任務(wù):（P153）1/8/20253《管理信息系統(tǒng)》：李國紅主講6.1賬表MIS概述

(2/4)

2.賬務(wù)與報表處理的DFD:

（P154）1/8/20254《管理信息系統(tǒng)》：李國紅主講6.1賬表MIS概述(4/4)4.VFP開發(fā)環(huán)境設(shè)置與相關(guān)操作VFP系統(tǒng)環(huán)境設(shè)置主要操作和常用命令、常用函數(shù)項目管理器的使用1/8/20256《管理信息系統(tǒng)》：李國紅主講6.2會計科目設(shè)置6.2.1科目輸入6.2.2科目查詢與修改6.2.3科目刪除6.2.4記錄定位及信息提示框1/8/20257《管理信息系統(tǒng)》：李國紅主講6.2.1科目輸入1.科目輸入包括設(shè)置會計科目和輸入期初數(shù)。2.建立會計科目表文件kjkm.dbf,表中包括kmbh、kmmc、jdfx、qcye四個字段，數(shù)據(jù)通過表單界面輸入。3.設(shè)計表單，含科目編號、科目名稱、借貸方向、期初余額等的標(biāo)簽及其文本框。其中期初余額文本框應(yīng)設(shè)置為數(shù)值型數(shù)據(jù)類型的文本框。4.編程。應(yīng)考慮：科目編號不能為空（位數(shù)不低于4）、科目編號不能重復(fù)、多于4位的科目必須有上級科目。5.功能演示6.考慮科目輸入的基本過程。7.用VFP實現(xiàn)賬表MIS的系統(tǒng)初始化。有關(guān)命令及函數(shù)。轉(zhuǎn)科目輸入程序流程1/8/20258《管理信息系統(tǒng)》：李國紅主講Kjkm.dbf數(shù)據(jù)表的結(jié)構(gòu)返科目輸入返查詢修改返科目刪除1/8/20259《管理信息系統(tǒng)》：李國紅主講科目輸入用戶界面1/8/202510《管理信息系統(tǒng)》：李國紅主講上級科目假設(shè)假設(shè)：從二級科目開始，某科目的代碼去掉最后二位即為該科目的上級科目。一級科目：1001、1002、1101、……二級科目：100201、100202、……三級科目：10020101、10020102、……余類推。1/8/202511《管理信息系統(tǒng)》：李國紅主講科目輸入的基本過程kmbhkmmcjdfxqcye1001現(xiàn)金12000.001002銀行存款11256000.001/8/202512《管理信息系統(tǒng)》：李國紅主講有關(guān)命令及函數(shù)、屬性、方法setexacton|offuselocatefor……appendblankreplace……with……len()alltrim()subs()或left()space()messagebox()found()對象.value對象.setfocus對象.refresh對象.release1/8/202513《管理信息系統(tǒng)》：李國紅主講a=messagebox("真的想退出嗎?",4+48,"提示")單擊“是”，a=6單擊“否”，a=7a=7a=61/8/202514《管理信息系統(tǒng)》：李國紅主講a=messagebox("要提示的信息!",0+48,"提示")a=1轉(zhuǎn)“科目輸入”1/8/202515《管理信息系統(tǒng)》：李國紅主講會計科目輸入程序流程

1/8/202516《管理信息系統(tǒng)》：李國紅主講用VFP實現(xiàn)賬表MIS的科目輸入

——“確定”按鈕的Click過程setexactonb=0usekjkmkmbh1=allt(thisform.text1.value)length1=len(allt(thisform.text1.value))iflength1<4b=messagebox("請輸入不低于四位的科目編號!",48)thisform.text1.setfocuselselocaforallt(kmbh)=kmbh1……1/8/202517《管理信息系統(tǒng)》：李國紅主講輔助功能

——文本框單擊被清空Text2、Text3的Click事件This.value=space(0)Text4的Click事件This.value=01/8/202518《管理信息系統(tǒng)》：李國紅主講取消本次輸入

——“取消”按鈕的Click過程thisform.text1.value=spac(0)thisform.text2.value=spac(0)thisform.text3.value=spac(0)thisform.text4.value=0.00thisform.text1.setfocus1/8/202519《管理信息系統(tǒng)》：李國紅主講退出輸入模塊

——“退出”按鈕的Click過程a=messagebox("真的想退出嗎?",4+48,"提示")ifa=6thisform.releaseendififmessagebox("真的想退出嗎?",4+48,"提示")=6thisform.releaseendif1/8/202520《管理信息系統(tǒng)》：李國紅主講進(jìn)一步思考的問題有關(guān)a=messagebox(“XXXXXX”,m+48,“提示”)見(P185-186)1/8/202521《管理信息系統(tǒng)》：李國紅主講(P185-186)

b=messagebox("XXXXXXXXXXXX!",m+48,"提示")m=0單擊“確定”，b=1m=1單擊“確定”，b=1單擊“取消”，b=21/8/202522《管理信息系統(tǒng)》：李國紅主講(P185-186)

b=messagebox("XXXXXXXXXXXX!",m+48,"提示")m=2單擊“終止”，b=3單擊“重試”，b=4單擊“忽略”，b=5m=5單擊“重試”，b=4單擊“取消”，b=21/8/202523《管理信息系統(tǒng)》：李國紅主講(P185-186)

b=messagebox("XXXXXXXXXXXX?",m+48,"提示")m=3單擊“是”，b=6單擊“否”，b=7單擊“取消”，b=2m=4單擊“是”，b=6單擊“否”，b=71/8/202524《管理信息系統(tǒng)》：李國紅主講(P185-186)

a=messagebox("XXXXXXXXXXXX",m+48,"提示")單擊“確定”，a=1單擊“取消”，a=2單擊“終止”，a=3單擊“重試”，a=4單擊“忽略”，a=5單擊“是”，a=6單擊“否”，a=71/8/202525《管理信息系統(tǒng)》：李國紅主講本節(jié)小結(jié)賬表MIS的任務(wù)及模塊結(jié)構(gòu)賬表MIS的系統(tǒng)初始化kjkm.dbf表文件輸入表單界面會計科目設(shè)置流程科目設(shè)置的VFP實現(xiàn)進(jìn)一步思考問題1/8/202526《管理信息系統(tǒng)》：李國紅主講本節(jié)結(jié)束?。?！1/8/202527《管理信息系統(tǒng)》：李國紅主講上機步驟在F:盤以自已的學(xué)號或姓名建立文件夾。打開VFP，利用[工具，選項]將新建文件夾所在目錄設(shè)置為默認(rèn)目錄。建表（文件名不要用“表1.dbf”）。創(chuàng)建表單，輸入代碼。運行。關(guān)機。1/8/202528《管理信息系統(tǒng)》：李國紅主講6.2.2科目查詢與修改1、數(shù)據(jù)表的結(jié)構(gòu)：同Kjkm.dbf2、科目查詢與修改表單界面設(shè)計3、科目查詢與修改功能目標(biāo)指定查詢條件查詢與修改操作退出：thisform.release4、功能的實現(xiàn)1/8/202529《管理信息系統(tǒng)》：李國紅主講查詢與修改表單界面返回1/8/202530《管理信息系統(tǒng)》：李國紅主講指定查詢條件表單的Load與Unload事件Load：定義Publicxiangmu(4),bijiao(7)Combo1與Combo2關(guān)聯(lián)的數(shù)據(jù)源RowSourceType：5-數(shù)組RowSource：xiangmu、biaojiaoStyle：2-下拉列表框表單的Init事件Combo1和Combo2的InteractiveChange事件Text2的數(shù)據(jù)類型和輸入掩碼Text1和Text2的Click事件1/8/202531《管理信息系統(tǒng)》：李國紅主講查詢與修改Cursor1的Filter屬性表單初始運行后，表格中不含數(shù)據(jù)：.F.Combo2的ControlSource屬性bj：“<”、“<=”宏替換&bj.：<、<=“查詢”按鈕的Click事件

表格只讀選擇不同項目時對應(yīng)的不同條件tjCursor1的filter屬性設(shè)置為tj根據(jù)Combo1是否“期初余額”，為Text2或Text1設(shè)置焦點刷新表單1/8/202532《管理信息系統(tǒng)》：李國紅主講本節(jié)結(jié)束1/8/202533《管理信息系統(tǒng)》：李國紅主講6.2.3科目刪除

1、表的結(jié)構(gòu)：同Kjkm.dbf2、界面設(shè)計3、相關(guān)功能選擇列表項刪除功能的實現(xiàn)實現(xiàn)退出功能單擊Text1，內(nèi)容被清空單擊Combo1，Text1獲得焦點1/8/202534《管理信息系統(tǒng)》：李國紅主講刪除科目界面下拉列表框，Style屬性為21/8/202535《管理信息系統(tǒng)》：李國紅主講列表項表單的Load過程：publicshuzu(4)

Combo1下拉列表框?qū)?yīng)的數(shù)據(jù)源類型、數(shù)據(jù)源以及用于保存所選列表項的變量RowSourceType：5-數(shù)組RowSource：shuzuControlSource：xuanxian表單的Init過程bo1.listindex=2thisform.text1.setfocus1/8/202536《管理信息系統(tǒng)》：李國紅主講“刪除”按鈕的Click事件docasecasexuanxiang="科目編號"ziduan="kmbh"casexuanxiang="科目名稱"ziduan="kmmc"casexuanxiang="借貸方向"ziduan="jdfx"casexuanxiang="期初余額"ziduan="qcye"endcase1/8/202537《管理信息系統(tǒng)》：李國紅主講“刪除”按鈕的Click事件usekjkmifziduan<>"qcye"locateforallt(&ziduan)==allt(thisform.text1.value)iffound()deleforallt(&ziduan)==allt(thisform.text1.value)packthisform.text1.value=space(0)elsemessagebox("沒找到相關(guān)記錄!",0+48,"提示")endifelselocatefor&ziduan.==val(thisform.text1.value)iffound()delefor&ziduan.==val(thisform.text1.value)packthisform.text1.value=space(0)elsemessagebox("沒找到相關(guān)記錄!",0+48,"提示")endifendifusethisform.text1.setfocus1/8/202538《管理信息系統(tǒng)》：李國紅主講利用比較運算符和宏替換的刪除設(shè)計1/8/202539《管理信息系統(tǒng)》：李國紅主講數(shù)據(jù)刪除——以科目刪除為例設(shè)計表單Combo1的設(shè)置：RowsourceType:1-值；RowSource：科目編號，科目名稱，借貸方向，期初余額；Style：2-下拉列表框Combo2的設(shè)置：RowsourceType:1-值；RowSource：<、<=、=、==、>=、>,<>；ControlSource：ysf；Style：2-下拉列表框Form1的Init過程代碼：Tmbo1.listindex=2Tmbo2.listindex=3Thisform.setfocus刪除按鈕的Click過程代碼宏替換函數(shù)：&變量.1/8/202540《管理信息系統(tǒng)》：李國紅主講usekjkmdocasecaseallt(bo1.value)="科目編號"ziduan="kmbh"caseallt(bo1.value)="科目名稱"ziduan="kmmc"caseallt(bo1.value)="借貸方向"ziduan="jdfx"caseallt(bo1.value)="期初余額"ziduan="qcye"endcifallt(bo1.value)<>"期初余額"locatefor&ziduan.&ysf.allt(thisform.text1.value)iffound()deletefor&ziduan.&ysf.allt(thisform.text1.value)packelse

1/8/202541《管理信息系統(tǒng)》：李國紅主講messagebox("無符合條件的記錄!!",0+48,"提示")endifelselocatefor&ziduan.&ysf.val(thisform.text1.value)iffound()deletefor&ziduan.&ysf.val(thisform.text1.value)packelsemessagebox("無符合條件的記錄!!",0+48,"提示")endifendifuse1/8/202542《管理信息系統(tǒng)》：李國紅主講本節(jié)結(jié)束1/8/202543《管理信息系統(tǒng)》：李國紅主講6.2.4記錄定位及信息提示框記錄定位功能的實現(xiàn)首記錄、上一條、下一條、末記錄信息提示框的運用與表示Messagebox(“提示信息”,m+n,“提示”)1/8/202544《管理信息系統(tǒng)》：李國紅主講1/8/202545《管理信息系統(tǒng)》：李國紅主講6.3記賬憑證輸入處理1.概述①記賬憑證是登記賬薄的直接依據(jù)，分為收款憑證、付款憑證和轉(zhuǎn)賬憑證3類，但輸入記賬憑證采用統(tǒng)一的記賬憑證的輸入屏幕格式。②輸入數(shù)據(jù)的正確是保證賬內(nèi)數(shù)據(jù)正確的關(guān)鍵，也是由記賬憑證正確生成會計報表、賬薄數(shù)據(jù)的關(guān)鍵。③功能演示2.功能實現(xiàn)①建立記賬憑證表文件jzpzfb.dbf和jzpzzb.dbf。表中的字段包括pzh、rq、fjzs、sh、zd；pzh、zy、km、jd、je等。其中sh字段的值后三位為_#$表示已登賬，由程序自動處理；其余字段的值通過表單界面輸入。1/8/202546《管理信息系統(tǒng)》：李國紅主講6.3記賬憑證輸入處理②設(shè)計憑證輸入表單。主表的數(shù)據(jù)在表格中輸入，附表的數(shù)據(jù)在文本框中輸入，其中，日期和附件張數(shù)文本框應(yīng)分別設(shè)置成日期型和數(shù)值型數(shù)據(jù)的文本框，借貸和科目通達(dá)下拉列表選擇輸入（科目必須是kjkm.dbf表中存在的科目編號）。③編程。應(yīng)考慮：必須指定科目、借貸；輸入金額不能為0；借貸必須平衡；須輸入制單人；各命令按鈕在必要的時候變?yōu)榛疑?，需要的時候變成可用狀態(tài)。④記賬憑證輸入的基本過程、程序流程。⑤用VFP實現(xiàn)記賬憑證處理。準(zhǔn)備工作、命令按鈕代碼、其他輔助功能。1/8/202547《管理信息系統(tǒng)》：李國紅主講記賬憑證數(shù)據(jù)表的結(jié)構(gòu)1/8/202548《管理信息系統(tǒng)》：李國紅主講記賬憑證用戶輸入表單1/8/202549《管理信息系統(tǒng)》：李國紅主講記賬憑證輸入基本過程kmbhkmmcqcyejdfx1001庫存現(xiàn)金30.0011002銀行存款900.0011403原材料200.0016051其他業(yè)務(wù)收入100.002pzhrqfjzsshzd001109/28/102zd000001001209/30/101zd000001pzhzykmjdje0011購原材料1403借35422.701001貸35422.700012其他收入1001借1000.0000126051貸1000.001/8/202550《管理信息系統(tǒng)》：李國紅主講輸入記賬憑證流程圖

轉(zhuǎn)“記賬憑證及相關(guān)處理”1/8/202551《管理信息系統(tǒng)》：李國紅主講準(zhǔn)備工作建立數(shù)據(jù)環(huán)境添加kjkm、jzpzfb、jzpzzb、建立表間關(guān)系文本框、表格與數(shù)據(jù)表建立關(guān)聯(lián)日期、附件張數(shù)文本框設(shè)置日期文本框：日期型，Value屬性為{}。附件張數(shù)文本框：數(shù)值型，掩碼為99。輔助功能的實現(xiàn)Form1的BufferMode：2-開放式。命令按鈕狀態(tài)方法程序：buttonstatus1、buttonstatus2、buttonstatus3Form1.load、unload、Init事件Text6.InteractiveChange事件1/8/202552《管理信息系統(tǒng)》：李國紅主講用VFP實現(xiàn)記賬憑證處理

——“新增憑證”按鈕的Click過程(1/2)iflen(allt(thisform.text6.value))<>0&&如果Text6中輸入了憑證號sele(thisform.dataenvironment.cursor_JZPZFB.alias)&&選擇jzpzfb工作區(qū)locateforallt(pzh)=allt(thisform.text6.value)&&查jzpzfb中有無匹配憑證號if.not.found()&&如果輸入至Text6中的憑證號是一個新的憑證號thisform.buttonstatus2&&“輸入分錄”、“取消”按鈕有效，其余按鈕無效appendblank&&在jzpzfb中追加一條空記錄thisform.text1.value=thisform.text6.value&&Text1自動取Text6中的值thisform.text6.value=space(0)&&Text6中的內(nèi)容清空thisform.text6.readonly=.t.&&Text6的ReadOnly屬性設(shè)置為.t.thisform.text2.value=date()&&Text2中自動取值為系統(tǒng)當(dāng)前日期thisform.refresh&&刷新表單返回記賬憑證及相關(guān)處理1/8/202553《管理信息系統(tǒng)》：李國紅主講用VFP實現(xiàn)記賬憑證處理

——“新增憑證”按鈕的Click過程(2/2)else&&如果輸入至Text6中的憑證號已存在于jzpzfb中thisform.buttonstatus1&&“新增憑證”、“關(guān)閉”按鈕有效，其余按鈕無效=messagebox("已存在此憑證號的憑證!",48)&&提示對話框thisform.text6.setfocus&&Text6文本框獲得焦點endifelse&&如果Text6中還未輸入憑證號thisform.buttonstatus1&&“新增憑證”、“關(guān)閉”按鈕有效，其余按鈕無效=messagebox("請輸入新增憑證的憑證號!",48)&&提示對話框thisform.text6.setfocus&&Text6文本框獲得焦點endif1/8/202554《管理信息系統(tǒng)》：李國紅主講用VFP實現(xiàn)記賬憑證處理

——“輸入分錄”按鈕的Click過程sele(thisform.dataenvironment.cursor_JZPZZB.alias)appeblankreplacepzhwiththisform.text1.valuethisform.grid1.refreshthisform.buttonstatus31/8/202555《管理信息系統(tǒng)》：李國紅主講用VFP實現(xiàn)記賬憑證處理

——“確定”按鈕的Click過程(1/3)

sele(thisform.dataenvironment.cursor_JZPZZB.alias)setfiltertoallt(pzh)=allt(thisform.text1.value)locateforlen(allt(km))=0if.not.found()locateforlen(allt(jd))=0if.not.found()locateforje=0.00if.not.found()sumjetoje_jieforallt(jd)='借'sumjetoje_daiforallt(jd)='貸'ifje_jie=je_dai1/8/202556《管理信息系統(tǒng)》：李國紅主講用VFP實現(xiàn)記賬憑證處理

——“確定”按鈕的Click過程(2/3)

iflen(allt(thisform.text5.value))<>0sele(thisform.dataenvironment.cursor_JZPZFB.alias)=tableupdate(.t.)sele(thisform.dataenvironment.cursor_JZPZZB.alias)=tableupdate(.t.)thisform.refreshthisform.buttonstatus1thisform.text6.setfocusthisform.text6.readonly=.f.else=messagebox("請輸入制單人!",48)thisform.text5.setfocusthisform.buttonstatus3thisform.text6.readonly=.t.endif1/8/202557《管理信息系統(tǒng)》：李國紅主講用VFP實現(xiàn)記賬憑證處理

——“確定”按鈕的Click過程(3/3)else=messagebox("借貸不平衡!",48)thisform.grid1.column_JE.setfocusendifelse=messagebox("金額不能為0!",48)thisform.grid1.column_JE.setfocusendifelse=messagebox("指定借或貸!",48)thisform.grid1.column_JD.setfocusendifelse=messagebox("請指定科目!",48)thisform.grid1.column_KM.setfocusendif1/8/202558《管理信息系統(tǒng)》：李國紅主講用VFP實現(xiàn)記賬憑證處理

——“取消”按鈕的Click過程sele(thisform.dataenvironment.cursor_JZPZFB.alias)=tablerevert(.t.)sele(thisform.dataenvironment.cursor_JZPZZB.alias)=tablerevert(.t.)thisform.refreshthisform.buttonstatus1thisform.text6.readonly=.f.thisform.text6.setfocus1/8/202559《管理信息系統(tǒng)》：李國紅主講用VFP實現(xiàn)記賬憑證處理

——“關(guān)閉”按鈕的Click過程a=messagebox("真的想退出嗎?",4+48,"提示")ifa=6thisform.releaseendififmessagebox("真的想退出嗎?",4+48,"提示")=6thisform.releaseendif返回記賬憑證及相關(guān)處理1/8/202560《管理信息系統(tǒng)》：李國紅主講其他輔助功能防止手工修改Text1、Text2、Column_PZH、Text4中的值ReadOnly設(shè)置為：.T.-真防止對已審核憑證進(jìn)行更改Text3、Text5、Grid1的When過程允許正常輸入與修改操作：Text6.GotFocus防止修改狀態(tài)下執(zhí)行新增憑證和關(guān)閉操作Text3、Text5、textZY、ComboKM、ComboJD、ComboJE的InteractiveChange事件使輸入憑證號更方便Text6.Click：this.value=space(0)1/8/202561《管理信息系統(tǒng)》：李國紅主講本節(jié)小結(jié)1/8/202562《管理信息系統(tǒng)》：李國紅主講本節(jié)結(jié)束?。?！1/8/202563《管理信息系統(tǒng)》：李國紅主講6.4登記現(xiàn)金日記賬不要求1/8/202564《管理信息系統(tǒng)》：李國紅主講6.5登記總賬處理總賬即總分類賬，是按照一級科目設(shè)立賬戶，以貨幣為計量單位，連續(xù)核算整個企業(yè)各種資金占用、資金來源、資金增減變動及其結(jié)余的總括情況的一種分類賬。登記總賬的依據(jù)是：會計科目表（kjkm.dbf）、記賬憑證附表（jzpzfb.dbf）、記賬憑證主表（jzpzzb.dbf）。會計科目：KJKM(kmbh,kmmc,jdfx,qcye)記賬憑證附表：JZPZFB(pzh,rq,fjzs,sh,zd)記賬憑證主表：JZPZZB(pzh,zy,km,jd,je)總賬：ZZ(rq,zzh,kmbh,kmmc,jffs,dffs,jdfx,ye)功能演示基本過程及程序流程相關(guān)命令與函數(shù)及程序1/8/202565《管理信息系統(tǒng)》：李國紅主講登記總賬基本過程rqpzhzykmjdjeshzd10/13/10b1aaaaa1403借20.00sh01zd0110/13/10b11001貸20.00sh01zd0110/13/10b2bbbbbbbb1001借50.00sh01zd0110/13/10b21002借40.00sh01zd0110/13/10b26001貸90.00sh01zd01rqzzhkmbhkmmcjffsdffsjdfxye08/13/10匯a1-a21001庫存現(xiàn)金30.0040.00120.0008/13/10匯a1-a21002銀行存款100.00200.001800.0009/13/10匯b1-b21001庫存現(xiàn)金40.000.00160.0009/13/10匯b1-b21002銀行存款11.0060.001751.00kmbhkmmcqcyejdfx1001庫存現(xiàn)金30.0011002銀行存款900.0011122應(yīng)收賬款15000.0011區(qū)zz2區(qū)jzpz3區(qū)kjkm轉(zhuǎn)登記總賬處理pzhrqfjzsshzdb110/13/105sh01_#$zd01b210/13/102sh01_#$zd024區(qū)jzpzfb1/8/202566《管理信息系統(tǒng)》：李國紅主講登記總賬流程圖

轉(zhuǎn)登記總賬處理1/8/202567《管理信息系統(tǒng)》：李國紅主講相關(guān)命令與函數(shù)setfilterto……setfilttolen(allt(sh))!=0andright(allt(sh),3)!='_#$'setfilttolen(allt(kmbh))=4setfilttoallt(kmbh)=kmbh1setfilttorq=rq1.and.zzh=zzh1sum……to……for……sumjetojffs1forleft(km,4)=kmbh1.and.jd='借‘sumjetodffs1forleft(km,4)=kmbh1.and.jd='貸'dowhile……loop（exit）……enddogotop、gobottom、skipeof()、found()qcs1=iif(eof(),qcye1,ye)轉(zhuǎn)登記總賬處理1/8/202568《管理信息系統(tǒng)》：李國紅主講登記總賬程序djzz.prgsettalkoffsetexactonopendatabasezwclsele1usezzsele2usejzpzsetfilttolen(allt(sh))!=0andright(allt(sh),3)!='_#$'gotoppzh1=pzhgobottompzh2=pzhzzh1="匯"+allt(pzh1)+"-"+allt(pzh2)1/8/202569《管理信息系統(tǒng)》：李國紅主講登記總賬程序djzz.prgrq1=rqgotopsele3usekjkmsetfilttolen(allt(kmbh))=4gotopdowhile.not.eof()kmbh1=allt(kmbh)kmmc1=kmmcjdfx1=jdfxqcye1=qcyeselejzpzlocaforleft(km,4)=allt(kmbh1)1/8/202570《管理信息系統(tǒng)》：李國紅主講登記總賬程序djzz.prgif.not.found()selekjkmskiploopendifsumjetojffs1forleft(km,4)=kmbh1.and.jd='借'sumjetodffs1forleft(km,4)=kmbh1.and.jd='貸'selezzsetfilttoallt(kmbh)=kmbh1gobottomqcs1=iif(eof(),qcye1,ye)ye1=iif(jdfx1='1',qcs1+jffs1-dffs1,qcs1-jffs1+dffs1)1/8/202571《管理信息系統(tǒng)》：李國紅主講登記總賬程序djzz.prgappeblanreplrqwithrq1,zzhwithzzh1replkmbhwithkmbh1,kmmcwithkmmc1repljffswithjffs1,dffswithdffs1repljdfxwithjdfx1,yewithye1selekjkmskipenddo1/8/202572《管理信息系統(tǒng)》：李國紅主講sele4usejzpzfbreplshwithallt(sh)+'_#$'forlen(allt(sh))!=0.and.right(allt(sh),3)!='_#$'=messagebox("生成總賬結(jié)束!",48,"提示")selezzsetfilttorq=rq1.and.zzh=zzh1brownoeditclosedatabasesetexactoffsettalkonretu1/8/202573《管理信息系統(tǒng)》：李國紅主講1/8/202574《管理信息系統(tǒng)》：李國紅主講6.6損益表數(shù)據(jù)自動生成及輸出損益表（syb.dbf）中的數(shù)據(jù)由總賬表（zz.dbf）中取得?？傎~：ZZ(rq,zzh,kmbh,kmmc,jffs,dffs,jdfx,ye)損益表：SYB(xm,hc,bys,ljs,kmbh,bz)損益表數(shù)據(jù)生成原理：確定會計期間，預(yù)置syb.dbf表中的有關(guān)內(nèi)容，kmbh長度取1、4、8分別處理，由程序依據(jù)總賬表的數(shù)據(jù)自動生成損益表文件中的本月數(shù)和本年累計數(shù)。通過VFP6.0的報表生成器完成損益表的輸出，也可通過建立查詢在屏幕上輸出有關(guān)內(nèi)容。1/8/202575《管理信息系統(tǒng)》：李國紅主講rqzzhkmbhkmmcjffsdffsjdfxye6001主營業(yè)務(wù)收入0.0080600.006051其他業(yè)務(wù)收入0.001000.006601銷售費用12450.370.006602管理費用2567.250.00xmhcbysljskmbhbz一、營業(yè)收入181600.0081600.0060016051d減：營業(yè)成本20.000.0064016402j營業(yè)稅金及附加30.000.006403j銷售費用412450.3712450.376601j管理費用52567.252567.256602j財務(wù)費用60.000.006603j資產(chǎn)減值損失70.000.006701j加：公允價值變動收益80.000.006101d投資收益90.000.006111d二、營業(yè)利潤1066582.3866582.38h總賬表部分?jǐn)?shù)據(jù)損益表部分?jǐn)?shù)據(jù)1/8/202576《管理信息系統(tǒng)》：李國紅主講生成損益表表單usezzgobottthisform.text1.value=allt(str(year(rq)))thisform.text2.value=allt(str(month(rq)))use表單的Init過程代碼:1/8/202577《管理信息系統(tǒng)》：李國紅主講損益表數(shù)據(jù)自動生成及輸出N-S圖1/8/202578《管理信息系統(tǒng)》：李國紅主講生成損益表代碼settalkoffsetexactonsetsafetyoffsele1usezzsetfiltertoyear(rq)=val(thisform.text1.value)andmonth(rq)=val(thisform.text2.value)gotopsele2usesybreplallbyswith0,ljswith0gotop&&以便從損益表的首記錄開始,以下求本月數(shù)1/8/202579《管理信息系統(tǒng)》：李國紅主講dowhile.not.eof()kmbh1=allt(kmbh)&&kmbh1為syb表當(dāng)前記錄的kmbh(去掉前后空格)length=len(kmbh1)&&length為syb表當(dāng)前記錄的kmbh去掉前后空格后的長度docasecaselength=8declaresz(2)&&數(shù)組sz表示本月數(shù)sele1&&總賬表工作區(qū)i=1dowhilei<=2locaforallt(kmbh)=subs(kmbh1,4*i-3,4)iffound()sz(i)=iif(b->bz="d",dffs-jffs,jffs-dffs)elsesz(i)=0endifi=i+1enddosele2&&損益表工作區(qū)replbyswithsz(1)+sz(2)1/8/202580《管理信息系統(tǒng)》：李國紅主講caselength=4sele1&&總賬表工作區(qū)locaforallt(kmbh)=kmbh1iffound()bys1=iif(b->bz='d',dffs-jffs,jffs-dffs)elsebys1=0endifsele2&&損益表工作區(qū)replbyswithbys1caselength=1r=recn()sumbystobys1forbz='d'sumbystobys2forbz='j'gorreplbyswithbys1-bys2endcskipendd1/8/202581《管理信息系統(tǒng)》：李國紅主講gotop&&以便從損益表的首記錄開始,以下求本年累計數(shù)dowhile.not.eof()kmbh1=allt(kmbh)&&kmbh1為syb表當(dāng)前記錄的kmbh(去掉前后空格)length=len(kmbh1)&&length為syb表當(dāng)前記錄的kmbh去掉前后空格后的長度docasecaselength=8declaresz1(2)&&數(shù)組sz1表示本年累計數(shù)sele1&&總賬表工作區(qū)i=1dowhilei<=2setfiltertoyear(rq)=val(thisform.text1.value).and.;month(rq)<=val(thisform.text2.value).and.allt(kmbh)=subs(kmbh1,4*i-3,4)gobottomsz1(i)=iif(eof(),0,ye)i=i+1enddosele2&&損益表工作區(qū)replljswithsz1(1)+sz1(2)1/8/202582《管理信息系統(tǒng)》：李國紅主講

caselength=4sele1&&總賬表工作區(qū)setfiltertoyear(rq)=val(thisform.text1.value).and.;month(rq)<=val(thisform.text2.value).and.allt(kmbh)=kmbh1gobottomljs1=iif(eof(),0,ye)sele2&&損益表工作區(qū)replljswithljs1caselength=1r=recn()sumljstoljs1forbz='d'sumljstoljs2forbz='j'gorreplljswithljs1-ljs2endcskipendd1/8/202583《管理信息系統(tǒng)》：李國紅主講copyto"syb"+allt(thisform.text1.value)+"-"+allt(thisform.text2.value)+".dbf";fieldsxm,hc,bys,ljs&&生成的損益表以類似于syb2009-1.dbf的形式保存messagebox("生成損益表結(jié)束!",48,"提示")selexmas"項目",hcas"行次",bysas"本月數(shù)",ljsas"本年累計數(shù)"from;"syb"+allt(thisform.text1.value)+"-"+allt(thisform.text2.value)+".dbf"closedatabasessetsafetyonsetexactoffsettalkon1/8/202584《管理信息系統(tǒng)》：李國紅主講1/8/202585《管理信息系統(tǒng)》：李國紅主講6.7賬務(wù)處理與報表系統(tǒng)的菜單設(shè)計1、功能模塊1/8/202586《管理信息系統(tǒng)》：李國紅主講2、菜單規(guī)劃與設(shè)計1/8/202587《管理信息系統(tǒng)》：李國紅主講2、菜單規(guī)劃與設(shè)計1/8/202588《管理信息系統(tǒng)》：李國紅主講菜單設(shè)計2、菜單規(guī)劃與設(shè)計1/8/202589《管理信息系統(tǒng)》：李國紅主講2、菜單規(guī)劃與設(shè)計1/8/202590《管理信息系統(tǒng)》：李國紅主講3、報表設(shè)計創(chuàng)建與修改報表：modireport報表文件名預(yù)覽報表：reportform報表主名.frxfor條件preview打印報表：reportform報表主名.frxfor條件toprinter4、查詢設(shè)計創(chuàng)建與修改查詢：modiquery查詢文件名執(zhí)行查詢：do查詢主文件名.qpr5、菜單的運行執(zhí)行[菜單，生成]：生成擴展名為.mpr的可執(zhí)行菜單文件執(zhí)行菜單：Do菜單文件主名.mpr1/8/202591《管理信息系統(tǒng)》：李國紅主講6.8MIS操作維護(hù)設(shè)計與實現(xiàn)1、在zwcl數(shù)據(jù)庫中建立mima.dbf表字段名類型寬度含義czy字符型16操作員mm字符型16密碼返回:用戶登錄1/8/202592《管理信息系統(tǒng)》：李國紅主講2、增加操作員設(shè)計表單Text2、Text3的PasswordChar：*退出：thisform.release確定：1/8/202593《管理信息系統(tǒng)》：李國紅主講setexactonopendatabasezwclusemimaiflen(allt(thisform.text1.value))<>0&&輸入的操作員密碼不全為空格locateforallt(czy)=allt(thisform.text1.value)iffound()messagebox("已有此操作員,請重新輸入!!!",0+48)thisform.text1.value=space(0)thisform.text2.value=space(0)thisform.text3.value=space(0)thisform.text1.setfocuselse&&密碼表中無與Text1中匹配的內(nèi)容ifallt(thisform.text2.value)=allt(thisform.text3.value)iflen(allt(thisform.text2.value))<>0appeblankreplczywithallt(thisform.text1.value)replmmwithallt(thisform.text2.value)thisform.text1.value=space(0)thisform.text2.value=space(0)thisform.text3.value=space(0)thisform.text1.setfocuselse&&Text2中未輸入字符或輸入的是空格字符串messagebox("請輸入密碼,注意不能全為空格!!!",0+48)thisform.text2.setfocusendif1/8/202594《管理信息系統(tǒng)》：李國紅主講else&&Text2與Text3中的內(nèi)容不相同messagebox("密碼不一致,請重新輸入!!!",0+48)thisform.text2.value=space(0)thisform.text3.value=space(0)thisform.text2.setfocusendifendifelse&&Text1中未輸入字符或輸入的是空格字符串messagebox("請輸入操作員代碼,注意不能全為空格!!!",0+48)thisform.text2.value=space(0)thisform.text3.value=space(0)thisform.text1.setfocusendifclosedatabasesetexactoff1/8/202595《管理信息系統(tǒng)》：李國紅主講3、刪除操作員設(shè)計表單Combo1：RowSourceType:6-字段;RowSource:mima.czy;Style:2-下拉列表框;ControlSource:mima.czyText1：PasswordChar:*1/8/202596《管理信息系統(tǒng)》：李國紅主講Form1.Load:opendatabasezwclForm1.Init:thisform.text1.setfocusForm1.Unload:closedatabaseCombo1.Click:thisform.text1.setfocus

退出.Click:thisform.release確定.Clik:1/8/202597《管理信息系統(tǒng)》：李國紅主講setexactonusemimalocaforallt(czy)=allt(bo1.value)andallt(mm)=allt(thisform.text1.value)iffound()dele&&為找到的那條記錄加上邏輯刪除標(biāo)記pack&&物理刪除帶邏輯刪除標(biāo)記的記錄thisform.text1.value=space(0)thisform.refreshmessagebox("刪除成功!!!",0+48)elsemessagebox("密碼不對,不能刪除!!!",0+48)thisform.text1.value=space(0)endifthisform.text1.setfocussetexactoff1/8/202598《管理信息系統(tǒng)》：李國紅主講4、修改密碼設(shè)計表單，建數(shù)據(jù)環(huán)境Combo1：RowSourceType:6-字段;RowSource:mima.czy;Style:2-下拉列表框;ControlSource:mima.czyText1、Text2、Text3：PasswordChar:*1/8/202599《管理信息系統(tǒng)》：李國紅主講Form1.Load:opendatabasezwclForm1.Init:thisform.text1.setfocusForm1.Unload:closedatabaseCombo1.Click:thisform.text1.setfocus

退出.Click:thisform.release確定.Clik:1/8/2025100《管理信息系統(tǒng)》：李國紅主講setexactonusemimalocateforallt(czy)=allt(bo1.value)ifallt(thisform.text1.value)=allt(mm)ifthisform.text2.value=thisform.text3.valueiflen(allt(thisform.text2.value))<>0replacemmwithallt(thisform.text2.value)messagebox("密碼修改成功,請牢記新密碼!!!",0+48)thisform.text1.value=space(0)thisform.text2.value=space(0)thisform.text3.value=space(0)thisform.refreshthisform.text1.setfocuselse&&Text2中未輸入字符或輸入的是空格字符串

messageb