給你一段我曾經(jīng)寫的代碼,主要是生成TreeView的節(jié)點!有什么不懂的地方你就提!
創(chuàng)新互聯(lián)成立與2013年,先為夏縣等服務建站,夏縣等地企業(yè),進行企業(yè)商務咨詢服務。為夏縣企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務解決您的所有建站問題。
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)
'添加根節(jié)點
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,建立數(shù)據(jù)庫,數(shù)據(jù)庫命名為Database1.mdb。
(注意:這里的后綴是MDB,如果Access是2007版本的,保存的時候要另存為2003版本的才行,因為,VB不直接支持07版的accdb后綴格式?。?/p>
2:數(shù)據(jù)庫建立后就進入了數(shù)據(jù)表界面,可以輸入數(shù)據(jù)了,輸完以后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 點擊下一步→選擇之前準備好的數(shù)據(jù)庫→點擊測試連接,顯示測試成功則ok,確定。
2:ADODC屬性頁→記錄源→命令類型選擇2-adcmdtable,表或存儲過程名稱選擇之前建立的數(shù)據(jù)表test,點擊確定,ADODC屬性設置完成。
設置MSHFlexGrid控件的屬性:
VB右側屬性表里,找到datasource,選擇adodc1
就完事了
我用vb做了一個程序對數(shù)據(jù)庫中的數(shù)據(jù)進行排序,程序如下:
標準模塊:
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
我記得網(wǎng)絡里有類似的例子datagridview這個控件其實很簡單的,去找一下例子一看就明白了。
基于ASP的成績學籍管理系統(tǒng)的設計與實現(xiàn)
內容提要 4-7
第1章 緒論 7-11
1.1 課題的研究背景與目的 7-8
1.1.1 課題研究背景 7-8
1.1.2 課題研究目的 8
1.2 課題的研究現(xiàn)狀 8-10
1.2.1 管理信息系統(tǒng)概況 8-9
1.2.2 管理信息系統(tǒng)的發(fā)展趨勢 9-10
1.3 論文完成的主要工作與創(chuàng)新 10-11
第2章 成績學籍管理系統(tǒng)的可行性分析及需求分析 11-19
2.1 成績學籍管理系統(tǒng)的任務概述 11-14
2.1.1 設計目標 11-12
2.1.2 運行環(huán)境及要求 12-14
2.2 系統(tǒng)可行性分析及需求分析 14-19
2.2.1 可行性分析 14-17
2.2.2 需求分析 17-19
第3章 開發(fā)技術簡介 19-31
3.1 Browse/Server三層體系結構 19-20
3.2 數(shù)據(jù)庫開發(fā)工具SQL SERVER2000 簡介 20-21
3.3 ASP簡介(Active Server Pages) 21-22
3.4 創(chuàng)建和配置ODBC數(shù)據(jù)源 22-23
3.5 ADO訪問成績學籍管理系統(tǒng)的設計 23-29
3.6 數(shù)據(jù)庫的應用 29-31
3.6.1 添加記錄 29
3.6.2 更新記錄 29-30
3.6.3 記錄的刪除 30-31
第4章 成績學籍管理系統(tǒng)功能設計 31-36
4.1 成績學籍管理系統(tǒng)工作流程 31
4.2 系統(tǒng)功能模塊設計 31-35
4.2.1 功能模塊 31-33
4.2.2 部分功能模塊說明 33-35
4.3 網(wǎng)絡架構 35
4.4 系統(tǒng)總體模塊圖 35-36
第5章 成績學籍管理系統(tǒng)的設計實現(xiàn) 36-55
5.1 系統(tǒng)主界面 36
5.2 學生信息管理模塊 36-38
5.3 學生成績管理模塊 38
5.4 考試管理模塊 38-39
5.5 用戶管理模塊 39-40
5.6 統(tǒng)計模塊 40-41
5.7 數(shù)據(jù)庫設計 41-48
5.7.1 系統(tǒng)功能描述 41-42
5.7.2 學生成績學籍管理系統(tǒng)數(shù)據(jù)流程圖分析 42-48
5.8 數(shù)據(jù)庫概念結構設計 48-51
5.9 數(shù)據(jù)庫邏輯結構設計 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章 系統(tǒng)測試 55-60
6.1 軟件測試方法 55
6.2 測試方案 55-59
6.2.1 測試項目 56
6.2.2 測試項目說明 56-59
6.3 測試結論
你看這個與你對口嗎?如果覺得合適,與我免費索取全文,以上只是大綱,全文較長.
1)首先需要用Office軟件中的Access軟件建立一個學生基本信息數(shù)據(jù)庫。表中新建幾個表,可以是學生名冊表,學生各專業(yè)課程分數(shù)登錄表等等。
2)VB新建數(shù)據(jù)工程,此時VB6集成調試環(huán)境左邊工具箱內已加載了有關數(shù)據(jù)庫編程必須的控件。
3)然后在FORM1窗體中添加ADO數(shù)據(jù)控件,右鍵-ADODC1控件屬性頁-使用連接字符串,選生成,在提供者選項中選MICROSOFT jet 4.0 OLE DB Provider,然后按要求連接數(shù)據(jù)庫等。在ADODC1控件屬性頁使用連接字符串空白文本窗口中就有一長串字符串,注意該字符串可復制到程序代碼用于編程。
ADODC1控件屬性頁的數(shù)據(jù)源內有命令文本(SQL)編寫窗口可編寫SQL查詢語言。該窗口的SQL語句可復制到程序代碼用于編程。
4)可以將SQL查詢語句賦值給ADO數(shù)據(jù)控件的RecordSource屬性來達到添加、刪除、修改或查詢。
5)數(shù)據(jù)的輸入、修改等可靈活應用文本框或數(shù)據(jù)表格控件與ADO數(shù)據(jù)控件通過代碼綁定。
6)想使用ADO數(shù)據(jù)對象,也可將ADO數(shù)據(jù)控件所寫的代碼較方便的移植給ADO數(shù)據(jù)對象。
典型的ADO數(shù)據(jù)控件的數(shù)據(jù)連接和查詢代碼:
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
典型的數(shù)據(jù)對象代碼:
Private?Sub?Command11_Click()
Dim?cn?As?New?ADODB.Connection?'定義數(shù)據(jù)庫的連接
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