VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm MDIfrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "房屋租賃型物業(yè)管理系統(tǒng)"
   ClientHeight    =   5325
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   6915
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6915
      _ExtentX        =   12197
      _ExtentY        =   1111
      ButtonWidth     =   609
      ButtonHeight    =   953
      Appearance      =   1
      _Version        =   393216
      Begin VB.CommandButton cmdExit 
         Caption         =   "退 出"
         Height          =   615
         Left            =   4920
         TabIndex        =   6
         Top             =   0
         Width           =   855
      End
      Begin VB.CommandButton cmdTgZhu 
         Caption         =   "租金統(tǒng)計"
         Height          =   615
         Left            =   3840
         TabIndex        =   5
         Top             =   0
         Width           =   1095
      End
      Begin VB.CommandButton cmdZhuJin 
         Caption         =   "租金收取"
         Height          =   615
         Left            =   2880
         TabIndex        =   4
         Top             =   0
         Width           =   975
      End
      Begin VB.CommandButton cmdQuery 
         Caption         =   "合同查詢"
         Height          =   615
         Left            =   1920
         TabIndex        =   3
         Top             =   0
         Width           =   975
      End
      Begin VB.CommandButton cmdSign 
         Caption         =   "合同簽訂"
         Height          =   615
         Left            =   960
         TabIndex        =   2
         Top             =   0
         Width           =   975
      End
      Begin VB.CommandButton cmdHouse 
         Caption         =   "房屋資料"
         Height          =   615
         Index           =   0
         Left            =   0
         TabIndex        =   1
         Top             =   0
         Width           =   975
      End
   End
   Begin VB.Menu mnBasicData 
      Caption         =   "基本資料"
      Begin VB.Menu mnHouse 
         Caption         =   "房屋基本資料"
      End
   End
   Begin VB.Menu mnClientData 
      Caption         =   "客戶資料"
      Begin VB.Menu mnClient 
         Caption         =   "租戶基本資料"
      End
      Begin VB.Menu mnQZClient 
         Caption         =   "求租客戶資料"
      End
   End
   Begin VB.Menu mnZulin 
      Caption         =   "租賃管理"
      Begin VB.Menu mnSignContract 
         Caption         =   "合同簽訂"
      End
      Begin VB.Menu mnXuQian 
         Caption         =   "合同續(xù)簽"
      End
      Begin VB.Menu mnAdminContract 
         Caption         =   "合同管理"
      End
      Begin VB.Menu mnPreContract 
         Caption         =   "預(yù)定租房"
      End
      Begin VB.Menu mnQueryContract 
         Caption         =   "合同查詢"
      End
      Begin VB.Menu mnQueryPreContract 
         Caption         =   "預(yù)定單查詢"
      End
      Begin VB.Menu mnRemind 
         Caption         =   "出租到期提醒"
      End
      Begin VB.Menu mnRemindYD 
         Caption         =   "預(yù)定到期提醒"
      End
   End
   Begin VB.Menu mnFinance 
      Caption         =   "財務(wù)管理"
      Begin VB.Menu mnDingJin 
         Caption         =   "定金收取"
      End
      Begin VB.Menu mnYaJin 
         Caption         =   "押金收取"
      End
      Begin VB.Menu mnZuJin 
         Caption         =   "租金收取"
      End
      Begin VB.Menu mnAdminZuJin 
         Caption         =   "租金管理"
      End
      Begin VB.Menu mnDingJinBack 
         Caption         =   "定金退還"
      End
      Begin VB.Menu mnYaJinBack 
         Caption         =   "押金退還"
      End
   End
   Begin VB.Menu mnTg 
      Caption         =   "統(tǒng)計報表"
      Begin VB.Menu mnHouseTg 
         Caption         =   "房屋統(tǒng)計報表"
      End
      Begin VB.Menu mnClientTg 
         Caption         =   "租戶信息表"
      End
      Begin VB.Menu mnQiuZuClientTg 
         Caption         =   "求租客戶信息表"
      End
      Begin VB.Menu mnOldClientTg 
         Caption         =   "歷史租戶表"
      End
      Begin VB.Menu mnContractTg 
         Caption         =   "現(xiàn)有合同表"
      End
      Begin VB.Menu mnOldConTg 
         Caption         =   "歷史合同表"
      End
      Begin VB.Menu mnYuDingTg 
         Caption         =   "預(yù)定單統(tǒng)計"
      End
      Begin VB.Menu mnYaDingTg 
         Caption         =   "押金、定金統(tǒng)計"
      End
      Begin VB.Menu mnZuJinTg 
         Caption         =   "租金統(tǒng)計報表"
      End
   End
End
Attribute VB_Name = "MDIfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
   Unload Me
End Sub

Private Sub cmdHouse_Click(Index As Integer)
   frmHouse.Show
End Sub

Private Sub cmdQuery_Click()
   frmQueryContract.Show
End Sub

Private Sub cmdSign_Click()
   frmSignContract.Show
End Sub

