1附錄程序清單及注釋菜單窗體OptionExplicitDimsqlAsStringDimblnViewAsBooleanConstMeWidthAsInteger=9216ConstMeHeightAsInteger=6600caidan.Width=9216caidan.Height=6600PrivateSubabout_Click()Form2.ShowEndSubPrivateSubTSJ_Click()find1.Showcaidan.HideEndSubPrivateSubclean_Click()DimmydbAsDatabaseDimdbpathAsStringDimsqlAsStringdbpath=App.Path&SJK.mdbIfMsgBox(此功能將清除庫(kù)中所有記錄，你確定要執(zhí)行嗎?,vbOKCancel)=vbOKThenSetmydb=OpenDatabase(dbpath)sql=delete*fromhousemydb.Executesqlsql=delete*fromroommydb.Executesqlsql=delete*fromstudentmydb.Executesqlsql=delete*fromcleaner2mydb.ExecutesqlMsgBox(清庫(kù)完畢!)EndIfEndSubPrivateSubdatacopy_Click()DimdbAsDatabaseDimdtAsNewTableDefIfMsgBox(是否備份,vbYesNo,備份)=vbYesThenSetdb=OpenDatabase(App.Path&SJK.mdb)Setdt=db.CreateTableDef(backup1)db.TableDefs.Deletebackup1db.Executeselecthouse.*intobackup1fromhousedb.TableDefs.Deletebackup2db.Executeselect*intobackup2fromroomdb.TableDefs.Deletebackup3db.Executeselect*intobackup3fromstudentdb.TableDefs.Deletebackup4db.Executeselect*intobackup4fromcleanerdb.CloseElse:ExitSubEndIfEndSubPrivateSubdatasave_Click()DimdbAsDatabaseDimdtAsNewTableDefIfMsgBox(是否還原,vbYesNo,還原)=vbYesThenSetdb=OpenDatabase(App.Path&SJK.mdb)db.TableDefs.Deletehousedb.Executeselectbackup1.*intohousefrombackup1db.TableDefs.Deleteroomdb.Executeselect*intoroomfrombackup2db.TableDefs.Deletestudentdb.Executeselect*intostudentfrombackup33db.TableDefs.Deletecleanerdb.Executeselect*intocleanerfrombackup4db.CloseElseExitSubEndIfEndSubPrivateSubexit_Click()清表DimmydbAsDatabaseDimsqlAsStringIfMsgBox(注意!+Chr(13)+此操作將清所有臨時(shí)除庫(kù)中所有記錄，你確定要執(zhí)行嗎?,vbOKCancel,提示)=vbOKThenSetmydb=OpenDatabase(App.Path&SJK.mdb)sql=delete*from查詢匯總表mydb.Executesqlsql=delete*from材料總表mydb.Executesqlsql=delete*from總標(biāo)準(zhǔn)件表mydb.Executesqlsql=delete*from總外購(gòu)件表mydb.Executesqlsql=delete*from總外協(xié)件表mydb.Executesqlsql=delete*from總圖號(hào)冊(cè)表mydb.ExecutesqlMsgBox(清庫(kù)完畢!)ElseExitSubEndIfEndEndSubPrivateSubQXSZ_Click()4gly_f.ShowEndSubPrivateSubForm_Resize()ifminimizedthenexitIfMe.WindowState=vbMinimizedThenExitSubiflowerthestandardvaluesresetIfMe.HeightMeHeightThenMe.Height=MeHeightIfMe.WidthMeWidthThenMe.Width=MeWidthsetuplist1&msflexgrid1caidan.ScaleEndSubPrivateSubSJHY2_Click()Form4.Showcaidan.HideEndSub查詢窗體OptionExplicitDimsqlAsStringDimfindstringAsStringDimcancelflagAsBooleanDimdbAsDatabaseDimdb1AsDatabaseDimrstAsRecordsetDimrst1AsRecordsetDimTnAsLongDimcount1AsInteger