【正文】 ted(0),selected(1)? ? 滾動條類的控件： 1) Value 屬性：滾動條上滑塊所在位置由 value 值所決定。 第二步：用 Access 建立一個名為 Pad 的數(shù)據(jù)庫，在庫中建立一個表 Myset，給表添加四個字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。 .Open If .RecordCount 0 Then Do Until .EOF = Trim(.Fields!) flagpassword = Trim(.Fields!) flagadmin = Trim(.Fields!) .MoveNext Loop Else MsgBox 輸入的工號非法，請重新輸入 , vbOKOnly = Exit Sub End If End With End If End Sub 2:添加用戶界面設(shè)計 : 代碼設(shè)計 : Private Sub cmdadd_Click() Dim conuser As New Dim cmduser As New Dim rstuser As New Dim strn As String 39。 39。 39。 amp。20 元二次票根 Dim je20_2, billb20_2, bille20_2, zs20_2 As Long billb20_2 = Val() bille20_2 = Val() If bille20_2 = 0 Then je20_2 = 0 Else je20_2 = (bille20_2 billb20_2 + 1) * 20 End If = je20_2 If bille20_2 = 0 Then zs20_2 = 0 Else zs20_2 = (bille20_2 billb20_2 + 1) End If = zs20_2 = billb20_2 = bille20_2 39。30 元票面 Dim je30_1, je30_2, je30_3, billb30_1, bille30_1, zs30_1, zs30_2, zs30_3 As Long billb30_1 = Val() bille30_1 = Val() je30_2 = Val() zs30_2 = Val() je30_3 = Val() zs30_3 = Val() If bille30_1 = 0 Then je30_1 = 0 Else je30_1 = (bille30_1 billb30_1 + 1) * 30 End If If bille30_1 = 0 Then zs30_1 = 0 Else zs30_1 = (bille30_1 billb30_1 + 1) End If If m_enable Then = je30_1 + je30_2 + je30_3 = zs30_1 + zs30_2 + zs30_3 Else = je30_1 = zs30_1 End If 39。判斷是否有多次票根 If 0 Then piao5 = CStr() amp。 CStr() amp。 CStr() Else piao5 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() ElseIf 0 Then piao20 = CStr() amp。 CStr() End If If 0 Then piao30 = CStr() amp。 CStr() amp。 CStr() Else piao30 = CStr() amp。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。 39。 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 rwdate amp。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 rwdate amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 txt30b2temp amp。 txt30b1temp amp。 txt20b2temp amp。 txt20b1temp amp。 txt15b2temp amp。 txt15b1temp amp。 txt10b2temp amp。 txt10b1temp amp。 txt5b2temp amp。 txt5b1temp amp。 txt30b amp。 txt20b amp。 txt15b amp。 txt10b amp。 txt5b amp。 CStr() amp。 CStr() amp。 CStr() Else piao20 = CStr() amp。 CStr() amp。 CStr() End If If 0 Then piao20 = CStr() amp。 CStr() ElseIf 0 Then piao15 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。小寫金額 Dim xxje As Long xxje = jehj = xxje 39。5 元二次票根 Dim je5_2, billb5_2, bille5_2, zs5_2 As Long billb5_2 = Val() bille5_2 = Val() If bille5_2 = 0 Then je5_2 = 0 Else je5_2 = (bille5_2 billb5_2 + 1) * 5 End If = je5_2 If bille5_2 = 0 Then zs5_2 = 0 Else zs5_2 = (bille5_2 billb5_2 + 1) End If = zs5_2 = billb5_2 = bille5_2 39。30 元二次票根 Dim je30_2, billb30_2, bille30_2, zs30_2 As Long billb30_2 = Val() bille30_2 = Val() If bille30_2 = 0 Then je30_2 = 0 Else je30_2 = (bille30_2 billb30_2 + 1) * 30 End If = je30_2 If bille30_2 = 0 Then zs30_2 = 0 Else zs30_2 = (bille30_2 billb30_2 + 1) End If = zs30_2 = billb30_2 = bille30_2 39。 39。 amp。 amp。 Trim() amp。 如果要簡單地直接在某個表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個窗體。 關(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)，對這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。為 false 時處于休眠狀態(tài) . 數(shù)據(jù)庫連接方式選擇 Visual 連接數(shù)據(jù)庫的主要方式以下幾種方式：一是： 用 data 控件進(jìn)行數(shù)據(jù)庫鏈接 ，二是 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接 。 6） OLEDragDrag 事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標(biāo)部件時，此事件發(fā)生。 13) Font 屬性：設(shè)置或返回字體的屬性。 5) DataChangeed 屬性：設(shè)置 /返回一個值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進(jìn)程修改。 7） KeyDown 事件：當(dāng)控件具有焦點時按下一個鍵時發(fā)生。 23) MaskColor 屬性：設(shè)置 /返回一個在控件的圖片中作為掩碼的顏色。 14) DragMode 屬性：設(shè)置 /返回一個值，確定在拖放操作中所用的方式。 6) Value 屬性：反映 控件狀態(tài)的屬性 ,返回 true 表示已選擇了該按鈕。 6) Change 事件 屬性：文本框的內(nèi)容發(fā)生改變時 ,相應(yīng)的控件之間發(fā)生相應(yīng)的改變 ,具有即時性。 ? 標(biāo)簽框類的控件類的控件： 1) Caption 屬性：在應(yīng)用程序界面上加入說明。 （ 2） 事件處理過程 按鈕單擊事件的處理過程為： Private Sub objectClick（ Index As Integer） 其中 Object 為引發(fā)該事件的對象名稱。 3) Appearance 屬性：值為 1 時 ,則以 3D 效果顯示該控件 ,0 則不然。公路票據(jù)管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。公路票據(jù)管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。 1． 2 系統(tǒng)簡介 本系統(tǒng)服務(wù)于高速公路收費站的工作人員 ,方便日常工作的收費 ,開票之需要 ,本系統(tǒng)只要由以下幾大功能模塊構(gòu)成 . 一 .數(shù)據(jù)操作 :輸入數(shù)據(jù) ,退出 二 .查詢 :記錄查詢 三 .用戶管理 :添加用戶 ,收費員管理 四 .修改密碼 : 五 .視窗 :工具欄 ,狀態(tài)欄 六 .窗口 :層疊 ,橫向平鋪 ,縱向平鋪 七 .幫助 :關(guān)于 1. 3 開發(fā)軟件介紹 Visual Basic Micrsoft 公司出品的開發(fā)工具， Visual Basic 是一種可視化的，面向?qū)ο蟮?Windows 開發(fā)語言，它具有易用，通用和開發(fā)效率高的特點。 6) Default 屬性 :決定哪一個命令按鈕控件是窗體的缺省命令按鈕 . 7) Font 屬性 :控制各種文字字體類型 . 8) Left,top,height,width 屬性 :設(shè)定控件的位置與大小 . 9) Style,picture 屬性 :決定按鈕的顯示方式是否為圖像形式出現(xiàn) . 10) Visible 屬性 :確定控件運(yùn)行時是否為可見 . 11) Index 屬性 :當(dāng)控件為一控件數(shù)組時 ,此屬性值為該控件在數(shù)組的下標(biāo)值 . 12) DownPicture 屬性：設(shè)置 /返回一個對圖片的引用，該圖片在按鈕被 單擊處于壓下狀態(tài)時顯示。 （ 2） 事件處理過程 命令按鈕 GotFoucs 事件處理過程為： Private Sub ObjectGotFocus（ Index As Integer） 3） LostFocus 事件：當(dāng)一個對象失去焦點時發(fā)生 4） KeyDown 事件：當(dāng)命令按鈕具有焦點時按下一個鍵時發(fā)生 5） KeyUp 事件：當(dāng)命令按鈕具有焦點時釋放一個鍵時發(fā)生。 ? 文本框類的控件： 1) Text 屬性：通過像 text 屬性賦值的方法來改變該屬性的值。 10) BackColor 屬性：設(shè)置返回背景色 11) BorderStyle 屬性：設(shè)置對象的邊框樣式 12) DataField 屬性：設(shè)定數(shù)據(jù)使用者將被綁定到的字段名 13) DataFormat 屬性：設(shè)定 DataFormat 對象，用于數(shù)據(jù)綁定 14) DataMember 屬性：從數(shù)據(jù)供應(yīng)程序提供 的幾個數(shù)據(jù)成員中返回 /設(shè)定一個特定的數(shù)據(jù)成員 15) DataSource 屬性：設(shè)定控件綁定的一個數(shù)據(jù)源 16) DragIcon 屬性：設(shè)定圖標(biāo)，它將在拖放操作中作為指針顯示 17) DragMode 模式：設(shè)定一個值，確定在拖放操作中所用方式 18) Enabled 屬性：設(shè)置 /返回運(yùn)行時 TextBox 是否相應(yīng)用戶事件 19) Font 屬性：設(shè)置 /返回字體屬性 20) ForeColor 屬性：設(shè)置 /返回文本的前景色 21) Height 屬性：設(shè)置 /返回 TextBox 的高度 22) IMEMode 屬性：設(shè)置 /返回數(shù)值用來確定輸入方法編輯器的狀態(tài) 23) Index 屬性：設(shè)置 /返回唯 一的標(biāo)識控件數(shù)組中該控件的編號 24) Left 屬性：設(shè)置 /返回 TextBox 控件的水平位置 25) Locked 屬性：設(shè)置 /返回 TextBox 中文本是否可編輯 26) LinkItem 屬性：設(shè)置 /返回 DDE 與另一個應(yīng)用程序會話時，傳給接受端的數(shù)據(jù) 27) MaxLength 屬性：設(shè)置 /返回一個值，指定在 TextBox 控件中能夠輸入的字符最大值 28) MouseIcon 屬性：設(shè)置 /返回自定義鼠標(biāo)的圖標(biāo) 29) Top 屬性：設(shè)置 /返回 TextBox 控件的垂直位置 30) Tag 屬性：存儲過程所