【正文】 le30_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。 39。 \ .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 用戶工號 , username as 用戶姓名 ,userjibie as 用戶級別 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。 amp。 amp。 amp。 amp。 Trim() amp。 15 第二章 系統(tǒng)的分析 第一章 系統(tǒng)的分析 2． 1 系統(tǒng)開發(fā)的目標(biāo)和思想 本系統(tǒng)開發(fā)目標(biāo)是服務(wù)于 高速公路收費(fèi)管理人員 ,方便工作人員 ,對過往車輛收費(fèi) ,發(fā) 放收費(fèi)票據(jù)記錄 ,對信息的分類管理等 . 同時(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 工號為空，請重新輸入！ ！ , vbOKOnly Exit Sub End If If Len(Trim()) = 0 Then MsgBox 用戶密碼為空，請重新輸入??！ , vbOKOnly Exit Sub End If With conlogin If .State = adStateOpen Then .Close End If 19 .Provider = .ConnectionString = amp。 如果要簡單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個(gè)窗體。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個(gè)表。 關(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)有其他的操作。 如果你的機(jī)器沒安裝有 Access，可通過 VB 建庫。為 false 時(shí)處于休眠狀態(tài) . 數(shù)據(jù)庫連接方式選擇 Visual 連接數(shù)據(jù)庫的主要方式以下幾種方式：一是： 用 data 控件進(jìn)行數(shù)據(jù)庫鏈接 ，二是 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接 。 3) Largechange 屬性：用戶點(diǎn)擊滾動(dòng)條與鍵頭之間的區(qū)域時(shí) ,value 的改變量。 6） OLEDragDrag 事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標(biāo)部件時(shí)，此事件發(fā)生。 2） DragDrop 事件：在一個(gè)完整的拖放動(dòng)作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時(shí)發(fā)生。 13) Font 屬性：設(shè)置或返回字體的屬性。 9) DisabledPicture 屬性：設(shè)置或返回一個(gè)對圖片的引用，該圖片在控件無效時(shí)顯示在控件中。 5) DataChangeed 屬性：設(shè)置 /返回一個(gè)值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進(jìn)程修改。 11） MouseMove 事件：在控件上移動(dòng)鼠標(biāo)時(shí)發(fā)生。 7） KeyDown 事件：當(dāng)控件具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生。 3） DragDrop 事件：在一個(gè)完整的拖放動(dòng)作或使用 Drag 方法，并將其Action 參數(shù)設(shè)置位 2 時(shí)，該事件發(fā)生。 23) MaskColor 屬性：設(shè)置 /返回一個(gè)在控件的圖片中作為掩碼的顏色。 18) FontStrikethru 屬性：設(shè)置 /返回字體刪除線樣式。 14) DragMode 屬性：設(shè)置 /返回一個(gè)值，確定在拖放操作中所用的方式。 10) DataField 屬性：設(shè)置 /返回?cái)?shù)據(jù)使用者將被綁定到的字段名。 6) Value 屬性：反映控件狀態(tài)的屬性 ,返回 true 表示已選擇了該按鈕。 2) Alignment 屬性：決定單選按鈕的標(biāo)題在控件上的位置。 6) Change 事件屬性：文本框的內(nèi)容發(fā)生改變時(shí) ,相應(yīng)的控件之間發(fā)生相應(yīng)的改變 ,具有即時(shí)性。 2) Maxlength 屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。 ? 標(biāo)簽框類的控件類的控件： 1) Caption 屬性：在應(yīng)用程序界面上加入說明。 6） KeyPress 事件：當(dāng)用戶按下或松開一個(gè) ANSI 鍵時(shí)發(fā)生。 （ 2） 事件處理過程 按鈕單擊事件的處理過程為： Private Sub objectClick（ Index As Integer） 其中 Object 為引發(fā)該事件的對象名稱。 13) DisabledPicture 屬性：設(shè)置 /返回一個(gè)對圖片的引用，該圖片在控件無效時(shí)顯示在控件中。 3) Appearance 屬性：值為 1 時(shí) ,則以 3D 效果顯示該控件 ,0 則不然。隨著微軟對它不斷地改進(jìn)以及計(jì)算機(jī)本身性能的提高，使得 Visual Basic 越來越適合一般的應(yīng)用程序開發(fā)。公路票據(jù)管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。公路票據(jù)管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。 關(guān)鍵字 :中介管理 ,MIS,visual basic ,數(shù)據(jù)庫 Abstract Notes highway management systems using puters and records management fees highway vehicles a puter application technology innovation, road toll has not yet universal in the puter before the bills are written by the staff manual to operate. The general told the road charges are used puter as a tool for the management of the puter highway bills practical management procedures to help managers more effective vehicle charges. Highway Bills management system is a typical management information system (MIS), including its main development background to the establishment and maintenance of the database and frontend application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use Microsoft visual basic development tool panies, the use of 4 its various objectoriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, putation of the initial prototype system needs to constantly revise and improve until the formation of a viable system of user satisfaction. keyword : intermediary management MIS,visual basic database 第一章 引言 1． 1 課題背景 高速公路票據(jù)管理系統(tǒng)用計(jì)算機(jī)管理高速公路車輛收費(fèi)并記錄的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新 ,在計(jì)算機(jī)還未普及之前公路收費(fèi)開票據(jù)都是由工作人員手工書寫的方式來操作的 .現(xiàn)在一般的告訴公路收費(fèi)管理站都是采用計(jì)算機(jī)作為工 具的實(shí)用的計(jì)算機(jī)公路票據(jù)管理程序來幫助管理員進(jìn)行更有效的車輛收費(fèi)工作。 1． 2 系統(tǒng)簡介 本系統(tǒng)服務(wù)于高速公路收費(fèi)站的工作人員 ,方便日常工作的收費(fèi) ,開票之需要 ,本系統(tǒng)只要由以下幾大功能模塊構(gòu)成 . 5 一 .數(shù)據(jù)操作 :輸入數(shù)據(jù) ,退出 二 .查詢 :記錄查詢 三 .用戶管理 :添加用戶 ,收費(fèi)員管理 四 .修改密 碼 : 五 .視窗 :工具欄 ,狀態(tài)欄 六 .窗口 :層疊 ,橫向平鋪 ,縱向平鋪 七 .幫助 :關(guān)于 1. 3 開發(fā)軟件介紹 Visual Basic Micrsoft 公司出品的開發(fā)工具， Visual Basic 是一種可視化的，面向?qū)ο蟮?Windows 開發(fā)語言，它具有易用，通用和開發(fā)效率高的特點(diǎn)。 2) Enable 屬性：控制控件的激活狀態(tài)灰色或可用。 6) Default 屬性 :決定哪一個(gè)命令按鈕控件是窗體的缺省命令按鈕 . 7) Font 屬性 :控制各種文字字體類型 . 8) Left,top,height,width 屬性 :設(shè)定控件的位置與大小 . 9) Style,picture 屬性 :決定按鈕的顯示方式是否為圖像形式出現(xiàn) . 10) Visible 屬性 :確定控件運(yùn)行時(shí)是否為可見 . 11) Index 屬性 :當(dāng)控件為一控件數(shù)組時(shí) ,此屬性值