VB447 通讯录信息管理系统论文Access

第一章 系统的分析
2．1 系统开发的目标和思想
   本系统主要日常通讯录管理而开发的.目的是方便人们管理联系人通讯工作需要,提高政府部门办事效率,提高数据存储的可靠性.在此基础上做到界面的友好人性化还有程序的健壮性.

2．2 系统的可行性分析
经济上:本系统方便政府无纸化办公需要,节约了政府支出.在经济上具有可行性.
技术上:本系统采用visual basic 于微软的Access结合的方式.具有可行性.
社会上:本系统服务于大众部门,同时也方便了广大人民需要,具有社会可行性. [资料来源：http://think58.com]

第二章 系统的设计
3．1 系统的功能结构设计
1. 联系人信息表:
2.mdbnumber表: copyright think58 [版权所有：http://think58.com]

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

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

Option Explicit
Public mdbFile, mdbDataName As String
Public DataNumbel As Integer
Public Uo As Boolean
Public ListView_Name, ListView_QQ, ListView_Love As String
'-------------------------*********任务栏图标**********-------------------------------
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static Message As Long
Static RR As Boolean
    Message = X / Screen.TwipsPerPixelX
    If RR = False Then
        RR = True
        Select Case Message
            Case WM_LBUTTONDBLCLK  'DblClick
               If WindowState = 1 Then
                 SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag '设置窗口在前
                 WindowState = 0 'Me.Show [来源：http://www.think58.com]
                 Me.Visible = True
                 SetWindowPos Me.hwnd, HWND_notopmost, 0, 0, 0, 0, flag '设置窗口在前
               Else
                 WindowState = 1
                 Me.Visible = False
               End If
            Case WM_RBUTTONUP
                Me.PopupMenu numFile
        End Select
        RR = False [资料来源：http://www.THINK58.com]
    End If
End Sub

think58.com