吉林市電視臺設備信息管理的軟件開發

摘要:電視臺的設備管理是一項重要的工作。該文結合吉林市電視臺的設備管理的實際情況，根據設備管理的需要為目的，如何利用Visual Basic和SQL Server 2000來實現設備信息的數字化管理的軟件的開發。

關鍵詞:Data數據控件;Display顯示第三方控件;Jltv.mdf

中圖分類號:TP315文獻標識碼:A文章編號:1009-3044(2009)27-7676-03

Jilin City Television Equipment Information Management Software Development

SUN Peng

(Jilin City Television， Jilin 132013， China)

Abstract: Television device management is an important task. In this paper， Jilin City Television Equipment Management actual situation， according to the needs of equipment management for the purpose of how to use Visual Basic and SQL Server 2000 to implement the digital device information management software development.

Key words: data data control; display display third-party controls; Jltv.mdf

隨著電視技術數字化、網絡化的飛速發展;電視裝備日新月異的變化。因此，電視技術的進步必然帶來設備管理從觀念到模式的變革。電視臺的設備管理從思維理念、運作流程、方法模式都要緊隨技術進步、設備更新而與時俱進。為了迎合電視技術的發展，結合我臺實際工作的需要，充分利用計算機技術，針對設備數字化管理的需要，開發了這套吉林市電視臺設備信息管理系統軟件。

該軟件采用了Visual Basic和SQL Server 2000結合激光條碼掃描槍等計算機外圍設備，基于可視化的對象的編程的技術。并且該軟件充分利用激光條碼掃描槍快速讀取、迅速識別的特點，利用Visual Basic對SQL Server 2000的前臺開發，提供了友好的用戶交互界面和方便、簡潔的操作，實現了對設備管理方式的創新，進一步提高了設備管理人員的工作效率。

1 軟件設計分析

1.1 提供友好的用戶管理界面

更加方便、快速、準確的為設備管理人員提供查詢統計功能。

由于電視臺設備種類多樣多，設備的數目龐大，設備管理人員在進行設備管理時，如果通過手工進行登記造冊、在進行設備查詢、查閱、統計等方面的工作時，不僅費時費力，而且及有可能產生誤差。因此，結合設備管理的實際情況，要求該軟件必須提供方便、快速的查詢、統計、打印等方面的功能。在進行查詢時，只要通過激光掃描槍把該設備的條形碼掃描到計算機中，就可以進行方便、快速、準確的查詢和打印，使設備管理人員迅速、準確的了解每個設備的詳細信息。

1.2 提供完善的數據備份和還原的功能

為了保證設備信息數據的安全性，防止數據庫的數據意外丟失，該軟件的功能開發中，提供數據備份和還原的功能。

1.3 具有完善的打印、統計功能。

為了更加方便的對設備的管理和應用，該軟件提供了豐富的打印功能和統計的功能。在打印的同時，提供了設備查詢和設備數量的統計功能。

該軟件主要提供以下的功能:

1)通過數據庫SQL Server 2000管理軟件對設備的詳細信息進行管理。

2)提供“模糊查詢” “ 精確查詢”等方面的查詢功能，為設備管理人員的工作增加了便利。

3)提供了豐富的統計和打印的功能。

4)數據備份和還原的功能。

2 系統結構與軟件具體功能

2.1 系統結構

系統功能結構如圖1所示。

2.2 軟件功能

2.2.1 用戶登陸界面和權限的設置

該軟件提供友好、人性化的用戶界面和安全的用戶權限管理模式和界面。

2.2.2 設備信息的管理

該模塊提供設備信息的增加、刪除、修改的功能，詳細的完成設備原始信息的錄入功能和顯示所有設備信息的功能。通過確定、取消功能完成設備信息數據的保存、放棄和在文本框中輸入的信息是否錄入設備數據庫(JLTV.MDF)

2.2.3 設備信息的查詢、顯示功能

1) 按查詢方法主要包括兩大類:

①該軟件提供“模糊查詢”的功能，即輸入設備的任何相關的信息就可以把與此有關的信息查詢出來。

