第一篇：VB實訓個人總結

VB實訓個人總結

在這一周的實習中，使我學到了好多書本上沒有的知識，更讓我對VB有了更深一步的掌握，同時也發(fā)現(xiàn)了許多自己在學習方面的不足，取長補短，互相學習，共同進步，我們不但學習了知識，更好的證明了實踐是檢驗真理的唯一標準。培養(yǎng)和提高我們的實際操作和應用能力，在學習VB后，具體的是使我們熟悉并使用各種類和各種VB控件的應用，在編寫程序的過程中我們還專門編寫了注釋以便于修改程序！這些內容使我們更加熟練的應用這門語言，給自己以后能夠走上工作崗位打下良好的基礎！

實訓的第一天接到任務時我們都覺得有點難度，很有挑戰(zhàn)性，畢竟學籍信息管理系統(tǒng)是一個比較系統(tǒng)、完善、功能相對較齊全的管理系統(tǒng)，即使是用戶模塊也可以完成各種操作，如對用戶的查詢、添加.刪除以及修改等。因此程序編寫也十分復雜，工作量較大，編寫一定要認真。一個小小的失誤都可能使程序出現(xiàn)大的漏洞。而我們只是學了點簡單的vb程序編寫，沒有嘗試過這 種相對來說比較系統(tǒng)完善的系統(tǒng)。所以在做項目的時候我們倍感壓力、更加的團結協(xié)作，可即使如此我們還是出現(xiàn)了錯誤，我們的程序在編寫上存在一些漏洞，導致調試時不能正常運行，后經(jīng)過老師的指導、我們的調整，終于可以完美的運行，我做的是學籍信息管理系統(tǒng)，但是在編寫程序的時候也遇到了很多難懂的問題，有的是實踐能力差，有的是對書本上的內容太過于模糊，有的是什么也不知道，當中有說不出口的味道。有悔恨，后悔，自責，都是平時學的不扎實，不過通過這次的實訓使我的VB應用能力得到大幅度提高，從以前的不懂到懂，從模糊到運用自如，從不知道到知道等等，一切都變的清楚簡單。善于學習和總結，勤于思考，做之前多想想，多向有經(jīng)驗的請教，能幫你降低風險、減少投入、少走彎路，做的時候心里也才有底；做好之后再來想想就是總結，就是經(jīng)驗和教訓。有些事只有親自動手體會了才知道其中的道理，不是口里什么知道一到實際中卻又茫然。無論什么都有其自己的規(guī)律。通過這次對VB的程序設計和運行，初步掌握了VB程序的規(guī)律和設計方法，并從運行時的錯誤中對VB有了更深一步的了解，其實只要自己用心去鉆研，VB并沒有我們想象的那么難學。

通過這次實習，使我對VB有了更深刻的了解和認識，比起以前強了許多。進一步了解對VB設計的方法和一些小技巧，還有數(shù)據(jù)庫的連接與實現(xiàn)，幫助等工具的操作與實現(xiàn)，都比以前操作更熟練了，理論和實踐聯(lián)系到了一起，學到了真正的知識,但同時也遇到不少的難題。例如，數(shù)據(jù)庫連接的正確路徑、編寫程序中的一些小問題等，不過，在老師的指導和組長的幫助下、還有自己付出的努力和及時查閱有關資料，最終，所有難題都一一解決了，而自己也感到了一些欣慰。

同時也使我對以后的VB學習有了信心和興趣，不過，還要繼續(xù)努力，更要懂得把理論和實踐聯(lián)系起來，多動手勤動腦，這樣才能學到更多的知識，我相信自己一定可以學好的。

第二篇：VB實訓總結

VB實訓總結

時間過得真快，轉眼間，一周的實訓生活已悄然過去了，然而實訓的過程還歷歷在目。

實訓期間，讓我學到了很多東西，不僅使我在理論上對VB程序設計有了全新的認識，在實踐能力上也得到了提高，真正地做到了學以致用，更學到了很多做人的道理，對我來說受益非淺。親身感受到理論與實際的相結合，讓我大開眼界。也是對以前所學知識的一個初審吧！這次實訓對于我以后學習、找工作也真是受益菲淺，在短短的一周中相信這些寶貴的經(jīng)驗會成為我今后成功的重要的基石。作為一名大二的學生，經(jīng)過差不多一年半的在校學習，對程序設計有了理性的認識和理解。在校期間，一直忙于理論知識的學習，沒有機會也沒有相應的經(jīng)驗來參與項目的設計開發(fā)。所以在實訓之前，程序設計對我來說是比較抽象的，不知道一個完整的程序要怎么完成。

