第一篇：VB程序設(shè)計(jì)實(shí)訓(xùn)報(bào)告

VB編程設(shè)計(jì)實(shí)訓(xùn)報(bào)告

一，實(shí)訓(xùn)目的：

加深對(duì)可視化編程技術(shù)基本知識(shí)的理解，掌握運(yùn)用VB開發(fā)應(yīng)用程序的基本方法及基本技巧。

二，實(shí)訓(xùn)時(shí)間:

2011年10月——2011年11月

三，實(shí)訓(xùn)方式：

上機(jī)操作

四，實(shí)訓(xùn)類容：

這次在楊立雄老師的帶領(lǐng)下，利用VB開發(fā)工具與數(shù)據(jù)庫SQL開發(fā)一個(gè)使用的小型管理信息系統(tǒng)。我選擇了學(xué)籍管理系統(tǒng)。它的功能要求如下：

1，學(xué)籍信息輸入：實(shí)現(xiàn)學(xué)生基本情況的輸入。包括各個(gè)學(xué)生的情況，姓名，家庭號(hào)碼，家庭住址，學(xué)號(hào)等各個(gè)信息。

2，學(xué)籍信息管理：本模塊實(shí)現(xiàn)了信息的修改，刪除，查詢。還有個(gè)人信息。把信息統(tǒng)計(jì)這個(gè)繁瑣的工作簡單化，為學(xué)生信息的管理方面提高工作效率。

3，學(xué)籍信息查詢：通過輸入學(xué)號(hào)便可以查詢到這個(gè)學(xué)生的全部信息，包括姓名，性別，出生年月，班級(jí)，入學(xué)日期，聯(lián)系電話，獎(jiǎng)勵(lì)和成績表都一目了然，很大的方便了教工們查詢學(xué)生信息的過程。

4，統(tǒng)計(jì)查詢：實(shí)現(xiàn)查詢?nèi)嗳藬?shù)，男女生比例等。

五，實(shí)訓(xùn)體會(huì)：

這次實(shí)訓(xùn)，感覺既有趣又有些辛苦。這還是老師擔(dān)心我們適應(yīng)不了所以沒教那么多知識(shí)，即使這樣我們?nèi)詫W(xué)到了比以前上學(xué)時(shí)更多的知識(shí)，而且這些知識(shí)有好多都是我們自己去領(lǐng)悟的到的。我也知道有人比我們更累，所以我自覺得還是挺好的。

經(jīng)過這次的實(shí)訓(xùn)，我真真切切的感受到了計(jì)算機(jī)在我們生活中工作中的運(yùn)用，這些軟件，程序能讓我們提高工作的效率，更直觀更便捷切入主題。這次我們學(xué)習(xí)的是數(shù)據(jù)源的原理及應(yīng)用的各方面知識(shí)，由老師帶著我們不斷操作。VB能有效的組織，管理和共享數(shù)據(jù)庫信息，能把數(shù)據(jù)庫信息與ADO結(jié)合在一起，實(shí)現(xiàn)數(shù)據(jù)庫信息的共享。同時(shí)，VB概念清晰，簡單易學(xué)，使用。是適合企業(yè)管理人員，數(shù)據(jù)庫管理員使用的首選。我覺得學(xué)習(xí)了這個(gè)，對(duì)我們參加工作后制表，創(chuàng)建查詢，數(shù)據(jù)分析和材料演示都有很大的作用，這樣，我們能更清楚的了解信息并進(jìn)行分析。當(dāng)然，在學(xué)習(xí)的過程并不是一帆風(fēng)順的，在這之中，因?yàn)橐僮鞯臇|西很多，有時(shí)錯(cuò)一步，后面的結(jié)果都無法顯示，而自己的計(jì)算機(jī)反應(yīng)慢，根本檢查不出來是哪里出了錯(cuò)。這時(shí)候，老師都會(huì)耐心的過來幫助我，我很感謝楊老師也很感謝學(xué)校能安排這么優(yōu)秀的老師來教我們。

甘述琪計(jì)應(yīng)0901班

第二篇：Java程序設(shè)計(jì)實(shí)訓(xùn)報(bào)告

XX學(xué)院

JAVA語言程序?qū)嵱?xùn)報(bào)告

專業(yè)： 信息管理與信息系統(tǒng)

班級(jí)：

姓名：

學(xué)號(hào)：

指導(dǎo)老師：

前 言

面向?qū)ο蟪绦蛟O(shè)計(jì)是軟件編程技術(shù)中的一項(xiàng)非常關(guān)鍵的技術(shù)。面向?qū)ο蟪绦蛟O(shè)計(jì)中的繼承，封裝，多態(tài)等很接近于人的語言和思維，更容易讓人理解和使用。并且，面向?qū)ο蟪绦蛟O(shè)計(jì)更加符合現(xiàn)代軟件大規(guī)模開發(fā)的需求，有利于軟件使用。

