給你一段我曾經(jīng)寫的代碼,主要是生成TreeView的節(jié)點(diǎn)!有什么不懂的地方你就提!

創(chuàng)新互聯(lián)成立與2013年,先為夏縣等服務(wù)建站,夏縣等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為夏縣企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
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é)點(diǎn)
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
1:Access,建立數(shù)據(jù)庫(kù),數(shù)據(jù)庫(kù)命名為Database1.mdb。
(注意:這里的后綴是MDB,如果Access是2007版本的,保存的時(shí)候要另存為2003版本的才行,因?yàn)椋琕B不直接支持07版的accdb后綴格式!)
2:數(shù)據(jù)庫(kù)建立后就進(jìn)入了數(shù)據(jù)表界面,可以輸入數(shù)據(jù)了,輸完以后CRRL+S保存,輸入表名,這里表名為test,ok,準(zhǔn)備工作搞定。
菜單中找到工程→部件→勾選 ,
Microsoft ADO Data Control 6.0
Microsoft Hierarchical Flexgrid Control 6.0
勾選后左側(cè)工具欄里就多了兩個(gè)控件即 ADODC控件和MSHFlexGrid控件。
選擇 ADODC控件和MSHFlexGrid控件,放在窗體的合適位置
設(shè)置ADODC控件的屬性:
右鍵窗體內(nèi)ADODC1控件
1:ADODC屬性頁(yè)→通用→選擇使用連接字符串→點(diǎn)擊生成→選擇Microsoft Jet 4.0 OLE DB Provider 點(diǎn)擊下一步→選擇之前準(zhǔn)備好的數(shù)據(jù)庫(kù)→點(diǎn)擊測(cè)試連接,顯示測(cè)試成功則ok,確定。
2:ADODC屬性頁(yè)→記錄源→命令類型選擇2-adcmdtable,表或存儲(chǔ)過程名稱選擇之前建立的數(shù)據(jù)表test,點(diǎn)擊確定,ADODC屬性設(shè)置完成。
設(shè)置MSHFlexGrid控件的屬性:
VB右側(cè)屬性表里,找到datasource,選擇adodc1
就完事了
我用vb做了一個(gè)程序?qū)?shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行排序,程序如下:
標(biāo)準(zhǔn)模塊:
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)絡(luò)里有類似的例子datagridview這個(gè)控件其實(shí)很簡(jiǎn)單的,去找一下例子一看就明白了。
基于ASP的成績(jī)學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(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ā)展趨勢(shì) 9-10
1.3 論文完成的主要工作與創(chuàng)新 10-11
第2章 成績(jī)學(xué)籍管理系統(tǒng)的可行性分析及需求分析 11-19
2.1 成績(jī)學(xué)籍管理系統(tǒng)的任務(wù)概述 11-14
2.1.1 設(shè)計(jì)目標(biāo) 11-12
2.1.2 運(yùn)行環(huán)境及要求 12-14
2.2 系統(tǒng)可行性分析及需求分析 14-19
2.2.1 可行性分析 14-17
2.2.2 需求分析 17-19
第3章 開發(fā)技術(shù)簡(jiǎn)介 19-31
3.1 Browse/Server三層體系結(jié)構(gòu) 19-20
3.2 數(shù)據(jù)庫(kù)開發(fā)工具SQL SERVER2000 簡(jiǎn)介 20-21
3.3 ASP簡(jiǎn)介(Active Server Pages) 21-22
3.4 創(chuàng)建和配置ODBC數(shù)據(jù)源 22-23
3.5 ADO訪問成績(jī)學(xué)籍管理系統(tǒng)的設(shè)計(jì) 23-29
3.6 數(shù)據(jù)庫(kù)的應(yīng)用 29-31
3.6.1 添加記錄 29
3.6.2 更新記錄 29-30
3.6.3 記錄的刪除 30-31
第4章 成績(jī)學(xué)籍管理系統(tǒng)功能設(shè)計(jì) 31-36
4.1 成績(jī)學(xué)籍管理系統(tǒng)工作流程 31
4.2 系統(tǒng)功能模塊設(shè)計(jì) 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章 成績(jī)學(xué)籍管理系統(tǒng)的設(shè)計(jì)實(shí)現(xiàn) 36-55
5.1 系統(tǒng)主界面 36
5.2 學(xué)生信息管理模塊 36-38
5.3 學(xué)生成績(jī)管理模塊 38
5.4 考試管理模塊 38-39
5.5 用戶管理模塊 39-40
5.6 統(tǒng)計(jì)模塊 40-41
5.7 數(shù)據(jù)庫(kù)設(shè)計(jì) 41-48
5.7.1 系統(tǒng)功能描述 41-42
5.7.2 學(xué)生成績(jī)學(xué)籍管理系統(tǒng)數(shù)據(jù)流程圖分析 42-48
5.8 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 48-51
5.9 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 51-53
5.10 其他設(shè)計(jì) 53-55
5.10.1 運(yùn)行設(shè)計(jì) 53
5.10.2 出錯(cuò)處理設(shè)計(jì) 53-54
5.10.3 安全保密設(shè)計(jì) 54
5.10.4 維護(hù)設(shè)計(jì) 54-55
第6章 系統(tǒng)測(cè)試 55-60
6.1 軟件測(cè)試方法 55
6.2 測(cè)試方案 55-59
6.2.1 測(cè)試項(xiàng)目 56
6.2.2 測(cè)試項(xiàng)目說明 56-59
6.3 測(cè)試結(jié)論
你看這個(gè)與你對(duì)口嗎?如果覺得合適,與我免費(fèi)索取全文,以上只是大綱,全文較長(zhǎng).
1)首先需要用Office軟件中的Access軟件建立一個(gè)學(xué)生基本信息數(shù)據(jù)庫(kù)。表中新建幾個(gè)表,可以是學(xué)生名冊(cè)表,學(xué)生各專業(yè)課程分?jǐn)?shù)登錄表等等。
2)VB新建數(shù)據(jù)工程,此時(shí)VB6集成調(diào)試環(huán)境左邊工具箱內(nèi)已加載了有關(guān)數(shù)據(jù)庫(kù)編程必須的控件。
3)然后在FORM1窗體中添加ADO數(shù)據(jù)控件,右鍵-ADODC1控件屬性頁(yè)-使用連接字符串,選生成,在提供者選項(xiàng)中選MICROSOFT jet 4.0 OLE DB Provider,然后按要求連接數(shù)據(jù)庫(kù)等。在ADODC1控件屬性頁(yè)使用連接字符串空白文本窗口中就有一長(zhǎng)串字符串,注意該字符串可復(fù)制到程序代碼用于編程。
ADODC1控件屬性頁(yè)的數(shù)據(jù)源內(nèi)有命令文本(SQL)編寫窗口可編寫SQL查詢語(yǔ)言。該窗口的SQL語(yǔ)句可復(fù)制到程序代碼用于編程。
4)可以將SQL查詢語(yǔ)句賦值給ADO數(shù)據(jù)控件的RecordSource屬性來達(dá)到添加、刪除、修改或查詢。
5)數(shù)據(jù)的輸入、修改等可靈活應(yīng)用文本框或數(shù)據(jù)表格控件與ADO數(shù)據(jù)控件通過代碼綁定。
6)想使用ADO數(shù)據(jù)對(duì)象,也可將ADO數(shù)據(jù)控件所寫的代碼較方便的移植給ADO數(shù)據(jù)對(duì)象。
典型的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ù)對(duì)象代碼:
Private?Sub?Command11_Click()
Dim?cn?As?New?ADODB.Connection?'定義數(shù)據(jù)庫(kù)的連接
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
文章題目:包含vb.net添加學(xué)生信息的詞條
網(wǎng)站路徑:http://chinadenli.net/article26/hshdjg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供全網(wǎng)營(yíng)銷推廣、電子商務(wù)、微信小程序、網(wǎng)站排名、營(yíng)銷型網(wǎng)站建設(shè)、網(wǎng)站營(yíng)銷
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)