原创文档范文 → 计算机专业原创文档范文 软件技术专业原创文档范文 现成文档范文 → 计算机文档范文

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

= "select * from " & "mdbNumbel" SQLadd = " where Name=Name" SQLorder = "" Data1.DatabaseName = mdbFile '"\MyNote.mdb" Data1.RecordSource = SQLoriginal + SQLadd + SQLorder Data1.Refresh Exit Sub '错误处理 ErrHandle: Exit Sub 'MsgBox Err.Description End Sub Private Sub AddNumbel() ..

VB+通讯录信息管理系统+范文PPT及开题报告(八) = "select * from " & "mdbNumbel"
SQLadd = " where Name=Name"
SQLorder = ""
Data1.DatabaseName = mdbFile '"\MyNote.mdb"
Data1.RecordSource = SQLoriginal + SQLadd + SQLorder
Data1.Refresh
   Exit Sub
'错误处理
ErrHandle:
Exit Sub
'MsgBox Err.Description
End Sub

Private Sub AddNumbel()
On Error GoTo ErrHandle
AddRead_Numbel
   '**********************
If frmData.Data1.Recordset.RecordCount > 0 Then
     Data1.Recordset.Edit '编辑开始更改表总数的记录
Else
     Data1.Recordset.AddNew
End If
Data1.Recordset.Fields("ID") = 1
Data1.Recordset.Fields("Name") = "数据表总数"
Data1.Recordset.Fields("Numbel") = DataNumbel + 1 '
Data1.Recordset.Update '进行记录更新
Data1.Refresh '更新数据库
Exit Sub
'错误处理
ErrHandle:
Exit Sub
'MsgBox Err.Description
End Sub
Private Sub ReadNumbel()
On Error GoTo ErrHandle
AddRead_Numbel
'------------------------------
Dim i As Integer
If Not frmData.Data1.Recordset.EOF Then
'测量表中记录数目
   frmData.Data1.Recordset.MoveLast
   frmData.Data1.Recordset.MoveFirst
' For i = 1 To frmData.Data1.Recordset.RecordCount
         DataNumbel = frmData.Data1.Recordset.Fields("Numbel")
     frmData.Data1.Recordset.MoveNext
   'Next i
   '把数据表当前记录位置复原
   frmData.Data1.Recordset.MoveFirst
End If
If DataNumbel > 5 Then DataNumbel = 5
For i = 1 To DataNumbel
      mdbFileData(i).Visible = True
Next i
   '---------------------------------------------------------
Exit Sub
'错误处理
ErrHandle:
Exit Sub
'MsgBox Err.Description
End Sub

关于界面

关于界面代码分析:

Private Sub Label6_Click()
Dim Email
Email = ShellExecute(0&, vbNullString, "mailto:zcjvcbe@263.net", vbNullString, vbNullString, vbNormalFocus)
End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

Private Sub OK_Click()
Unload Me
End Sub

资料查询界面:

代码分析:
Private Sub Check1_Click(Index As Integer)
Dim i As Integer
For i = 0 To 10
    Text1(i).Enabled = Check1(i).Value
Next i
   '判断性别输入是否有效
    Option1(0).Enabled = Check1(3).Value
    Option1(1).Enabled = Check1(3).Value
   '判断年龄输入是否有效
    Frame2.Enabled = Check1(4).Value
    For i = 0 To 1
     Check2(i).Enabled = Frame2.Enabled
    Next i
End Sub
Private Sub Command1_Click() '模糊查询
On Error GoTo ErrHandle
'判断昵称查询
If Check1(0).Value = 1 And Not IsNull(Text1(0).Text) Then
    SQLadd = SQLadd + " and Love like'*" + Text1(0).Text + "*'"
End If
'判断QQ查询
If Check1(1).Value = 1 And Not IsNull(Text1(1).Text) Then
    SQLadd = SQLadd + " and Oicq like'*" + Text1(1).Text + "*'"
End If

首页上一页 5 6 7 8 9 10 11 下一页尾页 8/11/11

VB+通讯录信息管理系统+范文PPT及开题报告(八)......


上一篇：VB+库存管理系统+开题报告	下一篇：学生信息管理系统+VB代码+开题报..

点击查看关于 通讯录信息管理系统范文 PPT 开题报告 的相关范文题目

【返回顶部】