熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

控件指南 使用Data控件訪問數據庫

2013-11-13 09:54:17  來源: .NET編程 

  使用Data控件訪問數據庫

  很多軟件都有保存用戶設置的功能以便用戶下一次啟動時其程序界面及相關設置都是自己最中意和習慣的這使得軟件具有人性化用戶用起來感到親切用VB編寫的軟件可以通過多種途徑實現此功能這裡介紹用數據庫方法來保存用戶的個性化設置

  假設我們已經完成了一個用TextBox做編輯欄的字處理程序該程序提供了讓用戶對編輯欄背景色和字體的設置菜單現在我們想讓用戶所作的設置能保存下來怎麼辦呢?

  第一步給窗體添加一個Data控件

  第二步用Access建立一個名為Pad的數據庫在庫中建立一個表Myset給表添加四個字段backcolor(數據)forecolor(文本)fontname(文本)fontsize(文本)注意請將庫文件存入程序所在目錄

  如果你的機器沒安裝有Access可通過VB建庫

  第三步編寫如下代碼

  在Form_Load事件添加

  定位庫文件路徑

  DataDatabaseName = AppPath + tSetmdb

  DataRecordSource = MySet

  設置背景色

  Private Sub mnuBackColorSetting_Click()

  CommonDialogFlags = cdlCCFullOpen

  CommonDialogShowColor

  On Error GoTo err

  DataRecordsetEdit

  err:

  If errNumber = Then

  DataRecordsetAddNew

  End If

  DataRecordsetFields(backcolor) = CommonDialogColor

  DataRecordsetUpdate

  TextBackColor = CommonDialogColor

  End Sub

  設置字體

  Private Sub mnuFontSetting_Click()

  CommonDialogFlags = cdlCFEffects Or cdlCFBoth

  CommonDialogShowFont

  On Error GoTo FontErr

  DataRecordsetEdit

  FontErr:

  If errNumber = Then

  DataRecordsetAddNew

  End If

  DataRecordsetFields(fontsize) = CommonDialogFontSize

  DataRecordsetFields(forecolor) = CommonDialogColor

  DataRecordsetFields(fontname) = CommonDialogFontName

  DataRecordsetUpdate

  TextForeColor = CommonDialogColor

  TextFontName = CommonDialogFontName

  TextFontSize = CommonDialogFontSize

  窗體的Activate事件

  Private Sub Form_Activate()

  On Error Resume Next

  TextBackColor = DataRecordsetFields(backcolor)

  TextFontSize = DataRecordsetFields(fontsize)

  TextForeColor = DataRecordsetFields(forecolor)

  TextFontName = DataRecordsetFields(fontname)

  End Sub


From:http://tw.wingwit.com/Article/program/net/201311/11921.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.