【正文】 款系統(tǒng)登錄口令管理系統(tǒng)退出信 息 查 詢物資入庫查詢物資出庫查詢物資退貨查詢供應(yīng)商結(jié)款查詢紅 字 沖 銷入庫票號沖銷出庫票號沖銷入庫退貨票號沖銷供應(yīng)商接口票號沖銷圖 1 系統(tǒng)功能模塊圖 3 系統(tǒng)開發(fā)工具介紹 開發(fā)工具的選擇 隨著社會需求的推動和計算機技術(shù)的發(fā)展普及，各行業(yè)的管理機構(gòu)需要有計算機來處理大量的信息。其中，基于微型計算機的數(shù)據(jù)庫系統(tǒng)是應(yīng)用最廣泛、實用性最強的一種計算機技術(shù)。 SQL SERVER20210 主要用于 Windows 環(huán)境，利用它可設(shè)計出體現(xiàn) Windows 風(fēng)格的豐富多彩的圖形化用戶界面，使用戶的操作和使用十分便利。它能夠管理大量復(fù)雜的數(shù)據(jù)信息，同時有具有很好的安全性和較強的網(wǎng)絡(luò)功能，甚至還能夠?qū)崿F(xiàn)數(shù)據(jù)的遠程訪問和存儲加工 從本人的實際情況看：因為在校期間也有學(xué)習(xí)過可視化的編程，對這一類的軟件的使用也有較深的認識，所以說選用 SQL SERVER2021 作為開發(fā)工具是很有優(yōu)勢的。對底層編程比較需要的地方就大部分 VC++，而Delphi 的 IDE 是非常易用的?？梢姡?VC++與 Delphi 是兩種較優(yōu)秀的語言開發(fā)工具。故實現(xiàn)本系統(tǒng) 用 Delphi 作為開發(fā)工具 是一個明智 的選擇。它使用了 Microsoft Windows圖形用戶界面的許多先進特性和設(shè)計思想 ， 采用了彈性可重復(fù)利用的完整的面向?qū)ο蟪绦蛘Z言(ObjectOriented Language)、當(dāng)今世界上最 快的編輯器、最為領(lǐng)先的數(shù)據(jù)庫技術(shù)。 DELPHI最顯著的特點就是高效性和穩(wěn)定性， 總的來說， 主要體現(xiàn)在以下 6個方面： (1)可視化開發(fā)環(huán)境的性能。 (3)編譯器的速度和已編譯代碼的效率。 (5)數(shù)據(jù)庫結(jié)構(gòu)的靈活性和擴展性。 Delphi實際上是 Pascal語言的一種版本 ， 但它 與傳統(tǒng)的 Pascal語言有天壤之別。在骨架上即使沒有附著任何東西，仍可以嚴格地按照設(shè)計運行。缺省的應(yīng)用程序是一個空白的窗體 (Form)，您可以運行它，結(jié)果得到一個空白的窗口。因此，可以說應(yīng)用程序框架通過提供所有應(yīng)用程序共有的東西，為用戶應(yīng)用程序的開發(fā)打下了良好的基礎(chǔ)。您所需要做的，只是在程序中加入完成您所需功能的代碼而已。由于您并未告訴它接收到用戶輸入后作何反應(yīng)，窗口除了響應(yīng) Windows的基本操作 (移動、縮放等 )外，它只是接受用戶的輸入，然后再忽略。 SQL Server 2021簡介 SQLServer2021 繼承了數(shù)據(jù)庫軟件設(shè)計和引擎方面的優(yōu)勢，已經(jīng)成為新一代網(wǎng)絡(luò)應(yīng)用程序的最佳數(shù)據(jù)庫和分析解決方案之一。 SQLServer2021 對 XML和 HTTP 提供充分的支持；提供分割裝載和確保時間的特性；提供先進的管理和協(xié)調(diào)機制，可以自動管理線程任務(wù)，降低總體開銷。使用 SQLServer2021 可以獲得非凡的可伸縮性和可靠性。主要體現(xiàn)為： （ 1）高度可用性； （ 2）可伸縮性； （ 3）安全性； （ 4）分布式分區(qū)圖； （ 5）索引視圖； （ 6）虛擬接口系統(tǒng)網(wǎng)絡(luò)； （ 7） 復(fù)制特性。 SQLServer2021 包括加速從概念到最后交付開發(fā)過程的工具。 4 數(shù)據(jù)庫的實現(xiàn) 數(shù)據(jù)庫綜述 數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的 工具。 數(shù)據(jù)庫在系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫設(shè)計的好壞將直接影響系統(tǒng)的效率。 創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細的規(guī)劃數(shù)據(jù)庫，設(shè)計必須是靈活的、有邏輯的。 1．標識需要的數(shù)據(jù)； 2．收集被標識的字段到表中； 3．標識主關(guān)鍵字字段； 4．繪制一個簡單的數(shù)據(jù)圖表； 5．規(guī)范數(shù)據(jù)； 6．標識指定字段的信息； 7．創(chuàng)建物理表。可以清晰地反應(yīng)數(shù)據(jù)庫信息 。 表 1 tb_storeregID數(shù)據(jù)結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 主鍵否 功能描述 regID varchar 30 是 登記票號 providername varchar 30 供應(yīng)商名稱 principal varchar 30 負責(zé)人 operator varchar 30 操作員 stocktotal Money 8 入庫總計 stockrebate float 8 入庫折扣 paymoney money 8 應(yīng)付金額 factmoney money 8 實付金額 timedate datetime 8 時間 （ 2） tb_storeoutlist （物資出庫詳細信息表） 物資出庫詳細信息表用于保存物 資出庫詳細信息，物資出庫詳細信息表結(jié)構(gòu)如表 2所示。 表 3 tb_storeoutID數(shù)據(jù)結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 主鍵否 功能描述 outID varchar 30 是 出庫票號 storemanager varchar 30 庫管員 outperson varchar 30 領(lǐng)取人 operator varchar 30 操作員 memo varchar 100 備注 timedate datetime 8 時間 （ 4） tb_storelist(物資入庫詳細信息表 ) 物資入庫詳細信息表用于保存物資入庫的詳細信息，物資入庫詳細信息表結(jié)構(gòu)如表 4 所示。 表 5 tb_storeinfo數(shù)據(jù)結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 主鍵否 功能描述 storename varchar 30 是 物資名稱 nameshort varchar 10 簡碼 spec varchar 20 規(guī)格 defaultprice money 8 默認價格 barcode varchar 30 條形碼 basicunit varchar 10 基本單位 stockunit varchar 10 采購單位 conversion float 8 換 算 （ 6） tb_storageinfo（倉庫基礎(chǔ)信息表） 倉庫基礎(chǔ)信息表用于保存?zhèn)}庫基礎(chǔ)信息，倉庫基礎(chǔ)信息表結(jié)構(gòu)如圖 6所示 。 表 7 tb_providerinfo數(shù)據(jù) 結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 主鍵否 功能描述 providername varchar 30 是 供應(yīng)商名稱 nameshort varchar 20 簡碼 principal varchar 10 負責(zé)人 phone varchar 20 聯(lián)系電話 address varchar 100 地址 web varchar 50 網(wǎng)址 timedate datetime 8 時間 memo varchar 100 備注 （ 8） tb_operatorinfo（操作員信息表） 操作員信息表用于保存操作員信息，操作員信息表結(jié)構(gòu)如表 8所示。 表 9 tb_IDlogout數(shù)據(jù)結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 主 鍵否 功能描述 Id varchar 30 沖銷票號 kind int 4 類型 operator varchar 30 操作員 timedate datetime 8 時間 （ 14） tb_employeeinfo （員工信息表） 員工信息表用于保存員工信息，員工信息表結(jié)構(gòu)如表 10 所示 。 表 11 tb_storage數(shù)據(jù)結(jié)構(gòu) 字段 名稱 數(shù)據(jù)類型 字段大小 主鍵否 功能描述 storagename varchar 30 是 倉庫名稱 storename varchar 30 是 物資名稱 storesum float 8 數(shù)量 5 物資存儲管理系統(tǒng)設(shè)計與實現(xiàn) 主程序窗體設(shè)計 主 程序窗體是程序控制的中心，操作權(quán)限、程序功能調(diào)用等都要通過主程序窗體調(diào)用實現(xiàn)。 圖 3 主窗體的實現(xiàn) 主窗體設(shè)計步驟 （ 1）運行 Delphi 會自動創(chuàng)建一個窗體，設(shè)置該窗體為程序主窗體，命名為“ t_main”，設(shè)置窗 體的 Caption 屬性為“備品管理系統(tǒng)”； WindowState 屬性為“ wsMaximized”； KeyPreview 屬性為“ True”。雙擊該組件，在彈出的對話框中單擊【 Add】按鈕，添加圖標，如圖 4 所示。設(shè)置該組件的 Images 屬性為 “ ImageMemu” ，雙擊 List1 組件打開編輯器，單擊【 New Action】按鈕添加 Actions 對象，并設(shè)置相應(yīng)的 Caption屬性和 Name 屬性 ， 如圖 5所示。 （ 5） 在窗體上點選 ActionManager1 組件，在 “ Object Inspector” 窗口中，單擊 ActionBars 屬性右側(cè)的【 ? 】按鈕 ， 彈出對話框 。 （ 7）點選各菜單項， 在“ Object Inspector”窗口中，單擊 Items 右側(cè)的【 ? 】按鈕，在彈出的對 話框中設(shè)置 子菜單項的 Action 屬性和 Caption 屬性 （ 8）在 “ Win32”組件 頁中點選 “ TStatusBar” 組件 ， 添加到窗體上，命名為 “ StatusBar1” 。 在 “ Object Inspector” 窗口中設(shè)置面板的 Width 屬性、 Text 屬性和 Alignment 屬性 。 procedure (Sender: TObject)。 server,database,user,password: String。 。 ini := nil。39。 。 end else //讀取配置信息 begin Try ini:=(ExtractFilePath()+39。)。配置信息 39。服務(wù)器 39。39。 database := (39。,39。,39。)。配置信息 39。用戶名 39。39。 password := (39。,39。,39。)。Provider=。+Trim(Password)+39。 User ID=39。 Initial Catalog=39。Data Source=39。 。數(shù)據(jù)庫連接失敗 ,是否重新連接數(shù)據(jù)庫 ?39。提示 39。 。 end。 Finally 。 end。 [Sta_Date].Text := FormatDateTime(39。,Now)。 圖 6 基礎(chǔ)窗體 基礎(chǔ)窗體的設(shè)計 添 加一個新窗體，命名為“ f_frame”，設(shè)置其 BorderStyle 屬性為“ bsDialog”； KeyPreview 屬性為“ True”。代碼如下： procedure (Sender: TObject。 //按〈 Esc〉鍵關(guān)閉窗體 Shift: TShiftState)。 end?！保褂谩?Enrter〉鍵代替〈 Tab〉鍵。 begin FindNextControl(ActiveControl,Direct,False,False).SetFocus。 物資入庫管理 設(shè)計與實現(xiàn) 物資入庫管理模塊主要功能是記錄物資入庫的相關(guān)信息，使用 TStringGrid組件 實現(xiàn)多行錄入。 圖 7 物資入庫管理的設(shè)計 （ 1） 選擇“ File” /“ New” /“ Other”菜單項，打開“ New Items”對話框，選擇“ bpglxt”選項卡，點選“ f_frame”，以繼承方式使用該窗體。 （ 2）在窗體上添加 TLabel 組件，命名為“ Label1”。 （ 3）在窗體上添加 TPanel 組件，命名為“ Panel2”。 （ 4）添加 4個 TLabel 組件到 Panel2 組件上，分別設(shè)置它們的 Caption 屬性為“供應(yīng)商名稱”、“負責(zé)人”、“操作員”、“時間”。添加TDateTimePicker 組件到 Panel2 組 件上，命名為“ Date”。設(shè)置該組件的 Align屬性為“ alBottom”，在 Panel1 組件上添加 4個 TLabel 組件和 4 個 TEdit 組件。在該組件上添加 3 個TBitBtn 組件，分別命名為“ Save”、“ Cancel”、“ Quit”。設(shè)置該組件的Align 屬性為“ alBottom”； ColCount 屬性為“ 9” ； RowCount 屬性為“ 2”； Ctrl3D屬性為“ False”。設(shè)置 Grid 組件的 DataSource 屬性為“ RegSource”。代碼如下： procedure (Sender: TObject)。 with Reginfo do begin //設(shè)置字段名稱 Cells[barcode,0]:=39。 Cells[storename,0]:= 39。 Cells[basicunit,0]:=39。 Cell