当前位置:跳过导航链接计算机毕业设计首页 : VB计算机毕业设计 : 详细内容

VB居民人口信息管理系统(程序下载)(8)

来源:xiaoniu168.com 作者:本站原创 添加时间:2014-11-04 点击数:36777

计算机毕业设计数据字典功能介绍:

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页为计算机毕业论文部分......

【联系方式】

【本站信誉】

用心做计算机毕业设计论文网
计算机毕业设计客服
计算机毕业论文客服在线 计算机毕业论文客服在线
计算机毕业论文在线,计算机毕业设计在线