②該軟件提供“精確查詢”的功能，即利用激光掃描槍掃入設備的條形碼后，就可以快速、準確的查詢出信息。

2) 按查詢的方式主要提供9大類:

①提供按部門查詢的功能。即輸入部門的名稱進行查詢。

②提供按設備種類進行查詢的功能，即輸入設備的種類進行查詢。

③提供按發放日期查詢的功能。既輸入設備的發放的具體日期進行查詢。

④提供按設備負責人的查詢功能。即輸入具體的設備負責人進行查詢。

⑤提供按設備條形碼進行查詢的功能。即通過激光掃描槍掃入該設備的條形碼進行查詢。

⑥提供按設備型號查詢的功能。即輸入設備的型號進行查詢。

⑦提供按設備品牌查詢的功能。即把設備的品牌輸入后進行查詢。

⑧提供按設備序列號進行查詢的功能。即輸入該設備的序列號進行查詢。

⑨提供設備信息查詢的功能。即用鼠標點擊該下拉菜單中的全部選項進行查詢。

2.2.4 設備信息的打印統計功能

該模塊提供了9種豐富的打印功能。既按找不同的查詢方式，提供了9種不同打印的格式(例:按部門設備信息打印、設備種類打印等)，并且在其中的4種打印功能中提供了設備數量的統計功能(例:按設備型號打印、設備種類打印等)。

2.2.5 提供完善的數據備份和還原的功能

為了保證數據的安全，防止數據庫中的數據意外的丟失，在該軟件的功能中，增加數據備份和還原的功能。

3 編程實現的過程

3.1 創建SQL Server 2000數據庫

SQL Server 2000是Microsoft公司的數據庫軟件。在利用Visual Basic進行編寫代碼的過程中，可以直接調用SQL Server 2000提供的各種函數，對數據庫中的數據直接調用，提高了編程的效率。

在設計“設備詳細信息”模塊是，首先使用SQL Server 2000創建了一個JLTV.MDF的數據庫，通過SQL Server 2000提供的“企業管理器”中的“使用設計器創建表”選項創建了設備詳細信息表ALLIST文件，并相應的設計出“設備名稱”“部門”“設備條碼”等字段，在進行字段的數據類型和字段大小的確定時，結合實際的情況和需要，做出了規定。例如: “部門” 屬于Char型等。在此過程中，最重要的是主鍵(PRIMARY KEY)的建立，即就是在所有的設備數據中確定的唯一標識的建立。

3.2 在Visual Basic中使用ADO技術對數據庫數據的訪問和用戶登陸管理

Visual Basic提供了比較豐富的數據訪問技術。其中ADO是較新的的數據庫訪問技術。他使用更加簡單，而且更加靈活的對象模型。具體的功能是通過以下的代碼實現的。

Set con = New ADODB.Connection

Set rs = New ADODB.Recordset

con.ConnectionString = \"provider=sqloledb;server=.;uid=sa;pwd=sa;database=Jltv\"

con.Open

3.3 Visual Basic 中使用ADO Data數據控件調用數據對象

Data控件是一個數據控制中心，但是其本身只能進行數據庫的操作，不能進行數據的顯示，可以使用ADO Data控件和文本框以及Display顯示第三方控件結合使用，共同完成數據的顯示和處理工作。注意在ADOData中不需要用戶做數據合法性檢驗，當有錯誤發生時，對象就會發出錯誤警告，用戶根據提示做出響應。具體的功能是通過以下的代碼實現的。

Dim rs As ADODB.Recordset

Dim i As Integer

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient

If pTotal = 0 Then '空

pCurrent = 0

If pCurrent = 0 Then pCurrent = 1

rs.AbsolutePage = pCurrent

MSGrid.Rows = rs.PageSize + 1

For lp = 1 To rs.PageSize

If IsNull(rs(i).Value) = False Then

MSGrid.TextMatrix(lp， i) = rs(i)

rs.MoveNext

Set rs = Nothing

