企业数据信息管理系统附录程序清单及注释.doc

附录程序清单及注释Option Explicit Dim sql As String Dim blnView As Boolean Const MeWidth As Integer = 9216 Const MeHeight As Integer = 6600 caidan.Width = 9216 caidan.Height = 6600 Private Sub about_Click() Form2.Show End Sub Private Sub TSJ_Click() find1.Show caidan.Hide End Sub Private Sub clean_Click() Dim mydb As Database Dim dbpath As String Dim sql As String dbpath = App.Path \SJK.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 datacopy_Click() Dim db As Database Dim dt As New TableDef If MsgBox(是否备份, vbYesNo, 备份) = vbYes Then Set db = OpenDatabase(App.Path \SJK.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 \SJK.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() 清表 Dim mydb As Database Dim sql As String If MsgBox(注意! + Chr(13) + 此操作将清所有临时除库中所有记录，你确定要执行吗?, vbOKCancel, 提示) = vbOK Then Set mydb = OpenDatabase(App.Path \SJK.mdb) sql = delete * from 查询汇总表 mydb.Execute sql sql = delete *