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

《企业数据信息管理系统附录程序清单及注释》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、附录程序清单及注释菜单窗体OptionExplicitDimsqlAsStringDimblnViewAsBooleanConstMeWidthAsInteger=9216ConstMeHeightAsInteger=6600'caidan.Width=9216'caidan.Height=6600PrivateSubabout_Click()Form2.ShowEndSubPrivateSubTSJ_Click()find1.Showcaidan.HideEndSubPrivateSubclean_Click()DimmydbAsDatabaseDimdbpathAsStri

2、ngDimsqlAsStringdbpath=App.Path&"SJK.mdb"IfMsgBox("此功能将清除库中所有记录，你确定要执行吗?",vbOKCancel)=vbOKThenSetmydb=OpenDatabase(dbpath)sql="delete*fromhouse"mydb.Executesqlsql="delete*fromroom"mydb.Executesqlsql="delete*fromstudent"mydb.Executesqlsql="delete*fromcleaner"24mydb.ExecutesqlMsgBox("清库完毕!")E

3、ndIfEndSubPrivateSubdatacopy_Click()DimdbAsDatabaseDimdtAsNewTableDefIfMsgBox("是否备份",vbYesNo,"备份")=vbYesThenSetdb=OpenDatabase(App.Path&"SJK.mdb")Setdt=db.CreateTableDef("backup1")db.TableDefs.Delete"backup1"db.Execute"selecthouse.*intobackup1fromhouse"db.TableDefs.Delete"backup2"db.Execute

4、"select*intobackup2fromroom"db.TableDefs.Delete"backup3"db.Execute"select*intobackup3fromstudent"db.TableDefs.Delete"backup4"db.Execute"select*intobackup4fromcleaner"db.CloseElse:ExitSubEndIfEndSubPrivateSubdatasave_Click()DimdbAsDatabaseDimdtAsNewTableDefIfMsgBox("是否还原",vbYesNo,"还原")=vbYesT

5、henSetdb=OpenDatabase(App.Path&"SJK.mdb")db.TableDefs.Delete"house"db.Execute"selectbackup1.*intohousefrombackup1"db.TableDefs.Delete"room"db.Execute"select*intoroomfrombackup2"db.TableDefs.Delete"student"db.Execute"select*intostudentfrombackup3"24db.TableDefs.Delete"cleaner"db.Execute"sele

6、ct*intocleanerfrombackup4"db.CloseElseExitSubEndIfEndSubPrivateSubexit_Click()'清表DimmydbAsDatabaseDimsqlAsStringIfMsgBox("注意!"+Chr(13)+"此操作将清所有临时除库中所有记录，你确定要执行吗?",vbOKCancel,"提示")=vbOKThenSetmydb=OpenDatabase(App.Path&"SJK.mdb")sql="delete*from查询汇总表"mydb.Executesqlsql="delete*from材料总表"mydb.

7、Executesqlsql="delete*from总标准件表"mydb.Executesqlsql="delete*from总外购件表"mydb.Executesqlsql="delete*from总外协件表"mydb.Executesqlsql="delete*from总图号册表"mydb.ExecutesqlMsgBox("清库完毕!")ElseExitSubEndIfEndEndSubPrivateSubQXSZ_Click()24gly_f.ShowEndSubPrivateSub