Java的誕生是對(duì)傳統(tǒng)計(jì)算機(jī)模式的挑戰(zhàn)，對(duì)計(jì)算機(jī)軟件開發(fā)和軟件產(chǎn)業(yè)都產(chǎn)生了深遠(yuǎn)的影響，Java語言是面向?qū)ο蟪绦蛟O(shè)計(jì)語言中的代表，發(fā)展迅速。隨著Internet的飛速發(fā)展，Web的廣泛應(yīng)用，而Java語言在Web應(yīng)用方面所表現(xiàn)出來的強(qiáng)大特征，使得Java語言成為Web開發(fā)的主流技術(shù)。

Java是一種可以撰寫跨平臺(tái)應(yīng)用軟件的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，是由Sun Microsystems公司于1995年5月推出的Java程序設(shè)計(jì)語言和Java平臺(tái)（即JavaEE, JavaME, JavaSE）的總稱。Java自面世后就非常流行，發(fā)展迅速，對(duì)C++語言形成了有力沖擊。Java 技術(shù)具有卓越的通用性、高效性、平臺(tái)移植性和安全性，廣泛應(yīng)用于個(gè)人PC、數(shù)據(jù)中心、游戲控制臺(tái)、科學(xué)超級(jí)計(jì)算機(jī)、移動(dòng)電話和互聯(lián)網(wǎng)，同時(shí)擁有全球最大的開發(fā)者專業(yè)社群。在全球云計(jì)算和移動(dòng)互聯(lián)網(wǎng)的產(chǎn)業(yè)環(huán)境下，Java更具備了顯著優(yōu)勢和廣闊前景。

本次實(shí)訓(xùn)是配合Java程序設(shè)計(jì)課程，幫助我們深入學(xué)習(xí)掌握J(rèn)ava語言，熟練運(yùn)用這個(gè)工具來編寫的。通過課程設(shè)計(jì)各個(gè)項(xiàng)目的綜合訓(xùn)練，不僅培養(yǎng)學(xué)生實(shí)際分析問題、編程和動(dòng)手能力，而且還提高了學(xué)生的綜合素質(zhì)。

如今，我們所面臨的問題有：不能全面系統(tǒng)的、深入的掌握某種技術(shù)，也就是會(huì)的挺多，但都是皮毛，不能滿足就業(yè)的需要，沒有任何實(shí)際的開發(fā)經(jīng)驗(yàn)，完全是想象中學(xué)習(xí)，考試還行，一到實(shí)際開發(fā)和應(yīng)用就歇菜了。解決的方法就是通過實(shí)訓(xùn)和練習(xí)，對(duì)所學(xué)知識(shí)進(jìn)行深化，然后通過項(xiàng)目來獲取實(shí)際開發(fā)的經(jīng)驗(yàn)，從而彌補(bǔ)這些不足。我們應(yīng)該明白軟件是做出來的，而不是聽出來或者看出來的，企業(yè)需要能實(shí)際開發(fā)的人員，而不是只聽過、看過但不能做的人。所以Java非常強(qiáng)調(diào)：項(xiàng)目一定要讓學(xué)生動(dòng)手寫出來。

希望同學(xué)們?cè)诶蠋煹膸ьI(lǐng)下，能夠?qū)⒗碚撆c實(shí)踐聯(lián)系起來，把我們課本上所學(xué)到的知識(shí)運(yùn)用到實(shí)踐中，在實(shí)踐中檢驗(yàn)真知。

2014年6月10日

目 錄

一．實(shí)訓(xùn)目的.....................................................................................二．功能分析.....................................................................................三．系統(tǒng)設(shè)計(jì).....................................................................................四．測試數(shù)據(jù)及運(yùn)行結(jié)果..................................................................五．主要源程序.................................................................................六．實(shí)訓(xùn)總結(jié)與心得體會(huì)..................................................................一．實(shí)訓(xùn)目的

1.掌握J(rèn)ava語言的面向?qū)ο筇卣?，包括Java語言中類、對(duì)象、繼承、多態(tài)、接口和內(nèi)部類，圖形繪制等重要概念及應(yīng)用實(shí)踐。

2.掌握J(rèn)ava語言編程基礎(chǔ)，包括數(shù)據(jù)類型、變量、運(yùn)算符、字符串、數(shù)組、控制結(jié)構(gòu)、訪問權(quán)限修飾符，基本數(shù)據(jù)類型的轉(zhuǎn)換，類的定義，對(duì)象的創(chuàng)建，通過類的對(duì)象調(diào)用類中的方法等內(nèi)容。

3.掌握如何使用Java語言編寫圖形用戶界面，利用Java豐富的圖形組件創(chuàng)建交互性較好的用戶界面。

