1、管理信息系統(tǒng)主 講：李國(guó)紅E-mail: lighong6yahoo7/29/20221管理信息系統(tǒng)：李國(guó)紅主講6.1 賬務(wù)處理與報(bào)表系統(tǒng)設(shè)計(jì)概述6.2 會(huì)計(jì)科目設(shè)置6.3 記賬憑證輸入處理6.4 登記現(xiàn)金日記賬6.5 登記總賬6.6 損益表數(shù)據(jù)自動(dòng)生成及輸出6.7 賬務(wù)處理與報(bào)表系統(tǒng)的菜單設(shè)計(jì)6.8 MIS操作維護(hù)設(shè)計(jì)與實(shí)現(xiàn)6.9 MIS用戶登錄的設(shè)計(jì)與實(shí)現(xiàn)第6章 賬務(wù)處理與報(bào)表系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)7/29/20222管理信息系統(tǒng)：李國(guó)紅主講6.1 賬表MIS概述 (1/4)1. 賬表MIS的任務(wù):（P153）7/29/20223管理信息系統(tǒng)：李國(guó)紅主講6.1 賬表MIS概述 (2/4) 2.賬

2、務(wù)與報(bào)表處理的DFD: （P154）7/29/20224管理信息系統(tǒng)：李國(guó)紅主講6.1 賬表MIS概述 (3/4)3. 賬務(wù)處理系統(tǒng)的主要功能模塊:7/29/20225管理信息系統(tǒng)：李國(guó)紅主講6.1 賬表MIS概述(4/4)4.VFP開發(fā)環(huán)境設(shè)置與相關(guān)操作VFP系統(tǒng)環(huán)境設(shè)置主要操作和常用命令、常用函數(shù)項(xiàng)目管理器的使用7/29/20226管理信息系統(tǒng)：李國(guó)紅主講6.2 會(huì)計(jì)科目設(shè)置6.2.1 科目輸入6.2.2 科目查詢與修改6.2.3 科目刪除6.2.4 記錄定位及信息提示框7/29/20227管理信息系統(tǒng)：李國(guó)紅主講6.2.1 科目輸入1.科目輸入包括設(shè)置會(huì)計(jì)科目和輸入期初數(shù)。2.建立會(huì)計(jì)科

3、目表文件kjkm.dbf,表中包括kmbh、kmmc、jdfx、qcye四個(gè)字段，數(shù)據(jù)通過表單界面輸入。3.設(shè)計(jì)表單，含科目編號(hào)、科目名稱、借貸方向、期初余額等的標(biāo)簽及其文本框。其中期初余額文本框應(yīng)設(shè)置為數(shù)值型數(shù)據(jù)類型的文本框。4.編程。應(yīng)考慮：科目編號(hào)不能為空（位數(shù)不低于4）、科目編號(hào)不能重復(fù)、多于4位的科目必須有上級(jí)科目。5.功能演示6.考慮科目輸入的基本過程。7.用VFP實(shí)現(xiàn)賬表MIS的系統(tǒng)初始化。有關(guān)命令及函數(shù)。轉(zhuǎn)科目輸入程序流程7/29/20228管理信息系統(tǒng)：李國(guó)紅主講Kjkm.dbf數(shù)據(jù)表的結(jié)構(gòu)返科目輸入返查詢修改返科目刪除7/29/20229管理信息系統(tǒng)：李國(guó)紅主講科目輸入用戶

4、界面7/29/202210管理信息系統(tǒng)：李國(guó)紅主講上級(jí)科目假設(shè)假設(shè)：從二級(jí)科目開始，某科目的代碼去掉最后二位即為該科目的上級(jí)科目。一級(jí)科目：1001、1002、1101、二級(jí)科目：100201、100202、三級(jí)科目：10020191、10020192、余類推。7/29/202211管理信息系統(tǒng)：李國(guó)紅主講科目輸入的基本過程kmbhkmmcjdfxqcye 1001現(xiàn)金12000.001002銀行存款11256000.007/29/202212管理信息系統(tǒng)：李國(guó)紅主講有關(guān)命令及函數(shù)、屬性、方法set exact on | offuselocate for append blankreplace

5、 with len()alltrim()subs() 或 left()space()messagebox()found()對(duì)象.value對(duì)象.setfocus對(duì)象.refresh對(duì)象.release7/29/202213管理信息系統(tǒng)：李國(guó)紅主講a=messagebox(真的想退出嗎?,4+48,提示)單擊“是”，a=6單擊“否”，a=7a=7a=67/29/202214管理信息系統(tǒng)：李國(guó)紅主講a=messagebox(要提示的信息!,0+48,提示)a=1轉(zhuǎn)“科目輸入”7/29/202215管理信息系統(tǒng)：李國(guó)紅主講會(huì)計(jì)科目輸入程序流程7/29/202216管理信息系統(tǒng)：李國(guó)紅主講用VFP實(shí)現(xiàn)

