給你一段我曾經(jīng)寫的代碼,主要是生成TreeView的節(jié)點!有什么不懂的地方你就提!
站在用戶的角度思考問題,與客戶深入溝通,找到通海網(wǎng)站設(shè)計與通海網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗,讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:網(wǎng)站制作、成都網(wǎng)站設(shè)計、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、空間域名、虛擬主機、企業(yè)郵箱。業(yè)務(wù)覆蓋通海地區(qū)。
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)
'添加樹結(jié)構(gòu)第二層
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
我記得網(wǎng)絡(luò)里有類似的例子datagridview這個控件其實很簡單的,去找一下例子一看就明白了。
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
勾選后左側(cè)工具欄里就多了兩個控件即 ADODC控件和MSHFlexGrid控件。
選擇 ADODC控件和MSHFlexGrid控件,放在窗體的合適位置
設(shè)置ADODC控件的屬性:
右鍵窗體內(nèi)ADODC1控件
1:ADODC屬性頁→通用→選擇使用連接字符串→點擊生成→選擇Microsoft Jet 4.0 OLE DB Provider 點擊下一步→選擇之前準備好的數(shù)據(jù)庫→點擊測試連接,顯示測試成功則ok,確定。
2:ADODC屬性頁→記錄源→命令類型選擇2-adcmdtable,表或存儲過程名稱選擇之前建立的數(shù)據(jù)表test,點擊確定,ADODC屬性設(shè)置完成。
設(shè)置MSHFlexGrid控件的屬性:
VB右側(cè)屬性表里,找到datasource,選擇adodc1
就完事了
報的錯是什么?
或者,輸出一下,你的str。
Response.Write(str)
Response.End()
我用vb做了一個程序?qū)?shù)據(jù)庫中的數(shù)據(jù)進行排序,程序如下:
標(biāo)準模塊:
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的成績學(xué)籍管理系統(tǒng)的設(shè)計與實現(xiàn)
內(nèi)容提要 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章 成績學(xué)籍管理系統(tǒng)的可行性分析及需求分析 11-19
2.1 成績學(xué)籍管理系統(tǒng)的任務(wù)概述 11-14
2.1.1 設(shè)計目標(biāo) 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ā)技術(shù)簡介 19-31
3.1 Browse/Server三層體系結(jié)構(gòu) 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訪問成績學(xué)籍管理系統(tǒng)的設(shè)計 23-29
3.6 數(shù)據(jù)庫的應(yīng)用 29-31
3.6.1 添加記錄 29
3.6.2 更新記錄 29-30
3.6.3 記錄的刪除 30-31
第4章 成績學(xué)籍管理系統(tǒng)功能設(shè)計 31-36
4.1 成績學(xué)籍管理系統(tǒng)工作流程 31
4.2 系統(tǒng)功能模塊設(shè)計 31-35
4.2.1 功能模塊 31-33
4.2.2 部分功能模塊說明 33-35
4.3 網(wǎng)絡(luò)架構(gòu) 35
4.4 系統(tǒng)總體模塊圖 35-36
第5章 成績學(xué)籍管理系統(tǒng)的設(shè)計實現(xiàn) 36-55
5.1 系統(tǒng)主界面 36
5.2 學(xué)生信息管理模塊 36-38
5.3 學(xué)生成績管理模塊 38
5.4 考試管理模塊 38-39
5.5 用戶管理模塊 39-40
5.6 統(tǒng)計模塊 40-41
5.7 數(shù)據(jù)庫設(shè)計 41-48
5.7.1 系統(tǒng)功能描述 41-42
5.7.2 學(xué)生成績學(xué)籍管理系統(tǒng)數(shù)據(jù)流程圖分析 42-48
5.8 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 48-51
5.9 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 51-53
5.10 其他設(shè)計 53-55
5.10.1 運行設(shè)計 53
5.10.2 出錯處理設(shè)計 53-54
5.10.3 安全保密設(shè)計 54
5.10.4 維護設(shè)計 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 測試結(jié)論
你看這個與你對口嗎?如果覺得合適,與我免費索取全文,以上只是大綱,全文較長.