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

1附录程序清单及注释菜单窗体OptionExplicitDimsqlAsStringDimblnViewAsBooleanConstMeWidthAsInteger=9216ConstMeHeightAsInteger=6600caidan.Width=9216caidan.Height=6600PrivateSubabout_Click()Form2.ShowEndSubPrivateSubTSJ_Click()find1.Showcaidan.HideEndSubPrivateSubclean_Click()DimmydbAsDatabaseDimdbpathAsStringDimsqlAsStringdbpath=App.Path&SJK.mdbIfMsgBox(此功能将清除库中所有记录，你确定要执行吗?,vbOKCancel)=vbOKThenSetmydb=OpenDatabase(dbpath)sql=delete*fromhousemydb.Executesqlsql=delete*fromroommydb.Executesqlsql=delete*fromstudentmydb.Executesqlsql=delete*fromcleaner2mydb.ExecutesqlMsgBox(清库完毕!)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)+此操作将清所有临时除库中所有记录，你确定要执行吗?,vbOKCancel,提示)=vbOKThenSetmydb=OpenDatabase(App.Path&SJK.mdb)sql=delete*from查询汇总表mydb.Executesqlsql=delete*from材料总表mydb.Executesqlsql=delete*from总标准件表mydb.Executesqlsql=delete*from总外购件表mydb.Executesqlsql=delete*from总外协件表mydb.Executesqlsql=delete*from总图号册表mydb.ExecutesqlMsgBox(清库完毕!)ElseExitSubEndIfEndEndSubPrivateSubQXSZ_Click()4gly_f.ShowEndSubPrivateSubForm_Resize()ifminimizedthenexitIfMe.WindowState=vbMinimizedThenExitSubiflowerthestandardvaluesresetIfMe.HeightMeHeightThenMe.Height=MeHeightIfMe.WidthMeWidthThenMe.Width=MeWidthsetuplist1&msflexgrid1caidan.ScaleEndSubPrivateSubSJHY2_Click()Form4.Showcaidan.HideEndSub查询窗体OptionExplicitDimsqlAsStringDimfindstringAsStringDimcancelflagAsBooleanDimdbAsDatabaseDimdb1AsDatabaseDimrstAsRecordsetDimrst1AsRecordsetDimTnAsLongDimcount1AsInteger