正文內(nèi)容

房屋租賃管理系統(tǒng)源代碼(編輯修改稿)

2026-05-14 14:03 本頁(yè)面

　

【文章內(nèi)容簡(jiǎn)介】 Dim sqlhcheck As String Dim rs_hcheck As New sqlhcheck = select * from House where 房屋編號(hào) = 39。 amp。 Text1(8).Text amp。 39。 sqlhcheck, conn, adOpenStatic, adLockOptimistic If ThenMsgBox 該房屋編號(hào)不存在，請(qǐng)重填或清空！, vbOKOnly + vbInformation, 注意 Text1(8).SetFocus Exit Sub End If End If 39。添加數(shù)據(jù)后保存 If add = 1 Then 39。檢測(cè)房屋編號(hào)這個(gè)主鍵是否已經(jīng)在表中存在 Dim rs_check As New Dim sqlCheck As String sqlCheck = select * from QZClient where 求租客戶編號(hào)= 39。 amp。 (Text1(0).Text) amp。 39。 sqlCheck, conn, adOpenStatic, adLockOptimistic If Not And Not Then MsgBox 該求租客戶編號(hào)已經(jīng)存在，請(qǐng)重填一個(gè)！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。主鍵不重復(fù)，可以加入表中 For i = 0 To 9 (i) = Text1(i).Text Next i 39。添加之后顯示總共條數(shù)信息加 1 = Val() + 1 39。修改數(shù)據(jù)后的保存 Else End If MsgBox 保存數(shù)據(jù)成功！, vbOKOnly + vbInformation, 祝賀 39。保存后需要設(shè)置其他按鈕可用，以及各個(gè)text框不可寫(xiě) = True = True = True = False = False = True = True = True = True = True = True For i = 0 To 9 Text1(i).Enabled = False Next i End Sub1．3 租賃管理模塊的設(shè)計(jì)1．3 .1簽訂合同的設(shè)計(jì)因租賃管理，財(cái)務(wù)管理和統(tǒng)計(jì)報(bào)表三個(gè)模塊的窗體設(shè)計(jì)比較多，無(wú)法一一描述，故選擇有代表性的窗體設(shè)計(jì)加以分析，其合同簽訂窗體的運(yùn)行效果圖如下:如圖所示,簽訂的源碼設(shè)計(jì)如下:Private Sub cmdSign_Click() 39。先檢查輸入數(shù)據(jù)完整性 For i = 0 To 2 If Text1(i).Text = Then MsgBox 除備注外的所有項(xiàng)不可為空！, vbOKOnly + vbInformation, 注意 Text1(i).SetFocus Exit Sub End If Next i For i = 3 To 4 If Text1(i).Text = Or IsDate(Text1(i).Text) = False ThenMsgBox 日期應(yīng)為這樣的格式：2003715！, vbOKOnly + vbInformation, 注意 Text1(i).SetFocus Exit Sub End If Next i If Text1(6).Text = Or IsNumeric(Text1(6).Text) = False Then MsgBox 月租金應(yīng)為數(shù)字！, vbOKOnly + vbInformation, 注意 Text1(6).SetFocus Exit Sub End If If Text1(8).Text = Or IsNumeric(Text1(8).Text) = False Then MsgBox 押金應(yīng)為數(shù)字！, vbOKOnly + vbInformation, 注意 Text1(8).SetFocus Exit Sub End If If Text1(9).Text = Then MsgBox 業(yè)務(wù)員不可為空！, vbOKOnly + vbInformation, 注意 Text1(9).SetFocus Exit Sub End If If Text1(10).Text = Or IsDate(Text1(10).Text) = False ThenMsgBox 簽訂日期應(yīng)為這樣的格式：2003715！, vbOKOnly + vbInformation, 注意 Text1(10).SetFocus Exit Sub End If 39。止租日期不能前于起租日期 If DateValue(Text1(4).Text) DateValue(Text1(3).Text) Then MsgBox 止租日期不能前于起租日期, vbOKOnly + vbInformation, 注意 Text1(4).SetFocus Exit Sub End If 39。租期等于起租日期和止租日期之差，結(jié)尾不足一月，按一月計(jì)。 39。使用datediff 函數(shù)計(jì)算日期之差 Text1(5).Text = Int(DateDiff(d, DateValue(Text1(3).Text), DateValue(Text1(4).Text)) / 31) + 1 39。總租金等于月租金乘以租期 Text1(7).Text = Val(Text1(5).Text) * Val(Text1(6).Text) 39。檢查完數(shù)據(jù)完整性后，還需要檢查該客戶是否已存入租戶表中，以及該房屋是否為未出租或預(yù)定狀態(tài) sqlc = select * from Client where 租戶姓名 = 39。 amp。 Text1(1).Text amp。 39。 sqlc, conn, adOpenStatic, adLockOptimistic If = True Then MsgBox 該客戶資料還未存入租戶資料表中，請(qǐng)先錄入該客戶資料！, vbOKOnly + vbInformation, 注意 Exit Sub End If 39。檢測(cè)房屋狀態(tài) sqlh = select * from House where 房屋編號(hào) = 39。 amp。 Text1(2).Text amp。 39。 sqlh, conn, adOpenStatic, adLoc

