RSView32利用VBA實(shí)現(xiàn)報警歷史查詢

RSView32利用VBA實(shí)現(xiàn)報警歷史查詢當(dāng)我們需要查看前一天或前一個月的報警記錄的時候，RSVew32并沒有提供很好的辦法。經(jīng)過研究發(fā)現(xiàn)，所有報警信息都是保存在DBF格式的數(shù)據(jù)庫中的。但是用EXCEL等工具打開后發(fā)現(xiàn)，該數(shù)據(jù)庫里面并沒有報警描述。于是我們必須要從變量（也稱標(biāo)記，為方便敘述，以下都稱做變量）數(shù)據(jù)庫中將報警變量以及對應(yīng)的描述提取出來，做成一個數(shù)據(jù)庫或數(shù)據(jù)表，再與DBF數(shù)據(jù)庫中的內(nèi)容合并后顯示出來。具體步驟如下：在工程窗體上添加兩個命令按鈕Commandl和Command2以及兩個列表框List1和List2。Commandl用來提取報警變量以及對應(yīng)的描述，并保存到數(shù)據(jù)庫中。Command2則用來打開DBF報警信息數(shù)據(jù)庫，與報警描述合并后顯示出來。列表框Listl用來顯示所有存在的報警文件。列表框List2用來顯示最終結(jié)果。要實(shí)現(xiàn)這些功能，必須引用RSView32ObjectModel，即RSView32對象模型。還要引用MicrosoftActiveXObjects2?8Urbrary,用來操作數(shù)據(jù)庫。這個引用在版本上并不要求完全一致，在不同的系統(tǒng)中略有差別，總之選擇最高版本就可以了。下面為示例代碼以及詳細(xì)注釋：首先必須引用RSView32ObjectModel引用MicrosoftActiveXObjects28LirbraryDimgRsvAppAsRSView32ApplicationDimgProjectAsRSView32ProjectDimgTagDbAsRSView32．TagDbDimgTagsAsTagsPrivateSubCommand1一Click()'提取報警變量以及對應(yīng)的報警描述DimMTagAsTagDimLinkAsNewADODBConnectionDimRsAsNewADODBRecordsetLink．CursorLocation：adUseClient'打開已經(jīng)建立好的ACCESS數(shù)據(jù)庫AlmTagmdb,包含Tag、Description兩個字段Link．COnnecti0nSfring=”Provider=MicrosoftJet．OLEDB40；DataSource=AImTag．mdb；PersistSecurityInfo=False”LinkOpenSetgTags二gTagDb?QueryForTags()'査詢RSView32所有變量ForEachMTagIngTags'檢查每個變量IfMTag．Alarmed=TrueThen'如果該變量為報警變量，則將變量以及描述添加到ACCESS數(shù)據(jù)庫AImTag?mdbRsOpen”SelectFromAImTag，Link．a(chǎn)dOpenDynamic，adLockBatchOptimisticRs．AddNewRs．Fields('q-ag)=MTag．NameRs．Fields(”Description”)=MTag．DescriptionRsUpdateBatchadAfectAIIChaptersRsCloseDoEventsEndIfNextMsgBox”數(shù)據(jù)提取完成，已經(jīng)保存到數(shù)據(jù)庫!．vbOKOnly+vblnformation.提示”EndSubPrivateSubCommand2_Click()'打開報警文件并合并字段DimLinkAsNewADODB．ConnectionDimRsAsNewADODBRecordsetDimDadaBaseNameAsStringIfList1?ListCount二一1OrList1?Text=ThenExitSubElseDadaBaseName=List1?TextEndIfList2Clear'C:\YXCD\yxcd\ALMLOG為報警文件的絕對路徑LinkConnectionScring=”Driver={MicrosoftVisualFoxProDriver}；SourceType:DBF:SOurceDB二C:\YXCD\yxcd'ALMLOG；Exclusive=No；Collate=Machine；”Link．OpenRs.CursorLocation二adUseClient'提取有用的DBF數(shù)據(jù)庫中的date?time,tagname字段Rs.Open”Selectdate.time.tagnameFrom'”＆DadaBaseName＆”'”Link，adOpenDynamic，adLockPessimisticIfRsRecordCount=0ThenExitSubDoUntilRsEOF'輸出結(jié)果，RenDsc(RsFields(tagname)返回了tagname對應(yīng)的描述List2AddItemRsFields(“date“)＆"”＆Rs．Fields(“time”)＆"”＆Rs．Fields(''tagname”)＆"”＆RenDsc(RsFields(“tagname”))Rs．MoveNextDoEventsLoopEndSubPrivateSubForm—Load()‘程序啟動初始化SetgRsvApp=NewRSView32ApplicationOnErrorGoTotripSetgProject=gRsvAppActiveProjecttrip：IfErrNumber：4156Then‘這個錯誤號代表當(dāng)前沒有RSView32活動工程MsgBox”通訊錯誤，很可能是RSView32沒有啟動!”EndElseSetgTagDb=gProjectTagDb‘設(shè)置gTagDb為RSView32的數(shù)據(jù)庫ReadF訂eName‘獲取DBF數(shù)據(jù)庫文件名EndIfEndSubPrivateSubReadF訂eNameO自定義過程，獲取DBF數(shù)據(jù)庫文件名DimFilesNameDimiAsIntegerF訂esName=Dir(”C：\YXCD\yxcd'ALMLOG\")ALMLOG即為報警文件所在目錄DoWhileF訂esName<>"”IfRight(FilesName，3)=”DBFThenList1AddItemFilesNameEndIfFilesName=DirLoopOnErrorResumeNextList1．Listlndex=0EndSubPrivateFunctionRenDsc(ATagAsString)AsString'自定義過程，提取變量對應(yīng)的描述DimLink2AsNewADODBConnectionDimRs2AsNewADODBRecordsetLink2CursOrLOcatiOn=adUseClientLink2．COnnectjOnStng=”Provider=MicrosoftJet．OLEDB．4．0；DataSource=AImTag．mdb；PersistSe