【導(dǎo)讀】下，房地產(chǎn)銷售管理系統(tǒng)應(yīng)用而生。例如，樓盤名稱，樓房名稱，房型信息，客房信息及房屋銷售信息。等，這些信息的重復(fù)性錄入，必然降低工作人員的工作效率，加重了工作負(fù)擔(dān)。2）房地產(chǎn)公司各部門之間溝通困?，F(xiàn)代房地產(chǎn)企業(yè)在營(yíng)銷管理的過(guò)程中，有大量的數(shù)。滿足集團(tuán)公司的多級(jí)管理的需求。每天的房屋銷售情況，客戶退房，換房情況。這些數(shù)據(jù)的大量產(chǎn)。生，都會(huì)加重查詢統(tǒng)計(jì)工作的負(fù)擔(dān)。備一定的交互功能，允許用戶在網(wǎng)頁(yè)提供的申請(qǐng)表上輸入信息提交給后臺(tái)，并提出處理請(qǐng)求。第二層Web服務(wù)器將啟動(dòng)相應(yīng)的進(jìn)程來(lái)響應(yīng)這一請(qǐng)求，交的請(qǐng)求包括數(shù)據(jù)的存取，Web服務(wù)器還需與數(shù)據(jù)庫(kù)服務(wù)器協(xié)同完成這一處理工作。據(jù)訪問(wèn)量動(dòng)態(tài)配置WEB服務(wù)器、應(yīng)用服務(wù)器，以保證系統(tǒng)性能。系統(tǒng)采用C/S結(jié)構(gòu)適宜，可以通過(guò)B/S發(fā)布部分可公開信息。2021等，全面支持網(wǎng)絡(luò)的構(gòu)件搭建的系統(tǒng)。B/S對(duì)的多重結(jié)構(gòu)，要求構(gòu)件相對(duì)獨(dú)立的功能。能夠相對(duì)較好的重用。

　　

