【導(dǎo)讀】隨著我國經(jīng)濟不斷發(fā)展，房地產(chǎn)的開發(fā)也達到了前所未有的高度。隨著大批已建成和正。在建設(shè)的樓盤的開盤與交房，房屋銷售管理系統(tǒng)成為一種廣泛需要的系統(tǒng)。管理軟件，根據(jù)需求分析，實現(xiàn)銷售系統(tǒng)管理業(yè)務(wù)，作用已越來越明顯。發(fā)具有很實際的意義。本系統(tǒng)主要從系統(tǒng)規(guī)劃、系統(tǒng)分析、系統(tǒng)設(shè)計、系統(tǒng)實施、系統(tǒng)管理。針對目前房屋銷售過程中時常會出現(xiàn)資料繁多、咨詢和查閱不夠及時等現(xiàn)象，通過。了基本資料管理和業(yè)務(wù)管理兩個子模塊來體現(xiàn)該系統(tǒng)的功能。開發(fā)中起到主導(dǎo)地位。決于信息的質(zhì)量。隨著人類進入信息科技時代，管理信息系統(tǒng)的開發(fā)和設(shè)計，則成了必然的。發(fā)展要求，其重要性也是不可忽視的。

　　

【正文】 徐 潔 39 程序清單 *定義 click事件代碼 Sele yz if =添加 =保存 =str(reo()) append blank else =添加 =編輯 endif *定義 click事件代碼 if =編輯 =取消 管理信息系統(tǒng)課程設(shè)計報告 馬 頌 徐 潔 40 =保存 =str(reo()) else =編輯 =添加 tablerevert() endif *定義 click事件代碼 if messagebox(是否確認刪除當前記錄 ,32+4+256,刪除記錄 )=6 delete pack else messagebox(你選擇的記錄未刪除 ,!仍然有效 ) endif *定義 click事件代碼 客戶管理模塊設(shè)計 窗體界面設(shè)計 用戶進入系統(tǒng)后，單擊主界面“客 戶信息 ”主菜單，在彈出的子菜單項中選擇“ 客戶管理 ”選項，進入 客戶管理 記界面。 客戶 界面主要實現(xiàn)以下功能： 添加、修改、刪除、瀏覽 客戶 信息 1) 支持快速瀏覽 客戶 信息 2) 可增添或刪 除客戶信息 3) 支持打印和預(yù)覽 客戶管理 表單設(shè)計界面如下： 管理信息系統(tǒng)課程設(shè)計報告 馬 頌 徐 潔 41 程序清單 *定義 click事件代碼 sele kh go nhere with thisform .=.f. .=.f. .=.f. .=.f. .=.f. endwith text1=allt(客戶編號 ) =.f. *定義 click事件代碼 ： use kh exclusive *sele kh locate for allt(客戶編號 )=allt() dqbh=allt(區(qū)域編碼 ) nhere=reo() 管理信息系統(tǒng)課程設(shè)計報告 馬 頌 徐 潔 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 客戶編號 with dqbh+00+allt(str(i)) else if ndel100 repl 客戶編號 with dqbh+0+allt(str(i)) else repl 客戶編號 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 客戶編號 with dqbh+00+allt(str(i)) 管理信息系統(tǒng)課程設(shè)計報告 馬 頌 徐 潔 43 else if num100 repl 客戶編號 with dqbh+0+allt(str(i)) else repl 客戶編號 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è)計報告 馬 頌 徐 潔 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 客戶編號 with khbh repl 區(qū)域編 碼 with allt() =khbh = = = = = =.f. =.f. =.f. =.f. =.f. text1=allt(khbh) nhere=reo() =.f. *定義 mand2按鈕的 click事件代碼 ： 員工 管理模塊設(shè)計 窗體界面設(shè)計 用戶進入系統(tǒng)后，單擊主界面“ 銷售管理 ”主菜單，在彈出的子菜單項中選擇“ 業(yè)務(wù)員管理信息系統(tǒng)課程設(shè)計報告 馬 頌 徐 潔 45 管理”選項，進入 員工 管理記界面。 員工 界面主要實現(xiàn)以下功能： 1）自動顯示來自客戶管理界面中的客戶編號和單位名稱 . 2）實現(xiàn)新增和修改時的自動保存 . 3）實現(xiàn)記錄的簡單編輯功能 . 客戶管理 表單設(shè)計界面如下： 其運行結(jié)果如下： 程序清單 *定義 mand1按鈕的 click事件代碼 sele yg go nhere with thisform .=.f. .=.f. endwith text1=allt(姓名 ) =.f. 管理信息系統(tǒng)課程設(shè)計報告 馬 頌 徐 潔 46 *定義 mand2按鈕的 click事件代碼 use yg exclusive *sele yg locate for allt(姓名 )=allt() dqbh=allt(性別 ) nhere=reo() if found() delete pack count all to num count all for allt(性別 )=dqbh to ndel if nhere=num if ndel0 go top i=1 locate for allt(性別 )=dqbh do while found() if ndel=9 repl 姓名 with dqbh+00+allt(str(i)) else if ndel100 repl 姓名 with dqbh+0+allt(str(i)) else repl 姓名 with dqbh+allt(str(i)) endif endif continue i=i+1 enddo endif 管理信息系統(tǒng)課程設(shè)計報告 馬 頌 徐 潔 47 go nhere else go bottom endif endif *定義 mand3按鈕的 click事件代碼 =.t. =.f. if ==.f. count all for allt(性別 )=dqbh to num if num0 go top i=1 locate for allt(性別 )=dqbh do while found() if num=9 repl 姓名 with dqbh+00+allt(str(i)) else if num100 repl 姓名 with dqbh+0+allt(str(i)) else repl 姓名 with dqbh+allt(str(i)) endif endif continue i=i+1 enddo endif 管理信息系統(tǒng)課程設(shè)計報告 馬 頌 徐 潔 48 endif *定義 mand6按鈕的 click事件代碼 *定義 click事件代碼 ： go top =.f. messagebox(已經(jīng)機在首記錄處 ,信息提示 !) *定義 click事件代碼 ： if reo()1 skip 1 =.t. () messagebox(已經(jīng)在首記錄處 ,請作其他選擇 !,信息提示 !) endif *定義 click事件代碼 ： if eof().t. skip 1 =.t. () else messagebox(已經(jīng)在末記錄處 ,請作其他選擇 !,信息提示 !) endif *定義 click事件代碼 ： if eof().t. go bottom 管理信息系統(tǒng)課程設(shè)計報告 馬 頌 徐 潔 49 =.t. () messagebox(已經(jīng)在末記錄處 ,請作其他選擇 !,信息提示 !) else messagebox(已經(jīng)在末記錄處 ,請作其他選擇 !,信息提示 !) endif 信息查詢 管理模塊設(shè)計 窗體界面設(shè)計 用戶進入系統(tǒng)后，單擊主界面“ 客戶管理 ”主菜單，在彈出的子菜單項中選擇“ 業(yè)主信息查詢 ”選項，進入 業(yè)主信息查詢界面 記界面。 該 界面主要實現(xiàn)以下功能： 1)根據(jù)需要，對業(yè)主信息進行查詢 2）分類查詢 業(yè)主信息查詢 表單設(shè)計界面如下： 程序清單 *定義 組合控件框 bol1按鈕的 click事件代碼 ： () *定義 click事件代碼 ： local findstr,oldrecord 管理信息系統(tǒng)課程設(shè)計報告 馬 頌 徐 潔 50 sele yz oldrecord=reo() do case case =1 set order to 業(yè)主姓名 findstr= =alltrim() case =2 set order to 業(yè)主代碼 findstr= =alltrim() case =3 set order to 身份證號