【文章內(nèi)容簡介】 和查詢。 查詢操作 txtSql = select HouseId as 房源編號,HouseName as 房源名稱,ViewTime as 看房時間, txtSql = txtSql + ViewYMD as 看房年月日,ClientNum as 客戶人數(shù),ClientIDCard as 客戶身份證號 If = Then txtSql = txtSql + from tbHousePre order by HouseId Else txtSql = txtSql + from tbHousePre where ClientIDCard=39。 + + 39。 order by HouseId 修改操作 txtSql = update tbHousePre set HouseName=39。 + Trim() + 39。, txtSql = txtSql + ClientNum=39。 + Trim() + 39。, txtSql = txtSql + ClientIDCard=39。 + Trim() + 39。 txtSql = txtSql + where HouseId=39。 + Trim() + 39。 txtSql = txtSql + and ViewYMD=39。 + Trim(strViewYMD) + 39。 txtSql = txtSql + and ViewTime=39。 + Trim(strViewTime) + 39。 result = ExecuteSQL(txtSql, rstView, True) MsgBox 修改成功, vbOKOnly + vbExclamation, 警告 添加操作 txtSql = txtSql + values(39。 + Trim() + 39。,39。 txtSql = txtSql + Trim() + 39。,39。 txtSql = txtSql + strViewTime + 39。,39。 txtSql = txtSql + strViewYMD + 39。,39。 txtSql = txtSql + Trim() + 39。,39。 txtSql = txtSql + Trim() + 39。) result = ExecuteSQL(txtSql, rstView, True) MsgBox 客戶看房記錄添加成功, vbOKOnly + vbExclamation, 警告 刪除操作txtSql = delete from tbSaleMan where SaleManId=39。 + strSaleManId + 39。results = ExecuteSQL(txtSql, rstEmp, True) MsgBox 刪除成功！, vbOKOnly + vbExclamation, 警告 連接數(shù)據(jù)庫 Public Function ConnectString() As String ConnectString = FileDSN=。UID=sa。PWD=saEnd Function 系統(tǒng)模塊39。 ******************************************************************************39。系統(tǒng)公共變量定義39。 ******************************************************************************Option ExplicitPublic gUserName As StringPublic gUserKind As StringPublic gLoginSucceeded As Boolean39。 ******************************************************************************39。過程名：Main39。說 明：系統(tǒng)啟動函數(shù)39。參 數(shù)：無39。返回值：無39。 ******************************************************************************Sub Main() 39。啟動登陸窗體 Dim fLogin As New frmLogin vbModal If Not gLoginSucceeded Then MsgBox 系統(tǒng)啟動失敗,請重試!, vbOKOnly + vbExclamation, 警告 End If Unload fLoginEnd Sub 程序?qū)崿F(xiàn)關(guān)鍵代碼房屋居間合同管理39。 ******************************************************************************39。窗體公共變量定義39。 ******************************************************************************Option ExplicitPrivate txtSql As String 39。SQL語句Private result As Integer 39。datagrid中的顯示記錄數(shù)Public ContractFlag As String 39。判斷添加刪除標志Public strHouseId As String 39。房源編號Public strHouseName As String 39。房源名稱Public strSignDate As String 39。簽訂日期Public strSaleMoney As String 39。甲方實際售價Public strTaxDes As String 39。稅率說明Public strTax As String 39。稅金總計Public strMediMoney As String 39。中介費Public strPreMoney As String 39。定金Public strArea As String 39。建筑面積Public strBelong As String 39。權(quán)屬Public strYContact As String 39。乙方聯(lián)系方式Public strYTel As String 39。乙方聯(lián)系電話Public strYIDCard As String 39。乙方身份證號Public strJContact As String 39。甲方聯(lián)系方式Public strJTel As String 39。甲方聯(lián)系電話Public strJIDCard As String 39。甲方身份證號Public strYTimeLimit As String 39。乙方房款交全最后期限Public strJTimeLimit As String 39。甲方交房最后期限Public strPresent As String 39。甲方贈物記錄Public strJdelegate As String 39。甲方代表Public strYdelegate As String 39。乙方代表Public strBManName As String 39。丙方Private str As StringPrivate rstContract As Private results As StringPrivate Sub cmdAdd_Click() ContractFlag = add End SubPrivate Sub cmdClear_Click() Call ComboYear(cboYear) Call ComboMonth(cboMonth) Call ComboDate(cboDate)End SubPrivate Sub cmdDel_Click()Dim bIsEditable As BooleanIf Len(Trim(strHouseId)) = 0 Then 39。檢驗刪除記錄是否選定 MsgBox 請點擊單元格選擇刪除的記錄！, vbOKOnly + vbExclamation, 警告Else bIsEditable = IsEditable 39。判斷是否能夠?qū)贤M行刪除 If bIsEditable = False Then MsgBox 房屋交易已經(jīng)完成,不能進行更新, vbOKOnly + vbExclamation, 警告 Exit Sub End If str = MsgBox(是否刪除當前記錄？, vbOKCancel, 刪除當前記錄) If str = vbOK Then txtSql = delete from tbContractp where HouseId=39。 + strHouseId + 39。 results = ExecuteSQL(txtSql, rstContract, True) MsgBox 刪除成功！, vbOKOnly + vbExclamation, 警告 txtSql = update tbHouse set State=39。待售39。 where HouseId=39。 + strHouseId + 39。 results = ExecuteSQL(txtSql, rstContract, True) End If End If Call viewDataContractEnd SubPrivate Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdModify_Click()Dim bIsEditable As BooleanbIsEditable = IsEditableIf Trim(strHouseId) = Then MsgBox 請點擊單元格選擇修改記錄, vbOKOnly + vbExclamation, 警告Else 39。判斷是否能夠?qū)贤M行修改 If bIsEditable = False Then MsgBox 房屋交易已經(jīng)完成,不能進行更新, vbOKOnly + vbExclamation, 警告 Exit Sub End If ContractFlag = Modify End IfEnd Sub39。查詢操作Private Sub cmdQuery_Click()txtSql = select HouseId as 房源編號,HouseName as 房源名稱,SignDate as 簽訂日期,txtSql = txtSql + SaleMoney as 甲方實際售價,TaxDes as 稅率說明,Tax as 稅金總計,txtSql = txtSql + MediMoney as 中介費,PreMoney as 定金,Area as 建筑面積,Belong as 權(quán)屬,txtSql = txtSql + YContact as 乙方聯(lián)系方式,YTel as 乙方聯(lián)系電話,YIDCard as 乙方身份證號,JContact as 甲方聯(lián)系方式,txtSql = txtSql + JTel as 甲方聯(lián)系電話, JIDCard as 甲方身份證號,YTimeLimit as 乙方房款交全最后期限,