【文章內(nèi)容簡介】 Then () End If () End Sub 用戶注冊注冊用戶界面主要供用戶填寫注冊信息并完成新用戶的注冊，在該頁面中設(shè)置信息有用戶名文本框、用戶姓名文本框、用戶性別單選按鈕、用戶密碼、電子郵箱、家庭地址、聯(lián)系電話等信息需要填寫。其中用戶名、密碼、聯(lián)系電話與電子郵箱是必須填寫信息內(nèi)容，如果有其中的任何一個內(nèi)容沒有填寫都不能進(jìn)行注冊，如果所有的信息都填寫完了，當(dāng)單擊注冊按鈕的時候就會將數(shù)據(jù)輸入到數(shù)據(jù)庫中，并且保存起來。注冊界面設(shè)計(jì)如圖42所示圖42 用戶注冊界面用戶注冊主要代碼如下：Dim conn As New OleDbConnection(數(shù)據(jù)庫連接串) () Dim sql, str, str1 As String sql = insert into B_ClientPassword values(39。 + + 39。 + , + 39。 + + 39。 + , + 39。普通用戶39。) str = select * from B_ClientPassword ,B_HouseClient where CUserName=39。 + + 39。 str1 = insert into B_HouseClient values(39。 + + 39。 + , + 39。 + + 39。 + , + 39。 + + 39。 + , + 39。 + + 39。 + , + 39。 + + 39。 + , + 39。 + + 39。) Dim cmd As New OleDbCommand(str, conn) Dim adp As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim ds As DataSet = New DataSet() (ds, 123) Dim dt As New DataTable(123) dt = (123) If 0 Then = 該用戶已存在，請重新輸入！ = Else excute(str1) excute(sql) = = 注冊成功！ = = End If () 日常業(yè)務(wù)日常業(yè)務(wù)是指將納入關(guān)注的房源進(jìn)行監(jiān)控，在添加納入關(guān)注中的房源的界面中主要包括房源編號文本框、地址文本框、房主文本框、聯(lián)系電話文本框、重置按鈕和添加按鈕。其中房源編號、地址、聯(lián)系電話是必須填寫的納入，當(dāng)所有的信息都填寫完成后單擊添加按鈕就可以將納入關(guān)注的房源信息輸入到數(shù)據(jù)庫中的日常業(yè)務(wù)表中并且保存起來。添加關(guān)注中的房源的設(shè)計(jì)界面如圖43所示圖43 添加納入關(guān)注的房源界面添加關(guān)注的房源的主要代碼如下：Dim conn As New OleDbConnection(數(shù)據(jù)庫連接串) () Dim sql, str As String str = select * from B_HouseState where Hid=39。 + + 39。 sql = insert into B_HouseState values(39。 + + 39。 + , + 39。 + + 39。 + , + 39。 + + 39。 + , + 39。 + + 39。 + , + 39。關(guān)注中39。) Dim cmd As New OleDbCommand(str, conn) Dim adp As New OleDbDataAdapter(cmd) Dim ds As New DataSet() (ds, link) Dim dt As New DataTable(link) dt = (link) If 0 Then = 該房源已經(jīng)存在 Else = excute(sql) = 添加成功！ End If () 發(fā)布通知發(fā)布通知界面主要提供管理員填寫通知的信息內(nèi)容，在該頁面中包括文件編號文本框、文件標(biāo)題文本框、備注文本框、內(nèi)容文本域、取消按鈕、重置按鈕和發(fā)布按鈕。其中文件編號、文件內(nèi)容、文件標(biāo)題是必須填寫的內(nèi)容，如果他們當(dāng)中有任何一個沒有填寫都不能完成實(shí)時通知的發(fā)布，而備注是可以選擇性填寫的內(nèi)容，他的填寫與否都不會影響到該通知的發(fā)布。當(dāng)填寫完所有必須填寫的內(nèi)容后單擊發(fā)布按鈕就可以將數(shù)據(jù)輸入到數(shù)據(jù)庫中并且保存起來。發(fā)布通知的界面設(shè)計(jì)如圖44所示圖44發(fā)布通知界面管理員發(fā)布通知的主要代碼如下：Dim sql, str As String sql = insert into B_HouseInform values(39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + Today() + 39。,39。 + + 39。) str = select * from B_HouseInform where InfromId=39。 + + 39。 Dim conn As New OleDbConnection(數(shù)據(jù)庫連接串) () Dim cmd As New OleDbCommand(str, conn) Dim adp As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim ds As DataSet = New DataSet() (ds, 123) Dim dt As New DataTable(123) dt = (123) If 0 Then = 該文件編號已存在！ Else = excute(sql) End If () 添加員工當(dāng)公司有新進(jìn)的員工的時候，管理員需要將他們的信息錄入到數(shù)據(jù)庫中存檔，在添加員工界面中主要包括員工編號文本框、員工姓名文本框、員工性別單選按鈕、身份證號碼文本框、地址文本框、電子郵件文本框、聯(lián)系電話文本框、重置按鈕和添加按鈕。其中員工編號、身份證號碼、電子郵件、聯(lián)系電話是必須填寫的內(nèi)容，當(dāng)所有要錄入的內(nèi)容都填寫完成后點(diǎn)擊添加按鈕就會將新來的員工信息錄入到數(shù)據(jù)庫中存檔保存起來。添加員工的界面如圖45所示圖45添加員工信息界面管理員添加員工的主要代碼如下：Dim conn As New OleDbConnection(數(shù)據(jù)庫連接串) () Dim sql, str, str1 As String sql = insert into B_StaffPassword values(39。 + + 39。 + , + 39。 + + 39。 + , + 39。員工39。) str = select * from B_StaffPassword ,B_HouseStaff where StaffId=39。 + + 39。 str1 = insert into B_HouseStaff values(39。 + + 39。 + , + 39。 + + 39。 + , + 39。 + + 39。 + , + 39。 + + 39。 , 39。 + + 39。 , + 39。 + + 39。 + , + 39。 + + 39。) Dim cmd As New OleDbCommand(str, conn) Dim adp As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim ds As DataSet = New DataSet() (ds, 123) Dim dt As New DataTable(123) dt = (123) If 0 Then = 該用戶已存在，請重新輸入！ = Else excute(str1) excute(sql) = = 添加成功！ End If () 統(tǒng)計(jì)分析統(tǒng)計(jì)分析是為了統(tǒng)計(jì)房源總數(shù)、與成交的房源總數(shù)、訂單中未處理的房源總數(shù)在統(tǒng)計(jì)分析頁面中添加了查看房源總數(shù)按鈕、查看未成交房源總數(shù)按鈕、查看已成交房源總數(shù)按鈕、查看未處理房源總數(shù)按鈕以及四個label鍵用于顯示房源總數(shù)，當(dāng)分別點(diǎn)擊房源總數(shù)按鈕時就會在label鍵上顯示出來，另外還有查看未成交房源信息按鈕、查看未處理房源信息按鈕當(dāng)分別點(diǎn)擊他們時就會顯示相應(yīng)的信息。如圖46所示圖46統(tǒng)計(jì)分析界面統(tǒng)計(jì)分析的主要代碼如下：查看未成交房源信息主要代碼：Sub databinds1() Dim conn As OleDbConnection = New OleDbConnection(數(shù)據(jù)庫連接串) () Dim sql As String sql = select * from B_HouseTp where HouseState=39。139。 Dim cmd As OleDbCommand = New OleDbCommand(sql, conn) Dim dr As OleDbDataReader = () = dr () ()End Sub查看房源總數(shù)代碼如下：Sub excute1() Dim conn As OleDbConnection = New OleDbConnection(數(shù)據(jù)庫連接串) () Dim sql As String sql = select * from B_HouseTp Dim cmd As OleDbCommand = New OleDbCommand(sql, conn) Dim adp As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim ds As DataSet = New DataSet() (ds, 12) Dim dt As New DataTable(12) dt = (12) = () ()End Sub查看成交房源總數(shù)代碼如下：Sub excute() Dim conn As OleDbConnection = New OleDbConnection(數(shù)據(jù)庫連接串) () Dim sql As String sql = select * from B_HouseCJGL Dim cmd As OleDbCommand = New OleDbCommand(sql, conn) Dim adp As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim ds As DataSet = New DataSet() (ds, 12) Dim dt As New DataTable(12) dt = (12) = () ()End Sub 業(yè)績考核業(yè)績考核是對員工成交房源的一種考核方法，其中可以查看每一個員工成交房源的信息，在頁面中有一個Dropdownlist控件他的數(shù)據(jù)源與數(shù)據(jù)庫員工信息表綁定在一起當(dāng)點(diǎn)擊時可以選擇不同的員工編號然后再點(diǎn)擊頁面中查看員工成交房源信息按鈕就可以查看成交房源信息了并且在頁面中有一個label控件可以用來顯示每一位員工成交房源的總數(shù)。 查看員工成交房源信息如圖47所示圖47員工成交房源界面查看員工成交房源的主要代碼如下：Sub databindss() Dim conn As OleDbConnection = New OleDbConnection(數(shù)據(jù)庫連接串) () Dim sql As String sql = select * from B_HouseCJGL where StaffId=39。 + + 39。 Dim cmd As OleDbCommand = New OleDbCommand(sql, conn) Dim dr As OleDbDataReader = () = dr () ()End SubSub excut