房屋租賃管理系統(tǒng)源代碼-資料下載頁
2025-04-17 14:03本頁面
【正文】 Exit Sub End If1．3 .2預(yù)定租房的設(shè)計(jì) 其收取定金的設(shè)計(jì)如下：Private Sub cmdDingJin_Click() fromYuding = True = False End Sub1．4財(cái)務(wù)管理模塊的設(shè)計(jì)1．4 .1定金收取的設(shè)計(jì)系統(tǒng)維護(hù)的運(yùn)行效果圖如下: 其收取定金按鈕的源碼設(shè)計(jì)如下:Private Sub cmdAdd_Click() 39。先檢測(cè)數(shù)據(jù)完整性 If Text1(0).Text = Then MsgBox 收費(fèi)編號(hào)不可為空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub End If If Text1(2).Text = Or IsDate(Text1(2).Text) = False Then MsgBox 收費(fèi)日期應(yīng)為這樣的日期格式：200383！, vbOKOnly + vbInformation, 注意 Text1(2).SetFocus Exit Sub End If If Text1(3).Text = Then MsgBox 預(yù)定單編號(hào)不可為空！, vbOKOnly + vbInformation, 注意 Text1(3).SetFocus Exit Sub End If 39。檢測(cè)該收費(fèi)編號(hào)是否已存在 sqlch = select * from DingJin where 收費(fèi)編號(hào) = 39。 amp。 Text1(0).Text amp。 39。 sqlch, conn, adOpenStatic, adLockOptimistic If = False ThenMsgBox 該收費(fèi)編號(hào)已經(jīng)存在，請(qǐng)重新輸入一個(gè)！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub End If 39。還需要檢測(cè)預(yù)定單編號(hào)是否存在、并且自動(dòng)寫入預(yù)定客戶和預(yù)定房屋編號(hào) sqlyd = select * from YuDing where 預(yù)定單編號(hào) = 39。 amp。 Text1(3).Text amp。 39。 sqlyd, conn, adOpenStatic, adLockOptimistic If = True Then MsgBox 該預(yù)定單編號(hào)不存在！, vbOKOnly + vbInformation, 注意 Text1(3).SetFocus Exit Sub Else Text1(1).Text = (3) Text1(4).Text = (1) Text1(5).Text = (2) End If 39。加入定金收費(fèi)表 sqlpay = select * from DingJin sqlpay, conn, adOpenStatic, adLockOptimistic For i = 0 To 6 (i) = Text1(i) Next i MsgBox 收取定金成功！, vbOKOnly + vbInformation, 注意 39。添加完后，需要設(shè)置收取定金按鈕不可用 = False End Sub押金跟租金的收取跟定金收取的設(shè)計(jì)雷同，故不作重點(diǎn)描述。1．5 統(tǒng)計(jì)報(bào)表模塊的設(shè)計(jì)在該模塊中不作按鈕的源碼分析1．5．1 房屋統(tǒng)計(jì)報(bào)表的設(shè)計(jì)其運(yùn)行圖如下:1．5．2 租戶信息表1．5．3 求租客戶信息表1．5．4 租金統(tǒng)計(jì)表的設(shè)計(jì)統(tǒng)計(jì)按鈕的源碼分析如下:Private Sub cmdTg_Click() 39。統(tǒng)計(jì)按鈕按照bo2的選擇進(jìn)行統(tǒng)計(jì) 39。，sqltg = select amp。 amp。 , sum(應(yīng)交租金) as 應(yīng)交租金總額, sum(已交租金) as amp。 _ 已交租金總額, sum (欠費(fèi)金額) as 欠費(fèi)總額 from ZuJin group by amp。 _ amp。 order by amp。 If = adStateOpen Then End If = adUseClient sqltg, conn, adOpenStatic, adLockOptimistic 39。設(shè)置DataGrid2的數(shù)據(jù)源 Set = rs_tg End Sub360推廣 plii8DypLu8636 / 36
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1