一区二区三区日韩精品-日韩经典一区二区三区-五月激情综合丁香婷婷-欧美精品中文字幕专区

分享

使用Data控件訪問(wèn)數(shù)據(jù)庫(kù)

 悟靜 2009-06-04
很多軟件都有保存用戶設(shè)置的功能,以便用戶下一次啟動(dòng)時(shí)其程序界面及相關(guān)設(shè)置都是自己最中意和習(xí)慣的,這使得軟件具有人性化,用戶用起來(lái)感到親切。用VB編寫的軟件可以通過(guò)多種途徑實(shí)現(xiàn)此功能,這里介紹用數(shù)據(jù)庫(kù)方法來(lái)保存用戶的個(gè)性化設(shè)置。

  假設(shè)我們已經(jīng)完成了一個(gè)用TextBox做編輯欄的字處理程序,該程序提供了讓用戶對(duì)編輯欄背景色和字體的設(shè)置菜單,現(xiàn)在我們想讓用戶所作的設(shè)置能保存下來(lái)。怎么辦呢?


  第一步:給窗體添加一個(gè)Data控件。

  第二步:用Access建立一個(gè)名為Pad的數(shù)據(jù)庫(kù),在庫(kù)中建立一個(gè)表Myset,給表添加四個(gè)字段:backcolor(數(shù)據(jù)),forecolor(文本),fontname(文本),fontsize(文本)。注意:請(qǐng)將庫(kù)文件存入程序所在目錄。

  如果你的機(jī)器沒(méi)安裝有Access,可通過(guò)VB建庫(kù)。

  第三步:編寫如下代碼:


在Form_Load事件添加:
'定位庫(kù)文件路徑
Data1.DatabaseName = App.Path + "\rtSet.mdb"
Data1.RecordSource = "MySet"

'設(shè)置背景色
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

'設(shè)置字體
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

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多

    欧美视频在线观看一区| 国产一区二区精品丝袜| 久久夜色精品国产高清不卡| 国产精品香蕉在线的人| 国产成人午夜福利片片| 国产成人精品国产成人亚洲| 黑丝国产精品一区二区| 成年人黄片大全在线观看| 久久亚洲国产视频三级黄| 国产精品亚洲欧美一区麻豆| 欧美日韩校园春色激情偷拍| 国产精品午夜福利在线观看| 国产亚洲欧美另类久久久| 精品熟女少妇av免费久久野外| 精品人妻一区二区三区免费| 国产不卡视频一区在线| 欧美日韩国产自拍亚洲| 内射精品欧美一区二区三区久久久| 国产欧美亚洲精品自拍| 亚洲一区二区三区精选| 欧美精品二区中文乱码字幕高清| 国产精品久久女同磨豆腐| 男女午夜在线免费观看视频| 日韩精品一区二区不卡| 欧美大胆美女a级视频| 婷婷色国产精品视频一区| 亚洲欧美日韩网友自拍| 黄片在线免费观看全集| 日本久久精品在线观看| 夜夜躁狠狠躁日日躁视频黑人| 欧美一本在线免费观看| 美女极度色诱视频在线观看| 99视频精品免费视频播放| 国产目拍亚洲精品区一区| 日本免费一级黄色录像| 色哟哟在线免费一区二区三区 | 国产一区二区三区四区免费| 久久机热频这里只精品| 国产一区二区三区午夜精品| 日本加勒比不卡二三四区| 国产成人国产精品国产三级 |

    AI助手

    阅读时有疑惑?点击向AI助手提问吧

    联系客服

    微信扫码,添加客服企业微信

    客服QQ:

    1732698931

    联系电话:4000-999-276

    客服工作时间9:00-18:00,晚上非工作时间,请在微信或QQ留言,第二天客服上班后会立即联系您。