【正文】 業(yè)主 ＆ 客戶管理 財(cái)務(wù)管理 系統(tǒng)管理 開發(fā)商介紹 銷售商介紹 房屋資料登記 費(fèi)用明細(xì) 意向客戶登記 客戶意向檢索 成交客戶管理 客戶意見反饋 交款登記 催交欠款 房?jī)r(jià)管理 分析報(bào)表 基本信息 數(shù)據(jù)管理 操作日志 銷售登記 預(yù)定管理 銷售統(tǒng)計(jì) 銷售管理 業(yè)主信息查詢 換房管理 合同管理 合同有效性查詢 合同執(zhí)行情況 管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告 馬 頌 徐 潔 15 存儲(chǔ)設(shè)計(jì) 數(shù)據(jù)庫設(shè)計(jì) 銷售資料分已銷售、預(yù)定、換房 3類進(jìn)行登記，客戶資料分 業(yè)主 、意向客戶兩類登記。 (3) 輸入數(shù)據(jù)的檢驗(yàn) ① 檢驗(yàn)方 法（通過以下幾種綜合檢驗(yàn)） ⅰ .靜態(tài)校驗(yàn)：輸入、打印、校對(duì) ⅱ .格式檢驗(yàn)：檢驗(yàn)數(shù)據(jù)是否符合預(yù)先規(guī)定格式 ⅲ .邏輯校驗(yàn)：檢驗(yàn)數(shù)據(jù)值是否合理 ⅳ .界限校驗(yàn)：檢驗(yàn)數(shù)據(jù)值是否在規(guī)定范圍內(nèi) ⅴ .記錄計(jì)數(shù)檢驗(yàn)：通過記錄個(gè)數(shù)檢查是否遺漏 ② 出錯(cuò)的改正方法： ⅰ .原始數(shù)據(jù)出錯(cuò)：退回原單位修改 ⅱ .程序查出錯(cuò)誤：剔除出錯(cuò)數(shù)據(jù)繼續(xù)進(jìn)行處理，出錯(cuò)數(shù)據(jù)留下一組數(shù)據(jù)一起處理 ⅲ .輸入的所有數(shù)據(jù)檢驗(yàn)并改正后，再投入所有數(shù)據(jù)一次處理 輸出設(shè)計(jì) (1) 輸出方式：顯示器、打印機(jī)、磁盤導(dǎo)出 (2) 輸出格式設(shè)計(jì)：標(biāo)準(zhǔn)化 、使用方便、符合用戶習(xí)慣；打印出數(shù)據(jù)要求“所見即所得” 管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告 馬 頌 徐 潔 20 4 系統(tǒng)實(shí)施 系統(tǒng)主文件 set talk off set safe off set stat off set dele on set cent on set date to ansi set sysmenu off close all modify window screen title 房 屋 銷售管理信息系統(tǒng) zoom window screen max set default to h:\msfwxs amp。amp。 KEY ALT+J, DEFINE PAD _29y1e0o9c OF _MSYSMENU PROMPT 退出 (\K) COLOR SCHEME 3 。 客戶 界面主要實(shí)現(xiàn)以下功能： 添加、修改、刪除、瀏覽 客戶 信息 1) 支持快速瀏覽 客戶 信息 2) 可增添或刪 除客戶信息 3) 支持打印和預(yù)覽 客戶管理 表單設(shè)計(jì)界面如下： 管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告 馬 頌 徐 潔 41 程序清單 *定義 click事件代碼 sele kh go nhere with thisform .=.f. .=.f. .=.f. .=.f. .=.f. endwith text1=allt(客戶編號(hào) ) =.f. *定義 click事件代碼 ： use kh exclusive *sele kh locate for allt(客戶編號(hào) )=allt() dqbh=allt(區(qū)域編碼 ) nhere=reo() 管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告 馬 頌 徐 潔 42 if found() delete pack count all to num count all for allt(區(qū)域編碼 )=dqbh to ndel if nhere=num if ndel0 go top i=1 locate for allt(區(qū)域編碼 )=dqbh do while found() if ndel=9 repl 客戶編號(hào) with dqbh+00+allt(str(i)) else if ndel100 repl 客戶編號(hào) with dqbh+0+allt(str(i)) else repl 客戶編號(hào) with dqbh+allt(str(i)) endif endif continue i=i+1 enddo endif go nhere else go bottom endif endif *定義 click事件代碼 ： =.t. =.f. if ==.f. count all for allt(區(qū)域編碼 )=dqbh to num if num0 go top i=1 locate for allt(區(qū)域編碼 )=dqbh do while found() if num=9 repl 客戶編號(hào) with dqbh+00+allt(str(i)) 管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告 馬 頌 徐 潔 43 else if num100 repl 客戶編號(hào) with dqbh+0+allt(str(i)) else repl 客戶編號(hào) with dqbh+allt(str(i)) endif endif continue i=i+1 enddo endif endif *定義 click事件代碼 ： if =.f. use customer exclusive go bottom delete pack go bottom nhere=reo() =.t. endif if =.f. =.t. endif *定義 mandgroup2按鈕的 click事件代碼 ： do case case =1 go top case =2 if !bof() skip 1 endif case =3 skip if eof() skip 1 endif case =4 管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告 馬 頌 徐 潔 44 go bottom endcase *定義 mand1(聯(lián)系人 )按鈕的 click事件代碼 ： sele kh =.t. count all for allt(區(qū)域編碼 )=allt() to num if num=9 khbh=allt()+00+allt(str(num+1)) else if num100 khbh=allt()+0+allt(str(num+1)) else khbh=allt()+allt(str(num+1)) endif endif append blank repl 客戶編號(hào) with khbh repl 區(qū)域編 碼 with allt() =khbh = = = = = =.f. =.f. =.f. =.f. =.f. text1=allt(khbh) nhere=reo() =.f. *定義 mand2按鈕的 click事件代碼 ： 員工 管理模塊設(shè)計(jì) 窗體界面設(shè)計(jì) 用戶進(jìn)入系統(tǒng)后，單擊主界面“ 銷售管理 ”主菜單，在彈出的子菜單項(xiàng)中選擇“ 業(yè)務(wù)員管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告 馬 頌 徐 潔 45 管理”選項(xiàng)，進(jìn)入 員工 管理記界面。該界面主要實(shí)現(xiàn)以下功能： 1)對(duì)房屋銷售信息進(jìn)行統(tǒng)計(jì)匯總，以供瀏覽、查詢 2）對(duì)已售房屋 和待售房屋 信息 進(jìn)行分類 顯示 3）對(duì)業(yè)主、客戶的信息進(jìn)行匯總可供瀏覽 房屋銷售管理 表單設(shè)計(jì)界面如下 管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告 馬 頌 徐 潔 30 其運(yùn)行結(jié)果如下： 程序清單 管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告 馬 頌 徐 潔 31 *定義 click事件代碼 sele wcsxx go top =.f. messagebox(已經(jīng)在第一筆銷售記錄處 ,信息提示 !) *定義 click事件代碼 sele wcsxx if reo()1 skip 1 =.t. () else messagebox(已經(jīng)在第一筆銷售記錄處 ,請(qǐng)做其它操作 !,信息提示 !) endif *定義 click事件代碼 sele wcsxx if eof().t. skip 1 =.t. () else messagebox(已經(jīng)在最后一筆銷售記錄處 ,請(qǐng)作其他選擇 !,信息提示 !) endif *定義 click事件代 碼 Sele wcsxx if eof().t. go bottom =.t. () 管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告 馬 頌 徐 潔 32 messagebox(已經(jīng)在最后一筆銷售記錄處 ,請(qǐng)作其它選擇 !,信息提示 !) else messagebox(已經(jīng)在最后一筆銷售記錄處 ,請(qǐng)作其它選擇 !,信息提示 !) endif *定義 click事件代碼 sele wcsxx if =添加 =保存 =str(reo()) append blank else =添加 =編輯 endif *定義 click事件代碼 sele wcsxx if =編輯 = =取消 =str(reo()) else =編輯 =添加 tablerevert() endif go val() 管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告 馬 頌 徐 潔 33 *定義 click事件代碼 sele wcsxx if messagebox(是否確認(rèn)刪除當(dāng)前記錄 !,32+4+256,刪除記錄 )=6 delete pack else messagebox(你選擇的記錄未刪除 ,仍然有效 !) endif *定義 click事件代碼 sele kh if =添加 =保存 =str(reo()) append blank else =添加 =編輯 endif *定義 click事件代碼 sele kh if =編輯 = =取消 =str(reo()) else =編輯 =添加 管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告 馬 頌 徐 潔 34 tablerevert() endif go val() *定義 click事 件代碼 sele kh if messagebox(是否確認(rèn)刪除當(dāng)前記錄 !,32+4+256,刪除記錄 )=6 delete pack else messagebox(你選擇的記錄未刪除 ,仍然有效 !) endif *定義 click事件代碼 sele kh go top =.f. messagebox(已經(jīng)在第一位客戶記錄處 ,信息提示 !) *定義 click事件代碼 sele kh if reo()1 skip 1 =.t. () else messagebox(已經(jīng)在第一位客戶記錄處 ,請(qǐng)做其它操作 !,信息提示 !) endif *定義 click事件代碼 管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告 馬 頌 徐 潔 35 sele kh if eof().t. skip 1 =.t. () else messagebox(已經(jīng)在最后一位客戶記錄處 ,請(qǐng)作其他選擇 !,信息提示 !) endif *定義 click事件代碼 sele kh if eof().t. go bottom =.t. () messagebox(已經(jīng)在最后一位客戶記錄處 ,請(qǐng)作其它選擇 !,信息提示 !) else messagebox(已經(jīng)在最后一位客戶記錄處 ,請(qǐng)作其它