6、賬表MIS的科目輸入“確定”按鈕的Click過程set exact onb=0use kjkmkmbh1=allt(thisform.text1.value)length1=len(allt(thisform.text1.value)if length14 b=messagebox(請(qǐng)輸入不低于四位的科目編號(hào)!,48) thisform.text1.setfocuselse loca for allt(kmbh)=kmbh1 7/29/202217管理信息系統(tǒng)：李國(guó)紅主講輔助功能文本框單擊被清空Text2、Text3的Click事件This.value=space(0)Text4的Click事

7、件This.value=07/29/202218管理信息系統(tǒng)：李國(guó)紅主講取消本次輸入“取消”按鈕的Click過程thisform.text1.value=spac(0)thisform.text2.value=spac(0)thisform.text3.value=spac(0)thisform.text4.value=0.00thisform.text1.setfocus7/29/202219管理信息系統(tǒng)：李國(guó)紅主講退出輸入模塊“退出”按鈕的Click過程a=messagebox(真的想退出嗎?,4+48,提示)if a=6 thisform.releaseendifif messagebo

8、x(真的想退出嗎?,4+48,提示) =6 thisform.releaseendif7/29/202220管理信息系統(tǒng)：李國(guó)紅主講進(jìn)一步思考的問題有關(guān)a=messagebox(“XXXXXX”,m+48,“提示”)見(P185-186)7/29/202221管理信息系統(tǒng)：李國(guó)紅主講(P185-186)b=messagebox(XXXXXXXXXXXX!,m+48,提示)m=0單擊“確定”，b=1m=1單擊“確定”，b=1單擊“取消”，b=27/29/202222管理信息系統(tǒng)：李國(guó)紅主講(P185-186) b=messagebox(XXXXXXXXXXXX!,m+48,提示)m=2單擊“終止

9、”，b=3單擊“重試”，b=4單擊“忽略”，b=5m=5單擊“重試”，b=4單擊“取消”，b=27/29/202223管理信息系統(tǒng)：李國(guó)紅主講(P185-186) b=messagebox(XXXXXXXXXXXX?,m+48,提示)m=3單擊“是”，b=6單擊“否”，b=7單擊“取消”，b=2m=4單擊“是”，b=6單擊“否”，b=77/29/202224管理信息系統(tǒng)：李國(guó)紅主講(P185-186) a=messagebox(XXXXXXXXXXXX,m+48,提示)單擊“確定”，a=1單擊“取消”，a=2單擊“終止”，a=3單擊“重試”，a=4單擊“忽略”，a=5單擊“是”，a=6單擊“否

10、”，a=77/29/202225管理信息系統(tǒng)：李國(guó)紅主講本節(jié)小結(jié)賬表MIS的任務(wù)及模塊結(jié)構(gòu)賬表MIS的系統(tǒng)初始化kjkm.dbf表文件輸入表單界面會(huì)計(jì)科目設(shè)置流程科目設(shè)置的VFP實(shí)現(xiàn)進(jìn)一步思考問題7/29/202226管理信息系統(tǒng)：李國(guó)紅主講本節(jié)結(jié)束！7/29/202227管理信息系統(tǒng)：李國(guó)紅主講上機(jī)步驟在F:盤以自已的學(xué)號(hào)或姓名建立文件夾。打開VFP，利用工具，選項(xiàng)將新建文件夾所在目錄設(shè)置為默認(rèn)目錄。建表（文件名不要用“表1.dbf”）。創(chuàng)建表單，輸入代碼。運(yùn)行。關(guān)機(jī)。7/29/202228管理信息系統(tǒng)：李國(guó)紅主講6.2.2 科目查詢與修改1、數(shù)據(jù)表的結(jié)構(gòu)：同Kjkm.dbf2、科目查詢與修

11、改表單界面設(shè)計(jì)3、科目查詢與修改功能目標(biāo)指定查詢條件查詢與修改操作退出：thisform.release4、功能的實(shí)現(xiàn)7/29/202229管理信息系統(tǒng)：李國(guó)紅主講查詢與修改表單界面返回7/29/202230管理信息系統(tǒng)：李國(guó)紅主講指定查詢條件 表單的Load與Unload事件Load：定義Public xiangmu(4),bijiao(7)Combo1與Combo2關(guān)聯(lián)的數(shù)據(jù)源RowSourceType：5-數(shù)組RowSource：xiangmu、biaojiaoStyle：2-下拉列表框表單的Init事件 Combo1和Combo2的InteractiveChange事件 Text2的數(shù)

12、據(jù)類型和輸入掩碼 Text1和Text2的Click事件 7/29/202231管理信息系統(tǒng)：李國(guó)紅主講查詢與修改 Cursor1的Filter屬性表單初始運(yùn)行后，表格中不含數(shù)據(jù)：.F.Combo2的ControlSource屬性bj：“”、“=”宏替換&bj.： 、=“查詢”按鈕的Click事件 表格只讀選擇不同項(xiàng)目時(shí)對(duì)應(yīng)的不同條件tjCursor1的filter屬性設(shè)置為tj根據(jù)Combo1是否“期初余額”，為Text2或Text1設(shè)置焦點(diǎn)刷新表單7/29/202232管理信息系統(tǒng)：李國(guó)紅主講本節(jié)結(jié)束7/29/202233管理信息系統(tǒng)：李國(guó)紅主講6.2.3 科目刪除 1、表的結(jié)構(gòu)：同Kjk

13、m.dbf2、界面設(shè)計(jì)3、相關(guān)功能選擇列表項(xiàng)刪除功能的實(shí)現(xiàn)實(shí)現(xiàn)退出功能單擊Text1，內(nèi)容被清空單擊Combo1，Text1獲得焦點(diǎn)7/29/202234管理信息系統(tǒng)：李國(guó)紅主講刪除科目界面下拉列表框，Style屬性為27/29/202235管理信息系統(tǒng)：李國(guó)紅主講列表項(xiàng)表單的Load過程：public shuzu(4) Combo1下拉列表框?qū)?yīng)的數(shù)據(jù)源類型、數(shù)據(jù)源以及用于保存所選列表項(xiàng)的變量RowSourceType：5-數(shù)組RowSource：shuzuControlSource：xuanxian表單的Init過程thisformbo1.listindex=2thisform.text1

