企业数据信息管理系统程序清单及注释.doc
1附录程序清单及注释菜单窗体OptionExplicitDimsqlAsStringDimblnViewAsBooleanConstMeWidthAsInteger=9216ConstMeHeightAsInteger=6600caidan.Width=9216caidan.Height=6600PrivateSubabout_Click()Form2.ShowEndSubPrivateSubTSJ_Click()find1.Showcaidan.HideEndSubPrivateSubclean_Click()DimmydbAsDatabaseDimdbpathAsStringDimsqlAsStringdbpath=App.Path&"SJK.mdb"IfMsgBox("此功能将清除库中所有记录,你确定要执行吗?",vbOKCancel)=vbOKThenSetmydb=OpenDatabase(dbpath)sql="delete*fromhouse"mydb.Executesqlsql="delete*fromroom"mydb.Executesqlsql="delete*fromstudent"mydb.Executesqlsql="delete*fromcleaner"2mydb.ExecutesqlMsgBox("清库完毕!")EndIfEndSubPrivateSubdatacopy_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"select*intobackup2fromroom"db.TableDefs.Delete"backup3"db.Execute"select*intobackup3fromstudent"db.TableDefs.Delete"backup4"db.Execute"select*intobackup4fromcleaner"db.CloseElse:ExitSubEndIfEndSubPrivateSubdatasave_Click()DimdbAsDatabaseDimdtAsNewTableDefIfMsgBox("是否还原",vbYesNo,"还原")=vbYesThenSetdb=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"3db.TableDefs.Delete"cleaner"db.Execute"select*intocleanerfrombackup4"db.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.Height<MeHeightThenMe.Height=MeHeightIfMe.Width<MeWidthThenMe.Width=MeWidthsetuplist1&msflexgrid1caidan.ScaleEndSubPrivateSubSJHY2_Click()Form4.Showcaidan.HideEndSub查询窗体OptionExplicitDimsqlAsStringDimfindstringAsStringDimcancelflagAsBooleanDimdbAsDatabaseDimdb1AsDatabaseDimrstAsRecordsetDimrst1AsRecordsetDimTnAsLongDimcount1AsIntegerPrivateSubBZJ_Click()sql="select*from材料总表where特性=GB"Data1.RecordSource=sqlData1.RefreshIfMsgBox("是否将此记录添加到总标准件中?",64,"")=vbOKThen