【正文】 ................................................. 25 聲 明 .................................................................. 26 第 1 頁 共 26 頁 1 引 言 隨著時代的進步，社會生產(chǎn)力高速發(fā)展，新技術(shù)層出不窮，信息量急劇膨脹，整個人類社會已成為金融化信息化的社會，并開始朝著自動化智能化發(fā)展。 系統(tǒng)在前臺采用了 Visual 這一功能全面，方便易學(xué)的語言作為開發(fā)語言，而后臺則用功能強大的 SQLSERVER2021 數(shù)據(jù)庫加以實現(xiàn)。最早的 ATM 機只是現(xiàn)鈔發(fā)放機。它并沒有使用磁條卡，而是向用戶發(fā)行紙券，用戶將紙券插入機器，取出面值為10 英鎊的鈔票。維澤爾 。之后，他建議自己的雇主 Docutel 研制這種機器。研制成功后， Doctuel 將 ATM 機賣給了紐約化學(xué)銀行。雖然 Docutel 的 ATM機器使用了現(xiàn)代的磁條技術(shù)，但和今天的技術(shù)相比，還是顯得比較原始。機器用特殊的方法打印下交易的紀(jì)錄。起初， ATM 主要用來處理信用卡，到了 1972 年，克里夫蘭城市國家銀行成功地引進了一種可在ATM 機上使用的沒有透支功能的卡片。同時， ATM 實現(xiàn)了與計算機相連接，使客戶可以實時地了解賬戶余額和支付情況。 模擬 ATM 系統(tǒng)的意義 現(xiàn)實意義 目前全球共有 ATM 超過 120 萬臺，平均每 5 分鐘新增一臺，連南極科考基地都安裝了 ATM，每年通過這些機器進行的金融交易超過 400 億筆。經(jīng)過了近 40 年的發(fā)展， ATM 也取得了長足的進步，從早期的紙券取錢，到現(xiàn)在的一卡在手， ATM 機也從早期的簡單機器，后期的系統(tǒng)集成式機器，發(fā)展成了如今的 基于個人 PC 上操作系統(tǒng)下的智能化系統(tǒng)，擁有了更多更全更加方便的功能。本次開發(fā)的 ATM 系統(tǒng)就是基于 WINXP 系統(tǒng)下的具有友好界面的軟件系統(tǒng) 學(xué)習(xí)意義 開發(fā)一個軟件系統(tǒng)，從需求分析到流程圖的繪制及模塊的分析， 再到最后的數(shù)據(jù)庫設(shè)計 及代碼的編寫實現(xiàn)都要自己動手一步一步的來解決完成，這個過程對于自己在大學(xué)所學(xué)的知識是一個非常好的檢驗，對動手能力及思維能力也是一次非常好的鍛煉。 3 模擬 ATM 系統(tǒng)開發(fā)平臺簡介 Windows下的 Visual Basic 編程環(huán)境簡介 面向?qū)ο蟮木幊? 微軟公司的 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工 具。故而，實現(xiàn)本系統(tǒng) VB 是一個相對較好的選擇。它簡單易學(xué)、效率高，且功能強大，可以與 Windows 的專業(yè)開發(fā)工具 SDK 相媲美，而且程序開發(fā)人員不必具有 C/C++編程基礎(chǔ)?？偟膩碚f， Visual Basic 具有以下特點： 第 3 頁 共 26 頁 （ 1）可視化編程： 用傳統(tǒng)程序設(shè)計語言設(shè)計程序時，都是通過編寫程序代碼來設(shè)計用戶界面，在設(shè)計過程中看不到界面的實際顯示效果， 必須編譯后運行程序才能觀察。有時候，這種編程 編譯 修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。只需要按設(shè)計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種 “部件 ”，即圖形對象，并設(shè)置這些圖形對象的屬性。 （ 2）面向?qū)ο蟮某绦蛟O(shè)計 Visual Basic 應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法 (OOP)，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予應(yīng)有的屬性，使對象成為實在的東西。每個對象以圖形方式顯示在界面上，都是可視的。 Visual Basic 語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調(diào)試器和編譯器。在設(shè)計 Visual Basic 程序的過程中，隨時可以運行程序，而在整個程序設(shè)計好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運行。一個對象可能會產(chǎn)生多個事件，每個事件都可以通過一段程序來響應(yīng)。這些過程分別面向不同的對象，由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。同時， Visual Basic 還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE， FoxPro， Paradox 等，這些數(shù)據(jù)庫格式都可以用 Visual Basic 編輯和處理。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言 SQL 數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機制和網(wǎng)絡(luò)數(shù)據(jù)庫的 SQL 的編程技術(shù)，為單機上運行的數(shù)據(jù)庫提供了 SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶 /服務(wù)器 (client/server)方案。當(dāng)原始數(shù)據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。 （ 7）對象的鏈接與嵌入 (OLE) 對象的鏈接與嵌入 (OLE)將每個應(yīng)用程序都看做是一個對象 (object)，將不同的對象鏈接 (link)起來，再嵌入 (embed)某個應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。利用 OLE 技術(shù)，可以方便地建立復(fù)合式文檔 (pound document)， 這種文檔由來自多個不同應(yīng)用程序的對象組成，文檔中的每個對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。但它可以通過動態(tài)鏈接庫技術(shù)將 C/C++或匯編語言編寫的程序加入到 Visual Basic 應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。 生成幫助文 件及版本信息 專業(yè)水平的軟件通常都帶有聯(lián)機幫助功能。微軟的 Help 是一套獨立于Visual Basic 的用來協(xié)助我們創(chuàng)建、運行于 32 位 Windows 操作系統(tǒng)下的幫助文件的工具。為了是程序顯得更具有專業(yè)風(fēng)格，首先可以在其中加入通常的應(yīng)用程序信息。 Visual Basic 允許你使用 APP 對象來保存這些信息， APP 對象是一個預(yù)定義對象，不需要在程序中創(chuàng)建它。 SQLSERVER2021 數(shù)據(jù)庫簡介 數(shù)據(jù)庫的概念 數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。計算機的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（ flatfile）和關(guān)系數(shù)據(jù)庫（ relational）。 微軟 SQLSERVER2021 簡介 SQL Server 2021 是 Microsoft 公司推出的 SQL Server 數(shù)據(jù)庫管理系統(tǒng)的最新版本該版本繼承了 SQL Server 版本的優(yōu)點同時又比它增加了許多更先進的功能具有使用方便可伸縮性好與相關(guān)軟件集成程度高等優(yōu)點可跨越從運行Microsoft Windows 98 的膝上型電腦到運行 Microsoft Windows 2021 的大型多處理器的服 務(wù)器等多種平臺使用 ADO 是訪問由微軟推出的最新 .功能最強 ,且容易使用的數(shù)據(jù)訪問實例(OLEDB)的應(yīng)用程序接口 . 我們就是通過它以及創(chuàng)建 Active X 數(shù)據(jù)對象 與 SQL 數(shù)據(jù)庫二者的連接（ ADO） ADO Recordset來訪問 SQLSEVER2021 上的 ODBC數(shù)據(jù)源 .使用 ADO控件可以方便的在 VB6 中訪問 ODBC 數(shù)據(jù)庫，但是通過直接放置 ADODS 控件來獲得 ADO 的數(shù)據(jù)連接比較麻煩，可以在 VB 工程中創(chuàng)建一個公共數(shù)據(jù)模塊，將ADO 控件的初始化、建立連接、關(guān)閉連接等操作都寫到函數(shù)中， 這樣就可以在工程的其他模塊中共享調(diào)用這個 ADO 連接。 (2)通過寫入 SQL 語句執(zhí)行查詢并返回查詢結(jié)果 RECORDSET 集；或者可以通過寫入 SQL 語句執(zhí)行相應(yīng)數(shù)據(jù)庫操作。需要注意的是，每個動態(tài)創(chuàng)建 第 6 頁 共 26 頁 的 ADO 同時只能被一個過程調(diào)用，如果需要進行多表并行操作，可能需要在公共數(shù)據(jù)模塊中建立多個動態(tài) ADO。由于需要開發(fā)出前臺客戶友好界面及后臺數(shù)據(jù)庫系統(tǒng)，而對于前臺只要能滿足其界面開發(fā)需要即可，所以我采用了相對簡單易用并且功能強大的 ，后臺數(shù)據(jù)庫則采用了與之相連方便且功能同樣強大的 SQLSERVER2021。 系統(tǒng)前臺設(shè)計 系統(tǒng)主要是由前臺（客戶操作界面）與后臺（數(shù)據(jù)庫）兩個部分組成。界面部分由于 08 年奧運會的臨近， 系統(tǒng) 采用了幾副有關(guān)北京 08 奧運會的卡 通圖片，讓界面整體突出一種奧運氣氛。 登陸 身份驗證 選擇服務(wù) 查詢余額 取款 轉(zhuǎn)賬 修改密碼 查詢明細 退出 第 8 頁 共 26 頁 后臺數(shù)據(jù)庫設(shè)計 經(jīng)過充分考慮，認為系統(tǒng)并不需要非常復(fù)雜的數(shù)據(jù)庫系統(tǒng)就能夠達到模擬ATM 系統(tǒng)的效果，所以建立了一個名為 X\ATM 的 SQL服務(wù)器，創(chuàng)建了名為 USER 的數(shù)據(jù)庫，用戶登陸名為 sa 密碼為空，并在 ODBC 數(shù)據(jù)源中將 USER數(shù)據(jù)庫添加進去。 表 1 用戶信息表 用戶信息表 （如表 1） 用以存放用戶的卡號，密碼，存款金額等信息，由于該系統(tǒng)是為了模擬運用，故 安全要求不高，所以密碼采用了明文方式存放，便于使用查看。 表 2 用戶操作表 用戶操作表 (如表 3)則用來記錄用戶在 ATM 機上所使用的服務(wù)，它包括了所有用戶對 ATM 的操作信息，包括時間，操作類型，金額，轉(zhuǎn)帳卡號，成功與否等等。同時管理人員也 第 9 頁 共 26 頁 可以從這張表上很方便的查閱用戶使用情況。 5 系統(tǒng)功能 的 實現(xiàn) 歡迎界面實現(xiàn) 圖 2 歡迎界面 在歡迎界面 (如圖 2)我們可以自由的選擇兩種語言，分別為我們最常用的中文和英語，在這里主模塊中定義了一個非常重要的 INT 整型變量 i，通過 i 的值來決定所選擇的服務(wù)。 Private Sub Command1_Click() i = 2 當(dāng)點中文按鈕時， i 的值就被賦為了 2，在后面的操作中， i的值就將始終為 2，用以區(qū)別所選語言服務(wù) Unload Form1 End Sub Private Sub Command2_Click() i = 1 點 ENGLISH 按鈕時 i 的值賦 1 Unload Form1 End Sub 登陸 的 實現(xiàn) 在登陸界面有兩種語言可以 為 用戶 服務(wù) ，一是中文，而是英文。 如 圖 3 為選擇中文的界面： 第 10 頁 共 26 頁 圖 3 登陸界面（中文） 如果點擊的是 ENGLISH, 則 登陸界 面 為圖 4 圖 4 登陸界面（英文） 這里的兩個界面并非通過兩個窗體單獨實現(xiàn)而是共用一個窗體，通過判斷i 的值，對 label 中的 CAPTION 進行相應(yīng)的中文和英文賦值。這里把默認的語言選擇為中文直接在窗體編輯菜單中對 CAPTION 進行了相應(yīng)賦值。卡號為 8 位密碼為 6位 Private Sub Command1_Click() //當(dāng)我們點下確認按鈕時 If i = 2 Then If Len() 8 Or Len() 6 Then // 比較卡號是否為 8 位及密碼是否為 6 位 = 沒有正確輸入卡號或密碼 = = Else Call Checkuser //這里是調(diào)用主模塊中的身份驗證函數(shù)，在后面的窗體實現(xiàn)中都是通過 CALL 語句來直接調(diào)用相應(yīng)函數(shù)的 End If End If //以下為用戶選擇英語的代碼，和 選擇中文時是一樣的，在后面的介紹中將不在引用英語的代碼 If i = 1 Then If Len() 8 Or Len() 6 Then = Please Input Correct Cardnumber Or Password = = Else Call Checkuser End If End If End Sub 在主模塊 MODEL1 中身份驗證函數(shù)代碼為 Public Sub Checkuser() 定義 Checkuser 函數(shù) Dim strr As String Set CON = New strr = Provider=。Persist Security 第 12 頁 共 26 頁 Info=True。Initial Catalog=user。 strr u = 把卡號賦給 u str = select 密碼 from 用戶信息 where 卡號 =39。 u amp。 //SQL數(shù)據(jù)庫查詢語句，根據(jù)卡號把所查詢的密碼數(shù)據(jù)放入 str 中 Set RS = New //設(shè)置 RS 為新的 Recordset 對象 str, CON, adOpenDynamic, adLockPessimistic If = True Then //當(dāng)前記錄指針無效，說明不存在這個用戶 If i = 2 Then = 沒有此用戶，請檢查并重新輸入！ u = // u 重新設(shè)置為