重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
给你一段我曾经写的代码,主要是生成TreeView的节点!有什么不懂的地方你就提!
创新互联成立与2013年,先为夏县等服务建站,夏县等地企业,进行企业商务咨询服务。为夏县企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
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
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
就完事了
我用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
我记得网络里有类似的例子datagridview这个控件其实很简单的,去找一下例子一看就明白了。
基于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 测试结论
你看这个与你对口吗?如果觉得合适,与我免费索取全文,以上只是大纲,全文较长.
1)首先需要用Office软件中的Access软件建立一个学生基本信息数据库。表中新建几个表,可以是学生名册表,学生各专业课程分数登录表等等。
2)VB新建数据工程,此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
3)然后在FORM1窗体中添加ADO数据控件,右键-ADODC1控件属性页-使用连接字符串,选生成,在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串,注意该字符串可复制到程序代码用于编程。
ADODC1控件属性页的数据源内有命令文本(SQL)编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
4)可以将SQL查询语句赋值给ADO数据控件的RecordSource属性来达到添加、删除、修改或查询。
5)数据的输入、修改等可灵活应用文本框或数据表格控件与ADO数据控件通过代码绑定。
6)想使用ADO数据对象,也可将ADO数据控件所写的代码较方便的移植给ADO数据对象。
典型的ADO数据控件的数据连接和查询代码:
Private Sub Command4_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False"
Adodc1.RecordSource = "select * from Authors where Author='Jacobs_Russell'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
典型的数据对象代码:
Private Sub Command11_Click()
Dim cn As New ADODB.Connection '定义数据库的连接
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "select * from guzhang_sj" ' where madanhao='1'"
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\wd.mdb;Persist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
rs.AddNew
rs.Fields(0).Value = "14"
rs.Update
End Sub