caidan.frm

简单的公寓管理系统

VERSION 5.00
Begin VB.Form caidan 
   Caption         =   "Form1"
   ClientHeight    =   4500
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7080
   DrawMode        =   14  'Copy Pen
   LinkTopic       =   "Form1"
   Picture         =   "caidan.frx":0000
   ScaleHeight     =   4500
   ScaleWidth      =   7080
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu input 
      Caption         =   "[添加数据]"
      Begin VB.Menu houseinput 
         Caption         =   "添加公寓基本情况"
      End
      Begin VB.Menu roominput 
         Caption         =   "添加寝室基本情况"
      End
      Begin VB.Menu studentinput 
         Caption         =   "添加学生基本情况"
      End
      Begin VB.Menu cleanerinput 
         Caption         =   "添加卫生检查基本情况"
      End
   End
   Begin VB.Menu output 
      Caption         =   "[打印报表]"
      Begin VB.Menu houseoutput 
         Caption         =   "公寓基本情况输出"
      End
      Begin VB.Menu roomoutput 
         Caption         =   "寝室基本情况输出"
      End
      Begin VB.Menu studentoutput 
         Caption         =   "学生基本情况输出"
      End
      Begin VB.Menu cleaneroutput 
         Caption         =   "卫生检查基本情况输出"
      End
   End
   Begin VB.Menu chaxun 
      Caption         =   "[查询输出]"
   End
   Begin VB.Menu weihu 
      Caption         =   "[数据维护]"
      Begin VB.Menu datacopy 
         Caption         =   "数据备份"
      End
      Begin VB.Menu datasave 
         Caption         =   "数据恢复"
      End
      Begin VB.Menu clean 
         Caption         =   "清库"
      End
   End
   Begin VB.Menu help 
      Caption         =   "[帮助]"
      Begin VB.Menu about 
         Caption         =   "关于..."
      End
   End
   Begin VB.Menu exit 
      Caption         =   "[退出]"
   End
End
Attribute VB_Name = "caidan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
 
  
 

Private Sub about_Click()
frmAbout.Show

End Sub

Private Sub chaxun_Click()
Form5.Show
caidan.Hide

End Sub

Private Sub clean_Click()
Dim mydb As Database
Dim dbpath As String
dbpath = App.Path & "\mydb.mdb"

If MsgBox("此功能将清楚库中所有记录，你确定要执行吗?", vbOKCancel) = vbOK Then


  Set mydb = OpenDatabase(dbpath)
  sql = "delete * from house"
  mydb.Execute sql
  sql = "delete * from room"
  mydb.Execute sql
  sql = "delete * from student"
  mydb.Execute sql
  sql = "delete * from cleaner"
  mydb.Execute sql
  MsgBox ("清库完毕!")
 
  
   
   
   
   
End If

End Sub

Private Sub cleanerinput_Click()
Form4.Show
caidan.Hide

End Sub

Private Sub cleaneroutput_Click()
DataReport4.Show

End Sub

Private Sub datacopy_Click()
Dim db As Database
Dim dt As New TableDef
If MsgBox("是否备份", vbYesNo, "备份") = vbYes Then

Set db = OpenDatabase(App.Path & "\mydb.mdb")
Set dt = db.CreateTableDef(backup1)
db.TableDefs.Delete "backup1"
db.Execute "select house.* into backup1 from house "
db.TableDefs.Delete "backup2"
 db.Execute "select * into backup2 from room"
 db.TableDefs.Delete "backup3"
  db.Execute "select * into backup3 from student"
  db.TableDefs.Delete "backup4"
  db.Execute "select * into backup4 from cleaner"
   db.Close

  Else: Exit Sub
  End If
  
End Sub

Private Sub datasave_Click()
Dim db As Database
Dim dt As New TableDef
If MsgBox("是否还原", vbYesNo, "还原") = vbYes Then

Set db = OpenDatabase(App.Path & "\mydb.mdb")
db.TableDefs.Delete "house"
db.Execute "select backup1.* into house from backup1 "
db.TableDefs.Delete "room"
 db.Execute "select * into  room from backup2"
 db.TableDefs.Delete "student"
  db.Execute "select * into student from backup3"
  db.TableDefs.Delete "cleaner"
  db.Execute "select * into cleaner from backup4"
   db.Close
   Else
   Exit Sub
   End If
   
End Sub

Private Sub exit_Click()
End

End Sub

Private Sub Form_Resize()
caidan.Width = Screen.Width
caidan.Height = Screen.Height
caidan.Left = 0
caidan.Top = 0

End Sub

Private Sub houseinput_Click()
Form1.Show
caidan.Hide

End Sub

Private Sub houseoutput_Click()
DataReport1.Show


End Sub

Private Sub roominput_Click()
Form2.Show
caidan.Hide

End Sub

Private Sub roomoutput_Click()
DataReport2.Show


End Sub

Private Sub studentinput_Click()
Form3.Show
caidan.Hide

End Sub

Private Sub studentoutput_Click()
DataReport3.Show


End Sub

Private Sub tongjioutput_Click()
'Form7.Show
'Unload Me

End Sub