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

vb+access企业数据信息管理系统-附录程序清单及注释 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 ThenSet mydb OpenDatabasedbpathsql delete * from housemydb.Execute sqlsql delete * from roommydb.Execute sqlsql delete * from studentmydb.Execute sqlsql delete * from cleanermydb.Execute sqlMsgBox 清库完毕! End If End Sub Private Sub datacopy_Click Dim db As Database Dim dt As New TableDef If MsgBox是否备份, vbYesNo, 备份 vbYes Then Set db OpenDatabaseApp.Path \SJK.mdb Set dt db.CreateTableDefbackup1 //.ete backup1 db.Execute select house.* into backup1 from house //.ete backup2 db.Execute select * into backup2 from room //.ete backup3 db.Execute select * into backup3 from student //.ete backup4 db.Execute select * into backup4 from cleaner db.CloseElse: Exit SubEnd If End Sub Private Sub datasave_Click Dim db As Database Dim dt As New TableDef If MsgBox是否还原, vbYesNo, 还原 vbYes Then Set db OpenDatabaseApp.Path \SJK.mdb //.ete house db.Execute select backup1.* into house from backup1 //.ete room db.Execute select * into room from backup2 //.ete studentdb.Execute select * into student from backup3//.ete cleanerdb.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注意! + Chr13 + 此操作将清所有临时除库中所有记录,你确定要执行吗?, vbOKCancel, 提示 vbOK ThenSet mydb OpenDatabaseApp.Path \SJK.mdbsql delete * from 查询汇总表mydb.Execute sqlsql delete * from 材料总表mydb.Execute sqlsql delete * from 总标准件表mydb.Execute sqlsql delete * from 总外购件表mydb.Execute sqlsql delete * from 总外协件表mydb.Execute sqlsql delete * from 总图号册表mydb.Execute sqlMsgBox 清库完毕! Else Exit