通讯录信息管理系统

摘  要…………………………………………………………………………1
Abstract………………………………………………………………………2
第一章  引言…………………………………………………………………4
1．1  课题背景……………………………………………………………………4
1．2  系统简介……………………………………………………………………5
1. 3   开发工具介绍
第二章 系统的分析……………………………………………………………6
2．1  系统开发的目标和思想……………………………………………………6
2．2  系统的可行性分析…………………………………………………………8
第三章  系统的设计……………………………………………………………18
3．1  系统的功能结构设计………………………………………………………18
3．2  系统的数据库设计
3．3  界面设计与代码设计……………………………………………………………………23
…………………………………………………………24
结束语………………………………………………………………………………46
致谢…………………………………………………………………………………47 [来源：http://think58.com]
参考文献………………………………………………… [资料来源：THINK58.com]

摘要

[资料来源：http://THINK58.com]

本通讯录信息管理系统用计算机管理电子通讯录的一种计算机应用技术的创新,在计算机还未普及之前通讯管理都是由联系人采用名片,笔录手工记帐的方式来操作的.现在一般的通讯录管理都是采用计算机作为工具的实用的计算机通讯录管理程序来帮助人们进行更有效的通讯录信息管理。通讯录管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
    经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。 copyright think58 [来源：http://think58.com]

关键字: 通讯录信息管理,管理信息系统,visual basic ,access 本文来自think58

1．2  系统简介
本系统主要功能是帮助人们管理通讯录信息,包括联系人的姓名,年龄,电话,手机,地址等信息.主要由以下功能模块构成:
一.联系人详细信息(性别,年龄,生辰,星座,属相,血型,地址,电话,手机,宅电,传呼,传真,邮箱,备注) think58.com [资料来源：http://THINK58.com]

二.文件(新建数据库,退出)
三.帮助

[来源：http://think58.com]

1. 3   开发工具介绍

copyright think58 [资料来源：http://www.THINK58.com]

[资料来源：http://think58.com]

Visual Basic 6.0是Micrsoft公司出品的开发工具，Visual Basic是一种可视化的，面向对象的Windows开发语言，它具有易用，通用和开发效率高的特点。随着微软对它不断地改进以及计算机本身性能的提高，使得Visual Basic越来越适合一般的应用程序开发。正如Bill Gate所说，世界上绝大多数的Windows应用程序是用Visual Basic编写的。在众多的开发工具中，我们为什么要选择Visual Basic6.0呢？因为VB具有众多其它开发工具所没有的优点！具体介绍如下：
    开发的高效
 语言的高效
 编译的高效
 执行的高效
 维护的高效
基于以上理由，我们毫不忧郁的选择了VB6.0做为我们的开发工具！！ 内容来自think58 [资料来源：http://think58.com]

1.1.1 主要的控件及其基本属性，事件简介
 命令按钮类的控件：
1) Caption属性：用来显示在控件上的标题。
2) Enable属性：控制控件的激活状态灰色或可用。
3) Appearance属性：值为1时,则以3D效果显示该控件,0则不然。
4) Backcolor属性：用来改变在按钮上显示图像的背景色。
5) Cancel属性：该属性决定按钮是否为一个”取消”按钮。
6) Default属性:决定哪一个命令按钮控件是窗体的缺省命令按钮.
7) Font属性:控制各种文字字体类型.
8) Left,top,height,width属性:设定控件的位置与大小.
9) Style,picture属性:决定按钮的显示方式是否为图像形式出现.
10) Visible属性:确定控件运行时是否为可见.
11) Index属性:当控件为一控件数组时,此属性值为该控件在数组的下标值.
12) DownPicture属性：设置/返回一个对图片的引用，该图片在按钮被单击处于压下状态时显示。
13) DisabledPicture属性：设置/返回一个对图片的引用，该图片在控件无效时显示在控件中。
14) MaskColor属性：设置/返回一个在按钮的图片中作为“掩码“的的颜色
15) Picture属性：设置返回commandButton控件中要显示的图片。