【正文】 N24: TMenuItem。 N25: TMenuItem。 N15: TMenuItem。 N16: TMenuItem。 N17: TMenuItem。 ImageList1: TImageList。 ToolBar1: TToolBar。 SpeedButton3: TSpeedButton。 SpeedButton5: TSpeedButton。 SpeedButton1: TSpeedButton。 SpeedButton2: TSpeedButton。 SpeedButton7: TSpeedButton。 SpeedButton8: TSpeedButton。 SpeedButton10: TSpeedButton。 SpeedButton9: TSpeedButton。 SpeedButton6: TSpeedButton。 StatusBar1: TStatusBar。 Timer1: TTimer。 N26: TMenuItem。 N29: TMenuItem。 N30: TMenuItem。 N31: TMenuItem。 36 N27: TMenuItem。 Panel1: TPanel。 Image1: TImage。 procedure N22Click(Sender: TObject)。 procedure SpeedButton10Click(Sender: TObject)。 procedure FormCloseQuery(Sender: TObject。 var CanClose: Boolean)。 procedure FormShow(Sender: TObject)。 procedure N2Click(Sender: TObject)。 procedure N3Click(Sender: TObject)。 procedure SpeedButton3Click(Sender: TObject)。 procedure N16Click(Sender: TObject)。 procedure N15Click(Sender: TObject)。 procedure N5Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure N6Click(Sender: TObject)。 procedure SpeedButton5Click(Sender: TObject)。 procedure SpeedButton1Click(Sender: TObject)。 procedure SpeedButton2Click(Sender: TObject)。 procedure N8Click(Sender: TObject)。 procedure SpeedButton7Click(Sender: TObject)。 procedure N10Click(Sender: TObject)。 procedure N11Click(Sender: TObject)。 procedure N12Click(Sender: TObject)。 procedure N13Click(Sender: TObject)。 procedure N19Click(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 procedure N20Click(Sender: TObject)。 procedure N21Click(Sender: TObject)。 procedure N14Click(Sender: TObject)。 procedure SpeedButton9Click(Sender: TObject)。 37 procedure N24Click(Sender: TObject)。 procedure SpeedButton8Click(Sender: TObject)。 procedure N25Click(Sender: TObject)。 procedure SpeedButton6Click(Sender: TObject)。 procedure FormKeyDown(Sender: TObject。 var Key: Word。 Shift: TShiftState)。 procedure Timer1Timer(Sender: TObject)。 procedure N27Click(Sender: TObject)。 procedure Panel1DockDrop(Sender: TObject。 Source: TDragDockObject。 X, Y: Integer)。 procedure ToolBar1StartDock(Sender: TObject。 var DragObject: TDragDockObject)。 procedure Image1Click(Sender: TObject)。 private { Private declarations } public modelr,buildlr,lr,emplr,sale,gather,plan,payreturn, saler,house,custpay,cust,custfx,user1,databack:boolean。 name:string。 username:string。 procedure myproc1(sender:tobject)。 procedure myproc2(sender:tobject)。 procedure myproc3(sender:tobject)。 procedure myproce1(sender:tobject)。 procedure myproce2(sender:tobject)。 procedure myproce3(sender:tobject)。 procedure mybuild1(sender:tobject)。 procedure mybuild2(sender:tobject)。 procedure mybuild3(sender:tobject)。 procedure customer(sender:tobject)。 { Public declarations } 38 end。 var mainform: Tmainform。 implementation uses dmunit,modeunit,houseunit,employeesunit,customerunit,panyunit,room_saleunit, room_payunit,pay_plan_search_unit,pay_returnunit,tj_saler_1unit, tj_customer_1unit,tj_customer_2unit,tj_customer_3unit, tj_build_1unit,tj_build_2unit,tj_build_3unit,user_unit,password_changeunit,databackunit, tj_info_1unit,tj_info_2unit,aboutunit,helpunit,tj_saler_2unit,tj_saler_3unit,pay_plan_searchunit, appertainunit。 {$R *.dfm} procedure (sender:tobject)。 //panel 界面切換 begin if =true then begin :=true。 :=false。 :=false。 end。 if =true then begin :=false。 :=true。 :=false。 end。 if =true then begin :=false。 :=false。 :=true。 39 end。 end。 procedure (sender:tobject)。 begin if =true then begin :=39。銷售樓盤 : 39。 := 。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 end。 if =true then begin :=39。銷售樓盤 :39。 := 。 :=39。指定年月： 39。 := 。 :=39。39。 := 。 :=39。銷售狀態(tài)： 39。 if =true then :=39。出售已審核 39。 if =true then :=39。出售未審核 39。 if =true then :=39。已預(yù)訂 39。 。 end。 if =true then begin :=39。銷售代表： 39。 40 := 。 :=39。指定年月： 39。 := 。 :=39。39。 := 。 :=39。銷售狀態(tài)： 39。 if =true then :=39。出售 已審核 39。 if =true then :=39。已預(yù)訂 39。 。 if =true then :=39。出售未審核 39。 。 end。 end。 procedure (sender:tobject)。 begin if =true then //指定樓盤的數(shù)據(jù) begin 。 (39。name39。).Value:= 。 if =true then begin (39。status139。).Value:=39。出售已審核 39。 end。 if =true then begin (39。status139。).Value:=39。出售未審核 39。 end。 if =true then begin (39。status139。).Value:=39。預(yù)訂 39。 41 end。 。 := 。 := 。 end。 if =true then // 指定年月指定樓盤的數(shù)據(jù) begin 。 (39。name39。).Value:= 。 if =true then begin (39。date139。).Value:= 。 (39。date239。).Value:= 。 (39。status39。).Value:=39。出售已審核 39。 end。 if =true then begin (39。date139。).Value:= 。 (39。date239。).Value:= 。 (39。status39。).Value:=39。出售未審核 39。 end。 if =true then begin (39。date139。).Value:= 。 (39。date239。).Value:= 。 (39。status39。).Value:=39。預(yù)訂 39。 end。 。 := 。 :=。 end。 if =true then //指定年月指定銷售代表的數(shù)據(jù) 42 begin 。 (39。name39。).Value:= 。 if =true then begin (39。date139。).Value:= 。 (39。date239。).Value:= 。 (39。status39。).Value:=39。出售已審核 3