數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告電力機(jī)車(chē)牽引力計(jì)算系統(tǒng)

1、電力機(jī)車(chē)牽引力計(jì)算系統(tǒng)目錄前 言31需求分析41.1 數(shù)據(jù)需求分析41.2 系統(tǒng)功能概述41.3 系統(tǒng)功能模塊設(shè)計(jì)41.4 數(shù)據(jù)字典52概要結(jié)構(gòu)設(shè)計(jì)63邏輯結(jié)構(gòu)設(shè)計(jì)84詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)84.1表創(chuàng)建84.2窗體創(chuàng)建84.3窗體實(shí)現(xiàn)125 總結(jié)15 電力機(jī)車(chē)牽引力計(jì)算數(shù)據(jù)庫(kù)系統(tǒng)摘要：鐵路運(yùn)輸作為國(guó)民交通的大動(dòng)脈，在我國(guó)高速發(fā)展的今天起著至關(guān)重要的作用，與此同時(shí)鐵路安全成為重中之重。根據(jù)列車(chē)牽引計(jì)算規(guī)程中對(duì)于電力機(jī)車(chē)牽引力計(jì)算的相關(guān)要求，制作出以實(shí)現(xiàn)計(jì)算電力機(jī)車(chē)粘著系數(shù)以及粘著牽引力功能的數(shù)據(jù)庫(kù)系統(tǒng)。該報(bào)告從如下4個(gè)方面的內(nèi)容來(lái)書(shū)寫(xiě):1.目的(objective):通過(guò)表格的制作、窗體的創(chuàng)建，用vb

2、a編寫(xiě)并應(yīng)用列車(chē)牽引計(jì)算規(guī)程中出現(xiàn)的計(jì)算公式，通過(guò)對(duì)不同機(jī)車(chē)類(lèi)型的選擇，并通過(guò)對(duì)相關(guān)系數(shù)的合理表達(dá)與賦值，使得該數(shù)據(jù)庫(kù)系統(tǒng)可以廣泛應(yīng)用在各類(lèi)型的機(jī)車(chē)牽引的計(jì)算系統(tǒng)中。最重要的是，通過(guò)制作該數(shù)據(jù)庫(kù)系統(tǒng)，使得我們更加深入的學(xué)習(xí)access，鞏固了對(duì)窗體、表格、特別是vba的運(yùn)用。2.方法(methods):通過(guò)對(duì)列車(chē)牽引計(jì)算規(guī)程中對(duì)于電力機(jī)車(chē)牽引力計(jì)算的相關(guān)要求的研究討論，確定該系統(tǒng)重點(diǎn)在于公式的編程以及各條件系數(shù)的限制構(gòu)造上；大體構(gòu)思系統(tǒng)框架畫(huà)出e-r圖；簡(jiǎn)化機(jī)車(chē)參數(shù)數(shù)據(jù)表，并建立相關(guān)需要的表格；創(chuàng)建窗體并為計(jì)算公式編寫(xiě)vba程序，讓整個(gè)計(jì)算系統(tǒng)整體化；更改與優(yōu)化計(jì)算系統(tǒng)，減少系統(tǒng)的冗余度，提高

3、計(jì)算效率。 3.結(jié)果(results):該數(shù)據(jù)庫(kù)共有：14個(gè)基本表：車(chē)輛每輛換算閘瓦壓力、單位基本阻力、電阻制動(dòng)力、各車(chē)型基本參數(shù)表、機(jī)車(chē)供電電流、機(jī)車(chē)有功電流、輪周牽引力、黏著限制牽引力5個(gè)窗體：我們總共制作了5個(gè)窗體，將所有的限制條件應(yīng)用于其中。4.結(jié)論(conclusion): 本數(shù)據(jù)庫(kù)系統(tǒng)可以實(shí)現(xiàn)對(duì)通過(guò)對(duì)車(chē)輛類(lèi)型、機(jī)車(chē)質(zhì)量以及輪軸牽引持續(xù)制的條件限制，在輸入初始速度與機(jī)車(chē)類(lèi)型之后可以通過(guò)運(yùn)算計(jì)算出粘著系數(shù)以及粘著牽引力。關(guān)鍵詞:機(jī)車(chē)牽引;牽引力計(jì)算;數(shù)據(jù)庫(kù);面向?qū)ο笄把粤熊?chē)牽引計(jì)算過(guò)程作為鐵路重要的基礎(chǔ)技術(shù)規(guī)范，它包括列車(chē)阻力、列車(chē)制動(dòng)力、列車(chē)牽引力、電力機(jī)車(chē)耗電量、內(nèi)燃機(jī)車(chē)牽引力內(nèi)燃

