本文主要为广大网友提供“基于VB的实住人口信息管理系统”，希望对需要基于VB的实住人口信息管理系统网友有所帮助，学习一下!
4.4 汉字同音字典（frmTyzd） 此页面用于同音字典维护，添加和删除操作。如图所示： 图4-4 汉字同音字典维护页面 实现功能的关键代码为： Private Sub btn添加_Click() ''添加新的同音汉字 If ExecSql("select * from 汉字同音字典 where 汉字=''" & Me.Text3.Text & "''").RecordCount > 0 Then MsgBox "汉字重复,不能添加!" Exit Sub End If Dim strResult As String strResult = Exec_SqL("insert into 汉字同音字典 (汉字,同音) values (''" & Trim(Me.Text3.Text) & "'',''" & Me.Combo1.Text & "'')") If strResult <> "OK" Then MsgBox strResult Exit Sub End If Call initForm End Sub Private Sub UserControl11_Click() ''删除同音汉字信息 Dim strResult As String strResult = Exec_SqL("delete from 汉字同音字典 where 汉字=''" & Trim(Me.Text3.Text) & "''") If strResult <> "OK" Then MsgBox strResult Exit Sub End If Call initForm End Sub |
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
