移动基站远程监控系统(数据库课程设计).doc

《移动基站远程监控系统(数据库课程设计).doc》由会员分享，可在线阅读，更多相关《移动基站远程监控系统(数据库课程设计).doc（28页珍藏版）》请在三一办公上搜索。

1、学 号： 课 程 设 计题 目移动基站远程监控系统教 学 院计算机学院专 业计算机科学与技术班 级姓 名指导教师2008年3月1日目 录一 概述1二 总体方案设计3三 详细设计7四 程序的调试与运行结果说明22五 课程设计总结25参考文献26一 概述1课程设计的目的数据库是计算机学科中的一门很重要的基础课程，而且数据库设计是一门应用性很强的学科，在学习时必须使理论与实践相结合。数据库课程设计是计算机科学与技术专业集中实践性环节之一，是学习完数据库系统概论课程后进行的一次全面的综合练习。通过本次课程设计要达到以下几个目的：1加深学生对数据库基础理论和基本知识的理解，掌握数据库应用系统设计开发的基

2、本方法，达到进一步使学生综合运用所学知识和增强实际动手能力的目的。2通过实践使同学们经历到一次综合训练，以便能较全面地理解、掌握和综合运用所学的知识。3用所学的数据库原理与程序设计的知识，能够针对一个小型的数据库管理系统，进行系统的需求分析，系统设计，数据库设计，编码，测试等，完成题目要求的功能，从而达到掌握开发一个小型数据库的目的。4. 通过设计培养对工作认真负责、一丝不苟的态度，对组员团结互助，协作攻关的团队精神。5. 培养从资料文献、科学实验中获得知识并解决问题的能力。培养运用理论去分析及处理问题的能力、实践动手能力、书面及口头表达能力。2课程设计的要求课程设计最主要的要求是在综合应用平

3、时所学知识的基础上，独立设计与制造出具有较复杂功能的应用系统，并且在实验的基本技能方面上进行一次全面的训练。其详细要求如下：1由6名组员组成设计小组，小组成员分工协作完成。每人有自己相对独立的模块，同时要了解其他组员完成的内容。2. 通过查阅相关资料，丰富自己的相关知识，解决相应的问题。3. 所设计的应用系统要准确无误，符合数据库设计的要求，能够详细的分析该系统，演示出运行流程，并能按老师的要求做出相应的改进。4本次课程设计的实际内容是构建一个移动基站远程管理系统。以解决随着移动基站数量的增多，移动基站的无人值守非常必要。所以要构建一个数据库系统来收集各个基站的各种信息传输到控制台，计算机远程

4、监控能同时对多个基站进行实时监控。通过采集基站的内部温度、外部温度、湿度、蓄电池电压和是否断电等影响基站正常工作的因素的数据形成一个数据库，管理人员可以根据这些数据来判断基站的工作是否正常。一旦出现异常情况管理人员就可以通知维护人员对基站进行及时的修理避免造成更大的损失。另外，也可以通过软件的方法来判断基站的状态，并在基站异常时报警通知管理人员。这样不仅可以减少管理员的工作量，也可以避免人工判断失误等情况的发生。从而大大地降低了移动基站的维护费用，确保了基站设备的可靠性和安全性。二 总体方案设计本次数据库课程设计是以SQL Server2000数据库作为后台以VB作为前台的应用型设计课程。我们

5、要做的是移动基站系统，这个软件的基本功能是接收移动基站（下位机）传送的各种数据并且将这些数据在控制中心的PC机（上位机）上显示出来，从而达到监控各个移动基站的目的。下面是具体要求：（1）使用VB编写；（2）程序安装后直接生成快捷方式；（3）双击快捷图标后进入该程序。程序界面标题为：“移动基站远程监控系统”，背景可以选取一张淡颜色的照片。界面中下部有一对话框，要求输入“用户名”和“密码”。（4）正确输入用户名和密码后，即可进入主界面。（5）“参数设置”菜单中包含“逐个设置”和“统一设置”两个选项。单击“参数设置”命令后，选择“逐个设置”和“统一设置”此时可以对“设定温度”进行更改。选择“统一设置