4、機(jī)車(chē)燃油消耗量等多方面內(nèi)容的計(jì)算。這些計(jì)算在營(yíng)業(yè)鐵路上是編制列車(chē)運(yùn)行圖和列車(chē)時(shí)刻表的依據(jù)，也是計(jì)算鐵路運(yùn)輸能力和鐵路運(yùn)輸成本的基本資料，還可據(jù)以確定機(jī)車(chē)配置方案，制定機(jī)車(chē)駕駛作業(yè)標(biāo)準(zhǔn)。在設(shè)計(jì)新鐵路線時(shí)，列車(chē)牽引計(jì)算有助于選擇經(jīng)濟(jì)合理的線路斷面和平面，確定車(chē)站、機(jī)務(wù)段、上水站的分布位置。在設(shè)計(jì)新的機(jī)車(chē)、車(chē)輛時(shí)，列車(chē)牽引計(jì)算可用于選擇主要的技術(shù)參數(shù)和類(lèi)型。根據(jù)列車(chē)牽引計(jì)算規(guī)程中對(duì)于機(jī)車(chē)牽引力計(jì)算的相關(guān)要求，制作出以實(shí)現(xiàn)計(jì)算電力機(jī)車(chē)粘著系數(shù)與粘著牽引力功能的數(shù)據(jù)庫(kù)系統(tǒng)。在本次數(shù)據(jù)庫(kù)應(yīng)用基礎(chǔ)課程設(shè)計(jì)實(shí)踐中，我們通過(guò)使用access 2007設(shè)計(jì)并實(shí)現(xiàn)計(jì)算電力機(jī)車(chē)粘著系數(shù)與粘著牽引力的數(shù)據(jù)庫(kù)系統(tǒng)，并使該

5、數(shù)據(jù)庫(kù)系統(tǒng)能夠正常運(yùn)行。在本次數(shù)據(jù)庫(kù)實(shí)踐中，我們所設(shè)計(jì)的計(jì)算電動(dòng)機(jī)車(chē)牽引力數(shù)據(jù)庫(kù)系統(tǒng)，通過(guò)對(duì)列車(chē)牽引計(jì)算規(guī)程中對(duì)于機(jī)車(chē)牽引力計(jì)算的相關(guān)要求的研究討論，確定該系統(tǒng)重點(diǎn)在于公式的編程以及各條件系數(shù)的限制構(gòu)造上，然后大體構(gòu)思系統(tǒng)框架畫(huà)出e-r圖，簡(jiǎn)化機(jī)車(chē)參數(shù)數(shù)據(jù)表，并建立相關(guān)需要的表格，創(chuàng)建窗體并為計(jì)算公式編寫(xiě)vba程序，讓整個(gè)計(jì)算系統(tǒng)整體化。最后更改與優(yōu)化計(jì)算系統(tǒng)，減少系統(tǒng)的冗余度，提高計(jì)算效率等幾個(gè)步驟，實(shí)現(xiàn)對(duì)通過(guò)對(duì)車(chē)輛類(lèi)型、速度、車(chē)輛質(zhì)量以及運(yùn)行級(jí)數(shù)的條件限制，在輸入初始速度與機(jī)車(chē)類(lèi)型之后可以通過(guò)運(yùn)算計(jì)算出機(jī)車(chē)粘著系數(shù)以及粘著牽引力的功能。該系統(tǒng)包括15個(gè)基本表：包括各種機(jī)型的輪周牽引力以及輪