3.4 設備信息查詢的功能模塊的實現

由于該軟件的功能是為設備管理人員提供種類齊全的查詢功能，因此在查詢模塊的編程中主要采用了“模糊查詢”與“精確查詢”兩種功能。具體的功能是通過以下的主要代碼實現的。

Dim sql1 As String

sql1 = \"\"

Dim flag1 As Boolean

flag1 = False

If CmbState.ListIndex = -1 Then

sql1 = \"select AName as 設備名稱，Axulie as 設備型號，from AllList where 1=1\"

If Text5.Text <> \"\" Then

sql1 = sql1 + \" and Afujian like '%\" Trim(Text5.Text) \"%'\"

flag = True

End If

If flag = True Then

MSGrid.ShowData (sql1)

Else

MsgBox \"請輸入或選擇查詢條件\"， vbOKOnly， \"提示\"

End Sub

3.5 設備信息打印模塊的實現

在打印模塊的代碼開發中，主要利用了Visual Basic的打印功能，并且在不同的打印方式中增加了SUM、TIME等函數實現設備數量的統計結果和打印時間的同時輸出。是利用Visual Basic設計器實現的。

3.6 設備信息的列表顯示

列表顯示窗體可以通過分頁的方式全部顯示出所有設備的信息，而Visual Basic 提供的列表顯示只能顯示到第1008行數據，但是數據庫數據的允許繼續錄入，為了解決這一情況采用了Display顯示第三方控件，經過多次調試效果較好。具體的功能是通過以下的代碼實現的。

If CInt(txtVal) > 0 And CInt(txtVal) <= pTotal Then

CmdGo.Enabled = True

Else

Dim a As New ADODB.Connection

a.Open \"provider=sqloledb;server=.;uid=sa;pwd=sa;database=Jltv\"

If Not a Is Nothing Then

Set pCon = a

End If

Set a = Nothing

Dim rs As ADODB.Recordset

Dim i As Integer

intSize = pSize

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient

rs.Open s， pCon， ， ， adCmdTex

pCurrent = 0

Else

rs.AbsolutePage = pCurrent

MSGrid.Cols = rs.Fields.Count

For lp = 1 To rs.PageSize

If rs.EOF Then Exit For

For i = 0 To rs.Fields.Count - 1

If IsNull(rs(i).Value) = False Then

MSGrid.TextMatrix(lp， i) = rs(i)

Else

MSGrid.TextMatrix(lp， i) = \"\"

End If

Set rs = Nothing

4 結束語

設備的管理工作是一項重要而繁瑣的工作，其中重要的工作是各種設備信息的記錄和管理，為了能達到這一預期的設計目標。《吉林市電視臺設備信息管理系統》軟件開發完成后，根據實際情況進行多次實驗測試修改，并且應用了第三方的控件，進一步完善了該軟件的功能，在實際應用當中效果突出，為設備管理人員提供了方便，提高了工作效率。說明了該軟件能夠較好的完成設備信息的的管理和統計功能，為臺里的設備數字化管理提供了基礎，為我臺設備科學的管理提供了依據。

參考文獻:

[1] 辛西.信息技術與信息服務國際研討會論文集:A集[C].北京:中國社會出版社，1994.

[2] 石柱，何新貴.優序法在軟件評價中的應用[J].計算機工程與設計，2002，23(2):47-48.

[3] 馮登國.計算機通信網絡安全[M].北京:清華大學出版社，2001

[4] 吳斌，魯大林.數據庫應用系統開發VisualBasic+SQL Server[M].北京:機械工業出版社，2008.

[5] 萬星新，蘇玲.VisualBasic數據庫開發全程指南[M].北京:電子工業出版社，2008.

[6] 遠震東.基于區分服務的隊列調度算法研究與仿真[D].哈爾濱:哈爾濱工程大學，2007.

[7] 段鋼.加密與解密[M].2版.北京:電子工業出版社，2003.

[8] 候俊杰.深入淺出MFC[M].2版.武漢:華中科技大學出版社，2001.