點(diǎn)擊復(fù)制文檔內(nèi)容

公司管理相關(guān)推薦

學(xué)生成績(jī)管理系統(tǒng)源代碼-資料下載頁(yè)

【總結(jié)】一、課程設(shè)計(jì)（論文）題目學(xué)生成績(jī)管理系統(tǒng)二、本次課程設(shè)計(jì)（論文）應(yīng)達(dá)到的目的通過(guò)數(shù)據(jù)庫(kù)大作業(yè)課程設(shè)計(jì)的操作與實(shí)踐，使學(xué)生了解關(guān)系數(shù)據(jù)庫(kù)的相關(guān)理論知識(shí)和有關(guān)工具軟件的使用技巧，在一定程度上提高應(yīng)用程序的綜合開(kāi)發(fā)能力和創(chuàng)新意識(shí)、創(chuàng)新能力。三、本次課程設(shè)計(jì)（論文）任務(wù)的主要內(nèi)容和要

2026-03-29 23:06

c圖書(shū)管理系統(tǒng)源代碼-資料下載頁(yè)

【總結(jié)】圖書(shū)管理系統(tǒng)系統(tǒng)功能：1．借書(shū)：根據(jù)借書(shū)人提出的圖書(shū)編號(hào)（id）查詢?cè)搱D書(shū)，如果該圖書(shū)現(xiàn)存量（store）不為0，則提示輸入借閱者的學(xué)號(hào)（num），為借書(shū)人辦理借書(shū)手續(xù)，提示用戶該書(shū)已被借出。2．歸書(shū)：根據(jù)借書(shū)人的學(xué)號(hào)查詢?cè)撟x者的信息，若有該讀者，則提示輸入所借書(shū)籍的編號(hào)（id）,為該讀者辦理還書(shū)手續(xù)，提示該書(shū)已還。：彈出書(shū)籍管理界面，輸入所要執(zhí)行操作的號(hào)碼：

2026-03-29 05:20

家譜管理系統(tǒng)含源代碼資料-資料下載頁(yè)

【總結(jié)】家譜管理系統(tǒng)——C語(yǔ)言（數(shù)據(jù)結(jié)構(gòu)）目的和要求：樹(shù)形結(jié)構(gòu)是一種非常重要的非線性結(jié)構(gòu)，它用于描述數(shù)據(jù)元素之間的層次關(guān)系，人類家譜是樹(shù)形結(jié)構(gòu)的典型體現(xiàn)，通過(guò)此項(xiàng)訓(xùn)練讓學(xué)生掌握樹(shù)形結(jié)構(gòu)的知識(shí)；使學(xué)生重點(diǎn)掌握樹(shù)與二叉樹(shù)的轉(zhuǎn)換，二叉樹(shù)的存儲(chǔ)和遍歷，和二叉樹(shù)相關(guān)的一些運(yùn)算；要求完成家譜信息的錄入和保存，任意成員的查找及某一成員祖先、子孫、兄弟、堂兄弟的查找。排答疑和輔導(dǎo)。完

2026-03-30 22:45

工廠倉(cāng)庫(kù)管理系統(tǒng)(vbaccess源代碼)-資料下載頁(yè)

【總結(jié)】倉(cāng)庫(kù)管理系統(tǒng)項(xiàng)目的建立，現(xiàn)圖文結(jié)合的方式一步一步展現(xiàn)制作過(guò)程。由于本人是個(gè)初學(xué)者，里面存在很多不足之處望得到高手們的指導(dǎo)。此文可作供初學(xué)者們學(xué)習(xí)交流。作者聯(lián)系方式：E-mail@QQ：1355044347最終運(yùn)行效果打開(kāi)軟件出現(xiàn)如下登錄界面輸入系統(tǒng)預(yù)設(shè)用戶名及密碼（11）單擊“登錄”或單擊“新用戶”添加新用戶進(jìn)入如下主界面：建立工