掌握面對(duì)不同的事件處理進(jìn)行不同事務(wù)處理，及每種事務(wù)處理的過程。

4.掌握如何使用不同的布局管理器，方便地設(shè)計(jì)出各種控件組織方式的界面。

掌握如何創(chuàng)建圖形的界面，如何進(jìn)行圖形的繪制，怎樣對(duì)圖像進(jìn)行處理。5.進(jìn)一步了解java開發(fā)的相關(guān)知識(shí)，掌握java開發(fā)的基本技術(shù)，豐富java開發(fā)的實(shí)戰(zhàn) 經(jīng)驗(yàn)。學(xué)習(xí)有用的相關(guān)技術(shù)，提高自己的學(xué)習(xí)效率和工作效率。6.鞏固Java課程所學(xué)基本知識(shí)，提高分析、判斷和處理實(shí)際問題的能力，鍛煉自己的實(shí)際動(dòng)手能力，增強(qiáng)自己的團(tuán)隊(duì)協(xié)作意識(shí)，了解軟件開發(fā)的思考角度和主要流程。為畢業(yè)之后能夠更快地進(jìn)入工作狀態(tài)并且能夠更好的工作，打好一定的基礎(chǔ)。

7.經(jīng)過這個(gè)學(xué)期的學(xué)習(xí)后，能不能把學(xué)習(xí)的知識(shí)綜合串聯(lián)起來,java的實(shí)訓(xùn)項(xiàng)目的制作可以有效的檢驗(yàn)這一點(diǎn)。進(jìn)行綜合項(xiàng)目實(shí)訓(xùn)可以練習(xí)java軟件開發(fā)的環(huán)境和配置，能夠把java的面向?qū)ο蠹夹g(shù)、數(shù)據(jù)結(jié)構(gòu)、圖形界面、小應(yīng)用程序等知識(shí)運(yùn)用到實(shí)踐中去，從而更好地理解java的各項(xiàng)知識(shí)，達(dá)到能夠應(yīng)用自如的地步。進(jìn)行實(shí)訓(xùn)的同時(shí)還需要查閱大量的文檔，可以鍛煉同學(xué)的自學(xué)能力。

二．功能分析

該黑白棋游戲主要可以實(shí)現(xiàn)黑白棋的對(duì)弈，要求有黑白兩色棋子，保存所有已下的棋子，包括在棋盤上的所有棋子和被踢掉的棋子，若落子沒有造成踢子，包括所有被這個(gè)棋子踢掉的棋子及這個(gè)棋子本身。如果踢子，則保存所有被踢的棋子，在游戲的過程中也可以顯示對(duì)戰(zhàn)雙方的當(dāng)前的棋子個(gè)數(shù)，提醒對(duì)戰(zhàn)雙方的時(shí)限。同時(shí)，該游戲還具有悔棋的功能。

三．系統(tǒng)設(shè)計(jì)

1.棋盤界面設(shè)計(jì)：基于Panel類定義一個(gè)面板子類，在其中利用Graphics類的drawLine（）方法繪制棋盤格線，利用fillOval（）方法繪制棋盤四角的星位。為面板創(chuàng)建監(jiān)聽器，為一個(gè)按鈕注冊(cè)ActionEvent事件監(jiān)聽器，實(shí)現(xiàn)單擊鼠標(biāo)布子、單機(jī)一個(gè)重新開局等操作。

2.棋盤功能設(shè)計(jì)：控制面板類，包含標(biāo)簽、手?jǐn)?shù)、悔棋按鈕、重新開始按鈕。

3.棋盤界面的實(shí)現(xiàn)方法：通過Chesspoint類獲得實(shí)際棋子的位置。3.棋盤功能的實(shí)現(xiàn)方法：利用JFrame將棋子顯示出來，Chess對(duì)圍棋界面外觀進(jìn)行初始化之后即可創(chuàng)建圍棋對(duì)象。

四．測試數(shù)據(jù)及運(yùn)行結(jié)果

1．圍棋圖形用戶界面，如圖5.1所示：

圖5.1 用戶界面

2.黑白棋對(duì)弈，如圖5.2所示：

e.界面左邊的對(duì)話框提示可選擇棋盤大小功能，如圖5.3所示：

圖5.3 棋盤大小選擇界面

五．主要源程序

1.Chess類是此程序的主類之一，用來初始化棋盤的外觀： import java.awt.*;import javax.swing.JFrame;

