计算机毕业设计数据字典功能介绍：
4.3 数据字典维护（frmSjzdList）
在主界面里点击信息字典管理菜单下的民族信息、与户主关系、户,口状况、街巷名称、职业信息、服务处所、文化程度、家庭状况、宗教信仰里的任意一项，弹出数据字典维护页面，,左侧显示字典信息维护树状结构，右侧显示该维护项。
|
以下是引用片段：
Private Sub UserControl11_Click()
'选择了字典 则更新字典内容
If Me.TreeView1.SelectedItem.Key <> "" Then
Call Exec_SqL("insert into " & Me.TreeView1.SelectedItem.Key & " (名称) values('" & Me.Text2.Text & "')")
Call UpdateList
End If
End Sub
Public Sub UpdateList()
'显示列表的样式和标题
'将字典信息显示在列表中
'1
Dim arrName()
arrName = Array(Space(Me.Frame1.Width / 200) & TreeView1.SelectedItem.Key)
Dim arrColwidth()
arrColwidth = Array(Me.Frame1.Width - 300)
ddd.Cols = 1
ddd.Rows = 2
Dim i As Long
For i = 0 To ddd.Cols - 1
ddd.ColWidth(i) = arrColwidth(i)
ddd.TextMatrix(0, i) = arrName(i)
ddd.TextMatrix(1, i) = ""
Next
ddd.Rows = 20
'2
If Me.TreeView1.SelectedItem.Key <> "" Then
Call UpdateDDD(ddd, ExecSql("select 名称 from " & TreeView1.SelectedItem.Key & " "))
End If
Me.Label3.Caption = "数据字典：" + Me.TreeView1.SelectedItem.Key + "维护"
Me.Text2.Enabled = False
Me.Text2.Text = ""
End Sub
|
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第9页为计算机毕业论文部分......