【正文】 名為“ Comstorage”；添加 TDBGrid組件，命名為“ Grid”。 （ 7）添加 TStringGrid 組件到窗體上，命名為“ Reginfo”。 （ 6）在窗體上添加 TPanel 組件，命名為“ Panel3”。 （ 5）在窗體上添加 TPanel 組件，命名為“ Panel1”。添加 4 個(gè) TEdit 組件到 Panel2 組件上，分別命名為“ Providername”，“ Principal”，“ Operator”。設(shè)置該組件的 Align屬性為“ alBottom”； Caption 屬性為空。設(shè)置該組件的 Caption屬性為 “ 物資入庫管理”，設(shè)置 Label1 組件的 Font 屬性。 單擊【 OK】按鈕添加一個(gè)新命名窗體為“ f_instore”，設(shè)置 Caption 屬性為“物資入庫管理”。物資入庫管理模塊運(yùn)行結(jié)果如圖 7 所示 。 end。代碼如下： procedure (Direct: Boolean)。 定義過程“ FindNext(Direct: Boolean)。 begin if Key = VK_Escape then Close。 var Key: Word。 程序相關(guān)代碼分析 在窗體的 OnKeyDown 事件處理過程中設(shè)置，如果用戶按下 〈 ESC〉 鍵關(guān)閉窗體。 基礎(chǔ)窗體的設(shè)計(jì)與實(shí)現(xiàn) 創(chuàng)建基礎(chǔ)窗體主要是提高開發(fā)速度和代碼的利用率，從基礎(chǔ)窗體繼承的子窗體具有基礎(chǔ)窗體的全部功能，基礎(chǔ)窗體如圖 6 所示。yyyymmdd39。 。 end。 end。 。,mb_yesno) = ID_Yes then begin (Tf_loginserver,f_loginserver)。,39。 Except if (39。+Trim(Server)。+Trim(Database)+39。+Trim(User)+39。Persist Security Info=True。 Password=39。 Try := 39。39。密碼 39。配置信息 39。)。,39。,39。 user := (39。39。數(shù)據(jù)庫 39。配置信息 39。)。,39。,39。 server := (39。39。 。) then //判斷文件是否存在 begin //調(diào)用登錄服務(wù)器窗口 ,登錄服務(wù)器并記錄登錄信息 (Tf_loginserver,f_loginserver)。 //配置信息是否存在 if Not FileExists(ExtractFilePath()+39。 。 begin //調(diào)用初始化窗口 (Tf_ini,f_ini)。 var ini: TIniFile。 程序相關(guān)代碼分析 在主窗體的 OnShow 事件處理過程中，將初始化窗口，如果不存在配置文件則彈出登錄服務(wù) 器窗口，顯示登錄窗口。 StatusBar 組件用于顯示狀態(tài)信息，雙擊 StatusBar1 組件，在彈出的對話框中單擊【 Add New】按鈕添加面板。 （ 6） 在彈出的對話框中點(diǎn)選“ 0ActionBarActionTooBar1”，在“ Object Inspector”窗口中，單擊 Items 屬性右側(cè)的【 ? 】按鈕，在彈出的對話框中，單擊【 Add New】按鈕添加菜單項(xiàng)，并設(shè)置各個(gè)菜單項(xiàng)的 Caption 屬性。 圖 5 添加動作項(xiàng) （ 4）在“ Additional”組件頁中點(diǎn)選“ TActionManager”組件，添加到窗體上，命名為“ ActionManage1”，雙擊該組件打開動作編輯器，選擇“ Toolbars”選項(xiàng)卡，單擊【 New】按鈕，添加“ TActionToolBar”對象 。 圖 4 添加圖標(biāo) （ 3）在 “ Standard” 組件頁中點(diǎn)選 “ TActionList” 組件，添加到窗體上，命名為 “ List1” 。 （ 2）在“ Win32”組件頁中點(diǎn)選“ TImageList”組件，添加到窗體上，命名為“ ImageMemu”，設(shè)置該組件的 Height 屬性為“ 22”； Width 屬性為“ 22”。 實(shí)現(xiàn)如圖 3 所示。 表 10 tb_employeeinfo數(shù)據(jù)結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 主鍵否 功能描述 workerID varchar 30 是 工號 workername varchar 30 姓 名 sex varchar 10 性別 knowledge varchar 20 學(xué)歷 phone varchar 30 聯(lián)系方式 address varchar 30 地址 duty varchar 30 職務(wù) engagetime datetime 8 聘用時(shí)間 memo varchar 100 備注 （ 15） tb_storage（物資庫存信息表） 物資庫存信息表用于保存物資庫存信息，物資庫存信息表結(jié)構(gòu)如表 11 所示。 表 8 tb_operatorinfo數(shù)據(jù)結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 主鍵否 功能描述 operatorname varchar 30 操作員名稱 password varchar 30 密碼 [level] varchar 20 級別 （ 13） tb_Idlogout（票號沖銷信息表） 票號沖銷信息表用于保存標(biāo)號沖銷信息，票號沖銷信息表結(jié)構(gòu)如表 9所示。 表 6 tb_storageinfo數(shù)據(jù)結(jié)構(gòu) 字段名稱 字段類型 字段大小 主鍵否 功能描述 storagename varchar 30 是 倉庫名稱 nameshort varchar 10 簡碼 （ 7） tb_providerinfo（供應(yīng)商信息表） 供應(yīng)商信息表用于保存供應(yīng)商品信息，供應(yīng)商信息表結(jié)構(gòu)如表 7所示。 表 4 tb_storelist數(shù)據(jù)結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 主鍵否 功能描述 regID varchar 30 登記票號 storagename varchar 30 庫存名稱 storename varchar 30 物資名稱 unitprice money 8 單價(jià) storesum float 8 物資數(shù)量 storemoney money 8 金額 （ 5） tb_storeinfo（物資基礎(chǔ)信息表） 物資基礎(chǔ)信息表用于保存物資基礎(chǔ)信息，物資基礎(chǔ)信息表結(jié)構(gòu)如表 5所示 。 表 2 tb_storeoutlist數(shù)據(jù)結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 主鍵否 功能描述 outID varchar 30 出庫票號 storename varchar 30 物資名稱 num float 8 數(shù)量 storagename varchar 30 倉庫名稱 （ 3） tb_storeoutID（物資出庫主要信息表） 物資出庫主要信息表用于保存物資出庫的主要信息，物資出庫主要信息表結(jié)構(gòu)如表 3 所示。 圖 2 數(shù)據(jù)表樹形結(jié)構(gòu)圖 主要的表中的字段以及數(shù)據(jù)結(jié)構(gòu) （ 1） tb_storeregID（入庫主要信息表） 入庫主要信息表用于保存入庫的主要信息，入庫主要信息表結(jié)構(gòu)如表 1所示 。 確定數(shù)據(jù)表和表 中的字段以及數(shù)據(jù)結(jié)構(gòu) 數(shù)據(jù)表概要說明 如圖 2所示的即為本系統(tǒng)中數(shù)據(jù)庫中的數(shù)據(jù)表的樹形結(jié)構(gòu)圖，該數(shù)據(jù)表樹型結(jié)構(gòu)圖包含系統(tǒng)所有數(shù)據(jù)表。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。合理的數(shù)據(jù)庫設(shè)計(jì)可以提高數(shù)據(jù)存儲的效率，有利于程序的實(shí)現(xiàn)。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。主要體現(xiàn)為： （ 1）經(jīng)過簡化的數(shù)據(jù)庫管理； （ 2）提高開發(fā)人員的工作效率； （ 3）數(shù)據(jù)轉(zhuǎn)換服務(wù)（ DTS）； （ 4）擴(kuò)展應(yīng)用程序； （ 5）英語查詢； （ 6）數(shù)據(jù)挖掘； （ 7） OLAP 服務(wù)； （ 8） OLAP 靈活性； （ 9）閉合循環(huán)分析。 SQLServer2021 是 Microsoft． NET Enterprise Server 的數(shù)據(jù)管理與分析中樞。通過向上伸縮和向外擴(kuò)展的能力， SQLServer2021 滿足苛刻的電子商務(wù)和企業(yè)應(yīng)用程序要求。 SQLServer2021 是一個(gè)具備完全 Web 支 持的數(shù)據(jù)庫產(chǎn)品，提供了可擴(kuò)展標(biāo)記語言（ XML）核心支持以及Inter 上和防火墻外進(jìn)行查詢的能力，具有可伸縮性、靈活性、擴(kuò)充性好，而且價(jià)格便宜等特點(diǎn)；還可以使用 XML 更新程序更容易地插入、更新和刪除數(shù)據(jù)。作為 Microsoft． NET Enterprise Servers 的核心組件，它將減少電子商務(wù)、在線商務(wù)和數(shù)據(jù)倉庫應(yīng)用程序推向市場的時(shí)間，并對需要的環(huán)境提供可靠的支持。 Delphi把 Windows編程的回調(diào)、句柄處理等過程都放在一個(gè)不可見的 Romulam覆蓋物下面，這樣您可以不為它們所困擾 ，輕松從容地對可視部件進(jìn)行編程。 在空白窗口的背后，應(yīng)用程序的框架正在等待用戶的輸入。 Delphi已經(jīng)為您做好了一切 基礎(chǔ)工作 程序框架就是一個(gè)已經(jīng)完成的可運(yùn)行應(yīng)用程序，只是不處理任何事情。這個(gè)窗口具有 Windows窗口的全部屬性：可以被放大縮小、移動、最大最小化等，但您卻沒有編寫一行代碼。您的工作只是在“ 骨架 ” 中加入您的程序。一個(gè) Delphi程序首先是應(yīng)用程序框架 ， 而這一框架正是應(yīng)用程序的 “ 骨架 ” 。 (6)框架對設(shè)計(jì)和使用模式的擴(kuò)充。 (4)編程語言的功能及其復(fù)雜性。 (2)面向?qū)ο缶幊痰母拍睢?它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與 Windows的專業(yè)開發(fā)工具 SDK相媲美， 使用 Delphi開發(fā)應(yīng)用軟件，無疑會大大地提高編程效率。 Delphi 及 SQL Server 2021 簡介 Delphi 簡介 Delphi是全新的可視化編程環(huán)境 ， 為我們提供了一種方便、快捷的 Windows應(yīng)用程序開發(fā)工具。 Delphi 應(yīng)用程序開發(fā)工具， 是 目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工 具， Delphi 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了 界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。業(yè)界有一句很經(jīng)典的話：真正的程序員用 VC++，而聰明的程序員用 Delphi。 而 對 于 前 臺 編 程 工 具 ， 目 前 比 較 流 行 的 是 VC++,VB ， Delphi ， PowerBuilder,C++builder 等。 SQL SERVER2021 是為數(shù)據(jù)庫應(yīng)用程序開發(fā)而設(shè)計(jì)的功能強(qiáng)大、面向?qū)ο蟮木幊坦ぞ?。而事?shí)證明： SQL 數(shù)據(jù)庫是一個(gè)廣泛使用、簡單易用、性能價(jià)格比較高、工具完整而又豐富、界面友好、處理速度高的關(guān)系型數(shù)據(jù)庫。選擇一優(yōu)秀的數(shù)據(jù)庫管理系統(tǒng)作為開發(fā)平臺，將給日后的信息處理帶來便利性。 (5) 系統(tǒng)管理模塊主要功能是系統(tǒng)登錄、口令修改和系統(tǒng)退出。 (3) 信息查詢模塊主要功能是對物資入庫、物資出庫、物資退貨、和供應(yīng)商結(jié)款進(jìn)行高效的查詢。 2 管理系統(tǒng)功能分析 系統(tǒng)功能分析 物資管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫應(yīng)用程序，由啟動窗體模塊、登錄模塊、系統(tǒng)主界 面模塊、基礎(chǔ)信息模塊、物資管理模塊、信息查詢模塊、紅字沖銷模塊、系統(tǒng)管理模塊等組成，特規(guī)劃功能如下： (1) 物資管理模塊主要功能是對物資的入庫、出庫、入庫退貨進(jìn)行管理。它是信息開發(fā)系統(tǒng)中的一個(gè)重要階段，是建立系統(tǒng)模型的第一步。 （ 3）對數(shù)據(jù)的安全性、完整性的要求：要保證每個(gè)記錄必須完 整 。各單位的需求雖然不盡相同，但大體上可分為如下幾個(gè)方面 ： （ 1）用戶的信息要求：隨時(shí)查詢庫存物資狀況，進(jìn)行庫存物資匯總，對記錄能隨時(shí)刪除、插入及恢復(fù)。 物資管理信息系統(tǒng)開發(fā)的必要性 通過對以上在物資管理中存在 的 問題 及 需求調(diào)查得知，以前的物資管理辦法，工作繁瑣，工作量大，效率低。單位配備的計(jì)算機(jī)僅局限于打字，做報(bào)表，不能開單據(jù)，計(jì)算機(jī)應(yīng)有的功能沒有充分發(fā)揮。庫中物資種類繁多，查對繁瑣，易出錯(cuò)。特別是微型計(jì)算機(jī)的出現(xiàn)和普及，為信息處理提供了物美價(jià)廉的手段，對于 推動我國管理信息處理 現(xiàn)代 化起到了重要作用。 由于物資管理在社會大生產(chǎn)中占用重要地位，其計(jì)算機(jī)化在發(fā)達(dá)國家已達(dá)到95%以上，而我國在全國范圍內(nèi)推廣計(jì)算機(jī)在管理中的應(yīng)用，是在 80 年代初開始的。從微觀上講，建立一套物資管理信息系統(tǒng)能夠加快物資的周轉(zhuǎn)速度，提高生產(chǎn)效率，從而加強(qiáng)了管理的信息化手段，提高了本單位的經(jīng)濟(jì)效益。 物資供應(yīng)部門是企業(yè)與生產(chǎn)單位之間的橋梁、紐帶，是企業(yè)正常生產(chǎn)的物資保障部門。 信息已成為繼勞動力、土地、資本之后的又一大資源。 3 通過對材料消耗的控制，降低生產(chǎn)成本。 采用計(jì)算機(jī)物資管理系統(tǒng)，具有以下優(yōu)點(diǎn)： 1利用計(jì)算機(jī)和信息技術(shù)，可以代替人工勞動，減輕工作人員工作量和工作繁瑣程度，提高工作效益和工 作質(zhì)量