用数据库保存 VB 程序的用户设置
添加时间: 2006-2-17 3:37:42 作者: VB教程 阅读次数:269 来源: http://www.d9soft.com
假设我们已经完成了一个用TextBox做编辑栏的字处理程序，该程序提供了让用户对编辑栏背景色和字体的设置菜单，现在我们想让用户所作的设置能保存下来。怎么办呢？
第一步：给窗体添加一个Data控件。
第二步：用Access建立一个名为Pad的数据库，在库中建立一个表Myset，给表添加四个字段：backcolor（数据），forecolor(文本），fontname(文本）,fontsize（文本）。注意：请将库文件存入程序所在目录。
如果你的机器没安装有Access，可通过VB建库。
第三步：编写如下代码：
在Form_Load事件添加：
注释：定位库文件路径
Data1.DatabaseName = App.Path + "\rtSet.mdb"
Data1.RecordSource = "MySet"
注释：设置背景色
Private Sub mnuBackColorSetting_Click()
CommonDialog1.Flags = cdlCCFullOpen
CommonDialog1.ShowColor
On Error GoTo err
Data1.Recordset.Edit
err:
If err.Number = 3021 Then
Data1.Recordset.AddNew
End If
Data1.Recordset.Fields("backcolor") = CommonDialog1.Color
Data1.Recordset.Update
Text1.BackColor = CommonDialog1.Color
End Sub
注释：设置字体
Private Sub mnuFontSetting_Click()
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
CommonDialog1.ShowFont
On Error GoTo FontErr
Data1.Recordset.Edit
FontErr:
If err.Number = 3021 Then
Data1.Recordset.AddNew
End If
Data1.Recordset.Fields("fontsize") = CommonDialog1.FontSize
Data1.Recordset.Fields("forecolor") = CommonDialog1.Color
Data1.Recordset.Fields("fontname") = CommonDialog1.FontName
Data1.Recordset.Update
Text1.ForeColor = CommonDialog1.Color
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
注释：窗体的Activate事件
Private Sub Form_Activate()
On Error Resume Next
Text1.BackColor = Data1.Recordset.Fields("backcolor")
Text1.Font.Size = Data1.Recordset.Fields("fontsize")
Text1.ForeColor = Data1.Recordset.Fields("forecolor")
Text1.Font.Name = Data1.Recordset.Fields("fontname")
End Sub
至此，我们的程序就能把用户的个性化设置保存下来了。应当注意，只有编译成可执行文件后才有效,在VB状态中运行会提示找不到库文件的。
上下文章:
上一篇文章: VB访问SQL Server数据库技术全揭密 下一篇文章: 用 VB 建立 Access 数据库结构
相关文章: