房屋租賃管理系統(tǒng)源代碼-資料下載頁
2025-04-17 14:03本頁面
【正文】 Exit Sub End If1．3 .2預(yù)定租房的設(shè)計 其收取定金的設(shè)計如下：Private Sub cmdDingJin_Click() fromYuding = True = False End Sub1．4財務(wù)管理模塊的設(shè)計1．4 .1定金收取的設(shè)計系統(tǒng)維護(hù)的運行效果圖如下: 其收取定金按鈕的源碼設(shè)計如下:Private Sub cmdAdd_Click() 39。先檢測數(shù)據(jù)完整性 If Text1(0).Text = Then MsgBox 收費編號不可為空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub End If If Text1(2).Text = Or IsDate(Text1(2).Text) = False Then MsgBox 收費日期應(yīng)為這樣的日期格式：200383！, vbOKOnly + vbInformation, 注意 Text1(2).SetFocus Exit Sub End If If Text1(3).Text = Then MsgBox 預(yù)定單編號不可為空！, vbOKOnly + vbInformation, 注意 Text1(3).SetFocus Exit Sub End If 39。檢測該收費編號是否已存在 sqlch = select * from DingJin where 收費編號 = 39。 amp。 Text1(0).Text amp。 39。 sqlch, conn, adOpenStatic, adLockOptimistic If = False ThenMsgBox 該收費編號已經(jīng)存在，請重新輸入一個！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub End If 39。還需要檢測預(yù)定單編號是否存在、并且自動寫入預(yù)定客戶和預(yù)定房屋編號 sqlyd = select * from YuDing where 預(yù)定單編號 = 39。 amp。 Text1(3).Text amp。 39。 sqlyd, conn, adOpenStatic, adLockOptimistic If = True Then MsgBox 該預(yù)定單編號不存在！, vbOKOnly + vbInformation, 注意 Text1(3).SetFocus Exit Sub Else Text1(1).Text = (3) Text1(4).Text = (1) Text1(5).Text = (2) End If 39。加入定金收費表 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è)計雷同，故不作重點描述。1．5 統(tǒng)計報表模塊的設(shè)計在該模塊中不作按鈕的源碼分析1．5．1 房屋統(tǒng)計報表的設(shè)計其運行圖如下:1．5．2 租戶信息表1．5．3 求租客戶信息表1．5．4 租金統(tǒng)計表的設(shè)計統(tǒng)計按鈕的源碼分析如下:Private Sub cmdTg_Click() 39。統(tǒng)計按鈕按照bo2的選擇進(jìn)行統(tǒng)計 39。，sqltg = select amp。 amp。 , sum(應(yīng)交租金) as 應(yīng)交租金總額, sum(已交租金) as amp。 _ 已交租金總額, sum (欠費金額) as 欠費總額 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號-1