mdi_frm.frm

前些年帮人写的毕业设计

VERSION 5.00
Begin VB.MDIForm MDI_Frm 
   BackColor       =   &H8000000C&
   Caption         =   "物业管理系统"
   ClientHeight    =   5040
   ClientLeft      =   2400
   ClientTop       =   2040
   ClientWidth     =   6660
   Icon            =   "MDI_Frm.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   1  '所有者中心
   WindowState     =   2  'Maximized
   Begin VB.Menu xtcz 
      Caption         =   "系统操作"
      Begin VB.Menu xgmm 
         Caption         =   "修改密码"
      End
      Begin VB.Menu sjql 
         Caption         =   "数据清理"
      End
      Begin VB.Menu qksj 
         Caption         =   "清空数据"
      End
      Begin VB.Menu sjbf 
         Caption         =   "数据备份"
      End
      Begin VB.Menu sjhf 
         Caption         =   "数据恢复"
      End
      Begin VB.Menu tc 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu jczl 
      Caption         =   "基础资料管理"
      Begin VB.Menu yzgl 
         Caption         =   "业主档案管理"
      End
      Begin VB.Menu fcgl 
         Caption         =   "房产资料管理"
      End
      Begin VB.Menu lsjf 
         Caption         =   "历史交费记录"
      End
   End
   Begin VB.Menu rccz 
      Caption         =   "日常操作"
      Begin VB.Menu sdsf 
         Caption         =   "水电数据管理"
      End
      Begin VB.Menu sfdj 
         Caption         =   "收费登记"
      End
      Begin VB.Menu cxtj 
         Caption         =   "查询统计"
      End
   End
   Begin VB.Menu bbgl 
      Caption         =   "报表管理"
      Begin VB.Menu sftz 
         Caption         =   "收费通知单"
      End
      Begin VB.Menu wjf 
         Caption         =   "未交费业主清单"
      End
      Begin VB.Menu cjtz 
         Caption         =   "催缴通知单"
      End
   End
End
Attribute VB_Name = "MDI_Frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub cjtz_Click()
    Frm_shoufei_cj.Show
    Frm_shoufei_cj.ZOrder 0
End Sub

Private Sub cxtj_Click()
    Frm_sfcx.Show
    Frm_sfcx.ZOrder 0
End Sub

Private Sub fcgl_Click()
    Frm_fangchan.Show
    Frm_fangchan.ZOrder 0
End Sub

Private Sub lsjf_Click()
    Frm_shoufei_chaxun.Show
    Frm_shoufei_chaxun.ZOrder 0
    
End Sub

Private Sub qksj_Click()
    On Error GoTo myerr
    Dim cn As ADODB.Connection
    msg = MsgBox("是否清空数据库？", vbYesNo + vbQuestion, "提示")
    If msg = vbNo Then Exit Sub
    cn.BeginTrans
    On Error GoTo errcl
    cn.Execute "delete from fangchan"
    cn.Execute "delete from yezhu"
    cn.Execute "delete from jiaofei"
    cn.CommitTrans
    cn.Close
    MsgBox "全部数据已清空！", vbExclamation, "提示"
    Exit Sub
errcl:
    cn.RollbackTrans
myerr:
    MsgBox Error, vbExclamation, "提示"
    
End Sub

Private Sub sdsf_Click()
    Frm_sdgl.Show
    Frm_sdgl.ZOrder 0
End Sub

Private Sub sfdj_Click()
    Frm_shoufei.Show
    Frm_shoufei.ZOrder 0
    
End Sub

Private Sub sftz_Click()
    Frm_shoufei_tz.Show
    Frm_shoufei_tz.ZOrder 0
End Sub

Private Sub sjbf_Click()
    Frm_beifen.Show
    Frm_beifen.ZOrder 0
End Sub

Private Sub sjhf_Click()
    Frm_huanyuan.Show
    Frm_huanyuan.ZOrder 0
End Sub

Private Sub sjql_Click()
    Frm_sjql.Show
    Frm_sjql.ZOrder 0
    
End Sub

Private Sub tc_Click()
    End
End Sub

Private Sub wjf_Click()
    Frm_shoufei_wei.Show
    Frm_shoufei_wei.ZOrder 0
End Sub

Private Sub xgmm_Click()
    Frm_mima.Show 1
    
End Sub

Private Sub yzgl_Click()
    Frm_yezhu.Show
    Frm_yezhu.ZOrder 0
End Sub