作者:fx_blog(CSDN)
日期:2005-5-22
标题:威人留言录(v1.8)
注意:转贴一定注明作者及出处
'*****************************************开始****************************
'现在来完成第五部分,留言查询*******
'首先新建一个窗体
'大家自己建吧,现在应该是form6了
'双击'查询留言'按钮
'写入以下代码(Form6内的控件都要设置好)
'
If TextBox3.Text = '' Then
MessageBox.Show('请输入搜索关键字')
Exit Sub
End If
Dim searchform As New Form6
searchform.TextBox1.Text = Me.TextBox3.Text
searchform.Show()
'现在回到Form6窗体
'首先进入Form6_Load(...)
'写入以下代码....
Me.Text = '查询留言-关键字: ' & TextBox1.Text
Dim doc As XmlDocument = New XmlDocument
doc.Load('info.xml')
Dim match As String
match = TextBox1.Text
Dim regular As Regex = New Regex(match)
Dim liuyuaninfo As XmlNodeList
liuyuaninfo = doc.GetElementsByTagName('userliuyuan')
Dim i As Integer
TextBox1.Text += '以下是相似的记录' & vbCrLf
TextBox1.Text += '==================================' & vbCrLf
For i = 0 To userid.Count - 1
While regular.IsMatch(liuyuaninfo(i).InnerText)
TextBox1.Text += '留言: ' & liuyuaninfo(i).InnerText & vbCrLf
TextBox1.Text += '=======================================' & vbCrLf
Exit While
End While
Next
'现在双击'关键字查询'按钮
'输入以下代码(其实和上面的一模一样)
Me.Text = '查询留言-关键字: ' & TextBox1.Text
Dim doc As XmlDocument = New XmlDocument
doc.Load('info.xml')
Dim match As String
match = TextBox1.Text
Dim regular As Regex = New Regex(match)
Dim liuyuaninfo As XmlNodeList
liuyuaninfo = doc.GetElementsByTagName('userliuyuan')
Dim i As Integer
TextBox1.Text += '以下是相似的记录' & vbCrLf
TextBox1.Text += '==================================' & vbCrLf
For i = 0 To userid.Count - 1
While regular.IsMatch(liuyuaninfo(i).InnerText)
TextBox1.Text += '留言: ' & liuyuaninfo(i).InnerText & vbCrLf
TextBox1.Text += '=======================================' & vbCrLf
Exit While
End While
Next
'好了查询功能完成了,到现在为止,五部分已经全部完成.
'如果大家有问题请留言.
'界面如下
