【正文】 檔類別 wdbt varchar 50 文檔標(biāo)題 wdnr image 16 文檔內(nèi)容 rlsj datetime 8 收錄時(shí)間 bzxx varchar 50 備注信息 tb_pany(公司信息表）：公司信息表主要用于保存公司資料的基本信息，如公司的聯(lián)系方式，開戶銀行，和銀行賬號等信息。其 屬性和 結(jié)構(gòu)如表 。 表 tb_pany(公司信息表） 字段名 數(shù)據(jù)類型 長度 說明 pany varchar 50 公司名稱 postcode varchar 20 郵政編碼 fax varchar 20 傳真 phone varchar 20 電話 23 address varchar 50 聯(lián)系地址 varchar 50 郵件地址 bank varchar 30 開戶銀行 bankcode varchar 30 銀行賬號 remark text 16 備注 tb_rz(日志信息表）：日志信息表用于記錄操作程序時(shí)的日志信息 ，其 屬性和 結(jié)構(gòu)如表 所示。 表 tb_rz(日志信息表） 字段名 數(shù)據(jù)類型 長度 說明 bh decimal 9 編號 XM VARCHAR 50 操作員姓名 ZXCZ VARCHAR 300 執(zhí)行操作 CZSJ VARCHAR 50 操作時(shí)間 物理模型設(shè)計(jì) 數(shù)據(jù)的物理結(jié)構(gòu)設(shè)計(jì)是對于給定的邏輯數(shù)據(jù)模型，選取一個(gè)最適合應(yīng)用環(huán)境的物理結(jié)構(gòu)。數(shù)據(jù)庫的物理結(jié)構(gòu)指的是數(shù)據(jù)庫在物理設(shè)備上的存儲(chǔ)結(jié)構(gòu)與存取的方法，它依賴于給定的計(jì)算機(jī)系統(tǒng)。 本系統(tǒng)的物理結(jié)構(gòu)設(shè)計(jì)如下圖 。 24 圖 數(shù)據(jù)庫物理結(jié)構(gòu)圖 25 5 產(chǎn)品數(shù)據(jù)管理系統(tǒng) 實(shí)現(xiàn) 系統(tǒng)實(shí)施是在系統(tǒng)分析和系統(tǒng)設(shè)計(jì)的基礎(chǔ)上進(jìn)行的管理信息系統(tǒng)開發(fā)的最后一個(gè)階段，其主要的任務(wù)是實(shí)現(xiàn)系統(tǒng)設(shè)計(jì)中提出的物理方案，通過程序編制、代碼實(shí)現(xiàn)等一系列活動(dòng)完成最終的系統(tǒng)，經(jīng)過運(yùn)行測試無誤后，并交付用戶使用。 開發(fā)工具的選擇 選擇 一個(gè) 合適的開發(fā)工具可以加快系統(tǒng) 的開發(fā)和系統(tǒng) 的實(shí)施， 從系統(tǒng)的需求分析，系統(tǒng)的功能分析，系統(tǒng)的功能的基本實(shí)現(xiàn)，到 提高系統(tǒng)的質(zhì)量，減少程序調(diào)試的時(shí)間。當(dāng)然， 現(xiàn)在常見的編程語言很多，本系統(tǒng)采用 VIsua1 Basic +SQL Server 2021 作為系統(tǒng)開發(fā)工具。 VIsua1 Basic 作為一款可視化程序設(shè)計(jì)語言設(shè)計(jì)軟件 具有簡單易學(xué)，功能強(qiáng)大的特點(diǎn) , 它提供了開發(fā) Windows 應(yīng)用程序 相對 最迅速，最簡捷的方法。 SQL Server 是最受用戶歡迎的數(shù)據(jù)庫系統(tǒng)之一， 大家都知道這 是一個(gè)關(guān)系型數(shù)據(jù)庫管理系統(tǒng)。 SQL 語句可以用來執(zhí)行各種各樣的操作，例如更新數(shù)據(jù)庫中的數(shù)據(jù)，從數(shù)據(jù)庫中提取數(shù)據(jù)等。與 有 非常 良好的兼容性，用 可以輕松靈活的訪問 SQL Server數(shù)據(jù)庫，完成與數(shù)據(jù)庫相關(guān) 的一系列操作。 如訪問數(shù)據(jù)庫，修改數(shù)據(jù)庫，更新數(shù)據(jù)庫等操作。 一是因?yàn)樽鳛槊嫦驅(qū)ο缶幊陶Z言， 可以省去很多不必要的編碼設(shè)計(jì)過程，相對于一個(gè)不是計(jì)算機(jī)專業(yè)的開發(fā)者來說，也相對于現(xiàn)代社會(huì)高效率高速度的社會(huì)來說， 直觀、開發(fā)周期短等優(yōu)點(diǎn)，二是作為一門 相對 成熟的編程語言，掌握 的技術(shù)人員 相對 較多，方便了該系統(tǒng)的維護(hù)和管理，同時(shí)， SQL SERVER 2021 也是一個(gè)很好用的數(shù)據(jù)語料庫軟件，其代碼也有一定的基礎(chǔ) ，開發(fā)者在設(shè)計(jì)實(shí)現(xiàn)系統(tǒng)功能時(shí)相對比較簡單，學(xué)習(xí)起來比較容易得心應(yīng)手。 在 本 系統(tǒng)采用 + SQL SERVER 2021作為開發(fā)工具，既方便開發(fā)，又利于系統(tǒng)維護(hù)，是一種 非常 合理的選擇。 是由微軟公司推出的一套完整的 WindowS 系統(tǒng)軟件開發(fā)工具，可用于開發(fā) WindowS 環(huán)境下的各類應(yīng)用程序，是一種可視化、真正面向?qū)ο蟆⒉捎檬录?qū)動(dòng)26 方式的結(jié)構(gòu)化高級程序設(shè)計(jì)語言和工具的完美集成。它編程簡單、方便、功能強(qiáng)大，具有與其它語言及環(huán)境的良好接口，只要懂得 WindowS 的界面及其基本操作，就可以迅速掌握。 WindowS 下的 應(yīng)用程序基本構(gòu)建模塊是用戶所創(chuàng)建的對象，每一個(gè)對象都具有一些特性和行為 (屬性，事件和方法 )，我們可以最有效利用所創(chuàng)建的每一個(gè)對象 VisualBasic 應(yīng)用由一系列對象組成，包括函數(shù)菜單、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對象、用戶事件等等，對象中又包含若干控件，如命令按鈕等，這些對象和控件都可在多種應(yīng)用中重復(fù)使用 具有以下特點(diǎn) : 1)具有面向?qū)ο蟮目梢暬O(shè)計(jì)工具 在 VB 中，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法 (OOP)，把程序和數(shù)據(jù)封裝起來視為一個(gè)對象，每個(gè)對象都 是可視的。程序員在設(shè)計(jì)時(shí)只需要現(xiàn)有工具根據(jù)界面設(shè)計(jì)的要求，直接在屏幕上“畫”出窗口、菜單、按鈕、滾動(dòng)條等不同的對象設(shè)置屬性。程序員的編程工作僅編寫針對對象要完成哪些功能的程序，因而程序設(shè)計(jì)的效率可提高許多。 2)事件驅(qū)動(dòng)的編程機(jī)制 事件驅(qū)動(dòng)是非常適合圖形用戶界面的編程方式。傳統(tǒng)的編程方式是一種面向過程，按程序事先設(shè)計(jì)的流程運(yùn)行。但在圖形用戶界面的應(yīng)用程序中，用戶的動(dòng)作及事件掌握著程序的運(yùn)行流向，每個(gè)事件都能驅(qū)動(dòng)一段程序的運(yùn)行。程序員只要編寫響應(yīng)用戶動(dòng)作的代碼，各個(gè)動(dòng)作之間不一定有聯(lián)系。這樣的應(yīng)用程序代碼較短 ，使得程序既易于編寫又易于維護(hù)。 3)提供了易學(xué)易用的應(yīng)用程序集成開發(fā)環(huán)境 在 VB 集成開發(fā)環(huán)境中，用戶可設(shè)計(jì)界面、編寫代碼、調(diào)試程序，直至把應(yīng)用程序編譯成可執(zhí)行文件，在 WindowS 中運(yùn)行，使得程序在友好的開發(fā)環(huán)境中工作。 4)結(jié)構(gòu)化的程序設(shè)計(jì)語言 VB具有豐富的數(shù)據(jù)類型、眾多的內(nèi)部函數(shù)和結(jié)構(gòu)化程序結(jié)構(gòu)，是模塊化、結(jié)構(gòu)化的程序設(shè)計(jì)語言，結(jié)構(gòu)清晰，并且支持多種數(shù)據(jù)庫系統(tǒng)的訪問。 5)強(qiáng)大的數(shù)據(jù)庫功能 利用數(shù)據(jù)控件或 ODBC 能夠訪問的數(shù)據(jù)庫系統(tǒng)有 MicrosoftAccess、 Btrieve、 dBase、 MierosoftFoxpro 和 Paradox 等，也可訪問 MierosoftExeel、 Lotusl 一2一 3等多種電子表格。 在這里本系統(tǒng)主要用的是 SQL SERVER 2021 數(shù)據(jù)庫系統(tǒng)。 27 6)Aetive 技術(shù) Active 技術(shù)發(fā)展了原有的 OLE 技術(shù)，它使開發(fā)人員擺脫了特定語言的束縛，方便地使用其他應(yīng)用程序提供的功能，使 能夠開發(fā)集聲音、圖像、動(dòng)畫、字處理、電子表格、 web 等對象于一體的應(yīng)用程序。 SQL Server 2021 SQL Server 2021 是 Microsoft 公司 2021 年推出的 SQL Server 數(shù)據(jù)庫管理系統(tǒng)的版本。它是一個(gè)杰出的數(shù)據(jù)庫平臺(tái)，可用于大型聯(lián)機(jī)事務(wù)處理、數(shù)據(jù)倉庫、以及電子商務(wù)等 ，具有如下幾個(gè) 特點(diǎn) : /服務(wù)器體系結(jié)構(gòu)。 。 。 Server 2021 與 Windows NT 完全集成。 。 Web技術(shù)的支持。 本系統(tǒng)應(yīng)用相對比較少。 Server 2021 提供數(shù)據(jù)倉庫功能。 創(chuàng)建數(shù)據(jù)庫 數(shù)據(jù)庫設(shè)計(jì)是模具企業(yè)產(chǎn)品數(shù)據(jù)管理信息系統(tǒng)開發(fā)（ PDM）設(shè)計(jì)的很重要的一部分，將影響到系統(tǒng)以后數(shù)據(jù)的質(zhì)量、數(shù)據(jù)庫的可擴(kuò)展性、數(shù)據(jù)運(yùn)行的效率等，設(shè)計(jì)又分邏輯結(jié)構(gòu)和物理結(jié)構(gòu)兩部分。 邏輯結(jié)構(gòu)是系統(tǒng)處理的事件的數(shù)據(jù)之間的關(guān)系、分類、結(jié)構(gòu)、這種結(jié)構(gòu)是從用戶的角度來看待數(shù)據(jù)，是面向用戶的。邏輯結(jié)構(gòu)的設(shè)計(jì)影響到數(shù)據(jù)庫的冗余程度及可擴(kuò)展性。 物理結(jié)構(gòu)是數(shù)據(jù)在存儲(chǔ)設(shè)備（如磁帶機(jī)，硬盤等硬件設(shè)備）上的分布，是面向機(jī)器的，物理結(jié)構(gòu)的設(shè)計(jì)將對數(shù)據(jù)的存儲(chǔ)速度、效率，數(shù)據(jù)的可恢復(fù)性產(chǎn)生影響。 關(guān)系型數(shù)據(jù)庫是目前廣 泛應(yīng)用于管理信息系統(tǒng)的開發(fā)一種數(shù)據(jù)庫，關(guān)系型數(shù)據(jù)庫是一種通過建立數(shù)據(jù)之間的關(guān)系來減少數(shù)據(jù)間的冗余，減少對數(shù)據(jù)的操作，從而減少誤操28 作，提高效率。關(guān)系型數(shù)據(jù)庫可通過建立數(shù)據(jù)間的關(guān)系將電子文檔管理過程的各個(gè)環(huán)節(jié)的數(shù)據(jù)整合起來。 關(guān)系數(shù)據(jù)庫是由好多表作為基礎(chǔ)的，每一個(gè)表代表某一組獨(dú)立的可以描述某一事務(wù)的不重復(fù)的信息，數(shù)據(jù)庫的設(shè)計(jì)將各表描述出來，然后定義各表之間的關(guān)聯(lián)，數(shù)據(jù)庫的設(shè)計(jì)需符合低冗余度、結(jié)構(gòu)清晰、易于管理的原則。冗余度是指同樣的信息在不同的表中儲(chǔ)存多次或不必要的信息也存儲(chǔ)了。 在此系統(tǒng)的設(shè)計(jì)實(shí)現(xiàn)過程中，用到 數(shù)據(jù)庫的相關(guān)知識(shí)，我們采用的數(shù)據(jù)庫是 SQL Server2021，根據(jù)系統(tǒng)實(shí)現(xiàn)的需求，我們需創(chuàng)建 5個(gè)數(shù)據(jù)表以便存儲(chǔ)相應(yīng)的數(shù)據(jù)信息。 ． 1 創(chuàng)建數(shù)據(jù)庫 在 SQL Server2021 中創(chuàng)建數(shù)據(jù)庫可以使用下列方法： 1)最簡單的辦法就用 SQL Server2021 代碼創(chuàng)建數(shù)據(jù)庫： CREAT DATABASE TB_DOCUMENT 2)打開 SQL Server2021 數(shù)據(jù)庫系統(tǒng)的 模具企業(yè) 資源管理器，選中數(shù)據(jù)庫，右鍵選擇“新建數(shù)據(jù)庫” 。 ． 2 創(chuàng)建數(shù)據(jù)表 創(chuàng)建完數(shù)據(jù)庫之后，就可以在所創(chuàng)建的數(shù)據(jù)庫中 創(chuàng)建數(shù)據(jù)表了。在 SQL Server2021的企業(yè)管理器中展開要?jiǎng)?chuàng)建表所在的數(shù)據(jù)庫，選中“表”選項(xiàng)，單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“新建表”命令， 將彈出“表設(shè)計(jì)器”窗口。 在“表設(shè)計(jì)器”窗口中，按照下面的步驟設(shè)計(jì)數(shù)據(jù)表。 輸入字段名。在“列名”列表項(xiàng)中輸入字段名（注意輸入的字段名不允許重復(fù)。并且必須符合 SQL Server2021 的標(biāo)識(shí)符規(guī)范），每填寫一列后，都有新的一列出現(xiàn)。 選擇適當(dāng)?shù)臄?shù)據(jù)類型，并設(shè)置字段的長度。 在“允許空”列表項(xiàng)中，重要的字段如文檔類別，文檔標(biāo)題，錄入時(shí)間等不允許為空，其他 字段可以為空。如果設(shè)置不允許空，那么插入記錄或修改記錄時(shí)，將不允許空值出現(xiàn)，否則將出現(xiàn)錯(cuò)誤提示。 在“說明”文本框中，可以輸入一些必要的說明性文字。 29 在“默認(rèn)值”文本框中，可以輸入一些默認(rèn)值，以減少輸入的工作量。 以上輸入完成后，單擊“保存”圖標(biāo)，將彈出“選擇名稱”對話框，在該對話框的“輸入表名稱”列表框 中輸入表名即可，單擊“確定”，數(shù)據(jù)表設(shè)計(jì)完成。 完成數(shù)據(jù)表設(shè)計(jì)后，完成整個(gè)數(shù)據(jù)庫的設(shè)計(jì)創(chuàng)建。 設(shè)計(jì)工程構(gòu)架 創(chuàng)建工程 運(yùn)行 Visual Basic 主程序，新建“標(biāo)準(zhǔn) EXE”工程。 修改工程的屬性，將工程名設(shè)置為“模具企業(yè)產(chǎn)品數(shù)據(jù)管理系統(tǒng)”，將工程儲(chǔ)存為“ ”。 添加模塊 在應(yīng)用程序中經(jīng)常會(huì)將代碼旋轉(zhuǎn)在模塊中，這樣可以提高代碼的可讀性，在運(yùn)用模塊時(shí)可以減少程序代碼的重用性，并提高應(yīng)用程序的讀寫速度。在本系統(tǒng)中，將連接數(shù)據(jù)庫的添加程序日志的代碼都集中旋轉(zhuǎn)在一個(gè)數(shù)據(jù)模塊 中，在應(yīng)用程序需要連接數(shù)據(jù)庫及添加程序日志的時(shí)候調(diào)用該模塊，從而實(shí)現(xiàn)操作數(shù)據(jù)庫，完成相應(yīng)的操作功能。 在模塊中可以聲明整個(gè)工程中所有的窗體都可以使用的公共變量，以及定義所有窗體都可以調(diào)用 的過程。在數(shù)據(jù)模塊 中定義了連接字符串變量 PublicStr,記錄集對象，數(shù)據(jù)變量，獲取計(jì)算機(jī)名稱的變量，函數(shù) DOCRZ 和函數(shù) CNN。在函數(shù) DOCRZ 中，可以實(shí)現(xiàn)為應(yīng)用程序添加日志的功能。 模塊中需要聲明的全局變量如下： 39。數(shù)據(jù)連接模塊 Public Name1 As String 39。定義登錄用戶名 Public PublicStr As String 39。定義全局字符串 Public AdoRs As New 39。定義記錄集對象 Public AdoRs1 As New 39。定義記錄集對象 Public AdoRs2 As New 39。定義記錄集對象 Public CompturName As String 39。獲取計(jì)算機(jī)名稱 30 Public ReadCompturName As String 39。讀取 計(jì)算機(jī)名稱 Public TempNum As Integer 39。定義全局?jǐn)?shù)值型變量 用戶自定義一個(gè) CNN 函數(shù)，在該函數(shù)中設(shè)置兩個(gè)連接字符串，即連接網(wǎng)絡(luò)服務(wù)器數(shù)據(jù)庫和本機(jī)數(shù)據(jù)庫的字條串。在調(diào)用該 函數(shù)時(shí)，首先判斷本地計(jì)算機(jī)名與連接服務(wù)器機(jī)器名是否相同，如果相同說明連接的是本地計(jì)算機(jī)中的數(shù)據(jù)庫，如果不相同，則證明連接的是網(wǎng)絡(luò)服務(wù)器的數(shù)據(jù)庫。實(shí)現(xiàn)代碼如下： Public Function Cnn() As 39。定義連接字符串函數(shù) On Error GoTo x Set Cnn = New 39。重新創(chuàng)建數(shù)據(jù)源 If Trim(ReadCompturName) = Trim(CompturName) Then 39。連接數(shù)據(jù)庫 Provider=。Persist Security Info=False。password=。User ID=sa。Initial Catalog=db_Document Else Provider=。Persist Security I