评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

VB+通讯录信息管理系统+论文PPT及开题报告(一)(6)

2013-06-18 02:00 ))
   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"))
End If
End Sub

Private Sub ListView1_DblClick() '双击修改
ListView1_Click
numUo_Click
End Sub

Private Sub ListView1_ItemClick(ByVal Item As ComctlLib.ListItem)
'---------------------
ListView1_Click
End Sub

Private Sub mdbFileData_Click(Index As Integer)
   mdbDataName = "Data" & CStr(Index)
   numMPgl_Click
End Sub

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

Private Sub nummdbData_Click() '新建数据表
cmdCreate_Click
AddNumbel '修改数据表记录
ReadNumbel '读数据表记录 （科教范文网http://fw.ΝsΕΑc.com编辑）
numData.Enabled = True
numMPgl_Click
End Sub

Private Sub numOpen_Click()
On Error GoTo ErrHandle
mdbFile = 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 = True
Dim i As Integer
For i = 2 To 5
      mdbFileData(i).Visible = False
Next i
DocuManage.Visible = True
DocuInquir.Visible = True
numOption.Visible = True
frmLogin.Show vbModal

If NoLogin = True Then End
ReadNumbel
mdbDataName = "data1"
numMPgl_Click
Exit Sub
ErrHandle: Exit Sub
End Sub

'-------------------------*********任务栏图标**********-------------------------------
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 '设置窗口在前
   &nb