QQ信息管理系统设计

长沙理工大学课程设计成绩评定学 院 城南学院 专 业 计算机科学与技术 班 级 计算机04-03 学 号 200450250315 学生姓名 陈春 指导教师 邓广慧 课程成绩 完成日期 2007年1月5日 指导教师对学生在课程设计中的评价评分项目优良中及格不及格课程设计中的创造性成果学生掌握课程内容的程度课程设计完成情况课程设计动手能力文字表达学习态度规范要求课程设计论文的质量指导教师对课程设计的评定意见综合成绩 指导教师签字 年 月 日QQ信息管理系统设计学生姓名：陈春 指导老师：邓广慧摘要： 随着计算机技术的飞速发展，计算机在家庭甚至个人生活中的应用日益普及，利用计算机实现个人信息的管理势在必行。从几年以前QQ的开始出现，到现在QQ的盛行，利用计算机进行通讯也日益被人所支持，从而QQ信息管理系统的出现就很是平常。本系统是根据个人信息管理的需要，联系个人信息所包含的必要内容，经过实际的需求分析，采用功能强大的Visual Basic6.0作为开发工具而开发出来的单机版QQ信息管理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成QQ信息管理的全过程，包括按个人需要建立信息数据库并可为该数据库设置入库密码（该密码可以修改）、信息添加、信息修改、信息删除（包含单个和全部删除）、信息查询。允许存在多个好友组，对应不同QQ号所加的好友，可以根据9种方式进行查询工作，允许精确查询和模糊查询，实现多条件动态查询。关键词： Visual Basic6.0，QQ信息管理目 录1 引言1.1、课题来源-41.2、使用工具选择-42 需求分析2.1、总体需求调查-5组织结构图系统目标应用现状调查业务总体流程调查2.2、系统功能调查-6信息数据管理功能系统维护功能2.3、系统功能模块图-73 概要设计3.1、概念设计-83.2、数据库设计-84 详细设计4.1、启动界面设计-9功能说明源程序分析4.2、数据库管理模块的实现-12功能说明源程序分析4.3 主窗口设计-14功能说明源程序分析4.4 信息管理模块的实现-15基本信息查看、修改、添加、删除 功能说明源程序分析基本信息条件查询功能说明源程序分析4.5 系统维护模块设计-24安全性维护关于系统5 系统测试6 设计小结7 致 谢8 参考文献1 引言1.1、课题来源随着计算机技术的飞速发展，计算机在个人中的应用越来越大，许多烦琐的或记忆的工作都让计算机来进行。自从几年以前QQ的出现，到现在熟悉计算机的人几乎都知道甚至拥有一个或几个QQ号，但我们可以发现QQ在详细个人信息的设置上还不能满足大多数人的需要，而此就需要一个稍微完整一点的信息管理系统来辅助QQ的流行。同时计算机具有着手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高信息管理的效率。1.2、使用工具选择现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft公司的Visual BasicMicrosoft公司的Visual CBorland公司的Delphi Powersoft公司的PowerBuliderJava等等在目前市场上这些众多的程序开发工具中，有些强调程序语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程序语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点：可视化编程：面向对象的程序设计结构化程序设计语言事件驱动编程机制访问数据库动态数据交换(DDE)对象的链接与嵌入(OLE)动态链接库(DLL)2 需求分析2.1、总体需求调查组织结构图 个人信息的组织结构图如下： 系统目标采用个人现有的软硬件软件及科学的管理系统开发方案，建立QQ信息管理系统，实现QQ个人信息管理的计算机自动化。系统应符合个人联系方式的需要，并达到操作直观、方便、实用、安全等要求。应用现状调查如今QQ盛行，E-mail的流行，个人信息系统的开发和使用也越来越被人们所希望。业务总体流程调查2.2、系统功能调查 整个系统从总体上分为信息数据管理、系统维护二大部分，每一部分应实现的功能如下：信息数据管理功能 个人信息数据库的建立 数据库中数据表的建立 数据库密码的设立和修改 信息的添加 信息的删除 信息的修改 信息的查询系统维护功能 信息数据的维护：实现灵活的数据维护 数据库用户管理：修改数据库打开密码2.3、系统功能模块图3 概要设计3.1、概念设计QQ信息管理系统ER图：QQ信息管理系统关系模式：个人信息（姓名，性别，生辰，年龄，昵称，OICQ，星座，属相，血型，地址，电话，手机，宅电，传呼，传真，邮箱，备注）3.2、数据库设计本系统个人信息分为姓名（Name），性别（Sex），生辰（Year），年龄（Age），昵称（Love），OICQ（Oicq），星座（Constell），属相（Attributive），血型（Blood），地址（Address），电话（TelepNo），手机（MoveCall），宅电（Home），传呼（Call），传真（Fax），邮箱（Email）和备注（Appendix）等。数据库表设计如下：数据库中包含的数据表：4 详细设计4.1、启动界面设计功能说明 上图为本系统刚启动时的界面，从菜单栏的“文件”中用户可以新建中选择新建数据库，此时无法新建数据表，数据表是在用户新建了数据库之后在数据库中才能新建数据表。建立数据库进行保存时要选择路径。 另外，也可以通过“打开”来打开用户已经建立的数据库。可为以建立的数据库设立一个打开密码，以此来保护用户个人隐私，此密码可修改（见数据库管理模块）。源程序分析 Private Sub TuBiao() 初始化任务栏图标 Me.Move (Screen.Width - Me.Width) / 3, (Screen.Height - Me.Height) / 3 TrayIcon.cbSize = Len(TrayIcon) TrayIcon.hwnd = Me.hwnd TrayIcon.uId = vbNull TrayIcon.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE TrayIcon.ucallbackMessage = WM_MOUSEMOVE TrayIcon.hIcon = Me.Icon 提供任务栏图标 TrayIcon.szTip = Minds Tray Icon Example & Chr$(0) 将图标放到任务栏 Call Shell_NotifyIcon(NIM_ADD, TrayIcon) App.TaskVisible = FalseEnd SubPrivate Sub numAcess_Click() 新建数据库mdbFile = DialogFile(Me.hwnd, 0, 新建数据库记录, MyData, Access(*.mdb) & Chr(0) & *.mdb & Chr(0) & All files(*.*) & Chr(0) & *.*, App.Path, mdb)If mdbFile = Then Exit SubDataNumbel = 0New_click 新建数据库nummdbData_ClickDim i As IntegerFor i = 2 To 5 数据表的显示 mdbFileData(i).Visible = FalseNext iDocuManage.Visible = True 菜单栏按钮显示DocuInquir.Visible = True 菜单栏按钮显示numOption.Visible = True 菜单栏按钮显示End SubPublic Sub New_click() 单击新建按钮 On Error GoTo Err100 建立数据库 CreateDatabase frmData.mdbFile, dbLangGeneral cmdNumbel_Click Exit Sub Err100: MsgBox 数据库建立失败! & vbCrLf & vbCrLf & Err.Description, vbInformationEnd SubPrivate Sub numOpen_Click() 打开用户原有的数据库On Error GoTo ErrHandlemdbFile = DialogFile(Me.hwnd, 1, 打开数据库记录, , Access(*.mdb) & Chr(0) & *.mdb & Chr(0) & All files(*.*) & Chr(0) & *.*, App.Path, mdb)If mdbFile = Then Exit Sub 数据文件为空，则退出nummdbData.Enabled = TrueDim i As IntegerFor i = 2 To 5 数据表的显示 mdbFileData(i).Visible = FalseNext iDocuManage.Visible = True 菜单栏按钮显示DocuInquir.Visible = True 菜单栏按钮显示numOption.Visible = True 菜单栏按钮显示frmLogin.Show vbModal 密码框的显示If NoLogin = True Then End 密码正确开始显示ReadNumbelmdbDataName = data1 数据表默认为第一个numMPgl_ClickExit SubErrHandle: Exit SubEnd Sub4.2、数据库管理模块的实现 打开数据库时的密码输入 数据库密码修改功能说明利用VB与SQL的结合实现数据库的运用。文件菜单中的“打开”用来打开数据库，“新建”用来建立个人信息数据库。“选项”中的数据表可以切换当前LISTVIEW中的数据表显示，也可以利用该选项中的修改密码选项来对数据库的密码进行设置与修改源程序分析打开数据库时： Private Sub cmdCancel_Click() 取消登录 NoLogin = True Unload MeEnd SubPrivate Sub cmdOK_Click() 密码正确，成功登陆 frmData.Data1.Connect = ;pwd= & txtPassword 密码确认 frmData.Password = txtPassword NoLogin = False Unload MeEnd SubPrivate Sub Form_Load() 要打开数据库的路径显示 NoLogin = True txtUserName = frmData.mdbFileEnd Sub数据库密码修改： Private Sub cmdCancel_Click() 取消登录 Private Sub cmdOK_Click() If NewPassword.Text = txtPassword.Text Then frmData.Data1.Database.NewPassword frmData.Password, NewPassword.Text frmData.Password = NewPassword.Text MsgBox 密码修改已成功,请您牢记！, vbOKOnly 返回信息 Unload Me frmData.Show Else 新密码输入不一致，返回信息 MsgBox 新密码不一致，请重新输入！, vbOKOnly NewPassword.Text = End IfEnd SubPrivate Sub Form_Load() 要打开数据库的路径显示 txtUserName = frmData.mdbFileEnd Sub4.3 主窗口设计 打开一个用户数据库后主窗口的显示如下图：功能说明界面大体分为两块：简要列表显示和详细情况显示通过联系数据库，用户可以单击列表中的个人信息，此时详细情况就会显示在右边的表中。用户也可以双击列表信息查看详细信息（见信息管理模块的实现）源程序分析Private Sub Form_Load() 程序初始化 If App.PrevInstance Then Dim Recut As Integer Recut = MsgBox(程序已经运行，请检查窗口是否已被最小化！, 48, 提示) Unload Me Exit Sub End If ListViewStyle_Click 使ListView控件可以整行选择 ListViewStyleBiaoG_Click 使ListView控件有表格风格 ListViewStyleOne_Click 允许单击选择 ListViewStyleTwo_Click 允许双击选择 Frm_Load TuBiao Dim i As String Dim j As Integer 开始初始化 For j = 0 To 13 Text1(j).Text = Next jEnd SubPrivate Sub ListView1_Click() 单击事件Private Sub ListView1_DblClick() 双击修改Private Sub numRem_Click() 刷新数据窗口4.4 信息管理模块的实现基本信息查看、修改、添加、删除 查看信息 删除一条记录提示 删除所有记录提示功能说明 基本信息的查看有二种方法：1、单击信息列表中的信息看右边详细情况表 2、双击信息列表中的信息出现详细情况表 基本信息的修改有二种方法：1、双击信息列表中的信息进行修改 2、单击选择一条信息运用信息菜单中的修改选项进行修改 基本信息的添加利用信息菜单中的添加选项 基本信息的删除有二种形式：1、删除单个信息 2、删除所有信息 在信息菜单中的后两个选项源程序分析查看信息： Private Sub ListView1_DblClick() 双击查看ListView1_Click 数据库中的信息单击numUo_ClickEnd Sub修改信息： Private Sub ListView1_DblClick() 双击修改ListView1_Click 数据库中的信息单击numUo_ClickEnd Sub Private Sub numUo_Click() 修改记录If ListView1.ListItems.Count 0 ThenListView_Name = ListView1.ListItems(ListViewItem).SubItems(1) 修改信息的显示 ListView_QQ = ListView1.ListItems(ListViewItem).SubItems(2) 修改信息的显示 ListView_Love = ListView1.ListItems(ListViewItem).SubItems(3) 修改信息的显示 Uo = True frmTJ.Command1.Enabled = False frmTJ.Show vbModalElse MsgBox 请选择要修改的记录！, vbOKOnly, 警告 SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag 设置窗口在前 SetWindowPos Me.hwnd, HWND_notopmost, 0, 0, 0, 0, flag 设置窗口在前End IfEnd Sub添加信息： Private Sub DocuAdd_Click() 添加记录Uo = False frmTJ.Command2.Enabled = False 修改按钮无效 Load frmTJ frmTJ.Show vbModalEnd Sub删除信息： 删除所有信息 Private Sub DeleteAll_Click() Dim Result If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then Result = MsgBox(所有记录将被删除！, vbYesNo, 警告) SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag 设置窗口在前 If Result = vbYes Then frmData.Data1.Recordset.MoveLast frmData.Data1.Recordset.MoveFirst Dim i As Integer For i = 1 To frmData.Data1.Recordset.RecordCount Data1.Recordset.Delete frmData.Data1.Recordset.MoveNext Next i Data1.Refresh ListRefresh End If Else Result = MsgBox(无法删除记录！, vbOKOnly, 提示) End If SetWindowPos Me.hwnd, HWND_notopmost, 0, 0, 0, 0, flag 设置窗口在前End Sub删除单个Public Sub DocuDelete_Click() 删除记录 Dim Result If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then If frmData.ListView1.ListItems.Count 0 Then If ListView1.SelectedItem.Index 0 Then Result = MsgBox(当前记录将被删除！, vbYesNo, 警告) SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag 设置窗口在前 If Result = vbYes Then Data1.Recordset.Delete Data1.Refresh ListRefresh End If Else Result = MsgBox(请选择要删除的记录！, vbOKOnly, 警告) SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag 设置窗口在前 End If End If Else Result = MsgBox(无法删除当前记录！, vbOKOnly, 提示) End If SetWindowPos Me.hwnd, HWND_notopmost, 0, 0, 0, 0, flag 设置窗口在前 End Sub基本信息条件查询功能说明 用户可以利用11种方法进行资料查询，分别是：昵称、OICQ号、姓名、性别、年龄、电话、手机、宅电、传呼、传真、E-mail。 另外，作者还为用户设立了两种查询方式：精确查询与模糊查询。精确查询的概念是用户在查询条件的输入上必须完全与存在的内容相符合，否则无法实施精确查询。相反，模糊查询用户可以只需输入与数据库中存在内容的一部分相同的信息就可以进行模糊查询。不过正如名字所取精确查询的精度要高于模糊查询。 用户可以在查询时选择多个查询条件进行查询活动，例如输入姓名与性别进行查询，进行多个选择的查询有助于提高查询精度。源程序分析 Private Sub Check1_Click(Index As Integer) Dim i As Integer For i = 0 To 10 Text1(i).Enabled = Check1(i).Value Next i 判断性别输入是否有效 Option1(0).Enabled = Check1(3).Value Option1(1).Enabled = Check1(3).Value 判断年龄输入是否有效 Frame2.Enabled = Check1(4).Value For i = 0 To 1 Check2(i).Enabled = Frame2.Enabled Next iEnd SubPrivate Sub Command1_Click() 模糊查询 On Error GoTo ErrHandle例如 年龄查询 If Check1(4).Value = 1 Then If Check2(0).Value = 1 And IsNumeric(Text2(0).Text) Then If Check2(1).Value = 1 Then SQLadd = SQLadd + and Age= + Text2(0).Text Else SQLadd = SQLadd + and Age= + Text2(0).Text End If Else If Check2(1).Value = 1 Then SQLadd = SQLadd + and Age= + Text2(1).Text End If End If End If 更新数据库显示信息 frmData.Data1.DatabaseName = frmData.mdbFile App.Path + MyNote.mdb frmData.Data1.RecordSource = SQLoriginal + SQLadd + SQLorder frmData.Data1.Refresh ListRefresh Unload Me Exit SubErrHandle: MsgBox Err.Description Unload Me Exit Sub End SubPrivate Sub Command2_Click() 精确查询 On Error GoTo ErrHandle例如 年龄查询 If Check1(4).Value = 1 Then If Check2(0).Value = 1 And IsNumeric(Text2(0).Text) Then If Check2(1).Value = 1 Then SQLadd = SQLadd + and Age= + Text2(0).Text Else SQLadd = SQLadd + and Age= + Text2(0).Text End If Else If Check2(1).Value = 1 Then SQLadd = SQLadd + and Age= + Text2(1).Text End If End If End If 更新数据库显示信息 frmData.Data1.DatabaseName = frmData.mdbFile frmData.Data1.RecordSource = SQLoriginal + SQLadd + SQLorder frmData.Data1.Refresh ListRefresh Unload Me Exit SubErrHandle: MsgBox Err.Description Unload Me Exit SubEnd SubPrivate Sub Command3_Click() 取消查询 Unload MeEnd SubPrivate Sub Form_Load() Dim i As Integer For i = 0 To 10 在不处于查询状态时，把文本框设置为失效 Text1(i).Text = Text1(i).Enabled = False Next i Option1(0).Enabled = Check1(3).Value Option1(1).Enabled = Check1(3).Value 判断年龄输入是否有效 Frame2.Enabled = Check1(4).Value For i = 0 To 1 Check2(i).Enabled = False Next iEnd SubPrivate Sub Check2_Click(Index As Integer) Text2(Index).Enabled = Check2(Index).ValueEnd Sub4.5 系统维护模块设计安全性维护 在本系统的安全性维护方面在介绍数据库密码设置时已经讲到。关于系统 此帮助界面有助于用户初步认识本数据库的大概，若有更好的建议用户可以写信给作者，进行交流。与Email相连接的源程序：Private Sub Label6_Click() Dim Email Email = ShellExecute(0&, vbNullString, mailto:zhoulufeng, vbNullString, vbNullString, vbNormalFocus) 连接OUTLOOKEnd Sub5 系统测试 此系统在已经建立好信息数据库的情况下，如果在没有装VB的机子上无法打开该数据库，会跳出一个对话框说：系统类未定义。因此在运行此程序前需要安装VB6.0，为此系统一大弊病。 此系统可运行于win98,win2000,winXP,win2003等windows系列的系统。6 设计小结在本次设计的全过程中，对所学的知识有了一个比较系统的认识和理解。涉及了各方面的知识，大大扩展了我的知识面，在设计中我深知自己掌握的知识还远远不够，掌握的一些理论知识应用到实践中去，总会出现这样或那样的问题，不是理论没有掌握好，而是光知道书本上的知识是远远不够的，一定要把理论知识和实践结合起来。把学到的知识应用到时间中去，多做多练，才可以把理论的精华发挥出来。知识不是知道，了解就好，一定要去应用它，发展它，让它在现实生活中得到充分的应用，从而解决一些问题，这才是学习的根本目的。而且知识又不是单一的，它是互相联系的，学科与学科之间都有着内在的联系。计算机是一门非常复杂且庞大的学科，一项课题往往需要多项技术才可以完成的。在设计阶段，通过对课题的深入分析与研究，对技术有了一定的了解。 通过这次设计，学到了许多书本上学不到的知识，增强了动手能力。按部就班的完成设计任务，但由于的知识水平有限，仍然存在很多的不足之处，恳请老师多多指教！当今的社会是竞争的社会，而人才的竞争则是竞争的焦点。计算机技术的高速发展，深深地认识到只有不断的加强学习，才能在计算机技术方面不至于被淘汰，今后，还要加强学习，成为一位专业的计算机人员，为所从事的工作服务。 7 致 谢 在设计过程中，遇到了许多问题，在老师和同学的悉心帮助下，问题都被解决了，在这里非常感谢帮助我的老师和同学，让我感觉到了集体的力量是无穷的。8 参考文献 1 李世杰.网页设计手册.北京:清华大学出版社，1999 2 前沿电脑图像工作室.巧学巧用Dreamweaver、Fireworks、Flash制作网页.北京:人民邮电出版社 3 张剑平.信息管理系统.北京：中国铁道出版社，1997 4 邓文渊，陈惠贞，陈俊华.网页数据库设计.中国铁路出版社,20045 罗娟.WEB与数据库技术. 计算机工程,1998,24(8)6 张小斌、严望佳。黑客分析与防范技术。北京：清华大学出版社，1999年5月，ISBN7-302-03460-5/TP.1885 7 美Arthur Griffith著. GCC技术参考大全M. 清华大学出版社. 2004.7.8 美Christopher Negus著. Red Hat Linux 9宝典M. 电子工业出版社.2004.10.9 周亚飞.数据库系统项目开发. 北京：科学出版社，2005年10 张海藩.软件工程导论. 北京：清华大学出版社，2003年 26