6、周牽引力持續(xù)制表以及各類(lèi)型電力機(jī)車(chē)常量表。同時(shí)包括5個(gè)窗體：包括各類(lèi)型電力機(jī)車(chē)粘著系數(shù)以及粘著牽引力的計(jì)算。在這次課程設(shè)計(jì)，我們的設(shè)計(jì)內(nèi)容涉及到很強(qiáng)的專(zhuān)業(yè)知識(shí)，需要了解公式的應(yīng)用以及程序編寫(xiě)、數(shù)據(jù)的出處整理、以及變量常量的取用問(wèn)題等一系列問(wèn)題。通過(guò)做需求分析，我們將表格分離、將數(shù)據(jù)進(jìn)行整合。雖然在本學(xué)期我們進(jìn)行了系統(tǒng)的數(shù)據(jù)庫(kù)學(xué)習(xí)，但是在本次實(shí)踐的時(shí)候還是出現(xiàn)了一系列的問(wèn)題，尤其是運(yùn)用vba代碼編寫(xiě)公式的過(guò)程中，出現(xiàn)了很多問(wèn)題，經(jīng)過(guò)老師的指導(dǎo)與幫助以及個(gè)人的學(xué)習(xí)，解決了一些問(wèn)題。系統(tǒng)基本上可以正常運(yùn)行，能夠?qū)崿F(xiàn)預(yù)期功能。1 需求分析1.1 數(shù)據(jù)需求分析(1) 該計(jì)算系統(tǒng)能夠滿足在不同限制條件下，

7、計(jì)算粘著系數(shù)與粘著牽引力的需求。(2) 該系統(tǒng)具備數(shù)據(jù)庫(kù)維護(hù)功能，能夠根據(jù)實(shí)際情況，及時(shí)根據(jù)用戶需求進(jìn)行數(shù)據(jù)添加、刪除、修改等操作。(3) 采用現(xiàn)有的計(jì)算方法，充分利用access 2007及系統(tǒng)開(kāi)發(fā)工具vba，減少機(jī)車(chē)牽引力計(jì)算的時(shí)間，提高系統(tǒng)開(kāi)發(fā)的水平和應(yīng)用效果。1.2 系統(tǒng)功能概述該系統(tǒng)可以選擇在不同的限制條件下，來(lái)計(jì)算機(jī)車(chē)粘著系數(shù)以及粘著牽引力。這些限制條件分別為車(chē)輛類(lèi)型、車(chē)輛質(zhì)量以及運(yùn)行級(jí)數(shù)等。通過(guò)選擇制動(dòng)前初速度和機(jī)車(chē)類(lèi)型來(lái)計(jì)算粘著系數(shù)與粘著牽引力。1.3 系統(tǒng)功能模塊設(shè)計(jì)及數(shù)據(jù)流圖電力機(jī)車(chē)粘著牽引力計(jì)算系統(tǒng)主界面用戶管理國(guó)產(chǎn)型電力機(jī)車(chē)粘著牽引力8g型電力機(jī)車(chē)粘著牽引力用戶登錄參數(shù)

