【文章內(nèi)容簡介】
功的。最后出來的系統(tǒng),大家都很有成就感,這是我們一步步設(shè)計(jì)、一步步完善、辛苦付出后得到的成果。小組合作、幫助隊(duì)友,無論是團(tuán)隊(duì)合作這方面還是個(gè)人動(dòng)手這方面,我們都得到了很好的鍛煉。當(dāng)然實(shí)訓(xùn)不僅使我們學(xué)到了知識,也幫助我們縮小了實(shí)踐和理論的差距,通過這次實(shí)訓(xùn)讓我們更深一步的對vb這門課程的知識有更進(jìn)一步的渴望,同時(shí)對自己的專業(yè),對自己的能力,對自己所學(xué)的有正確的認(rèn)識,并且能在以后的學(xué)習(xí)工作中不斷提高和完善自己。第四篇:VB綜合實(shí)訓(xùn)VB換膚(GUI界面)第一種方法:SkinSharp換膚庫不是COM組件,無需進(jìn)行系統(tǒng)注冊,僅以標(biāo)準(zhǔn)dll方式存在。,新建一個(gè)工程文件,并存檔“膚色”,把這原形放在通用聲明段Private Declare Function SkinH_AttachEx Lib “”(ByVal lpSkinFile As String, ByVal lpPasswd As String)As Long()就在相應(yīng)的事件(比喻在Form_Load())中輸入下面的內(nèi)容:SkinH_AttachEx amp。 “/皮膚/”, “ ”:系統(tǒng)字串常量,返回工程所在的路徑。皮膚:是跟工程在同一目錄下的一個(gè)文件夾:皮膚文件,只接按上四步驟即可。第二種方法:ActiveSkin 。可以自己更改皮膚 。同其它軟件安裝一樣。(漢化的安裝文件)。點(diǎn)下一步直至完成,在工具箱灰白色地方右鍵單擊,選擇[部件],在部件對話框中勾選ActiveSkin [應(yīng)用][確定]。右鍵單擊,選擇[編輯皮膚]即可到ActiveSkin 。原本的A是不會顯示(如Form_Load())。在該事件中輸入: ,請編譯打包。因?yàn)樵撈つw需要系統(tǒng)其它文件來支持。所以你可以選擇VBPowerWrap進(jìn)行VB程序的封裝VB與ACCESS2003數(shù)據(jù)庫連接相關(guān)步驟:第一步:建立連接:Microsoft ActiveX Data Objects Library。Microsoft ADO Data Control :Dim mConn As (如Form_Click())中:set mConn=New mConn As New (與磁盤上的MDB文件建立連接):=“Provider=。Data Source=” amp。 amp。 “” : :if =adStateOpen then msgbox “數(shù)據(jù)庫已經(jīng)連接成功!” else msgbox “數(shù)據(jù)庫連接不成功!” 以上連接方法是在事件里完成,也可以把連接做一個(gè)過程,需要連接時(shí)直接帶參調(diào)用也可。如在模塊中這樣定義Public conn As New Public Function DBConnection(FileName As String)As BooleanSet conn = New = “provider=?!?amp。 “data source=” amp。 FileNameIf = adStateOpen ThenDBConnection = TrueElseDBConnection = FalseEnd If End Function 然后回事件中調(diào)該函數(shù)。其相應(yīng)代碼如下:Private Sub Command2_Click() = If DBConnection()ThenMsgBox “連接成功!”ElseMsgBox “連接失??!”End If End Sub第二步:從數(shù)據(jù)庫中取出記錄,綁定到相對應(yīng)的控件(Microsoft DataGrid Control (SP6)(OLEDB))中:Dim rs As New (如Form_Click())中定義:Set rs = New Dim sql As Stringsql = “select * from 部門表” = adUseClient sql, mConn, 1, 3 DataGrid Control (SP6)(OLEDB)并加載到工具箱上,然后產(chǎn)生一個(gè)實(shí)體對象,其名稱為DataGrid1 Set = 注意:游標(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=adopenDynam