14、.setfocus7/29/202236管理信息系統(tǒng)：李國(guó)紅主講“刪除”按鈕的Click事件do case case xuanxiang=科目編號(hào) ziduan=kmbh case xuanxiang=科目名稱 ziduan=kmmc case xuanxiang=借貸方向 ziduan=jdfx case xuanxiang=期初余額 ziduan=qcyeendcase7/29/202237管理信息系統(tǒng)：李國(guó)紅主講“刪除”按鈕的Click事件use kjkmif ziduanqcye locate for allt(&ziduan)=allt(thisform.text1.value) i

15、f found() dele for allt(&ziduan)=allt(thisform.text1.value) pack thisform.text1.value=space(0) else messagebox(沒找到相關(guān)記錄!,0+48,提示) endifelse locate for &ziduan.=val(thisform.text1.value) if found() dele for &ziduan.=val(thisform.text1.value) pack thisform.text1.value=space(0) else messagebox(沒找到相關(guān)記錄!,

16、0+48,提示) endifendifusethisform.text1.setfocus7/29/202238管理信息系統(tǒng)：李國(guó)紅主講利用比較運(yùn)算符和宏替換的刪除設(shè)計(jì)7/29/202239管理信息系統(tǒng)：李國(guó)紅主講數(shù)據(jù)刪除以科目刪除為例設(shè)計(jì)表單Combo1的設(shè)置：RowsourceType:1-值；RowSource：科目編號(hào)，科目名稱，借貸方向，期初余額；Style：2-下拉列表框Combo2的設(shè)置：RowsourceType:1-值；RowSource：、=、,；ControlSource：ysf ；Style：2-下拉列表框Form1的Init過程代碼：Thisformmbo1.list

17、index=2Thisformmbo2.listindex=3Thisform.setfocus刪除按鈕的Click過程代碼宏替換函數(shù)：&變量.7/29/202240管理信息系統(tǒng)：李國(guó)紅主講use kjkmdo case case allt(thisformbo1.value)=科目編號(hào) ziduan=kmbh case allt(thisformbo1.value)=科目名稱 ziduan=kmmc case allt(thisformbo1.value)=借貸方向 ziduan=jdfx case allt(thisformbo1.value)=期初余額 ziduan=qcyeendc i

18、f allt(thisformbo1.value)期初余額 locate for &ziduan.&ysf.allt(thisform.text1.value) if found() delete for &ziduan.&ysf.allt(thisform.text1.value) pack else 7/29/202241管理信息系統(tǒng)：李國(guó)紅主講messagebox(無(wú)符合條件的記錄!,0+48,提示) endifelse locate for &ziduan.&ysf.val(thisform.text1.value) if found() delete for &ziduan.&ysf

19、.val(thisform.text1.value) pack else messagebox(無(wú)符合條件的記錄!,0+48,提示) endif endifuse7/29/202242管理信息系統(tǒng)：李國(guó)紅主講本節(jié)結(jié)束7/29/202243管理信息系統(tǒng)：李國(guó)紅主講6.2.4 記錄定位及信息提示框記錄定位功能的實(shí)現(xiàn)首記錄、上一條、下一條、末記錄信息提示框的運(yùn)用與表示Messagebox(“提示信息”,m+n, “提示”)7/29/202244管理信息系統(tǒng)：李國(guó)紅主講7/29/202245管理信息系統(tǒng)：李國(guó)紅主講6.3 記賬憑證輸入處理1.概述記賬憑證是登記賬薄的直接依據(jù)，分為收款憑證、付款憑證和轉(zhuǎn)

