【正文】 據(jù)感應(yīng)控件關(guān)聯(lián)過于密切，限制了程序員 的創(chuàng)造性。 Delphi 通過 ADO 技術(shù)可讓開發(fā)者快速訪問關(guān)系或非關(guān)系型數(shù)據(jù)庫(kù)，但使用時(shí)需安裝 ADO的數(shù)據(jù)庫(kù)引擎。 Delphi數(shù)據(jù)庫(kù)訪問方法與數(shù)據(jù)庫(kù)組件介紹 3 數(shù)據(jù)庫(kù)訪問方法 3. BDE 方法：它提供了存取各種文型和客戶 /服務(wù)器型數(shù)據(jù)庫(kù)的驅(qū)動(dòng)器程序。 Delphi 類可以粗略地分成兩部分：一部分是組件類，這些組件類通常以某種 方式出現(xiàn)在組件面板上，當(dāng)用戶從組件面板上點(diǎn)取一個(gè)類的圖標(biāo)后，在程序中就自動(dòng)生成了該類的對(duì)象（非可視組件除外）；另一部分是功能類，這此功能類的對(duì)象通常出現(xiàn)在程序代碼中，起著不可代替的作用，但是這些功能類在組件面板上是找不到的。 三 應(yīng)用系統(tǒng)開發(fā)工具 167。 數(shù)據(jù)庫(kù)中的關(guān)系表是二維的，它有如下四個(gè)性質(zhì)： l 在表中的任意一列上，數(shù)據(jù)項(xiàng)應(yīng)屬于同一個(gè)屬性 (如圖中每一列都存放著不同記錄的同一屬性數(shù)據(jù) )。2 .3 創(chuàng)建數(shù)據(jù)庫(kù) 數(shù)據(jù)庫(kù)模式 : 數(shù)據(jù)庫(kù)模式定義了數(shù)據(jù)庫(kù)的結(jié)構(gòu)、表、關(guān)系、域和業(yè)務(wù)規(guī)則。它所包含的運(yùn)行處理器用來處理窗體和數(shù)據(jù)庫(kù)的數(shù)據(jù)交互，以及回答查詢和打印報(bào)表等 。 設(shè)計(jì)子系統(tǒng)有一個(gè)方便數(shù)據(jù)庫(kù)及其應(yīng)用創(chuàng)建的工具集。 DBMS總是基于某種數(shù)據(jù)模型，可以把 DBMS看成是某種數(shù)據(jù)模型在計(jì)算機(jī)系統(tǒng)上的具體實(shí)現(xiàn)。 167。 查詢和其他形式的查詢組件。在表中存儲(chǔ)元數(shù)據(jù)不僅對(duì) DBMS是有效的，對(duì)用戶也是方便的，因?yàn)樗麄兛梢允褂门c查詢用戶數(shù)據(jù)同樣的查詢工具來查詢?cè)獢?shù)據(jù) 。并非所 有的關(guān)系都同樣符合要求，有些關(guān)系比其它關(guān)系更結(jié)構(gòu)化一些。它主要包括四個(gè)要素：用戶數(shù)據(jù)、元數(shù)據(jù)、索引和應(yīng)用元數(shù)據(jù)。 數(shù)據(jù)庫(kù)技術(shù)在計(jì)算機(jī)軟件鄰域研究中一直是非常重要的主題，產(chǎn)生于 60 年代， 30多年來數(shù)據(jù)庫(kù)技術(shù)得到了迅速發(fā)展，并已形成較 為完整的理論體系和一大批實(shí)用系統(tǒng)。 二 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)簡(jiǎn)介 在數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)之前，對(duì)開發(fā)數(shù)據(jù)庫(kù)的基本概念應(yīng)當(dāng)了解，對(duì)數(shù)據(jù)庫(kù)的結(jié)構(gòu)、開發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的步驟、開發(fā)體系及方法都應(yīng)當(dāng)有相當(dāng)清晰的了解和認(rèn)識(shí)。 在試題庫(kù)的制作方面，通過自動(dòng)組卷系統(tǒng)對(duì)每次考試的實(shí)現(xiàn)，可以不斷地對(duì)試題庫(kù)的內(nèi)容進(jìn)行完善。針對(duì)這一 情況，我們研制了計(jì)算機(jī)類學(xué)科試題庫(kù)與自動(dòng)組卷系統(tǒng)。 商品銷售管理系統(tǒng)論文 49772字 投稿：洪溈溉 【摘要】本文簡(jiǎn)要介紹了本商品管理系統(tǒng)的開發(fā)情況 ,基本設(shè)計(jì)思想、系統(tǒng)開發(fā)環(huán)境及目前的應(yīng)用情況。一方面，自動(dòng)組卷 系統(tǒng)避免了手工出試卷造成的試卷不規(guī)范，不易集中管理；另一方面，避免教師每次考試時(shí)手工組卷及平時(shí)為學(xué)生組織練習(xí)時(shí)的重復(fù)勞動(dòng)，將教師從簡(jiǎn)單、重復(fù)的環(huán)節(jié)中解脫出來，以更多的精力投入到教學(xué)與科研中去。在每一次組卷時(shí)，可以進(jìn)一步對(duì)每題的內(nèi)容進(jìn)行分析，發(fā)現(xiàn)細(xì)微的問題，對(duì)試題庫(kù)的內(nèi)容作進(jìn)一步地修改。 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)的目標(biāo)是建立一個(gè)滿足用戶長(zhǎng)期需求的產(chǎn)品。并且，近年來，隨著 World Wide Web(WWW)的猛增及 Inter 技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫(kù)技術(shù)之時(shí)成為最熱門技術(shù)之一。 用戶數(shù)據(jù)： 目前，大多數(shù)主流數(shù)據(jù)庫(kù)管理系統(tǒng)把用戶數(shù)據(jù)表示為關(guān)系。 元數(shù)據(jù)： 數(shù)據(jù)庫(kù)是自描述的，這就意味著它自身包含了它的結(jié)構(gòu)的描述，這種結(jié)構(gòu)的描述稱作元數(shù)據(jù)。本文介紹的 SQL語言可以同時(shí)用于元數(shù)據(jù)和用戶數(shù)據(jù)。并非所有的 DBMS都支持應(yīng)用組件，支持組件的 DBMS也不一定把全部組件的結(jié)構(gòu)作為應(yīng)用元數(shù)據(jù)存儲(chǔ)在數(shù)據(jù)庫(kù)中。 數(shù)據(jù)庫(kù)管理系統(tǒng) 數(shù)據(jù)庫(kù)管理系統(tǒng)（ DBMS）是指數(shù)據(jù)庫(kù)系統(tǒng)中管理數(shù)據(jù)的軟件系統(tǒng)。根據(jù)數(shù)據(jù)模型的不同， DBMS可以分成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷取Ｋ湫偷匕a(chǎn)生表、窗體、查詢和報(bào)表的工具。DBMS 引擎從其他兩個(gè)組件接受請(qǐng)求，并把它們翻譯成對(duì)操作系統(tǒng)的命令，以便讀寫物理介質(zhì)上的數(shù)據(jù)。數(shù)據(jù)庫(kù)模式是一種設(shè)計(jì)，數(shù)據(jù)庫(kù)和應(yīng)用正是建立在此基礎(chǔ)上的。 2 表中所有行都是不相同的，不允許有重復(fù)組項(xiàng)出現(xiàn) (如圖中每一行都是一個(gè)不同的記錄 )。 Delphi簡(jiǎn)介 Delphi 是一個(gè)極有代表性的面向?qū)ο箝_發(fā)工具；它將面向?qū)ο蟮某绦蛟O(shè)計(jì)方法與數(shù)據(jù)庫(kù)技術(shù)；網(wǎng)絡(luò)技術(shù)以及可視化；事件驅(qū)動(dòng)，代碼自動(dòng)生成等先進(jìn)技術(shù)完美的結(jié)合在一起，使用它可以直觀的，快速地開發(fā)，高質(zhì)量的 windows應(yīng)用程序。在 Delphi中，每一個(gè)類的祖先都是 Tobject 類 ,整個(gè)類的層次結(jié)構(gòu)就像一棵倒掛的樹，在最頂層的樹根即為 Tobject 類。該方法直接訪問 Paradox和 Dbase 等數(shù)據(jù)庫(kù)或通過 DOBC（ Open DataBase connecivity,開放數(shù)據(jù)庫(kù)）來訪問 Access和 PoxPro等數(shù)據(jù)庫(kù)，還可通過內(nèi)嵌方式訪問 SQL Servr、 Oracle 和 DB2 等大型數(shù)據(jù)庫(kù)。 5. MIDAS 方法： MIDAS方法是 Delphi用于開發(fā)多層應(yīng)用系統(tǒng)的中間透明引擎。 6. dbExpress 方法： Delphi 提供了新一代的跨平臺(tái)數(shù)據(jù)訪問引擎 dbExpress 方法，它由一組新控件、技術(shù)和驅(qū)動(dòng)程序組成，并通過這些組成部分和各種數(shù)據(jù)源連鏈接。 4 數(shù)據(jù)庫(kù)組件 用 ，重點(diǎn)是和各種數(shù)據(jù)庫(kù)組件打交道，控件組有： BDE 控件組、 ADO控件組、 Date Controls控件組和 dbExpress 控件組。 Delphi的 ADO組件無需依靠 BDE而是使用 ADO技術(shù)，提供了可以通過數(shù)據(jù)控制組件訪問數(shù)據(jù)的新方法。使用者通過對(duì)銷 售過程中所涉及到的商品，訂單，銷售商等資料的錄入，便可以輕松實(shí)現(xiàn)商品銷 售流程的管理。 4：由于是銷售管理軟件，所以系統(tǒng)安全性必須是要考慮的問題。這就需要系統(tǒng)提供備份功能。：系統(tǒng)目標(biāo) 本系統(tǒng)的 目標(biāo)是 :使用者通過對(duì)基本銷售信息的錄入，即可方便直觀的實(shí)現(xiàn)對(duì)商品交易流程的管理，查詢，以及對(duì)已有信息的打印輸出等功能。（此功能略復(fù)雜，所以在實(shí)現(xiàn)的是時(shí)候必須對(duì)其提供錄入修改查詢 等基本功能）。 綜上所述，為實(shí)現(xiàn)上述系統(tǒng)目標(biāo)，必 須定義相應(yīng)功能的單元模塊，所以本系統(tǒng)的層次結(jié)構(gòu)如下圖所示：： 五 商品銷售管理系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì) 167。 數(shù)據(jù)庫(kù)驅(qū)動(dòng)器（ BDE， Borland Database Engine）又稱集成化數(shù)據(jù)庫(kù)應(yīng)用程序編程接口（ IDAPI），它是數(shù)據(jù)庫(kù)工具中的核心部件，是運(yùn)行數(shù)據(jù)庫(kù)應(yīng)用程序時(shí)所必須的支撐系統(tǒng)。 步驟 2：?jiǎn)螕?Windows 桌面的 “開始 ”菜單，選擇 “程序 ”→“Borland Delphi 7” →“BDE Administrator”。輸入 “CPXSGL”作為數(shù)據(jù)庫(kù)別名。重復(fù)步驟 3，直到需要的數(shù)據(jù)庫(kù)別名設(shè)計(jì)完畢。 步驟 2：選擇 “File” →“New” →“Table” ，在彈出的 Create Table 對(duì)話框中選擇 Table Type 為 ，類型，長(zhǎng)度，默認(rèn)值。 2. 數(shù)據(jù)錄入 表結(jié)構(gòu)設(shè)計(jì)好后，就須對(duì)每個(gè)數(shù)據(jù)庫(kù)中的表的內(nèi)容進(jìn)行錄入。若再次選擇 “Table” →“Edit” 菜單項(xiàng)，則 DBD將保存所進(jìn)行的修改?？梢杂?DatabaseName 屬性來指定該控件所引用的數(shù)據(jù)表路徑。因?yàn)樵跀?shù)據(jù)庫(kù)應(yīng)用程序中要訪問數(shù)據(jù)庫(kù)或數(shù)據(jù)表，就要涉及到數(shù)據(jù)文件的路徑。 本試題庫(kù)系統(tǒng)采用的是第三種方法，且具有更強(qiáng)的移植性，每次啟動(dòng)時(shí)都會(huì)對(duì)別名進(jìn)行檢查并進(jìn)行重設(shè)，以防異常情況的出現(xiàn)，但是損失了一定的運(yùn)行時(shí)間。 。 //用于保存 BDE 數(shù)據(jù)庫(kù)別名表 代碼： strAlias:=。 end。 167。 主窗體 該窗體是本系統(tǒng)的統(tǒng)籌界面。 Session 控件提 供了動(dòng)態(tài)生成數(shù)據(jù)庫(kù)別名的方法，使通過操作選擇窗體進(jìn)行優(yōu)選擇的別名生成成為可能。 167。 操作員信息設(shè)置窗體 這里是設(shè)置操作員信息的窗體單元。 167。 167。6. 8 代理商銷售數(shù)據(jù)查詢 該功能分為兩個(gè)窗體實(shí)現(xiàn)，分別是一般數(shù)據(jù)查詢和明細(xì)數(shù)據(jù)查詢 。 167。 本系統(tǒng)主要分為四個(gè)主要功能，即訂單系統(tǒng)，代理商系統(tǒng)，備份系統(tǒng)，何管理員系統(tǒng)。其功能基本符合用戶需求，能夠完成商品流通過程中所涉及到的基本信息的、輸入、修改，查詢等動(dòng)能。另外，該系統(tǒng)還有許多不盡如人意的地方。張韋 偉老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。 type TLogoForm = class(TForm) Panel1: TPanel。 Label3: TLabel。 var LogoForm: TLogoForm。 begin Foundwin := FindWindow(nil, ?商品銷售管理系統(tǒng) ?)。 end。 Label2: TLabel。 Panel_button: TPanel。 E_ID: TEdit。 var CanClose: Boolean)。 var Key: Word。 private B_halt: bool。 implementation uses MainUnit, LogoUnit。 begin inherited。 exit。 if ( = ??) or ( = ?未知用戶 ?) then //用戶名為空 begin messagedlg(?用戶錯(cuò)誤 ?, mterror, [mbok], 0)。 end //end if else //用戶名非空 begin with query_pass do begin first。 end。 if I_logo = 3 then begin messagedlg(?您已嘗試超過 3 次，系統(tǒng)將停止運(yùn)行！ ?, mterror, [mbok], 0)。 end else begin messagedlg(?用戶名與密碼不符，請(qǐng)檢查后重新輸入。 canclose := false。 //end if end。 。 begin b_halt := false。 begin with query_pass do begin first。 next。 procedure (Sender: TObject。 exit。 {移動(dòng)到下一個(gè)控件 } end。 end。 := + ?用戶登錄 ?。 reg := 。 except if then 。 close。 end。 end。 GroupBox1: TGroupBox。 Label2: TLabel。 Label6: TLabel。 Label9: TLabel。 E_address: TEdit。 SB_save: TSpeedButton。 RB_auto: TRadioButton。 procedure SB_CLOSEClick(Sender: TObject)。 procedure SB_saveClick(Sender: TObject)。 procedure e_allnameChange(Sender: TObject)。 private B_save: boolean。 procedure (Sender: TObject)。 try := HKEY_CURRENT_USER。 end。 begin 。 begin inherited。 procedure (Sender: TObject)。 TheBitmap := 。 := thebitmap。 var reg: TRegistry。 end。 exit。 。 ?, mtwarning, [mbok], 0)。