給你一段我曾經寫的代碼,主要是生成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后綴格式?。?/p>
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
文章題目:包含vb.net添加學生信息的詞條
網站路徑:http://vcdvsql.cn/article26/hshdjg.html
成都網站建設公司_創新互聯,為您提供全網營銷推廣、電子商務、微信小程序、網站排名、營銷型網站建設、網站營銷
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