2026-03-29 21:18

c工資管理系統(tǒng)源代碼-資料下載頁(yè)

【總結(jié)】#include#include#include#includeusingnamespacestd;doublesum,avarage;intamount=0;intab=0,cd=0,ef=0;ofstream*file[50];

2026-03-29 05:21

倉(cāng)庫(kù)管理系統(tǒng)vbaccess源代碼資料-資料下載頁(yè)

2026-03-29 12:11

學(xué)生成績(jī)管理系統(tǒng)源代碼-資料下載頁(yè)

【總結(jié)】#include#include#include#includestructstudent//結(jié)構(gòu)體定義{ intnum;charname[10]; charbirthday[10]; intCyuyan;intshujujiegou; stru

2026-07-15 18:51

vb汽車銷售管理系統(tǒng)源代碼-資料下載頁(yè)

【總結(jié)】南通紡院畢業(yè)(設(shè)計(jì))論文1第一章引言目前，大量的中小企業(yè)中，存在這樣的現(xiàn)象：分散的、不連貫的客戶信息使企業(yè)管理者或企業(yè)相關(guān)人員無(wú)法看到客戶的全部資料及相關(guān)資料，信息的分散使得產(chǎn)生的結(jié)果也無(wú)法保持一致性和完整性，造成中小企業(yè)在銷售管理上存如下問(wèn)題：無(wú)法分類統(tǒng)計(jì)客戶信息（對(duì)客戶分類極為混亂）？無(wú)法準(zhǔn)確全面掌握各業(yè)務(wù)進(jìn)

2026-05-05 00:45

c圖書(shū)管理系統(tǒng)源代碼-資料下載頁(yè)

2026-07-31 16:11

c圖書(shū)管理系統(tǒng)源代碼-資料下載頁(yè)

【總結(jié)】：1．借書(shū)：根據(jù)借書(shū)人提出的圖書(shū)編號(hào)（id）查詢?cè)搱D書(shū)，如果該圖書(shū)現(xiàn)存量（store）不為0，則提示輸入借閱者的學(xué)號(hào)（num），為借書(shū)人辦理借書(shū)手續(xù)，提示用戶該書(shū)已被借出。2．歸書(shū)：根據(jù)借書(shū)人的學(xué)號(hào)查詢?cè)撟x者的信息，若有該讀者，則提示輸入所借書(shū)籍的編號(hào)（id）,為該讀者辦理還書(shū)手續(xù)，提示該書(shū)已還。：彈出書(shū)籍管理界面，

2026-01-11 14:48

房屋租賃管理系統(tǒng)源代碼(編輯修改稿)

學(xué)生成績(jī)管理系統(tǒng)源代碼-資料下載頁(yè)

c圖書(shū)管理系統(tǒng)源代碼-資料下載頁(yè)

家譜管理系統(tǒng)含源代碼資料-資料下載頁(yè)

工廠倉(cāng)庫(kù)管理系統(tǒng)(vbaccess源代碼)-資料下載頁(yè)

c工資管理系統(tǒng)源代碼-資料下載頁(yè)

倉(cāng)庫(kù)管理系統(tǒng)vbaccess源代碼資料-資料下載頁(yè)

學(xué)生成績(jī)管理系統(tǒng)源代碼-資料下載頁(yè)

vb汽車銷售管理系統(tǒng)源代碼-資料下載頁(yè)

c圖書(shū)管理系統(tǒng)源代碼-資料下載頁(yè)

c圖書(shū)管理系統(tǒng)源代碼-資料下載頁(yè)

圖書(shū)管理系統(tǒng)源代碼-資料下載頁(yè)

操作系統(tǒng)源代碼-資料下載頁(yè)

企業(yè)人事管理系統(tǒng)java源代碼-資料下載頁(yè)

c圖書(shū)管理系統(tǒng)源代碼文檔-資料下載頁(yè)

csharp圖書(shū)管理系統(tǒng)源代碼文檔-資料下載頁(yè)

房屋租賃管理系統(tǒng)源代碼-文庫(kù)吧資料

房屋租賃管理系統(tǒng)源代碼-展示頁(yè)

房屋租賃管理系統(tǒng)源代碼-在線瀏覽

房屋租賃管理系統(tǒng)源代碼-閱讀頁(yè)

房屋租賃管理系統(tǒng)源代碼(文件)