這次我做的項目是人事管理系統(tǒng)，其中包含了登陸、員工資料庫、考勤庫、工資庫、商務信息等幾個部分。在實訓剛開始的時候，做的只是幾個簡單的界面，覺得其實還算比較簡單的，到第三天，基本部分的代碼都編寫出來了，但是調試的時候出現(xiàn)了很多問題。而且，有時候由于考慮不周以及粗心的緣故，代碼方面也存在很大的誤差。老師們教會了我們很多簡單實用的技巧。也讓我們意識到了要想全面完整的完成一個模塊，首先要經(jīng)行程序設計，全面分析會用到的東西及

考慮可能會出現(xiàn)的情況。所以出現(xiàn)的問題也在老師的指導下，順利解決了。本程序的編寫，有很多不足的地方，可能有些功能不太全面也不太完善，但我覺得自己是認認真真的做了，而且從中學到了很多，以后，我要把自己欠缺的知識點補習好，而且要學會舉一反三，融會貫通，最重要的是改掉粗心馬虎、考慮不周的習慣。我想我以后會將此程序完善好，爭取能夠運用到生活中去。

在實訓期間帶給我不僅僅是一種經(jīng)驗，更是我人生的一筆財富。俗語說:紙上得來終覺淺。沒有把理論用于實踐是學得不深刻的。當今大學教育是以理論為主，能有機會進行實訓，對我來說是受益不淺的。我就快畢業(yè)走向社會了，相信這次實習對我日后參加工作有幫助。

一路的艱辛與微笑，雖有所收獲，然所學是開始，新的考驗和抉擇要奮斗不息、礪前行，請不要讓我們年輕的時光留下太多遺憾！

第三篇：VB、SQL實訓總結

VB、SQL實訓總結

為期五天的實習，很快就過去了，讓我重新了解了豐富多彩的編程生活，感受到了學習的快樂，也感覺到了許許多多的專業(yè)問題，親身體驗了窗體與工程制成之后的喜悅之情。

在實訓期間，我學到了許多東西，遇到了一些困難，也看到了自己本身存在著許多問題。

這次實訓給我?guī)砹宋C感和壓迫力，讓人警醒，更加清楚自己的水平和重量，心里總有種被大石頭壓著的無力感，但是又憑著一種堅持，奮力的抗爭著。所以也得出個結論，那就是——我得好好好好的努力啊。

這已經(jīng)是我們的第四次實訓了，在我進入大學的這兩年多里，或多或少的學到了一些專業(yè)的東西。

我知道自己很愛玩，于是為了能夠提高鍛煉自己，我把本次為期一周的VB、SQL制作實訓看作是一個通向社會，通向我的工作崗位的“理論與實踐相結合的橋梁”。在本周的實訓和學習，我一直知道此次實訓的目的，也知道我自己的目的，同時也清楚目前自己的不足——缺乏相應的知識與經(jīng)驗，對所學的專業(yè)知識不能夠很好地運用于實踐操作，所以我是認真的對待這次實訓的。

在這次實訓中，我也有許多收獲。首先，我體會到了作為一個VB設計師，不會將VB與SQL結合的痛苦和尷尬；然后，我發(fā)現(xiàn)了很多以前都不曾注意到的細節(jié)；其次，在實訓中，我對作為一名編程者應該學習的內容做了一個更深層次的理解；最后，我還從這次實訓中看到了自己很他人的差距，危機意識增強，為了不使這個差距拉大，甚至趕上前面的同學，我會努力的。

本次實訓，給我最深刻、最刻骨銘心的感覺就是累，不僅每天白天要一整天對著一臺機器，而且到了晚上還要對著這臺機器來一個法式的“秉燭夜談”，可惜的是沒有浪漫的事前發(fā)生，我也只是對牛談情而已，不似李白的“舉杯邀明月，對影成三人”啊，我就和一部會說話的機器唧唧歪歪。我時常想，以后的日子里，如果我成為了一名編程師也會是這樣嗎？好像很無聊的樣子啊。好動的我一定坐不住吧?？墒?，我也知道，為了衣食父母，為了生存，為了未來，現(xiàn)在我還沒有任何的資格想這個問題，時間不對，而現(xiàn)在最最應該想的是——我要怎樣成為一個頂級的編程師。當我終于有能力的時候，才是考慮無不無聊的問題，我還是明白這一點點。