20、賬憑證3類，但輸入記賬憑證采用統(tǒng)一的記賬憑證的輸入屏幕格式。輸入數(shù)據(jù)的正確是保證賬內(nèi)數(shù)據(jù)正確的關(guān)鍵，也是由記賬憑證正確生成會(huì)計(jì)報(bào)表、賬薄數(shù)據(jù)的關(guān)鍵。功能演示2.功能實(shí)現(xiàn)建立記賬憑證表文件jzpzfb.dbf和jzpzzb.dbf。表中的字段包括pzh、rq、fjzs、sh、zd；pzh、zy、km、jd、je等。其中sh字段的值后三位為_#$表示已登賬，由程序自動(dòng)處理；其余字段的值通過表單界面輸入。7/29/202246管理信息系統(tǒng)：李國(guó)紅主講6.3 記賬憑證輸入處理設(shè)計(jì)憑證輸入表單。主表的數(shù)據(jù)在表格中輸入，附表的數(shù)據(jù)在文本框中輸入，其中，日期和附件張數(shù)文本框應(yīng)分別設(shè)置成日期型和數(shù)值型數(shù)據(jù)的文

21、本框， 借貸和科目通達(dá)下拉列表選擇輸入（科目必須是kjkm.dbf表中存在的科目編號(hào)）。編程。應(yīng)考慮：必須指定科目、借貸；輸入金額不能為0；借貸必須平衡；須輸入制單人；各命令按鈕在必要的時(shí)候變?yōu)榛疑?，需要的時(shí)候變成可用狀態(tài)。記賬憑證輸入的基本過程、程序流程。用VFP實(shí)現(xiàn)記賬憑證處理。準(zhǔn)備工作、命令按鈕代碼、其他輔助功能。7/29/202247管理信息系統(tǒng)：李國(guó)紅主講記賬憑證數(shù)據(jù)表的結(jié)構(gòu)7/29/202248管理信息系統(tǒng)：李國(guó)紅主講記賬憑證用戶輸入表單7/29/202249管理信息系統(tǒng)：李國(guó)紅主講記賬憑證輸入基本過程kmbhkmmcqcyejdfx1001庫(kù)存現(xiàn)金30.0011002銀行存款90

22、0.0011403原材料200.0016051其他業(yè)務(wù)收入100.002pzhrqfjzsshzd001109/28/102zd000001001209/30/101zd000001pzhzykmjdje0011購(gòu)原材料1403借35422.701001貸35422.700012其他收入1001借1000.0000126051貸1000.007/29/202250管理信息系統(tǒng)：李國(guó)紅主講輸入記賬憑證流程圖轉(zhuǎn)“記賬憑證及相關(guān)處理”7/29/202251管理信息系統(tǒng)：李國(guó)紅主講準(zhǔn)備工作建立數(shù)據(jù)環(huán)境添加kjkm、jzpzfb、jzpzzb、建立表間關(guān)系文本框、表格與數(shù)據(jù)表建立關(guān)聯(lián)日期、附件張數(shù)文本框

