mdifrmmain.frm

本课题为实践课题

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIfrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "房屋租赁管理系统"
   ClientHeight    =   5325
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   6915
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  'CenterScreen
   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         =   "租金统计"
         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         =   "合同续签"
      End
      Begin VB.Menu mnAdminContract 
         Caption         =   "合同管理"
      End
      Begin VB.Menu mnPreContract 
         Caption         =   "预定租房"
      End
      Begin VB.Menu mnQueryContract 
         Caption         =   "合同查询"
      End
      Begin VB.Menu mnQueryPreContract 
         Caption         =   "预定单查询"
      End
      Begin VB.Menu mnRemind 
         Caption         =   "出租到期提醒"
      End
      Begin VB.Menu mnRemindYD 
         Caption         =   "预定到期提醒"
      End
   End
   Begin VB.Menu mnFinance 
      Caption         =   "财务管理"
      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         =   "统计报表"
      Begin VB.Menu mnHouseTg 
         Caption         =   "房屋统计报表"
      End
      Begin VB.Menu mnClientTg 
         Caption         =   "租户信息表"
      End
      Begin VB.Menu mnQiuZuClientTg 
         Caption         =   "求租客户信息表"
      End
      Begin VB.Menu mnOldClientTg 
         Caption         =   "历史租户表"
      End
      Begin VB.Menu mnContractTg 
         Caption         =   "现有合同表"
      End
      Begin VB.Menu mnOldConTg 
         Caption         =   "历史合同表"
      End
      Begin VB.Menu mnYuDingTg 
         Caption         =   "预定单统计"
      End
      Begin VB.Menu mnYaDingTg 
         Caption         =   "押金、定金统计"
      End
      Begin VB.Menu mnZuJinTg 
         Caption         =   "租金统计报表"
      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()
   ' 在主窗体中打开对数据库的连接
   Dim strCnn As String   '定义一个连接串变量
   strCnn = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ZuFangGuanLi"
   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 "今日没有预定到期！", vbOKOnly + vbInformation, "预定到期提醒："
      rs_yd.Close
      Exit Sub
   Else
      MsgBox "预定单编号为：" & YdNo & "的预定单今日到期！", vbOKOnly + vbInformation, "预定到期提醒："
      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