經(jīng)過多番的努力和辛酸，我成功地完成了這次過程艱辛的實訓，而且我從中體會到了一種叫做‘成功的喜悅’的感覺，那種小有成就的興奮是只有置身其中的人才能體會的，就好比我啊，雖然知道笑到最后的才是老大，但是偶爾阿Q一下來調節(jié)生活樂趣也是的一項很必要的事情吧。

總之，這次實訓為我提供了與眾不同的學習方法和學習體會，從書本中走出來，面對現(xiàn)實，為我將來走上社會打下了扎實的基礎，鋪了一條五光十色的大馬路。而且，我也體會到了前人總結出的許多的實踐經(jīng)驗，而且一直都知道技術永遠是工資的基礎，社會是不會要一個一無是處的人的，所以，為了生活庸俗一點，努力一點，多累一點，好好學習技術，將來才有吃大餐的錢呀。

因此，我知道，作為在校電商專業(yè)的大專生，我能做的就是好好的吸取知識，努力的提高自己的技術水平和自身的綜合素質，提高自己的表達能力、寫作能力和合作能力。如此，出了社會，自己有了能力，到時候才會是 “吃嘛嘛香”，并且很牛逼的是自己選公司，而不是悲慘的等待公司來選。我相信在不久的未來，會有屬于我自己的一片天空，而且這片天空會很藍很藍，沒有黑黑的烏云，只有燦爛的陽光！

在編程的過程中遇到問題，可以說得是困難重重，這畢竟是第一次編程這么多，這么認真，難免會遇到過各種各樣的問題，同時在設計的過程中發(fā)現(xiàn)了自己的不足之處，對以前所學過的知識理解得不夠深刻，掌握得不夠牢固，比如說代碼不熟悉，還好通過老師的細心指導才能達到最終效果??通過這次程設計與制作實訓，一定把以前所學過的知識重新溫故。

第四篇：VB實訓心得

為期一周的實訓即將結束，通過這次的實訓使我們學到了很多，同時也讓我們意識到我們要學的更多。本次實訓的項目是關于工程測量的程序設計，以小組的形式進行分工合作，我組共3個人，任務是四等水準測量的程序設計。從程序的需求分析、可行性分析、設計到編寫、調試、修改、完善、到最后的實訓報告，每個人都付出了時間和精力去做好自己的任務并努力地去完善它。

實訓的第一天接到任務時我們都覺得有點難度，很有挑戰(zhàn)性，畢竟四等水準測量是一個比較系統(tǒng)、完善、功能相對較齊全的計算程序，因此程序編寫也十分復雜，工作量較大，編寫一定要認真。一個小小的失誤都可能使程序出現(xiàn)大的漏洞。而我們只是學了點簡單的vb程序編寫，沒有嘗試過這種相對來說比較系統(tǒng)完善的系統(tǒng)。所以在做項目的時候我們倍感壓力、更加的團結協(xié)作，可即使如此我們還是出現(xiàn)了錯誤，我們的程序在編寫上存在一些漏洞，導致調試時不能正常運行，后經(jīng)過老師的指導、我們的調整，終于可以完美的運行，這里也耽誤了我們很多寶貴的時間，直接導致了我們在項目調試上速度不夠快。

本人很榮幸地擔任組長一職，與其他組員一起進行任務分配以及協(xié)調等。我組做了四等水準測量的計算程序、豎直角計算和視距測量三塊內容。在實訓過程中，老師對我們親切認真負責，很有耐心地對我們進行講解并指導我們解決遇到的難題。老師交會了我們很多簡單實用的技巧。也讓我們意識到了要想全面完整地完成一個模塊，首先要進行程序的設計，全面分析會用到的東西以及考慮可能會出現(xiàn)的情況，理清思緒、寫出大致的要點后再上機編寫程序以及操作。否則像一開始的我們馬上上機編寫、想到什么就補什么，不僅浪費時間也亂了之前寫好的一些程序。系統(tǒng)分析越準確，設計的系統(tǒng)越精確，可以大大減少后期的修改、維護工作。當然做好做對一個項目固然重要，同時美觀程度也是必不可少的，無論是從參觀者的角度還是自己看的角度都很重要。

