个人信息管理系统—计算机毕业设计(论文

个人信息管理系统—计算机毕业设计(论文内容摘要：

Sub numMPgl_Click() On Error GoTo ErrHandle = 信息管理 amp。 mdbFile amp。 [ amp。 mdbDataName amp。 ] 39。 设置字符串变量来调用 SQL 语句 SQLoriginal = select * from amp。 39。 Data SQLadd = where Name=Name SQLorder = = mdbFile 39。 \ = SQLoriginal + SQLadd + SQLorder ListRefresh Exit Sub 39。 错误处理 ErrHandle: MsgBox End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub ListView1_Click() If 0 Then Dim i, Count As Integer Count = i = 1 Do While i Count i = i + 1 Loop 39。 (Name) 39。 (Oicq) ListViewItem = Count (0).Text = (Sex) 39。 lPassword((Sex)) (1).Text = (Age) 39。 lPassword((Year)) 39。 Age 年龄 (2).Text = (Year) 39。 lPassword((Constell)) (3).Text = (Constell) (4).Text = (Attributive) (5).Text = (Blood) 39。 lPassword((Address)) (6).Text = (Address) 39。 lPassword((Address)) (7).Text = (TelepNo) 39。 lPassword((TelepNo)) (8).Text = (MoveCall) 39。 lPassword((MoveCall)) (9).Text = (Home) 39。 lPassword((Home)) (10).Text = (Call) 39。 lPassword((Call)) (11).Text = (Fax) 39。 lPassword((Fax)) (12).Text = (Email) 39。 lPassword((Email)) (13).Text = (Appendix) 39。 lPassword((Appendix)) End If End Sub Private Sub ListView1_DblClick() 39。 双击修改 ListView1_Click numUo_Click End Sub Private Sub ListView1_ItemClick(ByVal Item As ) 39。 ListView1_Click End Sub Private Sub mdbFileData_Click(Index As Integer) mdbDataName = Data amp。 CStr(Index) numMPgl_Click End Sub Private Sub numAcess_Click() 39。 新建数据库 mdbFile = DialogFile(, 0, 新建数据库记录 , MyData, Access(*.mdb) amp。 Chr(0) amp。 *.mdb amp。 Chr(0) amp。 All files(*.*) amp。 Chr(0) amp。 *.*, , mdb) If mdbFile = Then Exit Sub DataNumbel = 0 New_click 39。 新建数据库 nummdbData_Click Dim i As Integer For i = 2 To 5 mdbFileData(i).Visible = False Next i = True = True = True End Sub Private Sub nummdbData_Click() 39。 新建数据表 cmdCreate_Click AddNumbel 39。 修改数据表记录 ReadNumbel 39。 读数据表记录 = True numMPgl_Click End Sub Private Sub numOpen_Click() On Error GoTo ErrHandle mdbFile = DialogFile(, 1, 打开数据库记录 , , Access(*.mdb) amp。 Chr(0) amp。 *.mdb amp。 Chr(0) amp。 All files(*.*) amp。 Chr(0) amp。 *.*, , mdb) If mdbFile = Then Exit Sub = True Dim i As Integer For i = 2 To 5 mdbFileData(i).Visible = False Next i = True = True = True vbModal If NoLogin = True Then End ReadNumbel mdbDataName = data1 numMPgl_Click Exit Sub ErrHandle: Exit Sub End Sub 39。 *********任务栏图标 ********** 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 / If RR = False Then RR = True Select Case Message Case WM_LBUTTONDBLCLK 39。 DblClick If WindowState = 1 Then SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。 设置窗口在前 WindowState = 0 39。 = True SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag 39。 设置窗口在前 Else WindowState = 1 = False End If Case WM_RBUTTONUP numFile End Select RR = False End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) = Len(TrayIcon) = = vbNull 39。 删除任务栏图标 Call Shell_NotifyIcon(NIM_DELETE, TrayIcon) End Sub Private Sub numPass_Click() vbModal End Sub Private Sub numRem_Click() 39。 刷新数据窗 口 39。 把数据库显示恢复到原来形式 = 39。 + \ SQLadd = where Name=Name = SQLoriginal + SQLadd + SQLorder ListRefresh Unload frmCX End Sub Private Sub numUo_Click() 39。 修改记录 If 1 Then Exit Sub If ListViewItem 0 Then ListView_Name = (ListViewItem).SubItems(1) ListView_ = (ListViewItem).SubItems(2) ListView_Love = (ListViewItem).SubItems(3) Uo = True = False vbModal Else MsgBox 请选择要修改的记录。 , vbOKOnly, 警告 SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag End If End Sub 39。 39。 ********************************************************** Private Sub Frm_Load() Dim clmX As ColumnHeader = ListView Sample Set clmX = (, , 编号 , 100) Set clmX = (, , 姓名 , / 3 750) Set clmX = (, , , / 3 550) Set clmX = (, , 昵称 , / 3 330) End Sub Private Sub AddRead_Numbel() On Error GoTo ErrHandle = 信息管理 amp。 mdbFile amp。 [mdbNumel] 39。 设置字符串变量来调用 SQL 语句 SQLoriginal = select * from amp。 mdbNumbel SQLadd = where Name=Name SQLorder = = mdbFile 39。 \ = SQLoriginal + SQLadd + SQLorder Exit Sub 39。 错误处理 ErrHandle: Exit Sub 39。 MsgBox End Sub Private Sub AddNumbel() On Error GoTo ErrHandle AddRead_Numbel 39。 ********************** If 0 Then 39。 编辑开始更改表总数的记录 Else End If (ID) = 1 (Name) = 数据表总数 (Numbel) = DataNumbel + 1 39。 39。 进行记录更新 39。 更新数据库 Exit Sub 39。 错误处理 ErrHandle: Exit Sub 39。 MsgBox End Sub Private Sub ReadNumbel() On Error GoTo ErrHandle AddRead_Numbel 39。 Dim i As Integer If Not Then 39。 测量表中记录数目 39。 For i = 1 To DataNumbel = (Numbe l) 39。 Next i 39。 把数据表当前记录位置复原 End If If DataNumbel 5 Then DataNumbel = 5 For i = 1 To DataNumbel mdbFileData(i).Visible = True Next i 39。 Exit Sub 39。 错误处理 ErrHandle: Exit Sub 39。 MsgBox End Sub ☆ 窗体 5:(数据库登陆界面程序 ) Option Explicit Private Sub cmdCancel_C。