使用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