總的來說，這次實訓還是比較成功的。最后出來的系統(tǒng)，大家都很有成就感，這是我們一步步設計、一步步完善、辛苦付出后得到的成果。小組合作、幫助隊友，無論是團隊合作這方面還是個人動手這方面，我們都得到了很好的鍛煉。當然實訓不僅使我們學到了知識，也幫助我們縮小了實踐和理論的差距，通過這次實訓讓我們更深一步的對vb這門課程的知識有更進一步的渴望，同時對自己的專業(yè)，對自己的能力，對自己所學的有正確的認識，并且能在以后的學習工作中不斷提高和完善自己。

第五篇：VB綜合實訓

VB換膚（GUI界面）

第一種方法：后綴為.she文件的皮膚

SkinSharp換膚庫不是COM組件，無需進行系統(tǒng)注冊，僅以標準dll方式存在。

1.打開vb6開發(fā)環(huán)境，新建一個工程文件，并存檔

2.將一個名為“膚色”的文件夾和一個名為SkinH_VB6.dll的文件拷貝到工程所在的目錄

3.外部函數(shù)接口api函數(shù)原型，把這原形放在通用聲明段

Private Declare Function SkinH_AttachEx Lib “SkinH_VB6.dll”(ByVal lpSkinFile As String, ByVal lpPasswd As String)As Long

4.若需要什么樣的皮膚（即.she文件）就在相應的事件（比喻在Form_Load()）中輸入下面的內容：

SkinH_AttachEx App.Path & “/皮膚/vista.she”, “ ”

app.path：系統(tǒng)字串常量，返回工程所在的路徑。

皮膚：是跟工程在同一目錄下的一個文件夾

vista.she：皮膚文件，可以把網(wǎng)上下載的.she文件放在同目錄下用時，只接按上四步驟即可。

第二種方法：ActiveSkin 4.3軟件的應用?？梢宰约焊钠つw

1.安裝ActiveSkin 4.3。同其它軟件安裝一樣。

2.漢化該軟件。直接運行setup.exe（漢化的安裝文件）。點下一步直至完成

3.新建一個VB工程文件，在工具箱灰白色地方右鍵單擊，選擇[部件]，在部件對話框中勾選ActiveSkin 4.3后單擊[應用][確定]

4.在出現(xiàn)的兩個控件中選擇拖入到窗體上。右鍵單擊，選擇[編輯皮膚]即可到ActiveSkin 4.3中編輯皮膚

5.Label控件必須使用該部件給的ab控件來替換。原本的A是不會顯示

6.選擇相應的事件(如Form_Load())。在該事件中輸入：

Skin1.ApplySkin Me.hWnd

7.如果要移植你的程序到別的機器上運行，請編譯打包。因為該皮膚需要系統(tǒng)其它文件來支持。所以你可以選擇VB-PowerWrap進行VB程序的封裝

VB與ACCESS2003數(shù)據(jù)庫連接相關步驟：

第一步：建立連接

1.引用相關組件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 2.在通用聲明段申明：Dim mConn As ADODB.Connection 3.在對應的事件（如Form_Click()）中：set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection 4.設置其連接字串（與磁盤上的MDB文件建立連接）：

mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “RSData.mdb” 5.打開連接：mConn.Open 6.測試連接是否成功：if mConn.State=adStateOpen then msgbox “數(shù)據(jù)庫已經(jīng)連接成功！” else msgbox “數(shù)據(jù)庫連接不成功！” 以上連接方法是在事件里完成，也可以把連接做一個過程，需要連接時直接帶參調用也可。如在模塊中這樣定義

Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean

Set conn = New ADODB.Connection conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName

conn.Open

If conn.State = adStateOpen Then

DBConnection = True

Else

DBConnection = False

End If End Function 然后回事件中調該函數(shù)。其相應代碼如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “連接成功！”

Else

MsgBox “連接失??！”

End If End Sub

第二步：從數(shù)據(jù)庫中取出記錄，綁定到相對應的控件(Microsoft DataGrid Control 6.0(SP6)(OLEDB))中

1.在通用聲明段定義記錄對象：

Dim rs As New ADODB.Recordset 2.在相應的事件（如Form_Click()）中定義：

Set rs = New ADODB.Recordset Dim sql As String

sql = “select * from 部門表” rs.CursorLocation = adUseClient rs.Open sql, mConn, 1, 3

3.在窗體上從部件中找到Microsoft DataGrid Control 6.0(SP6)(OLEDB)并加載到工具箱上，然后產(chǎn)生一個實體對象，其名稱為DataGrid1 Set DataGrid1.DataSource = mRst.DataSource

注意：游標與鎖

0=adopenForwardonly:僅向前游標 — 除僅允許在記錄中向前滾動之外，其行為類似動態(tài)游標。這樣，當需要在 Recordset 中單程移動時就可提高性能。

1=adopenkeyset:鍵集游標 — 其行為類似動態(tài)游標，不同的只是禁止查看其他用戶添加的記錄，并禁止訪問其他用戶刪除的記錄，其他用戶所作的數(shù)據(jù)更改將依然可見。它始終支持書簽，因此允許 Recordset 中各種類型的移動。

2=adopenDynamic:動態(tài)游標 — 用于查看其他用戶所作的添加、更改和刪除，并用于不依賴書簽的 Recordset 中各種類型的移動。如果提供者支持，可使用書簽。3=adopenstatic:靜態(tài)游標 — 提供記錄集合的靜態(tài)副本以查找數(shù)據(jù)或生成報告。它始終支持書簽，因此允許 Recordset 中各種類型的移動。其他用戶所作的添加、更改或刪除將不可見。這是打開客戶端(ADOR)Recordset 對象時唯一允許使用的游標類型。

mRst.CursorLocation = adUseClient:使用由本地游標庫提供的客戶端游標

mRst.CursorLocation = adUseServer 默認值。使用數(shù)據(jù)提供者或驅動程序提供的游標。

1=adLockReadOnly 默認值，只讀。無法更改數(shù)據(jù)。

2=adLockPessimistic 保守式記錄鎖定（逐條）。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用編輯時立即鎖定數(shù)據(jù)源的記錄的方式。

3=adLockOptimistic 開放式記錄鎖定（逐條）。提供者使用開放式鎖定，只在調用 Update 方法時鎖定記錄。

4=adLockBatchOptimistic 開放式批更新。用于與立即更新模式相反的批更新模式。

第三步：向數(shù)據(jù)庫中寫數(shù)據(jù)（找一個相應的事件，如Command1_Click()）

Dim bmid As String,bmmc As String,sql As String Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset bmid = Text1.Text:bmmc = Text2.Text conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

On Error GoTo cancel: sql = “insert into 部門表(部門ID,部門名稱)values('” + bmid + “','” + bmmc + “')” rs.Open sql, conn

cancel:

If conn.Errors.Count = 0 Then

Else

MsgBox “寫數(shù)據(jù)有問題，主鍵重復”

End If 除了用SQL語句增加庫記錄以外，也可以用下面的方法來增加庫記錄

rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.Open “部門表”, conn, , , adCmdTable rs.AddNew rs.Fields(0)= bmid rs.Fields(1)= bmmc rs.Update 第四步：刪除數(shù)據(jù)庫中的一條記錄（找一個相應的事件，如Command2_Click()）

Private Sub command2_click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset

Dim bmid As String bmid = Trim(DataGrid1.Columns(0))conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

sql = “delete from 部門表 where 部門ID='” + bmid + “'” rst.Open sql, conn, 1, 3

sql = “select * from 部門表”

rst.CursorLocation = adUseClient

rst.Open sql, conn, 1, 3 if not rst.eof()then

rst.movenext end if

Set DataGrid1.DataSource = rst.DataSource set rst=nothing set conn=nothing End sub 第五步：更改數(shù)據(jù)庫中的信息（找一個相應的事件，如Command1_Click()）Private Sub Command1_Click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset Dim s As String

s = “實驗中心”

conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

sql = “update 部門表 set 部門名稱='” + s + “' where 部門ID='001'” rst.Open sql, conn End Sub

第一步：建立連接

1.引用相關組件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 Dim mConn As ADODB.Connection Private Sub Form_Click()set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “Police Information.mdb” mConn.Open if mConn.State=adStateOpen then msgbox “數(shù)據(jù)庫已經(jīng)連接成功！” else msgbox “數(shù)據(jù)庫連接不成功！” End Sub 以上連接方法是在事件里完成，也可以把連接做一個過程，需要連接時直接帶參調用也可。如在模塊中這樣定義

Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean

Set conn = New ADODB.Connection

conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName

conn.Open

If conn.State = adStateOpen Then

DBConnection = True

Else

DBConnection = False

End If End Function 然后回事件中調該函數(shù)。其相應代碼如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “連接成功！”

Else

MsgBox “連接失??！”

End If End Sub