8、輸入及計(jì)算6k型電力機(jī)車(chē)粘著牽引力機(jī)車(chē)粘著系數(shù)計(jì)算機(jī)車(chē)粘著系數(shù)計(jì)算參數(shù)輸入及計(jì)算機(jī)車(chē)粘著系數(shù)計(jì)算參數(shù)輸入及計(jì)算1.4 數(shù)據(jù)字典1.41以ss1型為例ss1型電力機(jī)車(chē)輪周牽引力表數(shù)據(jù)項(xiàng)數(shù)據(jù)類(lèi)型數(shù)據(jù)長(zhǎng)度是否為主鍵速度數(shù)字雙精度型是粘著限制牽引力數(shù)字雙精度型否運(yùn)行級(jí)位5文本255否運(yùn)行級(jí)位9文本255否運(yùn)行級(jí)位13文本255否運(yùn)行級(jí)位17文本255否運(yùn)行級(jí)位21文本255否運(yùn)行級(jí)位25文本255否運(yùn)行級(jí)位29文本255否運(yùn)行級(jí)位33文本255否運(yùn)行級(jí)位33-i文本255否運(yùn)行級(jí)位33-ii文本255否運(yùn)行級(jí)位33-iii文本255否1.42ss1型輪周牽引力持續(xù)制表數(shù)據(jù)項(xiàng)數(shù)據(jù)類(lèi)型數(shù)據(jù)長(zhǎng)度是否主鍵速度

9、數(shù)字雙精度型是 輪周牽引力數(shù)字雙精度型否1.43各類(lèi)型電力機(jī)車(chē)基本常量表列名數(shù)據(jù)類(lèi)型數(shù)據(jù)長(zhǎng)度是否主鍵電力機(jī)車(chē)類(lèi)型文本5是計(jì)算質(zhì)量文本50否粘著質(zhì)量數(shù)字長(zhǎng)整型否計(jì)算粘著系數(shù)文本雙精度型否最低計(jì)算速度數(shù)字雙精度型否計(jì)算最大牽引力數(shù)字雙精度型否供電電流制數(shù)字長(zhǎng)整型否受電弓處電網(wǎng)數(shù)字長(zhǎng)整型否牽引電動(dòng)機(jī)額定電壓數(shù)字長(zhǎng)整型否計(jì)算動(dòng)輪直徑數(shù)字長(zhǎng)整型否計(jì)算啟動(dòng)牽引力數(shù)字雙精度型否計(jì)算啟動(dòng)阻力數(shù)字雙精度型否齒輪傳動(dòng)比數(shù)字雙精度型否最大速度數(shù)字雙精度型否機(jī)車(chē)全長(zhǎng)數(shù)字雙精度型否2 概要結(jié)構(gòu)設(shè)計(jì)以ss1型電力機(jī)車(chē)為例，牽引計(jì)算主要數(shù)據(jù)表進(jìn)行概要結(jié)構(gòu)設(shè)計(jì)如下：ss1型電力機(jī)車(chē)牽引計(jì)算運(yùn)行級(jí)數(shù)33-iii粘著限制牽引力速

10、度運(yùn)行級(jí)數(shù)5運(yùn)行級(jí)數(shù)9運(yùn)行級(jí)數(shù)13運(yùn)行級(jí)數(shù)17運(yùn)行級(jí)數(shù)21運(yùn)行級(jí)數(shù)25運(yùn)行級(jí)數(shù)29運(yùn)行級(jí)數(shù)33運(yùn)行級(jí)數(shù)33-i運(yùn)行級(jí)數(shù)33-ii輪周牽引力速度6k型電力機(jī)車(chē)輪周牽引力持制粘著質(zhì)量電力機(jī)車(chē)類(lèi)型機(jī)車(chē)全長(zhǎng)計(jì)算質(zhì)量最大速度計(jì)算粘著系數(shù)最低計(jì)算速度齒輪傳動(dòng)比各類(lèi)型電力機(jī)車(chē)基本常量計(jì)算最大牽引力計(jì)算啟動(dòng)阻力供電電流制計(jì)算啟動(dòng)牽引力受電弓處電網(wǎng)計(jì)算動(dòng)輪直徑牽引電動(dòng)機(jī)額定電壓3邏輯結(jié)構(gòu)設(shè)計(jì)以6k型電力機(jī)車(chē)為例。首先分析附錄中6k型電力機(jī)車(chē)牽引力計(jì)算數(shù)據(jù)表，第一行的所有14個(gè)屬性即為實(shí)體電力機(jī)車(chē)牽引力計(jì)算的屬性，而輪周牽引力在運(yùn)行級(jí)數(shù)不同時(shí)，由速度決定，即為主屬性，其中黏著限制牽引力只與速度有關(guān)，由上述分析，把