6、”时，单击“基站编号”旁边的“下一个”和“上一个”按钮，可以将基站编号顺序增加或减少一个数字。选择“逐个设置”时在“基站编号”栏显示“全部”，更改设定温度后，单击设定温度右侧的“OK”按钮，返回主界面。（6）“系统设置”菜单中有“添加用户”、“更改密码”、“添加基站”选项。（7）“显示方式”菜单中有“全部循环显示”、“仅显示异常基站”、“循环显示间隔时间”、“显示时间”三个选项。选择“全部循环显示”时，根据设置的“循环显示间隔时间”，按照基站编号顺序，循环显示每个基站的状况；选择“仅显示异常基站”时，根据设置的“循环显示间隔时间”，循环显示异常基站的状况；（8）执行“异常检测”命令后，系统随时

7、统计出现异常情况的基站的数量，并循环显示所有异常基站的状况。（9）所有基站的参数通过一个文本文件输入，改变文本文件的值，将改变基站的参数。（10）根据编程过程中出现的情况，自行决定菜单及界面的组织安排，只要能够演示就行了。系统设计：1. 系统功能设计移动基站远程监控系统主要实现移动基站的集中监控以及异常报警等功能，该系统主要功能模块图如图3.1所示。移动基站远程监控系统基站管理显示方式设置数据统计功能用户管理添加基站删除基站修改基站循环显示基站显示异常基站异常基站数用户登录用户注册图2.1 移动基站远程监控系统功能模块图(1) 基站管理基站基站对象基本信息以及安全设定数据。基站管理能够添加在基

8、站表中添加或删除一个基站和修改基站现有数据。(2) 显示即监控方式设定根据用户需要可以循环显示所有基站并能自行设定循环间隔时间，还能只显示异常基站。(3) 数据统计统计异常基站的数目。(4) 用户管理包括用户注册和用户登录认证。这里用户注册时指软件安装在任何一台机器上，程序会根据计算机物理设备编号（如硬盘号或网卡物理地址等）计算出一个唯一的机器码，然后机器码通过统一的数据变换生成注册码，变换方法根据加密的要求而采用不同的算法，达到软件加密的目的。用户只有正确的提供了机器码和注册码才能登入到软件系统。2.数据库设计(1) 数据库概念结构设计根据上面的设计，所涉及的数据只有基站的设定信息和基站的实

9、时信息。它们分别可以为一个实体：基站和基站当前状态，分别如图3.2和图3.3所示基站基站编号基站名称电池电压安全温度内部湿度外部湿度停电异常图2.2 基站实体基站基站编号基站名称电池电压安全温度内部湿度外部湿度停电图2.3 异常基站实体用户用户ID用户密码用户描述 图2.4 用户信息实体(2) 数据库逻辑结构设计现在需要将上面的数据库概念结构转化为SQL Server2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。在上面的实体基础上，形成数据库中的表。移动基站远程监控系统数据库中的各个表的设计如表2.1、表2.2和表2.3所示。每个表表示在数据库中的一个数据表表2.1 base

10、_info基站信息表2.2 abnormal_info异常基站表2.3 user_info用户信息三 详细设计1.数据库的建立与设计：通过SQL SERVER的企业管理器可以十分容易的建立后台数据库。2VB界面的建立设计以及程序的编写说明：VB 是在Windows操作平台下，用于开发和创建具有图形用户界面的应用程序的强有力工具之一。VB为开发Windows应用程序不仅提供了全新的相对简单的方式，而且也引进了新的程序设计方法面向对象的设计方法（00P）。从传统的面向过程的程序设计，转移到更先进的面向对象的程序设计，无论是对老的程序员，还是初学者，都是一个挑战。而学习VB，则是掌握这一新的程序设计

