【正文】 e processes automatically, in order to on time solve, save the manpower of large quantity, material unit, the vital part section installeds multifunction and many level of structures peaceful to defend to supervise and control the system empress, reducing to patrol to turn on duty the personnel consumedly, from but lift highefficiency, reduce the prevent fire, defend to invade, guard against theft, defend the breakage and defend the contact with munication each cent of etc. system proceeds to unite design, constitute a synthesizing of, multifunction and peaceful defend to control the system is the people who our safety against technique work exhibition direction.“安全防范”是公安保衛(wèi)系統(tǒng)的專門術(shù)語(yǔ)，是指以維護(hù)社會(huì)公共安全為目的，防入侵、防被盜、防破壞、防火、防暴和安全檢查等措施。而為了達(dá)到防入侵、防盜、防破壞等目的我們采用了以電子技術(shù)、傳感器技術(shù)和計(jì)算機(jī)技術(shù)為基礎(chǔ)的安全防范技術(shù)的器材設(shè)備，并將其構(gòu)成一個(gè)系統(tǒng)，由此應(yīng)運(yùn)而生的安全防范技術(shù)正逐步發(fā)展成為一項(xiàng)專門的公安技術(shù)學(xué)科。安全防范技術(shù)涉及到社會(huì)的方方面面。社會(huì)上的重要單位和要害部門，如黨政機(jī)關(guān)、軍事設(shè)施、國(guó)家的動(dòng)力系統(tǒng)、廣播電視、通訊系統(tǒng)、國(guó)家重點(diǎn)文物單位、銀行、倉(cāng)庫(kù)、百貨大樓等等，這些單位的安全保衛(wèi)工作極為重要，所以也是安全防范技術(shù)工作的重點(diǎn)。利用安全防范技術(shù)進(jìn)行安全防范道德對(duì)犯罪分子有種威懾作用，使其不敢輕易作案。如小區(qū)的安防系統(tǒng)、門窗的開(kāi)關(guān)報(bào)警器能及時(shí)發(fā)現(xiàn)犯罪分子的作案時(shí)間和地點(diǎn)，使其不敢輕易動(dòng)手。商品、自選市場(chǎng)的電視監(jiān)控系統(tǒng)使商品和自選市場(chǎng)的失竊北大大減少，銀行的柜員制和大廳的監(jiān)控系統(tǒng)也使犯罪分子望而生畏，所以對(duì)預(yù)防犯罪相當(dāng)有效。其次，一旦出現(xiàn)了入侵、盜竊等犯罪活動(dòng)，安全防范系統(tǒng)能及時(shí)發(fā)現(xiàn)、及時(shí)報(bào)警，電視監(jiān)控系統(tǒng)能自動(dòng)記錄下犯罪現(xiàn)場(chǎng)以及犯罪分子的犯罪過(guò)程，以便及時(shí)破案，節(jié)省了大量人力、物力。重要單位，要害部門安裝了多功能、多層次的安防監(jiān)控系統(tǒng)后，大大減少了巡邏值班人員，從而提高效率，減少開(kāi)支。將防火、防入侵、防盜、防破壞、防暴和通訊聯(lián)絡(luò)等各分系統(tǒng)進(jìn)行聯(lián)合設(shè)計(jì)，組成一個(gè)綜合的、多功能的安防控制系統(tǒng)是我們安全防范技術(shù)工作的發(fā)展方向。附 錄Ⅱ程序代碼界面設(shè)計(jì)代碼如下：Private Sub Form_Load() = GetSetting(, Settings, MainLeft, 1000) = GetSetting(, Settings, MainTop, 1000) = GetSetting(, Settings, MainWidth, 6500) = GetSetting(, Settings, MainHeight, 6500) = 2 Call Init End SubPrivate Sub Init() = 5000 mAction = True sysdate = Date Call makecolumns Set = New With ..ConnectionString = Provider=。Data Source= amp。 _ amp。 \。 .Open End With Set rslog = New Dim str As Stringstr = select * from Log where date = amp。 sysdate amp。 。 str, , adOpenStatic,adLock OptimistictLog= Call showLog(rslog) Call initcpara End Sub其中代碼調(diào)用的自定義函數(shù)和過(guò)程為：1）顯示日志表的表頭－makecolumns具體代碼如下：Private Sub makecolumns() = lvwReport , , 布控名稱, / 5 , , 時(shí)間, / 5 , , 動(dòng)作, * / 5End Sub2）初始化系統(tǒng)使用的I/O口－initcpara具體代碼如下：Private Sub initcpara()Call init If InitializeWinIo = False Then MsgBox Whoops ! There is a problem with InitializeWinIo., vbOKOnly + vbCritical, mAction = False End If Call getLpt lptPortEnd SubPrivate Sub getLpt()Dim r As Dim s As StringSet r = New s = select distinct number from bufangset where porperty=39。并口39。 and promote=true s, , adOpenStatic, adLockOptimistic If = 0 Then lptInbf = False Else lptInbf = True ReDim lptPort(1 To ) Dim i As Integer i = 0 While Not i = i + 1 lptPort(i) = r!Number Wend End IfEnd Sub3）串口初始化－Init具體代碼如下：Private Sub init()Dim r As Dim str As StringSet r = New str = select distinct number from chujingset where porperty=39。串口39。 str, , adOpenStatic, adLockOptimisticDim mPort As Integer mPort = r!Number Dim mSettings As StringDim mHandShaking As StringOn Error Resume Next mSettings = GetSetting(通訊端口設(shè)置, Com amp。 CStr(mPort) amp。 性質(zhì), Settings, ) mHandShaking = GetSetting(通訊端口設(shè)置, Com amp。 CStr(mPort) amp。 性質(zhì), Handshaking, ) Do While mSettings = Or mHandShaking = = mPort Load frmCommProperties Set = Me Call vbModal mSettings = GetSetting(通訊端口設(shè)置, Com amp。 CStr(mPort) amp。 性質(zhì), Settings, ) mHandShaking = GetSetting(通訊端口設(shè)置, Com amp。 CStr(mPort) amp。 性質(zhì), Handshaking, ) Loop = mPort = mSettings = mHandShaking = True Set r = New str = select distinct number from bufangset where porperty=39。串口39。 str, , adOpenStatic, adLockOptimistic If = 1 Then Inbf = True mPort = r!Number mSettings = GetSetting(通訊端口設(shè)置, Com amp。 CStr(mPort) amp。 性質(zhì), Settings, ) mHandShaking = GetSetting(通訊端口設(shè)置, Com amp。 CStr(mPort) amp。 性質(zhì), Handshaking, ) Do While mSettings = Or mHandShaking = = mPort Load frmCommProperties Set = Me Call vbModal mSettings = GetSetting(通訊端口設(shè)置, Com amp。 CStr(mPort) amp。 性質(zhì), Settings, ) mHandShaking = GetSetting(通訊端口設(shè)置, Com amp。 CStr(mPort) amp。 性質(zhì), Handshaking, ) Loop = mPort = mSettings = mHandShaking = True = InputModeBinary Else Inbf = False End If End Sub具體代碼如下：Private Sub MSComm2_OnComm() Select Case Case EvReceive Dim buffer As Variant buffer = Call processLook(CByte(buffer), True) = 0 Case Else End SelectEnd Sub具體代碼如下：Private Sub Timer1_Timer() If mAction = True Then Call spyOn Call updateLog End IfEnd Sub其中主要調(diào)用的函數(shù)和過(guò)程有：1）updateLogPrivate Sub updateLog() Dim str As String str = select * from Log where date = amp。 sysdate amp。 。 Dim r As Set r = New str, , adOpenStatic, adLockOptimistic If tLog Then tLog = Call showLog(r) End If End Sub2）ShwologPrivate Sub showLog(rs As ) If Or Then Exit Sub While Not And Not Dim str1, str2, str3 As String str1 = rs!bfname str2 = rs!Date amp。 Space(1) amp。 rs!Time str3 = rs!cjname If IsNull(str1) Then MsgBox (此紀(jì)錄無(wú)主鍵) Exit Sub End If Set mL