11、原表拆分成多個(gè)表，以實(shí)現(xiàn)數(shù)據(jù)獨(dú)立性高，冗余度小的特點(diǎn)，通過(guò)重新拆分、優(yōu)化表，從而減小數(shù)據(jù)間的相互依賴(lài)，實(shí)現(xiàn)數(shù)據(jù)的邏輯獨(dú)立和物理獨(dú)立。同時(shí)，在以上概念結(jié)構(gòu)設(shè)計(jì)的基礎(chǔ)上，通過(guò)邏輯結(jié)構(gòu)設(shè)計(jì)，我們把e-r圖轉(zhuǎn)化為關(guān)系模型如下：（1） 實(shí)體名：6k型電力機(jī)車(chē)輪周牽引力對(duì)應(yīng)的關(guān)系：6k型電力機(jī)車(chē)輪周牽引力（速度，黏著限制牽引力，運(yùn)行級(jí)數(shù)4，運(yùn)行級(jí)數(shù)8，運(yùn)行級(jí)數(shù)12，運(yùn)行級(jí)數(shù)16，包外線）（2） 實(shí)體名：6k型電力機(jī)車(chē)輪周牽引力持續(xù)制對(duì)應(yīng)的關(guān)系：6k型電力機(jī)車(chē)輪周牽引力持續(xù)制（速度，輪周牽引力）（3） 實(shí)體名：各類(lèi)型電力機(jī)車(chē)基本常量對(duì)應(yīng)的關(guān)系：各類(lèi)型電力機(jī)車(chē)基本常量（電力機(jī)車(chē)類(lèi)型，計(jì)算質(zhì)量，粘著質(zhì)量，計(jì)算粘

12、著系數(shù)，最低計(jì)算速度，計(jì)算最大牽引力，供電電流制，受電弓處電網(wǎng)，牽引電動(dòng)機(jī)額定電壓，計(jì)算動(dòng)輪直徑，計(jì)算啟動(dòng)牽引力，計(jì)算啟動(dòng)阻力，齒輪傳動(dòng)比，最大速度，機(jī)車(chē)全長(zhǎng)）4 詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)4.1表創(chuàng)建根據(jù)電力機(jī)車(chē)類(lèi)型創(chuàng)建7個(gè)電力機(jī)車(chē)輪周牽引力表，7個(gè)電力機(jī)車(chē)輪周牽引力持續(xù)制表，1個(gè)各類(lèi)型電力機(jī)車(chē)基本常量。每個(gè)表的屬性都已在上面給出。此處便不再贅述。4.2窗體創(chuàng)建4.2.1 各子窗體的創(chuàng)建電力機(jī)車(chē)牽引力計(jì)算系統(tǒng)分為五個(gè)子窗體，依次為“歡迎光臨”、“首頁(yè)”、“國(guó)產(chǎn)各型電力機(jī)車(chē)的粘著牽引力”、“6k型電力機(jī)車(chē)的粘著牽引力”、“8g型電力機(jī)車(chē)的粘著牽引力”。1）歡迎光臨：第一個(gè)窗體，其中創(chuàng)建一個(gè)標(biāo)簽，命名為“歡

