【文章內(nèi)容簡介】
e Function SkinH_AttachEx Lib “”(ByVal lpSkinFile As String, ByVal lpPasswd As String)As Long()就在相應的事件(比喻在Form_Load())中輸入下面的內(nèi)容:SkinH_AttachEx amp。 “/皮膚/”, “ ”:系統(tǒng)字串常量,返回工程所在的路徑。皮膚:是跟工程在同一目錄下的一個文件夾:皮膚文件,只接按上四步驟即可。第二種方法:ActiveSkin 。可以自己更改皮膚 。同其它軟件安裝一樣。(漢化的安裝文件)。點下一步直至完成,在工具箱灰白色地方右鍵單擊,選擇[部件],在部件對話框中勾選ActiveSkin [應用][確定]。右鍵單擊,選擇[編輯皮膚]即可到ActiveSkin 。原本的A是不會顯示(如Form_Load())。在該事件中輸入: ,請編譯打包。因為該皮膚需要系統(tǒng)其它文件來支持。所以你可以選擇VBPowerWrap進行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ù)庫連接不成功!” 以上連接方法是在事件里完成,也可以把連接做一個過程,需要連接時直接帶參調(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ù)。其相應代碼如下:Private Sub Command2_Click() = If DBConnection()ThenMsgBox “連接成功!”ElseMsgBox “連接失??!”End If End Sub第二步:從數(shù)據(jù)庫中取出記錄,綁定到相對應的控件(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)生一個實體對象,其名稱為DataGrid1 Set = 注意:游標與鎖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)