Private Sub cmdTgZhu_Click()
  frmTgZuJin.Show
End Sub

Private Sub cmdZhuJin_Click()
  frmPayZuJin.Show
End Sub

Private Sub MDIForm_Load()
   ' 在主窗體中打開對數(shù)據(jù)庫的連接
   Dim strCnn As String   '定義一個連接串變量
   strCnn = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ZuFang"
   conn.Open strCnn
   
   Dim X0 As Long
   Dim Y0 As Long
   '讓窗體居中
   X0 = Screen.Width
   Y0 = Screen.Height
   X0 = (X0 - Me.Width) / 2
   Y0 = (Y0 - Me.Height) / 2
   Me.Move X0, Y0
End Sub

Private Sub mnAdminContract_Click()
   frmAdminContract.Show
End Sub

Private Sub mnAdminZuJin_Click()
   frmAdminZuJin.Show
End Sub

Private Sub mnClient_Click()
   frmClient.Show
End Sub

Private Sub mnEmp_Click()
   frmEmp.Show
End Sub

Private Sub mnClientTg_Click()
   frmTgClient.Show
End Sub

Private Sub mnContractTg_Click()
   frmTgContract.Show
End Sub

Private Sub mnDingJin_Click()
   frmPayDingJin.Show
End Sub

Private Sub mnDingJinBack_Click()
   frmQueryDingJin.Show
End Sub

Private Sub mnHouse_Click()
   frmHouse.Show
End Sub

Private Sub mnHouseTg_Click()
   frmTgHouse.Show
End Sub

Private Sub mnOldClientTg_Click()
   frmTgOldClient.Show
End Sub

Private Sub mnOldConTg_Click()
   frmTgOldContract.Show
End Sub

Private Sub mnPreContract_Click()
   frmYuDing.Show
End Sub

Private Sub mnQiuZuClientTg_Click()
   frmTgQZClient.Show
End Sub

Private Sub mnQueryContract_Click()
   frmQueryContract.Show
End Sub

Private Sub mnQueryPreContract_Click()
   frmQueryYuDing.Show
End Sub

Private Sub mnQZClient_Click()
   frmQZClient.Show
End Sub

Private Sub mnRemind_Click()
   '出租到期提醒，直接彈出對話框，提醒用戶到期合同，不需要其他窗體
   Dim sqlcon As String
   Dim rs_con As New ADODB.Recordset
   sqlcon = "select * from Contract where 止租日期 = #" & Date & "#"
   rs_con.Open sqlcon, conn, adOpenStatic, adLockOptimistic
   If rs_con.EOF Then
      MsgBox "今日沒有出租到期！", vbOKOnly + vbInformation, "出租到期提醒："
      rs_con.Close
      Exit Sub
   Else
      Dim conNo As String
      conNo = rs_con.Fields(0)
      rs_con.MoveNext
      Do While rs_con.EOF = False
         conNo = conNo & "," & rs_con.Fields(0)
         rs_con.MoveNext
      Loop
      MsgBox "合同編號為：" & conNo & " 的合同今日到期！", vbOKOnly + vbInformation, "出租到期提醒："
      rs_con.Close
      Exit Sub
   End If
   
End Sub

Private Sub mnRemindYD_Click()
   '出租到期提醒，直接彈出對話框，提醒用戶到期合同，不需要其他窗體
   Dim sqlyd As String
   Dim rs_yd As New ADODB.Recordset
   sqlyd = "select * from YuDing "
   rs_yd.Open sqlyd, conn, adOpenStatic, adLockOptimistic
   Dim YdNo As String
   YdNo = " "
   Do While rs_yd.EOF = False
      If DateAdd("d", rs_yd.Fields(4), rs_yd.Fields(8)) = Date Then
         YdNo = YdNo & rs_yd.Fields(0) & " "
      End If
      rs_yd.MoveNext
   Loop
   
   If YdNo = " " Then
      MsgBox "今日沒有預(yù)定到期！", vbOKOnly + vbInformation, "預(yù)定到期提醒："
      rs_yd.Close
      Exit Sub
   Else
      MsgBox "預(yù)定單編號為：" & YdNo & "的預(yù)定單今日到期！", vbOKOnly + vbInformation, "預(yù)定到期提醒："
      rs_yd.Close
      Exit Sub
   End If
End Sub

Private Sub mnSignContract_Click()
   frmSignContract.Show
End Sub

Private Sub mnXuQian_Click()
   frmXuQianNo.Show
   
End Sub

Private Sub mnYaDingTg_Click()
   frmTgYaDing.Show
End Sub

Private Sub mnYaJin_Click()
  frmPayYaJin.Show
End Sub

Private Sub mnYaJinBack_Click()
  frmQueryYaJin.Show
End Sub

Private Sub mnYuDingTg_Click()
  frmTgYuDing.Show
End Sub

Private Sub mnZuJin_Click()
  frmPayZuJin.Show
End Sub

Private Sub mnZuJinTg_Click()
  frmTgZuJin.Show
End Sub