23、設(shè)置日期文本框：日期型，Value屬性為 。附件張數(shù)文本框：數(shù)值型，掩碼為99。輔助功能的實(shí)現(xiàn)Form1的BufferMode：2-開放式。命令按鈕狀態(tài)方法程序：buttonstatus1、 buttonstatus2、 buttonstatus3Form1.load、unload、Init事件Text6.InteractiveChange事件7/29/202252管理信息系統(tǒng)：李國(guó)紅主講用VFP實(shí)現(xiàn)記賬憑證處理“新增憑證”按鈕的Click過程(1/2)if len(allt(thisform.text6.value)0 &如果Text6中輸入了憑證號(hào) sele (thisform.datae

24、nvironment.cursor_JZPZFB.alias) &選擇jzpzfb工作區(qū) locate for allt(pzh)=allt(thisform.text6.value) &查jzpzfb中有無(wú)匹配憑證號(hào) if .not.found() &如果輸入至Text6中的憑證號(hào)是一個(gè)新的憑證號(hào) thisform.buttonstatus2 &“輸入分錄”、“取消”按鈕有效，其余按鈕無(wú)效 append blank &在jzpzfb中追加一條空記錄 thisform.text1.value=thisform.text6.value & Text1自動(dòng)取Text6中的值 thisform.te

25、xt6.value=space(0) & Text6中的內(nèi)容清空 thisform.text6.readonly=.t. & Text6的ReadOnly屬性設(shè)置為.t. thisform.text2.value=date() & Text2中自動(dòng)取值為系統(tǒng)當(dāng)前日期 thisform.refresh &刷新表單 返回記賬憑證及相關(guān)處理7/29/202253管理信息系統(tǒng)：李國(guó)紅主講用VFP實(shí)現(xiàn)記賬憑證處理“新增憑證”按鈕的Click過程(2/2)else &如果輸入至Text6中的憑證號(hào)已存在于jzpzfb中 thisform.buttonstatus1 &“新增憑證”、“關(guān)閉”按鈕有效，其余按

26、鈕無(wú)效 =messagebox(已存在此憑證號(hào)的憑證!,48) &提示對(duì)話框 thisform.text6.setfocus & Text6文本框獲得焦點(diǎn) endifelse &如果Text6中還未輸入憑證號(hào) thisform.buttonstatus1 &“新增憑證”、“關(guān)閉”按鈕有效，其余按鈕無(wú)效 =messagebox(請(qǐng)輸入新增憑證的憑證號(hào)!,48) &提示對(duì)話框 thisform.text6.setfocus & Text6文本框獲得焦點(diǎn)endif7/29/202254管理信息系統(tǒng)：李國(guó)紅主講用VFP實(shí)現(xiàn)記賬憑證處理“輸入分錄”按鈕的Click過程sele (thisform.dat

27、aenvironment.cursor_JZPZZB.alias)appe blankreplace pzh with thisform.text1.valuethisform.grid1.refreshthisform.buttonstatus37/29/202255管理信息系統(tǒng)：李國(guó)紅主講用VFP實(shí)現(xiàn)記賬憑證處理“確定”按鈕的Click過程(1/3) sele (thisform.dataenvironment.cursor_JZPZZB.alias) set filter to allt(pzh)=allt(thisform.text1.value) locate for len(all

28、t(km)=0 if .not. found() locate for len(allt(jd)=0 if .not. found() locate for je=0.00 if .not. found() sum je to je_jie for allt(jd)=借 sum je to je_dai for allt(jd)=貸 if je_jie=je_dai 7/29/202256管理信息系統(tǒng)：李國(guó)紅主講用VFP實(shí)現(xiàn)記賬憑證處理“確定”按鈕的Click過程(2/3) if len(allt(thisform.text5.value)0 sele (thisform.dataenviro

29、nment.cursor_JZPZFB.alias) =tableupdate(.t.) sele (thisform.dataenvironment.cursor_JZPZZB.alias) =tableupdate(.t.) thisform.refresh thisform.buttonstatus1 thisform.text6.setfocus thisform.text6.readonly=.f. else =messagebox(請(qǐng)輸入制單人! ,48) thisform.text5.setfocus thisform.buttonstatus3 thisform.text6.r

30、eadonly=.t. endif 7/29/202257管理信息系統(tǒng)：李國(guó)紅主講用VFP實(shí)現(xiàn)記賬憑證處理“確定”按鈕的Click過程(3/3) else =messagebox(借貸不平衡!,48) thisform.grid1.column_JE.setfocus endif else =messagebox(金額不能為0!,48) thisform.grid1.column_JE.setfocus endif else =messagebox(指定借或貸!,48) thisform.grid1.column_JD.setfocus endif else =messagebox(請(qǐng)指定科目

31、!,48) thisform.grid1.column_KM.setfocus endif7/29/202258管理信息系統(tǒng)：李國(guó)紅主講用VFP實(shí)現(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.thisf

32、orm.text6.setfocus7/29/202259管理信息系統(tǒng)：李國(guó)紅主講用VFP實(shí)現(xiàn)記賬憑證處理“關(guān)閉”按鈕的Click過程a=messagebox(真的想退出嗎?,4+48,提示)if a=6 thisform.releaseendif if messagebox(真的想退出嗎?,4+48,提示)=6 thisform.releaseendif返回記賬憑證及相關(guān)處理7/29/202260管理信息系統(tǒng)：李國(guó)紅主講其他輔助功能防止手工修改Text1、Text2、Column_PZH、Text4中的值ReadOnly設(shè)置為：.T.-真防止對(duì)已審核憑證進(jìn)行更改Text3、Text5、Gri

33、d1的When過程允許正常輸入與修改操作：Text6.GotFocus防止修改狀態(tài)下執(zhí)行新增憑證和關(guān)閉操作Text3、Text5、textZY、ComboKM、ComboJD、ComboJE的InteractiveChange事件使輸入憑證號(hào)更方便Text6.Click：this.value=space(0)7/29/202261管理信息系統(tǒng)：李國(guó)紅主講本節(jié)小結(jié)7/29/202262管理信息系統(tǒng)：李國(guó)紅主講本節(jié)結(jié)束！7/29/202263管理信息系統(tǒng)：李國(guó)紅主講6.4 登記現(xiàn)金日記賬不要求7/29/202264管理信息系統(tǒng)：李國(guó)紅主講6.5 登記總賬處理總賬即總分類賬，是按照一級(jí)科目設(shè)立賬戶，

34、以貨幣為計(jì)量單位，連續(xù)核算整個(gè)企業(yè)各種資金占用、資金來(lái)源、資金增減變動(dòng)及其結(jié)余的總括情況的一種分類賬。登記總賬的依據(jù)是：會(huì)計(jì)科目表（kjkm.dbf）、記賬憑證附表（jzpzfb.dbf）、記賬憑證主表（jzpzzb.dbf）。會(huì)計(jì)科目：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ù)及程序7/29/202265管理信息系統(tǒng)：李國(guó)紅主講登記總賬基本

35、過程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庫(kù)存現(xiàn)金30.0040.00120.0008/13/10匯a1-a21002銀行存款100.00200.001800.0009/13/10匯b1-b21001庫(kù)存現(xiàn)金

36、40.000.00160.0009/13/10匯b1-b21002銀行存款11.0060.001751.00kmbhkmmcqcyejdfx1001 庫(kù)存現(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ū)jzpzfb7/29/202266管理信息系統(tǒng)：李國(guó)紅主講登記總賬流程圖轉(zhuǎn)登記總賬處理7/29/202267管理信息系統(tǒng)：李國(guó)紅主講相關(guān)命令與函數(shù)set filter to set filt to

37、 len(allt(sh)!=0 and right(allt(sh),3)!=_#$set filt to len(allt(kmbh)=4set filt to allt(kmbh)=kmbh1set filt to rq=rq1 .and. zzh=zzh1sum to for sum je to jffs1 for left(km,4)=kmbh1 .and. jd=借sum je to dffs1 for left(km,4)=kmbh1 .and. jd=貸do whileloop（exit）enddogo top、go bottom、skipeof()、found()qcs1=i

38、if(eof(),qcye1,ye)轉(zhuǎn)登記總賬處理7/29/202268管理信息系統(tǒng)：李國(guó)紅主講登記總賬程序djzz.prgset talk offset exact onopen database zwclsele 1use zzsele 2use jzpzset filt to len(allt(sh)!=0 and right(allt(sh),3)!=_#$ go toppzh1=pzhgo bottompzh2=pzhzzh1=匯+allt(pzh1)+-+allt(pzh2) 7/29/202269管理信息系統(tǒng)：李國(guó)紅主講登記總賬程序djzz.prgrq1=rqgo topsele

39、 3use kjkmset filt to len(allt(kmbh)=4go topdo while .not. eof() kmbh1=allt(kmbh) kmmc1=kmmc jdfx1=jdfx qcye1=qcye sele jzpz loca for left(km,4)=allt(kmbh1) 7/29/202270管理信息系統(tǒng)：李國(guó)紅主講登記總賬程序djzz.prg if .not. found() sele kjkm skip loop endif sum je to jffs1 for left(km,4)=kmbh1 .and. jd=借 sum je to dffs

40、1 for left(km,4)=kmbh1 .and. jd=貸 sele zz set filt to allt(kmbh)=kmbh1 go bottom qcs1=iif(eof(),qcye1,ye) ye1=iif(jdfx1=1,qcs1+jffs1-dffs1,qcs1-jffs1+dffs1) 7/29/202271管理信息系統(tǒng)：李國(guó)紅主講登記總賬程序djzz.prg appe blan repl rq with rq1,zzh with zzh1 repl kmbh with kmbh1,kmmc with kmmc1 repl jffs with jffs1,dffs w

41、ith dffs1 repl jdfx with jdfx1,ye with ye1 sele kjkm skipenddo7/29/202272管理信息系統(tǒng)：李國(guó)紅主講sele 4 use jzpzfbrepl sh with allt(sh)+_#$ for len(allt(sh)!=0 .and. right(allt(sh),3)!=_#$=messagebox(生成總賬結(jié)束!,48,提示)sele zzset filt to rq=rq1 .and. zzh=zzh1brow noeditclose database set exact offset talk onretu 7/2

42、9/202273管理信息系統(tǒng)：李國(guó)紅主講7/29/202274管理信息系統(tǒng)：李國(guó)紅主講6.6 損益表數(shù)據(jù)自動(dòng)生成及輸出損益表（syb.dbf）中的數(shù)據(jù)由總賬表（zz.dbf）中取得?？傎~：ZZ(rq,zzh,kmbh,kmmc,jffs,dffs,jdfx,ye)損益表：SYB(xm,hc,bys,ljs,kmbh,bz)損益表數(shù)據(jù)生成原理：確定會(huì)計(jì)期間，預(yù)置syb.dbf表中的有關(guān)內(nèi)容，kmbh長(zhǎng)度取1、4、8分別處理，由程序依據(jù)總賬表的數(shù)據(jù)自動(dòng)生成損益表文件中的本月數(shù)和本年累計(jì)數(shù)。通過VFP6.0的報(bào)表生成器完成損益表的輸出，也可通過建立查詢?cè)谄聊簧陷敵鲇嘘P(guān)內(nèi)容。7/29/202275管理

43、信息系統(tǒng)：李國(guó)紅主講rqzzhkmbhkmmcjffsdffsjdfxye6001主營(yíng)業(yè)務(wù)收入0.0080600.006051其他業(yè)務(wù)收入0.001000.006601銷售費(fèi)用12450.370.006602管理費(fèi)用2567.250.00 xmhcbysljskmbhbz一、營(yíng)業(yè)收入181600.0081600.0060016051d減：營(yíng)業(yè)成本20.000.0064016402j 營(yíng)業(yè)稅金及附加30.000.006403j 銷售費(fèi)用412450.3712450.376601j 管理費(fèi)用52567.252567.256602j 財(cái)務(wù)費(fèi)用60.000.006603j 資產(chǎn)減值損失70.000.0

44、06701j加：公允價(jià)值變動(dòng)收益80.000.006101d 投資收益90.000.006111d二、營(yíng)業(yè)利潤(rùn)1066582.3866582.38h總賬表部分?jǐn)?shù)據(jù)損益表部分?jǐn)?shù)據(jù)7/29/202276管理信息系統(tǒng)：李國(guó)紅主講生成損益表表單use zzgo bottthisform.text1.value=allt(str(year(rq)thisform.text2.value=allt(str(month(rq)use表單的Init過程代碼:7/29/202277管理信息系統(tǒng)：李國(guó)紅主講損益表數(shù)據(jù)自動(dòng)生成及輸出N-S圖7/29/202278管理信息系統(tǒng)：李國(guó)紅主講生成損益表代碼set talk

45、 offset exact onset safety offsele 1use zzset filter to year(rq)=val(thisform.text1.value) and month(rq)=val(thisform.text2.value)go topsele 2use sybrepl all bys with 0,ljs with 0go top &以便從損益表的首記錄開始,以下求本月數(shù)7/29/202279管理信息系統(tǒng)：李國(guó)紅主講 do while .not. eof() kmbh1=allt(kmbh) &kmbh1為syb表當(dāng)前記錄的kmbh(去掉前后空格) len

46、gth=len(kmbh1) &length為syb表當(dāng)前記錄的kmbh去掉前后空格后的長(zhǎng)度 do case case length=8 declare sz(2) &數(shù)組sz表示本月數(shù) sele 1 &總賬表工作區(qū) i=1 do while ibz=d,dffs-jffs,jffs-dffs) else sz(i)=0 endif i=i+1 enddo sele 2 &損益表工作區(qū) repl bys with sz(1)+sz(2)7/29/202280管理信息系統(tǒng)：李國(guó)紅主講 case length=4 sele 1 &總賬表工作區(qū) loca for allt(kmbh)=kmbh1 i

47、f found() bys1=iif(b-bz=d,dffs-jffs,jffs-dffs) else bys1=0 endif sele 2 &損益表工作區(qū) repl bys with bys1 case length=1 r=recn() sum bys to bys1 for bz=d sum bys to bys2 for bz=j go r repl bys with bys1-bys2 endc skipendd 7/29/202281管理信息系統(tǒng)：李國(guó)紅主講 go top &以便從損益表的首記錄開始,以下求本年累計(jì)數(shù)do while .not. eof() kmbh1=allt(

48、kmbh) &kmbh1為syb表當(dāng)前記錄的kmbh(去掉前后空格) length=len(kmbh1) &length為syb表當(dāng)前記錄的kmbh去掉前后空格后的長(zhǎng)度 do case case length=8 declare sz1(2) &數(shù)組sz1表示本年累計(jì)數(shù) sele 1 &總賬表工作區(qū) i=1 do while i=2 set filter to year(rq)=val(thisform.text1.value) .and.; month(rq)=val(thisform.text2.value) .and. allt(kmbh)=subs(kmbh1,4*i-3,4) go

49、bottom sz1(i)=iif(eof(),0,ye) i=i+1 enddo sele 2 &損益表工作區(qū) repl ljs with sz1(1)+sz1(2) 7/29/202282管理信息系統(tǒng)：李國(guó)紅主講 case length=4 sele 1 &總賬表工作區(qū) set filter to year(rq)=val(thisform.text1.value) .and.; month(rq)=val(thisform.text2.value) .and. allt(kmbh)=kmbh1 go bottom ljs1=iif(eof(),0,ye) sele 2 &損益表工作區(qū) r

50、epl ljs with ljs1 case length=1 r=recn() sum ljs to ljs1 for bz=d sum ljs to ljs2 for bz=j go r repl ljs with ljs1-ljs2 endc skipendd7/29/202283管理信息系統(tǒng)：李國(guó)紅主講copy to syb+allt(thisform.text1.value)+-+allt(thisform.text2.value)+.dbf;fields xm,hc,bys,ljs &生成的損益表以類似于syb2009-1.dbf的形式保存messagebox(生成損益表結(jié)束!,4

51、8,提示)sele xm as 項(xiàng)目,hc as 行次,bys as 本月數(shù),ljs as 本年累計(jì)數(shù) from;syb+allt(thisform.text1.value)+-+allt(thisform.text2.value)+.dbfclose databasesset safety onset exact offset talk on7/29/202284管理信息系統(tǒng)：李國(guó)紅主講7/29/202285管理信息系統(tǒng)：李國(guó)紅主講6.7 賬務(wù)處理與報(bào)表系統(tǒng)的菜單設(shè)計(jì)1、功能模塊7/29/202286管理信息系統(tǒng)：李國(guó)紅主講2、菜單規(guī)劃與設(shè)計(jì)7/29/202287管理信息系統(tǒng)：李國(guó)紅主講2、

52、菜單規(guī)劃與設(shè)計(jì)7/29/202288管理信息系統(tǒng)：李國(guó)紅主講菜單設(shè)計(jì)2、菜單規(guī)劃與設(shè)計(jì)7/29/202289管理信息系統(tǒng)：李國(guó)紅主講2、菜單規(guī)劃與設(shè)計(jì)7/29/202290管理信息系統(tǒng)：李國(guó)紅主講3、報(bào)表設(shè)計(jì)創(chuàng)建與修改報(bào)表：modi report 報(bào)表文件名預(yù)覽報(bào)表：report form 報(bào)表主名.frx for 條件 preview打印報(bào)表：report form 報(bào)表主名.frx for 條件 to printer4、查詢?cè)O(shè)計(jì)創(chuàng)建與修改查詢：modi query 查詢文件名執(zhí)行查詢：do 查詢主文件名.qpr5、菜單的運(yùn)行執(zhí)行菜單，生成：生成擴(kuò)展名為.mpr的可執(zhí)行菜單文件執(zhí)行菜單：Do

53、 菜單文件主名.mpr7/29/202291管理信息系統(tǒng)：李國(guó)紅主講6.8 MIS操作維護(hù)設(shè)計(jì)與實(shí)現(xiàn)1、在zwcl數(shù)據(jù)庫(kù)中建立mima.dbf表字段名類型寬度含義czy字符型16操作員mm字符型16密碼返回:用戶登錄7/29/202292管理信息系統(tǒng)：李國(guó)紅主講2、增加操作員設(shè)計(jì)表單Text2、Text3的PasswordChar：*退出：thisform.release確定：7/29/202293管理信息系統(tǒng)：李國(guó)紅主講set exact onopen database zwcluse mimaif len(allt(thisform.text1.value)0 &輸入的操作員密碼不全為空格

54、 locate for allt(czy)=allt(thisform.text1.value) if found() messagebox(已有此操作員,請(qǐng)重新輸入!,0+48) thisform.text1.value=space(0) thisform.text2.value=space(0) thisform.text3.value=space(0) thisform.text1.setfocus else &密碼表中無(wú)與Text1中匹配的內(nèi)容 if allt(thisform.text2.value)=allt(thisform.text3.value) if len(allt(th

55、isform.text2.value)0 appe blank repl czy with allt(thisform.text1.value) repl mm with allt(thisform.text2.value) thisform.text1.value=space(0) thisform.text2.value=space(0) thisform.text3.value=space(0) thisform.text1.setfocus else &Text2中未輸入字符或輸入的是空格字符串 messagebox(請(qǐng)輸入密碼,注意不能全為空格!,0+48) thisform.tex

56、t2.setfocus endif 7/29/202294管理信息系統(tǒng)：李國(guó)紅主講 else &Text2與Text3中的內(nèi)容不相同 messagebox(密碼不一致,請(qǐng)重新輸入!,0+48) thisform.text2.value=space(0) thisform.text3.value=space(0) thisform.text2.setfocus endif endifelse &Text1中未輸入字符或輸入的是空格字符串 messagebox(請(qǐng)輸入操作員代碼,注意不能全為空格!,0+48) thisform.text2.value=space(0) thisform.text3

57、.value=space(0) thisform.text1.setfocusendifclose databaseset exact off7/29/202295管理信息系統(tǒng)：李國(guó)紅主講3、刪除操作員設(shè)計(jì)表單Combo1：RowSourceType: 6-字段; RowSource: mima.czy;Style: 2-下拉列表框;ControlSource: mima.czyText1：PasswordChar: *7/29/202296管理信息系統(tǒng)：李國(guó)紅主講Form1.Load: open database zwcl Form1.Init: thisform.text1.setfocu

58、s Form1.Unload: close databaseCombo1.Click: thisform.text1.setfocus 退出.Click: thisform.release 確定.Clik: 7/29/202297管理信息系統(tǒng)：李國(guó)紅主講set exact onuse mimaloca for allt(czy)=allt(thisformbo1.value) and allt(mm)=allt(thisform.text1.value)if found() dele &為找到的那條記錄加上邏輯刪除標(biāo)記 pack &物理刪除帶邏輯刪除標(biāo)記的記錄 thisform.text1.v

59、alue=space(0) thisform.refresh messagebox(刪除成功!,0+48)else messagebox(密碼不對(duì),不能刪除!,0+48) thisform.text1.value=space(0)endifthisform.text1.setfocusset exact off7/29/202298管理信息系統(tǒng)：李國(guó)紅主講4、修改密碼設(shè)計(jì)表單，建數(shù)據(jù)環(huán)境Combo1：RowSourceType: 6-字段; RowSource: mima.czy;Style: 2-下拉列表框;ControlSource: mima.czyText1、Text2、Text3：P

60、asswordChar: *7/29/202299管理信息系統(tǒng)：李國(guó)紅主講Form1.Load: open database zwcl Form1.Init: thisform.text1.setfocus Form1.Unload: close databaseCombo1.Click: thisform.text1.setfocus 退出.Click: thisform.release 確定.Clik:7/29/2022100管理信息系統(tǒng)：李國(guó)紅主講set exact onuse mimalocate for allt(czy)=allt(thisformbo1.value)if allt