十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
给你一段我曾经写的代码,主要是生成TreeView的节点!有什么不懂的地方你就提!
站在用户的角度思考问题,与客户深入沟通,找到通海网站设计与通海网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:网站制作、成都网站设计、企业官网、英文网站、手机端网站、网站推广、空间域名、虚拟主机、企业邮箱。业务覆盖通海地区。
Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet)
Dim treBaseNodeOne As TreeNode
Dim treBaseNodeTwo As TreeNode
Dim strDWDM As String
m_rsRecordTwo = g_clsSybase.SelectSC_PD_SBCSB1()
'查找供电局信息
g_clsSybase.SelectRS_ZZJG_ZZJGDMB(m_rsRecordOne)
'添加根节点
Do While m_rsRecordOne.Read
strDWDM = m_rsRecordOne.GetString(0) '获取单位代码
treBaseNodeOne = New TreeNode
treBaseNodeOne.Text = m_rsRecordOne.GetString(1).Trim() '获取单位名称
treBaseNodeOne.Name = m_rsRecordOne.GetString(1)
treBaseNodeOne.Tag = ""
strvXL.Nodes.Add(treBaseNodeOne)
'添加树结构第二层
Dim drsTwo() As DataRow
drsTwo = m_rsRecordTwo.Tables(0).Select("SSDW='" strDWDM "' and SC__XLBM is null")
For Each dr As DataRow In drsTwo
treBaseNodeTwo = New TreeNode
treBaseNodeTwo.Text = dr.Item("XLMC").ToString.Trim
treBaseNodeTwo.Name = dr.Item("XLMC")
treBaseNodeTwo.Tag = dr.Item("XLBM")
treBaseNodeOne.Nodes.Add(treBaseNodeTwo)
Next
Loop
m_rsRecordOne.Close()
End Sub
我记得网络里有类似的例子datagridview这个控件其实很简单的,去找一下例子一看就明白了。
1:Access,建立数据库,数据库命名为Database1.mdb。
(注意:这里的后缀是MDB,如果Access是2007版本的,保存的时候要另存为2003版本的才行,因为,VB不直接支持07版的accdb后缀格式!)
2:数据库建立后就进入了数据表界面,可以输入数据了,输完以后CRRL+S保存,输入表名,这里表名为test,ok,准备工作搞定。
菜单中找到工程→部件→勾选 ,
Microsoft ADO Data Control 6.0
Microsoft Hierarchical Flexgrid Control 6.0
勾选后左侧工具栏里就多了两个控件即 ADODC控件和MSHFlexGrid控件。
选择 ADODC控件和MSHFlexGrid控件,放在窗体的合适位置
设置ADODC控件的属性:
右键窗体内ADODC1控件
1:ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接,显示测试成功则ok,确定。
2:ADODC属性页→记录源→命令类型选择2-adcmdtable,表或存储过程名称选择之前建立的数据表test,点击确定,ADODC属性设置完成。
设置MSHFlexGrid控件的属性:
VB右侧属性表里,找到datasource,选择adodc1
就完事了
报的错是什么?
或者,输出一下,你的str。
Response.Write(str)
Response.End()
我用vb做了一个程序对数据库中的数据进行排序,程序如下:
标准模块:
Type nas
custno As Integer
last_name As String
first_name As String
vip_status As String
address1 As String
assress2 As String
city As String
state As String
post_code As String
country As String
phone As String
fax As String
email As String
remarks As String
End Type
窗体模块:
Option Base 1
Dim aa(30) As nas
Dim t As nas
Private Sub Command1_Click()
Open "e:\vbb\custoly.db" For Random As #1
For i = 1 To 30
Get #1, i, aa(i)
i = i + 1
Next i
For j = 1 To 29
For k = j + 1 To 30
If aa(j).last_name aa(k).last_name Then
t = aa(j)
aa(j) = aa(k)
aa(k) = t
End If
Next k
Next j
For p = 1 To 30
print aa(p).last_name
Next p
End Sub
基于ASP的成绩学籍管理系统的设计与实现
内容提要 4-7
第1章 绪论 7-11
1.1 课题的研究背景与目的 7-8
1.1.1 课题研究背景 7-8
1.1.2 课题研究目的 8
1.2 课题的研究现状 8-10
1.2.1 管理信息系统概况 8-9
1.2.2 管理信息系统的发展趋势 9-10
1.3 论文完成的主要工作与创新 10-11
第2章 成绩学籍管理系统的可行性分析及需求分析 11-19
2.1 成绩学籍管理系统的任务概述 11-14
2.1.1 设计目标 11-12
2.1.2 运行环境及要求 12-14
2.2 系统可行性分析及需求分析 14-19
2.2.1 可行性分析 14-17
2.2.2 需求分析 17-19
第3章 开发技术简介 19-31
3.1 Browse/Server三层体系结构 19-20
3.2 数据库开发工具SQL SERVER2000 简介 20-21
3.3 ASP简介(Active Server Pages) 21-22
3.4 创建和配置ODBC数据源 22-23
3.5 ADO访问成绩学籍管理系统的设计 23-29
3.6 数据库的应用 29-31
3.6.1 添加记录 29
3.6.2 更新记录 29-30
3.6.3 记录的删除 30-31
第4章 成绩学籍管理系统功能设计 31-36
4.1 成绩学籍管理系统工作流程 31
4.2 系统功能模块设计 31-35
4.2.1 功能模块 31-33
4.2.2 部分功能模块说明 33-35
4.3 网络架构 35
4.4 系统总体模块图 35-36
第5章 成绩学籍管理系统的设计实现 36-55
5.1 系统主界面 36
5.2 学生信息管理模块 36-38
5.3 学生成绩管理模块 38
5.4 考试管理模块 38-39
5.5 用户管理模块 39-40
5.6 统计模块 40-41
5.7 数据库设计 41-48
5.7.1 系统功能描述 41-42
5.7.2 学生成绩学籍管理系统数据流程图分析 42-48
5.8 数据库概念结构设计 48-51
5.9 数据库逻辑结构设计 51-53
5.10 其他设计 53-55
5.10.1 运行设计 53
5.10.2 出错处理设计 53-54
5.10.3 安全保密设计 54
5.10.4 维护设计 54-55
第6章 系统测试 55-60
6.1 软件测试方法 55
6.2 测试方案 55-59
6.2.1 测试项目 56
6.2.2 测试项目说明 56-59
6.3 测试结论
你看这个与你对口吗?如果觉得合适,与我免费索取全文,以上只是大纲,全文较长.