13、迎光臨”，設(shè)置一個(gè)進(jìn)入按鈕以進(jìn)入計(jì)算類(lèi)型選擇窗口即“首頁(yè)”。2）首頁(yè)設(shè)置：三個(gè)按鈕分別設(shè)置為“國(guó)產(chǎn)各型電力機(jī)車(chē)的粘著牽引力”、“6k型電力機(jī)車(chē)的粘著牽引力”、“8g型電力機(jī)車(chē)的粘著牽引力”三種計(jì)算類(lèi)型，按鈕名稱(chēng)為牽引力計(jì)算類(lèi)型名稱(chēng)。3）牽引力計(jì)算：創(chuàng)建一個(gè)標(biāo)簽，說(shuō)明當(dāng)前窗口所能計(jì)算的機(jī)車(chē)類(lèi)型。創(chuàng)建一個(gè)文本框，用來(lái)輸入計(jì)算所需參數(shù)速度，設(shè)置一個(gè)按鈕以及一個(gè)文本框，按下按鈕后文本框內(nèi)顯示粘著系數(shù)的計(jì)算結(jié)果。在建立一個(gè)文本框以輸入機(jī)車(chē)類(lèi)型，設(shè)置一個(gè)按鈕與文本框，按動(dòng)按鈕文本框顯示粘著牽引力計(jì)算結(jié)果。4.2.2 各子窗體連接通過(guò)創(chuàng)建宏，建立子窗體中間的連接，通過(guò)宏實(shí)現(xiàn)窗口之間的切換與交互。創(chuàng)建八個(gè)宏“

14、進(jìn)入首頁(yè)”、“計(jì)算國(guó)產(chǎn)電力機(jī)車(chē)粘著牽引力”、“計(jì)算6k型電力機(jī)車(chē)粘著牽引力”、“計(jì)算8g型電力機(jī)車(chē)粘著牽引力”、“國(guó)產(chǎn)到首頁(yè)”、“6k到首頁(yè)”、“8g到首頁(yè)”、“返回”。每個(gè)宏的宏操作都為“openform”、“close”,實(shí)現(xiàn)功能都為打開(kāi)下一個(gè)窗體，關(guān)閉當(dāng)前窗體。1）“歡迎光臨”窗體中，按鈕“進(jìn)入首頁(yè)”的屬性中，事件設(shè)置為“進(jìn)入首頁(yè)”。2）“首頁(yè)”窗體中，按鈕“國(guó)產(chǎn)各型電力機(jī)車(chē)的計(jì)算粘著牽引力”“6k型電力機(jī)車(chē)的計(jì)算粘著牽引力”“8g型電力機(jī)車(chē)的計(jì)算粘著牽引力”分別將首頁(yè)與相應(yīng)的計(jì)算窗體鏈接起來(lái)。3）除“歡迎光臨”窗體外，每個(gè)窗體中均設(shè)置了名稱(chēng)為“返回”的按鈕，將此按鈕的屬性中事件設(shè)置為“

15、返回”。至此，各窗體中間實(shí)現(xiàn)連接。4.3 vba程序編寫(xiě)1）國(guó)產(chǎn)各型電力機(jī)車(chē)的計(jì)算粘著牽引力：“在請(qǐng)輸入速度”文本框中輸入計(jì)算參數(shù)v,按下按鈕“計(jì)算粘著系數(shù)”在“計(jì)算粘著系數(shù)”文本框中顯示計(jì)算結(jié)果j,在文本框“請(qǐng)輸入機(jī)車(chē)類(lèi)型中”輸入ss1、ss3、ss4、ss7或ss8，按下按鈕“計(jì)算粘著牽引力”，在文本框“粘著牽引力”中便會(huì)顯示計(jì)算結(jié)果。vba代碼如下：option compare databaseprivate sub command5_click() dim t1 as single dim t2 as single t1 = me!text3: t2 = 0 me!text6 = ca

16、ll sfun(t1, t2) me!text6 = t2 end subsub sfun(x as single, y as single) y = 0.24 + 12 / (100 + 8 * x)end sub private sub command11_click() const g = 9.8 dim conn as adodb.connection dim rst as adodb.recordset set conn = currentproject.connection set rst = new adodb.recordset dim sqlstate as string s