copyright think58

 命令按钮类的事件：
1） 单击事件――Click事件

think58

[资料来源：www.THINK58.com]

[来源：http://www.think58.com]

第二章 系统的设计 内容来自think58

[来源：http://www.think58.com]

3．1 系统的功能结构设计
 

3．2 系统的数据库设计 内容来自think58 [资料来源：http://THINK58.com]

1. 联系人信息表: 内容来自think58 [来源：http://think58.com]

 

think58 [资料来源：http://think58.com]

2.mdbnumber表:
 

copyright think58

[来源：http://think58.com]

[资料来源：http://THINK58.com]

3．3 界面设计与代码设计 [资料来源：www.THINK58.com]

1. 主界面:
2. 
主界面代码分析:
'本程序是我初学VB时的作品，中文注释。
'现在看来有很多语句没有优化，算法也一般。
'由于时间关系，我没有修改，现提供源代码，
'若有疑问，欢迎来信，我们可以共同探讨。

Option Explicit
Public mdbFile, mdbDataName As String
Public DataNumbel As Integer
Public Uo As Boolean
Public ListView_Name, ListView_QQ, ListView_Love As String
Public ListViewItem As Integer
Public Password As String

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 = "Mind's Tray Icon Example" & Chr$(0)
     '将图标放到任务栏
    Call Shell_NotifyIcon(NIM_ADD, TrayIcon)
    App.TaskVisible = False
End Sub [资料来源：THINK58.com]

Private Sub About_Click() '关于版本
frmabout.Show vbModal
End Sub

[来源：http://think58.com]

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

copyright think58 [来源：http://www.think58.com]

             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

think58好，好think58 [资料来源：http://think58.com]

[资料来源：www.THINK58.com]

Private Sub DocuAdd_Click() '添加记录
Uo = False
  frmTJ.Command2.Enabled = False
  Load frmTJ
  frmTJ.Show vbModal
End Sub

本文来自think58

[资料来源：http://think58.com]

[资料来源：http://www.THINK58.com]

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, "警告")

think58 [来源：http://www.think58.com]

          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
 ' ListRefresh
End Sub

本文来自think58

[资料来源：http://think58.com]

[资料来源：www.THINK58.com]

Private Sub DocuExit_Click() '退出程序
  Unload frmData
 
End Sub 内容来自think58 [资料来源：THINK58.com]

Private Sub DocuSeek_Click() '查询记录
numRem_Click
  Load frmCX
  frmCX.Show vbModal
 
End Sub 内容来自think58 [来源：http://think58.com]

Private Sub Form_Resize()
 If WindowState = 1 Then Me.Visible = False
End Sub
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
 ' SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag '设置窗口在前
  Dim i As String
  Dim j As Integer
  '开始初始化
  For j = 0 To 13
     Text1(j).Text = ""
  Next j
End Sub

think58.com

Private Sub numMPgl_Click()
 On Error GoTo ErrHandle
 frmData.Caption = "信息管理 -- " & mdbFile & "[" & mdbDataName & "]"
'设置字符串变量来调用SQL语句 think58.com

[资料来源：http://www.THINK58.com]

  SQLoriginal = "select * from " & frmData.mdbDataName '"Data"
  SQLadd = " where Name=Name"
  SQLorder = ""
  Data1.DatabaseName = mdbFile '"\MyNote.mdb"
  Data1.RecordSource = SQLoriginal + SQLadd + SQLorder
  Data1.Refresh
 ListRefresh
  Exit Sub
  '错误处理
ErrHandle:
 MsgBox Err.Description
End Sub think58.com

[资料来源：www.THINK58.com]

Private Sub ListView1_Click()
If ListView1.ListItems.Count > 0 Then
Dim i, Count As Integer
  Count = ListView1.SelectedItem.Index
  Data1.Recordset.MoveFirst
  i = 1
  Do While i < Count
    Data1.Recordset.MoveNext
    i = i + 1
  Loop
  '("Name")
  '("Oicq")
  ListViewItem = Count
   frmData.Text1(0).Text = frmData.Data1.Recordset.Fields("Sex") 'lPassword(frmData.Data1.Recordset.Fields("Sex"))
   frmData.Text1(1).Text = frmData.Data1.Recordset.Fields("Age") ' lPassword(frmData.Data1.Recordset.Fields("Year"))
  'Age年龄
 
   frmData.Text1(2).Text = frmData.Data1.Recordset.Fields("Year") 'lPassword(frmData.Data1.Recordset.Fields("Constell"))
   frmData.Text1(3).Text = frmData.Data1.Recordset.Fields("Constell")
   frmData.Text1(4).Text = frmData.Data1.Recordset.Fields("Attributive")
   frmData.Text1(5).Text = frmData.Data1.Recordset.Fields("Blood") 'lPassword(frmData.Data1.Recordset.Fields("Address"))

本文来自think58

[版权所有：http://think58.com]

  
   frmData.Text1(6).Text = frmData.Data1.Recordset.Fields("Address") 'lPassword(frmData.Data1.Recordset.Fields("Address"))
   frmData.Text1(7).Text = frmData.Data1.Recordset.Fields("TelepNo") ' lPassword(frmData.Data1.Recordset.Fields("TelepNo"))
   frmData.Text1(8).Text = frmData.Data1.Recordset.Fields("MoveCall") 'lPassword(frmData.Data1.Recordset.Fields("MoveCall"))
   frmData.Text1(9).Text = frmData.Data1.Recordset.Fields("Home") 'lPassword(frmData.Data1.Recordset.Fields("Home"))
   frmData.Text1(10).Text = frmData.Data1.Recordset.Fields("Call") 'lPassword(frmData.Data1.Recordset.Fields("Call"))
   frmData.Text1(11).Text = frmData.Data1.Recordset.Fields("Fax") 'lPassword(frmData.Data1.Recordset.Fields("Fax"))
   frmData.Text1(12).Text = frmData.Data1.Recordset.Fields("Email") ' lPassword(frmData.Data1.Recordset.Fields("Email"))
   frmData.Text1(13).Text = frmData.Data1.Recordset.Fields("Appendix") 'lPassword(frmData.Data1.Recordset.Fields("Appendix"))

think58好，好think58

End If
End Sub

Private Sub ListView1_DblClick() '双击修改
ListView1_Click
numUo_Click
End Sub think58.com [资料来源：http://THINK58.com]

Private Sub ListView1_ItemClick(ByVal Item As ComctlLib.ListItem)
'---------------------
ListView1_Click
End Sub 本文来自think58

Private Sub mdbFileData_Click(Index As Integer)
   mdbDataName = "Data" & CStr(Index)
   numMPgl_Click
End Sub [来源：http://think58.com]

Private 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 Sub
DataNumbel = 0
New_click '新建数据库
nummdbData_Click
Dim i As Integer
For i = 2 To 5
      mdbFileData(i).Visible = False
Next i
DocuManage.Visible = True
DocuInquir.Visible = True
numOption.Visible = True
End Sub
参 考 文 献

think58 [资料来源：THINK58.com]

1陈明 . 软件工程学教程 .科技出版社，2002
2 萨师煊，王珊 . 数据库系统概论 . 第三版 . 高等教育出版社，2000
3 飞思科技产品研发中心 . visual basic 6.0数据库应用开发 .电子工业出版社，2003
4 飞思科技产品研发中心 . visual basic 6.0开发者手册 . 电子工业出版社, 2002
5 申旻 . visual basic 6.0高手突破 . 清华大学出版社，2002，302
[来源：http://think58.com]