【文章內(nèi)容簡介】 屬性：設(shè)置或返回字體的屬性。14) Name 屬性：設(shè)置或返回控件的標(biāo)識(shí)名。15) Value 屬性：設(shè)置或返回控件的狀態(tài)。? 復(fù)選按鈕類的控件的基本事件：1） Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。2） DragDrop 事件：在一個(gè)完整的拖放動(dòng)作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時(shí)發(fā)生。3） DragOver 事件：在拖放操作正在進(jìn)行時(shí)發(fā)生。4） GotFocus 事件：在對(duì)象獲的焦點(diǎn)時(shí)發(fā)生。 ，5） OLECompleteDrag 事件：當(dāng)源部件被放到目標(biāo)時(shí)發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。6） OLEDragDrag 事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標(biāo)部件時(shí)，此事件發(fā)生。? 框架類的控件：1) List 屬性：列表框控件的表項(xiàng)是使用數(shù)組的方式保存,數(shù)組的每一個(gè)元素存儲(chǔ)列表控件的一個(gè)表項(xiàng)1) Listcount 屬性:控件列表部分項(xiàng)目的個(gè)數(shù)。2) Mutselect 屬性:可以設(shè)置列表框?yàn)閱芜x或允許多選屬性.3) Selectd 屬性:標(biāo)示一個(gè)數(shù)組,數(shù)組各元素為:4) Selected(0),selected(1)…? 滾動(dòng)條類的控件：1) Value 屬性：滾動(dòng)條上滑塊所在位置由 value 值所決定。2) Max 和 min 屬性：對(duì) value 值的最大,最小進(jìn)行限制。3) Largechange 屬性：用戶點(diǎn)擊滾動(dòng)條與鍵頭之間的區(qū)域時(shí),value 的改變量。4) OnClick 事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。? 定時(shí)器類類的控件：1) Interval 屬性：表示定時(shí)的時(shí)間間隔,以毫秒為單位。2) Enable 屬性:為 true 時(shí)(缺省值),激活定時(shí)器開始計(jì)時(shí)。為 false 時(shí)處于休眠狀態(tài).數(shù) 據(jù) 庫 連 接 方 式 選 擇Visual 連接數(shù)據(jù)庫的主要方式以下幾種方式：一是：用 data 控件進(jìn)行數(shù)據(jù)庫鏈接 ，二是利用 adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接 。三是: 利用DataEnvironment ADO(ActiveX Data Objects)進(jìn)行編程:現(xiàn)在我們來大致對(duì)這幾種技術(shù)應(yīng)用介紹：一、 用 data 控件進(jìn)行數(shù)據(jù)庫鏈接.　第一步：給窗體添加一個(gè) Data 控件。第二步：用 Access 建立一個(gè)名為 Pad 的數(shù)據(jù)庫，在庫中建立一個(gè)表 Myset，給表添加四個(gè)字段：backcolor（數(shù)據(jù)），forecolor(文本），fontname(文本）,fontsize（文本）。注意：請(qǐng)將庫文件存入程序所在目錄。 如果你的機(jī)器沒安裝有 Access，可通過 VB 建庫。二、 利用 adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接：使用 adodata 控件訪問數(shù)據(jù)庫可以完全不用編寫代碼,只需要通過簡單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫的連接,通過綁定數(shù)據(jù)感知控件,就能提供一個(gè)訪問數(shù)據(jù)庫的界面,用來實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的瀏覽,貼加,刪除,修改等操作.三、 利用 DAO 對(duì)數(shù)據(jù)庫進(jìn)行操縱:在 visual basic 中提供了兩種與 jet 數(shù)據(jù)引擎接口的方法:data 控件與數(shù)據(jù)訪問對(duì)象(DAO)DAO 是 database object 的英文縮寫,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口,另一方面要在編程環(huán)境中有對(duì)數(shù)據(jù)庫的支持.DAO 們提供了管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法,這其中包括建立數(shù)據(jù)庫,定義表,字段和建立表間關(guān)系,定位和查詢數(shù)據(jù)庫等.關(guān)系數(shù)據(jù)庫介紹:關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。20 世紀(jì) 70 年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 關(guān)系數(shù)據(jù)庫系統(tǒng)與非關(guān)系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有“表“這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對(duì)這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。結(jié)構(gòu)化查詢語言 SQL（Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫語言。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 數(shù)據(jù)庫設(shè)計(jì)工具——ACCESS 數(shù)據(jù)庫管理系統(tǒng) Microsoft Access 介紹:使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，請(qǐng)為每一種類型的信息創(chuàng)建一個(gè)表。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。查詢的同時(shí)也可以更新或刪除多條記錄，并對(duì)數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。 如果要簡單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。在打開一個(gè)窗體時(shí)，Microsoft Access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請(qǐng)創(chuàng)建一個(gè)報(bào)表。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。第二章 系統(tǒng)設(shè)計(jì) 系統(tǒng)分析本系統(tǒng)主要由以下幾大功能模塊構(gòu)成::檔案?jìng)}庫,退出系統(tǒng):配置公司信息,配置員工信息,配置數(shù)據(jù)庫路徑,修改檔案,刪除檔案,搜索檔案 系統(tǒng)流程和操作方式設(shè)計(jì)程序登陸主界面檔案管理系統(tǒng)配置添加檔案系統(tǒng)幫助退出系統(tǒng)第三章 系統(tǒng)界面設(shè)計(jì) 系統(tǒng)界面設(shè)計(jì)以及代碼分析1. 登陸界面設(shè)計(jì)代碼設(shè)計(jì)分析:Private Sub cmdOK_Click() 39。檢查密碼的正確性Dim X As Long X = 39。如果有加密，解密方法放此處，將 PassYu(X)數(shù)組中的值， 39。轉(zhuǎn)換成原來信息 Dim FindStr As String39。將加密口令變回來 Dim shiftStr As String, shiftStrR As Variant, shiftNum As Integer, ili As Integer, SureStr As String shiftStr = Trim() shiftNum = Len(shiftStr) ili = 1 SureStr = For ili = 1 To shiftNum shiftStrR = Mid(shiftStr, ili, 1) shiftStrR = Asc(shiftStrR) shiftStrR = shiftStrR 3 shiftStrR = Chr(shiftStrR) SureStr = SureStr amp。 shiftStrR Next 39。密匙 39。開始查找 sureStr 為解除的口令 If SureStr = PassYu(X) Then UserText = PurView = strPurView(X) 39。密碼正確時(shí) = 11 Unload Me Exit Sub Else MsgBox 無效的密碼，再試一次！, 32, 登錄 LOGINNO = LOGINNO + 1 If LOGINNO 3 Then MsgBox 對(duì)不起，您不能使用該系統(tǒng)！, 64, 登錄失敗 Unload Me Exit Sub End If SendKeys {Home}+{End} End IfEnd SubPrivate Sub Form_Load()On Error Resume Next = Val(GetSetting(, Login, Left)) = Val(GetSetting(, Login, Top))Dim retValue As Long retValue = SetActiveWindow() Browser = CurDir() 39。設(shè)計(jì)時(shí)定義 temp dir 39。Browser = D:\Program\Study\文件管理 If Right(Browser, 1) \ Then Browser = Browser + \ End If checkPath 39。檢測(cè)路徑 Dim DB As Database, EF As Recordset, X As Long, i As LongDim UserYu(10) As String Set DB = OpenDatabase(ConData, False, False, ConStr) Set EF = (User, dbOpenTable) X = Set EF = (User, dbOpenDynaset) For i = 0 To X 1 UserYu(i) = (0).Value If Not IsNull((1).Value) Then PassYu(i) = (1).Value End If If Not IsNull((2).Value) Then strPurView(i) = (2).Value End If UserYu(i), i Next If X = 1 Then = 0End IfLOGINNO = 1End Sub2. 主界面設(shè)計(jì)代碼分析:Private Sub MDIForm_Load() = 11Dim Ltp As Long39。 = GetSetting(, Windows, Windows Status, 1) = GetSetting(, Settings, MainLeft, 1000) = GetSetting(, Settings, MainTop, 1000) = GetSetting(, Settings, MainWidth, 6500) = GetSetting(, Settings, MainHeight, 6500)39。配置圖片(3).Text = 日期: amp。 Format(Date, Long Date)39。 = TempArray(0) + 檔案管理系統(tǒng)(6).Text = 制作單位： + TempArray(0)(6).ToolTipText = 歡迎使用本軟件 = 0On Error Resume Next = LoadPicture(TempArray(5))(2).Text =