17、qlstate = select 粘著質(zhì)量 from 各類(lèi)型電力機(jī)車(chē)基本常量 where 電力機(jī)車(chē)類(lèi)型= & me.text9 sqlstate = sqlstate & rst.open sqlstate, conn, adopenforwardonly, adlockreadonly me!text12 = rst.fields(0) * g * me!text6 end sub2）6k型電力機(jī)車(chē)的計(jì)算粘著牽引力：“在請(qǐng)輸入速度”文本框中輸入計(jì)算參數(shù)v,按下按鈕“計(jì)算粘著系數(shù)”在“計(jì)算粘著系數(shù)”文本框中顯示計(jì)算結(jié)果j,在文本框“請(qǐng)輸入機(jī)車(chē)類(lèi)型中”輸入6k，按下按鈕“計(jì)算粘著牽引力”，在文本

18、框“粘著牽引力”中便會(huì)顯示計(jì)算結(jié)果。vba代碼如下： option compare databaseprivate sub command3_click() dim t1 as single dim t2 as single t1 = me!text1: t2 = 0 me!text4 = call sfun(t1, t2) me!text4 = t2 end subsub sfun(x as single, y as single) y = 0.189 + 8.68 / (44 + x)end sub private sub command12_click() const g = 9.8 d

19、im conn as adodb.connection dim rst as adodb.recordset set conn = currentproject.connection set rst = new adodb.recordset dim sqlstate as string sqlstate = select 粘著質(zhì)量 from 各類(lèi)型電力機(jī)車(chē)基本常量 where 電力機(jī)車(chē)類(lèi)型= & me.text10 sqlstate = sqlstate & rst.open sqlstate, conn, adopenforwardonly, adlockreadonly me!text1

20、3 = rst.fields(0) * g * me!text4 end sub3）8g型電力機(jī)車(chē)的計(jì)算粘著牽引力：“在請(qǐng)輸入速度”文本框中輸入計(jì)算參數(shù)v,按下按鈕“計(jì)算粘著系數(shù)”在“計(jì)算粘著系數(shù)”文本框中顯示計(jì)算結(jié)果j,在文本框“請(qǐng)輸入機(jī)車(chē)類(lèi)型中”輸入8g，按下按鈕“計(jì)算粘著牽引力”，在文本框“粘著牽引力”中便會(huì)顯示計(jì)算結(jié)果。vba代碼如下：option compare databaseprivate sub command3_click() dim t1 as single dim t2 as single t1 = me!text1: t2 = 0 me!text4 = call sfu

21、n(t1, t2) me!text4 = t2 end subsub sfun(x as single, y as single) y = 0.28 + 4 / (50 + 6 * x) - 0.0006 * xend subprivate sub command9_click() const g = 9.8 dim conn as adodb.connection dim rst as adodb.recordset set conn = currentproject.connection set rst = new adodb.recordset dim sqlstate as strin

22、g sqlstate = select 粘著質(zhì)量 from 各類(lèi)型電力機(jī)車(chē)基本常量 where 電力機(jī)車(chē)類(lèi)型= & me.text7 sqlstate = sqlstate & rst.open sqlstate, conn, adopenforwardonly, adlockreadonly me!text10 = rst.fields(0) * g * me!text4 end sub4.3窗體實(shí)現(xiàn)本數(shù)據(jù)庫(kù)系統(tǒng)的窗體如下所示：5總結(jié)本系統(tǒng)主要是運(yùn)用access2007，其中包括運(yùn)用數(shù)據(jù)表對(duì)機(jī)車(chē)詳細(xì)信息的存儲(chǔ)、修改以及刪除，然后運(yùn)用多個(gè)窗體來(lái)實(shí)現(xiàn)對(duì)機(jī)車(chē)參數(shù)的計(jì)算與核實(shí)，而且窗體也可以將數(shù)據(jù)表中的數(shù)據(jù)更加有規(guī)律，這次實(shí)踐的關(guān)鍵就在于最終的vba編程，它實(shí)現(xiàn)了各型機(jī)車(chē)之間的聯(lián)系與整個(gè)數(shù)據(jù)庫(kù)的正常計(jì)