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
