【正文】 Dim rstuser As New Dim strn As String strn = select userid as 用戶工號(hào) , username as 用戶姓名 ,userjibie as 用戶級(jí)別 from userinfo With conuser If .State = adStateOpen Then .Close End If .Provider = .ConnectionString = amp。 39。 amp。 39。 amp。 \ .ConnectionTimeout = 10 .Open End With With cmduser .ActiveConnection = conuser .CommandType = adCmdText .CommandText = strn .Execute End With MsgBox 添加用戶信息到數(shù)據(jù)庫的操作成功 , vbOKOnly, 確認(rèn)框 = = = = 23 strn = select userid as 用戶工號(hào) , username as 用戶姓名 ,userjibie as 用戶級(jí)別 from userinfo With rstuser .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockOptimistic .ActiveConnection = conuser .Open strn, Options:=adCmdText Set = rstuser End With End Sub Private Sub cmdcancel_Click() = = = = End Sub Private Sub cmddel_Click() Dim conuser As New Dim cmduser As New Dim rstuser As New Dim strn As String 39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 .Open If .RecordCount 0 Then Do Until .EOF = Trim(.Fields!) flagpassword = Trim(.Fields!) flagadmin = Trim(.Fields!) .MoveNext Loop Else MsgBox 輸入的工號(hào)非法，請(qǐng)重新輸入 , vbOKOnly = Exit Sub End If End With End If End Sub 2:添加用戶界面設(shè)計(jì) : 21 代碼設(shè)計(jì) : Private Sub cmdadd_Click() Dim conuser As New Dim cmduser As New Dim rstuser As New Dim strn As String 39。 Trim() amp。 \ .Open End With With rstlogin If .State = adStateOpen Then .Close End If .LockType = adLockReadOnly .CursorLocation = adUseClient .CursorType = adOpenDynamic .ActiveConnection = conlogin .Source = select userid,username,userpassword,userjibie from userinfo where userid=39。 15 第二章 系統(tǒng)的分析 第一章 系統(tǒng)的分析 2． 1 系統(tǒng)開發(fā)的目標(biāo)和思想 本系統(tǒng)開發(fā)目標(biāo)是服務(wù)于 高速公路收費(fèi)管理人員 ,方便工作人員 ,對(duì)過往車輛收費(fèi) ,發(fā) 放收費(fèi)票據(jù)記錄 ,對(duì)信息的分類管理等 . 同時(shí)力求做到界面人性化 ,功能齊全 ,數(shù)據(jù)存儲(chǔ)安全 . 2． 2 系統(tǒng)的可行性分析 技術(shù)上 :本系統(tǒng)采用 visual basic 與微軟的 access 作為數(shù)據(jù)庫 ,技術(shù)上開發(fā)難度一般 . 經(jīng)濟(jì)上 :本系統(tǒng)服務(wù)于 高速公路收費(fèi)管理人員 ,提高了工作人員辦事效率 ,節(jié)省了開支 .所以具有經(jīng)濟(jì)上的可行性 . 社會(huì)上 :本系統(tǒng)同時(shí)也方便了廣大司機(jī)朋友 ,以及乘客 .所以具有社會(huì)可行性 . 16 第二章 系統(tǒng)的設(shè)計(jì) 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì) 3． 2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì) 1:數(shù)據(jù)表 : 程序登陸 主界面 數(shù)據(jù)操作 查詢 用戶管理 修改密碼 視圖 窗口 幫助 17 2:sfyinfo 表設(shè)計(jì) : 3:用戶信息表 : 3． 2 界面設(shè)計(jì)與代碼設(shè)計(jì) 18 1:登陸界面設(shè)計(jì) : 代碼分析 : Dim flagpassword As String Dim flagadmin As String Option Explicit Private Sub cmdcancel_Click() End Sub Private Sub cmdok_Click() Dim conlogin As New Dim rstlogin As New If Len(Trim()) = 0 Then MsgBox 工號(hào)為空，請(qǐng)重新輸入！ ！ , vbOKOnly Exit Sub End If If Len(Trim()) = 0 Then MsgBox 用戶密碼為空，請(qǐng)重新輸入！！ , vbOKOnly Exit Sub End If With conlogin If .State = adStateOpen Then .Close End If 19 .Provider = .ConnectionString = amp。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請(qǐng)創(chuàng)建一個(gè)報(bào)表。 如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。 如果要保存數(shù)據(jù)，請(qǐng)為每一種類型的信息創(chuàng)建一個(gè)表。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。 關(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)有其他的操作。 20 世紀(jì) 70 年代以后 14 開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。 如果你的機(jī)器沒安裝有 Access，可通過 VB 建庫。 第二步：用 Access 建立一個(gè)名為 Pad 的數(shù)據(jù)庫，在庫中建立一個(gè)表 Myset，給表添加四個(gè)字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。為 false 時(shí)處于休眠狀態(tài) . 數(shù)據(jù)庫連接方式選擇 Visual 連接數(shù)據(jù)庫的主要方式以下幾種方式：一是： 用 data 控件進(jìn)行數(shù)據(jù)庫鏈接 ，二是 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接 。 ? 定時(shí) 器類類的控件： 1) Interval 屬性：表示定時(shí)的時(shí)間間隔 ,以毫秒為單位。 3) Largechange 屬性：用戶點(diǎn)擊滾動(dòng)條與鍵頭之間的區(qū)域時(shí) ,value 的改變量。 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 值所決定。 6） OLEDragDrag 事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標(biāo)部件時(shí)，此事件發(fā)生。 4） GotFocus 事件：在對(duì)象獲的焦點(diǎn)時(shí)發(fā)生。 2） DragDrop 事件：在一個(gè)完整的拖放動(dòng)作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時(shí)發(fā)生。 15) Value 屬性：設(shè)置或返回控件的狀態(tài)。 13) Font 屬性：設(shè)置或返回字體的屬性。 11) DragIcon 屬性：設(shè)置或返回圖標(biāo)，它將在拖放操作中做為指針顯示。 9) DisabledPicture 屬性：設(shè)置或返回一個(gè)對(duì)圖片的引用，該圖片在控件無效時(shí)顯示在控件中。 7) DataFormat 屬性：設(shè)置或返回 DataFormat 對(duì)象，用于數(shù)據(jù)綁定。 5) DataChangeed 屬性：設(shè)置 /返回一個(gè)值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進(jìn)程修改。 ? 復(fù)選按鈕類的控件： 1) Caption 屬性：缺省為 check1? 。 11） MouseMove 事件：在控件上移動(dòng)鼠標(biāo)時(shí)發(fā)生。 11 9） KeyPress 事件：當(dāng)用戶按下或釋放 ANSI 一個(gè)鍵時(shí)發(fā)生。 7） KeyDown 事件：當(dāng)控件具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生。 5） GotFocus 事件： 當(dāng)獲的對(duì)象焦點(diǎn)時(shí)發(fā)生。 3） DragDrop 事件：在一個(gè)完整的拖放動(dòng)作或使用 Drag 方法，并將其Action 參數(shù)設(shè)置位 2 時(shí)，該事件發(fā)生。 ? 單選按鈕類的常用事件： 1） Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。 23) MaskColor 屬性：設(shè)置 /返回一個(gè)在控件的圖片中作為掩碼的顏色。 20) FontName 屬性：設(shè)置 /返回控件中顯示文本所用的字體大小。 18) FontStrikethru 屬性：設(shè)置 /返回字體刪除線樣式。 16) FontBold 屬性：設(shè)置 /返回字體粗體樣式。 14) DragMode 屬性：設(shè)置 /返回一個(gè)值，確定在拖放操作中所用的方式。 12) DisabledPicture 屬性：設(shè)置 /返回一個(gè)對(duì)圖像的引用，該圖片在控件無效時(shí)顯示在控件中。 10) DataField 屬性：設(shè)置 /返回?cái)?shù)據(jù)使用者將被綁定到的字段名。 8) BackColor 屬性：設(shè)置 /返回背景色。 6) Value 屬性：反映控件狀態(tài)的屬性 ,返回 true 表示已選擇了該按鈕。 4) Index 屬性：屬性值表示為單選按鈕組成的控件中某個(gè)按鈕的索引值。 2) Alignment 屬性：決定單選按鈕的標(biāo)題在控件上的位置。 8) Alignment 屬性：設(shè)定控件中的文本對(duì)其方式 9) Appearance 屬性：設(shè)定一個(gè)對(duì)象在運(yùn)行時(shí)是否可以 3D 效果顯示。 6) Change 事件屬性：文本框的內(nèi)容發(fā)生改變時(shí) ,相應(yīng)的控件之間發(fā)生相應(yīng)的改變 ,具有即時(shí)性。 4) Scrollbars 屬性：該屬性決定是否為文本框加滾動(dòng)條。 2) Maxlength 屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。 3) Backstyle 屬性：用以指示標(biāo)簽是否透明 . 4) Bordstyle 屬性 :用以設(shè)定控件是否有邊框。 ? 標(biāo)簽框類的控件類的控件： 1) Caption 屬性：在應(yīng)用程序界面上加入說明。 8） MouseMove 事件：當(dāng)命令按鈕上移動(dòng)鼠標(biāo)時(shí)發(fā)生。 6） KeyPress 事件：當(dāng)用戶按下或松開一個(gè) ANSI 鍵時(shí)發(fā)生。 7 2） 獲得焦點(diǎn)―― GotFocus 事件 （ 1） 觸發(fā)與適用 當(dāng)命令按鈕獲得焦點(diǎn)產(chǎn)生該事件，獲得焦點(diǎn)可以通過諸如Tab 切換或單擊對(duì)象之類的用戶動(dòng)作，或在代碼中用SetFocus 方法改變焦點(diǎn)來實(shí)現(xiàn)。 （ 2） 事件處理過程 按鈕單擊事件的處理過程為： Private Sub objectClick（ Index As Integer） 其中 Object 為引發(fā)該事件的對(duì)象名稱。 ? 命令按鈕類的事件： 1） 單擊事件―― Click 事件 （ 1） 觸發(fā)與適用 此事件是在一個(gè)命令按鈕對(duì)象上按下然后釋放一個(gè)鼠標(biāo)按鈕時(shí)發(fā)生。 13) DisabledPicture 屬性：設(shè)置 /返回一個(gè)對(duì)圖片的引用，該圖片在控件無效時(shí)顯示在控件中。 5) Cancel 屬性：該屬性決定按鈕是否為一個(gè) ” 取消 ” 按鈕。 3) Appearance 屬性：值為 1 時(shí) ,則以 3D 效果顯示該控件 ,0 則不然。在眾多的 開發(fā)工具中，我們?yōu)槭裁匆x擇Visual 呢？因?yàn)?VB 具有眾多其它開發(fā)工具所沒有的優(yōu)點(diǎn)！具體介紹如下： ? 開發(fā)的高效 ? 語言的高效 ? 編譯的高效 ? 執(zhí)行的高效 ? 維護(hù)的高效 基于以上理由，我們毫不憂郁的選擇了