用VB保存程序设置


2000年 第3期 

　　注册登记表、ini初始化文件、文本文件等，均可保存程序运行中的一些设置。本人因常用VB编写数据库程序，发现用数据库来保存程序的设置非常简单、实用。下面就以保存窗体的背景色为例，介绍其实现方法。
　　新建一个Accesee数据库PrgSet.mdb（其它形式数据库均可），在数据库中创建表ColorSet，表中建一长整型（Long）字段FormBC；从VB标准EXE 中建窗体Form1，在窗体上添加命令按钮Command1、公共对话框CommonDialog1（从工具箱部件中选择Microsoft Common Dialog Control 6.0）、Data控件Data1。程序代码如下：
　　Private Sub Command1_Click（）
　　CommonDialog1.ShowColor
　　On Error GoTo ErrDeal
　　Data1.Recordset.Edit
　　ErrDeal:′空记录时添加新记录
　　If Err.Number = 3021 Then Data1.Recordset.AddNew
　　Data1.Recordset.Fields（“FormBC”） = CommonDialog1.Color
　　Data1.Recordset.Update
　　Form1.BackColor = CommonDialog1.Color
　　End Sub
　　－－－－－－－－－－－－－－－－－
　　Private Sub Form_Activate（）
　　On Error Resume Next
　　Form1.BackColor = Data1.Recordset.Fields（“FormBC”）
　　Resume
　　End Sub
    －－－－－－－－－－－－－－－－－－－－－
　　Private Sub Form_Load（）
　　Data1.DatabaseName = “C:\Temp\PrgSet.mdb”
　　Data1.RecordSource = “ColorSet”
　　End Sub
　　运行：按F5运行程序，单击命令按钮，从颜色框中选择适当的颜色，确认后，即可发现窗体的颜色变化，退出程序，重新进入程序又可发现窗体的颜色与退出前一样。
　　你不仅能用此法保存窗体上文本框的前景色和背景色，还能用此法保存程序的其它设置，赶快行动吧，让它为你的程序添加新光彩。
　　技巧：1.数据库最好只保留一个记录，用多个字段保存多个设置为佳，省得使用Find去定位查找；
　　2.数据库表中字段的类型需根据欲保存的数据类型来确定，一般可选择长整型、字节型、字符型等。
　　本程序在Win98、Vb6运行通过。

 