public class Chess extends JFrame { Chessboard qipan = new Chessboard();;

// 初始化外觀

public Chess(){

this.setTitle(“圍棋程序”);

this.setLayout(new BorderLayout());

this.setSize(qipan.getSize());

public int getWidth(){ return size + controlPanel.getWidth()+ 35;} public int getHeight(){ return size;} //繪制棋盤外觀

public Chessboard(){?} public void addNotify(){

super.addNotify();

offscreen = createImage(size, size);

offg = offscreen.getGraphics();} ?? } 3.Chesspoint類用來通過x和y取得黑白棋子的位置： public class Chesspoint { public static int black=0,white=1;int x,y;int color;public Chesspoint(int i,int j,int c){

x=i;

y=j;

color=c;}

public String toString(){

String c=(color==black?“black”:“white”);

return “[”+x+“,”+y+“]:”+c;} 六．實(shí)訓(xùn)總結(jié)與心得體會(huì)

通過這次的實(shí)訓(xùn)，我學(xué)到了很多：首先，對(duì)JAVA識(shí)比以前有了更深的了解。在這之前由于種種原因我JAVA學(xué)的很不太好。但經(jīng)過這次的實(shí)訓(xùn)，我對(duì)JAVA的理解，雖然還有很多都不懂，但我會(huì)在今后的實(shí)訓(xùn)和學(xué)習(xí)中加以學(xué)習(xí)了解，力求弄懂，增強(qiáng)自己對(duì)JAVA的理解。其次，在這次的實(shí)訓(xùn)中我的動(dòng)手操作能力有了一點(diǎn)的提高，剛開始的時(shí)候JDK的配置，JAVA開發(fā)工具的不熟悉，所以開始的時(shí)候進(jìn)程很慢，但付出定有回報(bào)，成功的配置了JDK，熟悉了JAVA開發(fā)工具，總的說來，自己還是有一定的收獲的。因?yàn)樽约旱膭?dòng)手操縱能力得到了提高。最

第三篇：VB實(shí)訓(xùn)總結(jié)

VB實(shí)訓(xùn)總結(jié)

時(shí)間過得真快，轉(zhuǎn)眼間，一周的實(shí)訓(xùn)生活已悄然過去了，然而實(shí)訓(xùn)的過程還歷歷在目。

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

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

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

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

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

第四篇：VB實(shí)訓(xùn)心得

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

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

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

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

第五篇：VB綜合實(shí)訓(xùn)

VB換膚（GUI界面）

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

SkinSharp換膚庫不是COM組件，無需進(jìn)行系統(tǒng)注冊(cè)，僅以標(biāo)準(zhǔn)dll方式存在。

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

2.將一個(gè)名為“膚色”的文件夾和一個(gè)名為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文件）就在相應(yīng)的事件（比喻在Form_Load()）中輸入下面的內(nèi)容：

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

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

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

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

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

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

2.漢化該軟件。直接運(yùn)行setup.exe（漢化的安裝文件）。點(diǎn)下一步直至完成

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

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

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

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

Skin1.ApplySkin Me.hWnd

7.如果要移植你的程序到別的機(jī)器上運(yùn)行，請(qǐng)編譯打包。因?yàn)樵撈つw需要系統(tǒng)其它文件來支持。所以你可以選擇VB-PowerWrap進(jìn)行VB程序的封裝

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

第一步：建立連接

1.引用相關(guān)組件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 2.在通用聲明段申明：Dim mConn As ADODB.Connection 3.在對(duì)應(yīng)的事件（如Form_Click()）中：set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection 4.設(shè)置其連接字串（與磁盤上的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ù)庫連接不成功！” 以上連接方法是在事件里完成，也可以把連接做一個(gè)過程，需要連接時(shí)直接帶參調(diào)用也可。如在模塊中這樣定義

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 然后回事件中調(diào)該函數(shù)。其相應(yīng)代碼如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “連接成功！”

Else

MsgBox “連接失??！”

End If End Sub

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

1.在通用聲明段定義記錄對(duì)象：

Dim rs As New ADODB.Recordset 2.在相應(yīng)的事件（如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)生一個(gè)實(shí)體對(duì)象，其名稱為DataGrid1 Set DataGrid1.DataSource = mRst.DataSource

注意：游標(biāo)與鎖

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

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

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

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

mRst.CursorLocation = adUseServer 默認(rèn)值。使用數(shù)據(jù)提供者或驅(qū)動(dòng)程序提供的游標(biāo)。

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

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

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

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

第三步：向數(shù)據(jù)庫中寫數(shù)據(jù)（找一個(gè)相應(yīng)的事件，如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ù)有問題，主鍵重復(fù)”

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ù)庫中的一條記錄（找一個(gè)相應(yīng)的事件，如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ù)庫中的信息（找一個(gè)相應(yīng)的事件，如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 = “實(shí)驗(yàn)中心”

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.引用相關(guān)組件：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 以上連接方法是在事件里完成，也可以把連接做一個(gè)過程，需要連接時(shí)直接帶參調(diào)用也可。如在模塊中這樣定義

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 然后回事件中調(diào)該函數(shù)。其相應(yīng)代碼如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “連接成功！”

Else

MsgBox “連接失??！”

End If End Sub