【正文】 ).Value:=39。 (39。date239。).Value:= 。 if =true then begin (39。name39。 if =true then //指定年月指定銷售代表的數(shù)據(jù) 42 begin 。 :=。 。預(yù)訂 39。status39。).Value:= 。 (39。date139。 end。).Value:=39。 (39。date239。).Value:= 。 if =true then begin (39。出售已審核 39。status39。).Value:= 。 (39。date139。).Value:= 。 (39。 end。 := 。 41 end。).Value:=39。 if =true then begin (39。出售未審核 39。status139。 end。).Value:=39。 if =true then begin (39。name39。 begin if =true then //指定樓盤(pán)的數(shù)據(jù) begin 。 end。 。 if =true then :=39。已預(yù)訂 39。出售 已審核 39。銷售狀態(tài)： 39。 := 。 :=39。指定年月： 39。 40 := 。 if =true then begin :=39。 。 if =true then :=39。 if =true then :=39。 if =true then :=39。 :=39。39。 := 。 :=39。銷售樓盤(pán) :39。 end。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。銷售樓盤(pán) : 39。 procedure (sender:tobject)。 39 end。 :=false。 end。 :=true。 end。 :=false。 {$R *.dfm} procedure (sender:tobject)。 var mainform: Tmainform。 procedure customer(sender:tobject)。 procedure mybuild2(sender:tobject)。 procedure myproce3(sender:tobject)。 procedure myproce1(sender:tobject)。 procedure myproc2(sender:tobject)。 username:string。 private { Private declarations } public modelr,buildlr,lr,emplr,sale,gather,plan,payreturn, saler,house,custpay,cust,custfx,user1,databack:boolean。 var DragObject: TDragDockObject)。 X, Y: Integer)。 procedure Panel1DockDrop(Sender: TObject。 procedure Timer1Timer(Sender: TObject)。 var Key: Word。 procedure SpeedButton6Click(Sender: TObject)。 procedure SpeedButton8Click(Sender: TObject)。 procedure SpeedButton9Click(Sender: TObject)。 procedure N21Click(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 procedure N13Click(Sender: TObject)。 procedure N11Click(Sender: TObject)。 procedure SpeedButton7Click(Sender: TObject)。 procedure SpeedButton2Click(Sender: TObject)。 procedure SpeedButton5Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure N15Click(Sender: TObject)。 procedure SpeedButton3Click(Sender: TObject)。 procedure N2Click(Sender: TObject)。 var CanClose: Boolean)。 procedure SpeedButton10Click(Sender: TObject)。 Image1: TImage。 36 N27: TMenuItem。 N30: TMenuItem。 N26: TMenuItem。 StatusBar1: TStatusBar。 SpeedButton9: TSpeedButton。 SpeedButton8: TSpeedButton。 SpeedButton2: TSpeedButton。 SpeedButton5: TSpeedButton。 ToolBar1: TToolBar。 N17: TMenuItem。 N15: TMenuItem。 N24: TMenuItem。 N22: TMenuItem。 N20: TMenuItem。 N18: TMenuItem。 N13: TMenuItem。 35 N11: TMenuItem。 N10: TMenuItem。 N7: TMenuItem。 N5: TMenuItem。 N3: TMenuItem。 N1: TMenuItem。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, ImgList, ToolWin, Buttons, ExtCtrls, StdCtrls, DB, Grids, DBGrids, ADODB, OleServer, Excel2021, jpeg。 樓盤(pán)樓房資料錄入模塊運(yùn)行 如下圖： 圖 511 樓盤(pán)樓房資料錄入窗口 32 公司資料錄入如下圖： 圖 512 公司資料錄入 員工資料錄入如下圖： 圖 513 員工資料錄入窗口 用戶管理窗口如圖： 33 圖 514 用戶管理窗口 圖 515 用戶管理窗口中的用戶權(quán)限窗口 在操作過(guò)程中，用戶有時(shí)可能會(huì)遇到問(wèn)題，這時(shí)就需要一個(gè)能夠 幫助用戶解決問(wèn)題的模塊。 房型資料錄入如圖所示 圖 510 房型資料錄入 樓盤(pán)樓房資料的錄入模塊是房屋銷售信息管理系統(tǒng)中經(jīng)常用到的模塊，該模塊能夠?qū)潜P(pán)的詳細(xì)資料進(jìn)行管理，還可以對(duì)樓盤(pán)中包含的樓房資料進(jìn)行管理。在本模塊的窗口中，最上方為一個(gè)下拉列表，左邊是一個(gè)提供具體樓房選擇的樹(shù)形列表，右邊為樓房的詳細(xì)信息，因?yàn)樽筮厴?shù)形列表中的數(shù)據(jù)不是固定的，所以需要在模塊運(yùn)行時(shí)動(dòng)態(tài)添加。進(jìn)入房屋銷售管理系統(tǒng)的界面如圖 52： 圖 52 房屋銷售管理系統(tǒng)主界面 27 房屋銷售是房地產(chǎn)中最重要的業(yè)務(wù)，房屋銷售管理模塊實(shí)現(xiàn)了房屋銷售管理的所有功能。 窗體的設(shè)計(jì) 房屋銷售管理系統(tǒng)的主窗體設(shè)計(jì)非常簡(jiǎn)潔，界面主要通過(guò)主菜單來(lái)對(duì)功能模塊進(jìn)行選擇調(diào)用，界面下方是狀態(tài)欄，用于顯示系統(tǒng)的當(dāng)前狀態(tài)，如當(dāng)前的操作員和系統(tǒng)時(shí)間等，方窗體的運(yùn)行結(jié)果如圖 51 所示 。為了有效地管理房屋銷售信息，開(kāi)發(fā)了房屋銷售管理 系統(tǒng)。 17 圖 37 彈出菜單 圖 38 建立新表 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 創(chuàng)建數(shù)據(jù)庫(kù) 通過(guò)上面的分析，經(jīng)過(guò)合理規(guī)劃，本系統(tǒng)中需要數(shù)據(jù)庫(kù)設(shè)計(jì)是程序開(kāi)發(fā)中一項(xiàng)主要工作，直接影響以后的開(kāi)發(fā)，如果在開(kāi)發(fā)階段再改數(shù)據(jù)庫(kù)，整個(gè)程序都可能進(jìn)行相應(yīng)的調(diào)整，后果非常嚴(yán)重。由于在 該數(shù)據(jù)庫(kù)中沒(méi)有建立任何表，所以都是系統(tǒng)表。當(dāng)向表中插入數(shù)據(jù)時(shí)，如果沒(méi)有指定該字段的值，則這個(gè)字段使用可選的默認(rèn)值。標(biāo)識(shí)字段是否允訴為空，如果允訴為空，字段值可以是 NULL；否則字段值必須是要求的數(shù)據(jù)。標(biāo)識(shí)字段存儲(chǔ)的數(shù)據(jù)類型。用來(lái)指示字段的名稱，表中的每個(gè)字段必須有一個(gè)惟一的名字，但是這個(gè)名字可以與其它表中的字段名相同。 圖 32 企業(yè)管理器主界面 15 圖 33 “數(shù)據(jù)庫(kù)屬性”窗口 創(chuàng)建數(shù)據(jù)庫(kù)表 數(shù)據(jù) 庫(kù)創(chuàng)建成功后，開(kāi)始建立數(shù)據(jù)庫(kù)中的各個(gè)表，首先要建立表結(jié)構(gòu)。在“名稱”編輯框中輸入數(shù)據(jù)庫(kù)的名稱“ FDC”，單擊【 確定 】 按鈕創(chuàng)建數(shù)據(jù)庫(kù)。單擊“開(kāi)始”菜單，選擇“程序”→ Microsoft SQL server”, 如圖：所示，選擇“企業(yè)管理器”，主界面如 31 圖所示。 12 第三章 軟件設(shè)計(jì)說(shuō)明 功能分析 對(duì)房屋銷售業(yè)務(wù)進(jìn)行分析后 ,確 定房屋銷售管理信息系統(tǒng)應(yīng)該實(shí)現(xiàn)以下功能 : ● 在基礎(chǔ)信息管理模塊中實(shí)現(xiàn)房型基礎(chǔ)信息 ,樓盤(pán)樓房信息 ,員工信息和公司信息管理 . ● 在房屋銷售管理模塊中實(shí)現(xiàn)房屋銷售管理 ,銷售收款管理 ,客戶資料管理和客戶退款管理 . ● 在統(tǒng)計(jì)報(bào)表模塊中實(shí)現(xiàn)員工銷售統(tǒng)計(jì) ,樓房購(gòu)訂統(tǒng)計(jì) ,客戶購(gòu)訂統(tǒng)計(jì) ,客戶購(gòu)訂統(tǒng)計(jì)和客戶數(shù)據(jù)分析 . ● 在系統(tǒng)設(shè)置模塊中實(shí)現(xiàn)用戶管理 ,用戶口令修改和數(shù)據(jù)備份恢復(fù) . 房屋銷售系統(tǒng)功能結(jié)構(gòu)如圖 31 所示 : 圖 31 房屋銷售管理系統(tǒng)功能模塊結(jié)構(gòu)圖 系統(tǒng)分析 房地產(chǎn)信息管理系統(tǒng)的業(yè)務(wù)流程較 為復(fù)雜 ,銷售代表負(fù)責(zé)銷售和預(yù)訂房屋 ,并且與客戶溝通 ,幫助客戶購(gòu)買(mǎi)和預(yù)訂房屋 ,客戶可以提出退房和換房的要求 .在售出房屋 ,訂出房屋 ,或退房時(shí) ,會(huì)計(jì)負(fù)責(zé)處理各款項(xiàng) ,并且制作出單據(jù) .在業(yè)務(wù)操作過(guò)程中 ,房屋和客戶的資料應(yīng)以保留 ,以供分析 .房屋銷售信息管理系統(tǒng)業(yè)務(wù)流程圖如下 32: 13 圖 32 房屋銷售管理信息系統(tǒng)數(shù)據(jù)流程 14 第四章 數(shù)據(jù)庫(kù)的設(shè)計(jì) 數(shù)據(jù)庫(kù)設(shè)計(jì) 創(chuàng)建數(shù)據(jù)庫(kù)：考慮到用戶的安全性和數(shù)據(jù)的容量，本系統(tǒng)使 用 SQL server 作為后臺(tái)數(shù)據(jù)庫(kù)。 軟件維護(hù)的 原因可分為四類： 改正性維護(hù)； 適應(yīng)性維護(hù)