VB+通讯录信息管理系统+文档PPT及开题报告(六)
))
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 '读数据表记录
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
