化疗能控制骨转移吗:使用Data控件访问数据库

来源：百度文库 编辑：中财网 时间：2024/04/29 01:17:13
很多软件都有保存用户设置的功能，以便用户下一次启动时其程序界面及相关设置都是自己最中意和习惯的，这使得软件具有人性化，用户用起来感到亲切。用VB编写的软件可以通过多种途径实现此功能，这里介绍用数据库方法来保存用户的个性化设置。
假设我们已经完成了一个用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
vc 使用数据库访问那些控件 在VB中使用ADODC控件访问ACCESS数据库问题 VB中使用DATA控件为什么与数据库建立连接后还是出错，连接不上 怎样用Data控件连接数据库显示图片 在vb中 DataGrid1与数据库(不使用data ,adodc,DataEnvironment 等控件)如何动态连接库? vb的DATA控件怎么样连接到SQL数据库上？ 在VB中编写数据库访问的程序，使用树形列表控件显示存储在数据库中的树形结构？ 关于VISUAL BASIC数据库访问控件 data控件是否支持2003的数据库,我都是用data控件编的担心移植性不好 要在工程中使用ADO Data控件，必须设置控件的什么和 什么属性。 怎样让vb6.0中的data控件支持access2000的数据库？ vb里面的data控件只能连接数据库么？我连接到.txt文件上后‘‘‘？？？ VB 怎样用DATA控件修改数据库中的特定的字段下的数据? ★★★vb的data控件连接access数据库的搜索问题★★★ 我用ADO控件访问带密码的ACCESS数据库,为何访问不了 在VB中使用data控件时出现类没有注册,查找具有clsid的对象 在C#2005下怎样使用Dataagridview控件连接数据库 bcb中如何使用database控件连接access数据库 关于使用flexgrid控件显示数据库的问题 数据库访问 关于VB使用DATA连接access数据库验证用户和密码的问题 关于VB使用DATA连接access数据库验证用户和密码的问题 如何使用vb访问多张数据库表(sql server)? 怎么使用ODBC访访问远程msyql数据库?