11、方法的一条捷径。（1）.界面的设计和程序的编写：frmLogin 用于登陆此系统的登录界面frmMain 是主窗体，在这上面建立相应的菜单主界面如：系统设置添加用户（frmadduser）、删除用户(frmdeluser)、更改密码(frmmodipwd)、添加基站(frmaddbase)、报警值（frmalarmtime）显示方式全部循环显示、仅显示异常基站、循环显示间隔时间（frminterval）、显示时间（frmtime）关于（frmAbout）主界面代码： Dim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As S

12、tring Dim rcount As Integer Dim abcont As Integer Dim flag As IntegerPrivate Sub abnormity_Click() Dim txtSQL1 As String Dim mrc1 As ADODB.Recordset Dim MsgText1 As String txtSQL = select * from base_Info Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL1 = select * from abnormal_Info Set mrc1 = ExecuteS

13、QL(txtSQL1, MsgText1) If mrc.EOF = True Then MsgBox 日前没有移动基站的数据，无导常情况！, vbOKOnly + vbExclamation, 警告 Else For i = 0 To mrc.RecordCount - 1 If Trim(mrc.Fields(2) = Then mrc.Fields(2) = 0 End If If (Val(mrc.Fields(2) 35 And ht hts) = True Then mrc.Fields(7) = 是 mrc.Update Do While (mrc1.EOF = False) I

14、f Trim(mrc1.Fields(0) = Trim(mrc.Fields(0) Then flag = 1 Exit Do End If mrc1.MoveNext Loop If flag 1 Then mrc1.AddNew mrc1.Fields(0) = mrc.Fields(0) mrc1.Fields(1) = mrc.Fields(1) mrc1.Fields(2) = mrc.Fields(2) mrc1.Fields(3) = mrc.Fields(3) mrc1.Fields(4) = mrc.Fields(4) mrc1.Fields(5) = mrc.Fields

15、(5) mrc1.Fields(6) = mrc.Fields(6) mrc1.Update Else flag = 0 End If GoTo kk End If If Trim(mrc.Fields(5) = Then mrc.Fields(5) = 0 End If If (lv lvs And Val(mrc.Fields(5) = 18) = True Then mrc.Fields(7) = 是 mrc.Update Do While (mrc1.EOF = False) If Trim(mrc1.Fields(0) = Trim(mrc.Fields(0) Then flag =

16、 1 Exit Do End If mrc1.MoveNext Loop If flag 1 Then mrc1.AddNew mrc1.Fields(0) = mrc.Fields(0) mrc1.Fields(1) = mrc.Fields(1) mrc1.Fields(2) = mrc.Fields(2) mrc1.Fields(3) = mrc.Fields(3) mrc1.Fields(4) = mrc.Fields(4) mrc1.Fields(5) = mrc.Fields(5) mrc1.Fields(6) = mrc.Fields(6) mrc1.Update Else fl

17、ag = 0 End If GoTo kk End If If Trim(mrc.Fields(6) = Then mrc.Fields(6) = 0 End If If (st sts And Trim(mrc.Fields(6) = Trim(1) = True Then mrc.Fields(7) = 是 mrc.Update Do While (mrc1.EOF = False) If Trim(mrc1.Fields(0) = Trim(mrc.Fields(0) Then flag = 1 Exit Do End If mrc1.MoveNext Loop If flag 1 Th

18、en mrc1.AddNew mrc1.Fields(0) = mrc.Fields(0) mrc1.Fields(1) = mrc.Fields(1) mrc1.Fields(2) = mrc.Fields(2) mrc1.Fields(3) = mrc.Fields(3) mrc1.Fields(4) = mrc.Fields(4) mrc1.Fields(5) = mrc.Fields(5) mrc1.Fields(6) = mrc.Fields(6) mrc1.Update Else flag = 0 End If GoTo kk End If If Trim(mrc.Fields(4

19、) = Then mrc.Fields(4) = 0 End If If (Val(mrc.Fields(4) 80) = True Then mrc.Fields(7) = 是 mrc.Update Do While (mrc1.EOF = False) If Trim(mrc1.Fields(0) = Trim(mrc.Fields(0) Then flag = 1 Exit Do End If mrc1.MoveNext Loop If flag 1 Then mrc1.AddNew mrc1.Fields(0) = mrc.Fields(0) mrc1.Fields(1) = mrc.

20、Fields(1) mrc1.Fields(2) = mrc.Fields(2) mrc1.Fields(3) = mrc.Fields(3) mrc1.Fields(4) = mrc.Fields(4) mrc1.Fields(5) = mrc.Fields(5) mrc1.Fields(6) = mrc.Fields(6) mrc1.Update Else flag = 0 End If GoTo kk End If mrc.Fields(7) = 否kk: mrc.MoveNext Next i mrc.MoveFirst For i = 0 To mrc.RecordCount - 1

21、 If Trim(mrc.Fields(7) = 是 Then abcount = abcount + 1 End If mrc.MoveNext Next i End If frmMain.abnormalsum.Text = Str(abcount) MsgBox 异常检测完成，请到“异常显示”菜单项中查看各异常记录！, vbOKOnly + vbExclamation, 添加用户End SubPrivate Sub about_Click()frmAbout.showEnd SubPrivate Sub addbaseweb_Click() frmaddbase.Left = frmad

22、dbase.Left + 4000 frmaddbase.Top = frmaddbase.Top + 4000 frmaddbase.show End SubPrivate Sub alarmtime_Click()frmalarmtime.showfrmalarmtime.Left = frmalarmtime.Left + 3500frmalarmtime.Top = frmalarmtime.Top + 3500End SubPrivate Sub allcysshow_Click() txtSQL = select * from base_Info Set mrc = Execute

23、SQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox 日前没有移动基站的数据，无法循环显示！, vbOKOnly + vbExclamation, 警告 Else Timer2.Enabled = True End If End SubPrivate Sub coditionshow_Click() txtSQL = select * from abnormal_Info Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox 日前没有异常移动基站的数据，无法循环显示

24、！, vbOKOnly + vbExclamation, 警告 Else Timer3.Enabled = True End IfEnd SubPrivate Sub cycinteral_Click()frminterval.showEnd SubPrivate Sub exit_Click()EndEnd SubPrivate Sub Form_Load()Timer1.Enabled = True ok.Visible = False last.Visible = False next1.Visible = False yesok.Visible = False Label14.Visi

25、ble = False Label15.Visible = False Label16.Visible = False Label17.Visible = False If username = admin Then menuSystem.Enabled = True Else menuSystem.Enabled = False End If txtdata.Text = Date txtime.Text = Time txtSQL = select * from base_Info Set mrc = ExecuteSQL(txtSQL, MsgText) End SubPrivate S

26、ub last_Click() mrc.MovePrevious If mrc.BOF = False Then txtbaseno.Text = mrc.Fields(0) If mrc.Fields(1) Then txtbasename.Text = mrc.Fields(1) Else txtbasename.Text = End If If mrc.Fields(2) Then txtintemperature.Text = mrc.Fields(2) Else txtintemperature.Text = End If If mrc.Fields(3) Then txtoutem

27、perature.Text = mrc.Fields(3) Else txtoutemperature.Text = End If If mrc.Fields(4) Then txthumidity.Text = mrc.Fields(4) Else txthumidity.Text = End If If mrc.Fields(5) Then txtvoltage.Text = mrc.Fields(5) Else txtvoltage.Text = End If next1.Enabled = True Else mrc.MoveFirst next1.Enabled = True las

28、t.Enabled = False End IfEnd SubPrivate Sub menuAdduser_Click() gintMode = 1 frmadduser.show frmadduser.ZOrder 0End SubPrivate Sub menudeluser_Click()gintMode = 1 frmdeluser.show frmdeluser.ZOrder 0End SubPrivate Sub menuExit_Click()EndEnd SubPrivate Sub menuModifypwd_Click() gintMode = 1 frmmodipwd.

29、show frmmodipwd.ZOrder 0End SubPrivate Sub next1_Click() mrc.MoveNext If mrc.EOF = False Then txtbaseno.Text = mrc.Fields(0) If mrc.Fields(1) Then txtbasename.Text = mrc.Fields(1) Else txtbasename.Text = End If If mrc.Fields(2) Then txtintemperature.Text = mrc.Fields(2) Else txtintemperature.Text =

30、End If If mrc.Fields(3) Then txtoutemperature.Text = mrc.Fields(3) Else txtoutemperature.Text = End If If mrc.Fields(4) Then txthumidity.Text = mrc.Fields(4) Else txthumidity.Text = End If If mrc.Fields(5) Then txtvoltage.Text = mrc.Fields(5) Else txtvoltage.Text = End If last.Enabled = True Else mr

31、c.MoveLast next1.Enabled = False last.Enabled = True End IfEnd SubPrivate Sub ok_Click()sdemperature = Val(txtstemperature.Text)ok.Visible = Falseabnormity.Enabled = TrueEnd SubPrivate Sub onebyone_Click()ok.Visible = Truelast.Visible = Truenext1.Visible = Trueyesok.Visible = TruetxtSQL = select * f

32、rom base_Info order by 基站编号Set mrc = ExecuteSQL(txtSQL, MsgText)txtbaseno.Enabled = Falsetxtbasename.Enabled = Truetxtintemperature.Enabled = Truetxtoutemperature.Enabled = Truetxthumidity.Enabled = Truetxtvoltage.Enabled = TrueEnd SubPrivate Sub Text7_Change()End SubPrivate Sub showtime_Click()frmt

33、ime.showfrmtime.Timer1.Enabled = Truefrmtime.Left = frmtime.Left + 3500frmtime.Top = frmtime.Top + 3500End SubPrivate Sub Timer1_Timer()If mrc.EOF True And mrc.BOF True Thentxtime.Text = Timeh2 = Hour(Time)m2 = Minute(Time)s2 = Second(Time)If s2 = s1 Then s3 = s2 - s1 If m2 = m1 Then m3 = m2 - m1 h3

34、 = h2 - h1 Else m3 = 60 + m2 - m1 h3 = h2 - h1 - 1 End IfElse s3 = 60 + s2 - s1 If m2 = (m1 - 1) Then m3 = m2 - m1 - 1 h3 = h2 - h1 Else m3 = 60 + m2 - m1 h3 = h2 - h1 - 1 End IfEnd IfIf Val(txtintemperature.Text) 35 Thentxthigher.Text = Str(h3) + 时 + Str(m3) + 分 + Str(s3) + 秒ht = h3 * 60 + m3 + s3

35、/ 60Elsetxthigher.Text = 0时0分0秒ht = 0End IfIf Trim(mrc.Fields(6) = Trim(1) Thentxtstop.Text = Str(h3) + 时 + Str(m3) + 分 + Str(s3) + 秒st = h3 * 60 + m3 + s3 / 60Elsetxtstop.Text = 0时0分0秒st = 0End IfIf Val(txtvoltage.Text) hts Then If flag = 0 Then Label14.Visible = True Label14.ForeColor = 255 flag =

36、 1 Else Label14.Visible = False Label14.ForeColor = 0 flag = 0 End If Else Label14.Visible = False End If If st sts Then If flag = 0 Then Label15.Visible = True Label15.ForeColor = 255 flag = 1 Else Label15.Visible = False Label15.ForeColor = 0 flag = 0 End If Else Label15.Visible = False End If If lv lvs Then If flag = 0 Then Label16.Visible = True Label16.ForeColor = 255 flag = 1 Else Label16.Visible =