【正文】 if ( = mrOK) then := 。 SourcePath := ExtractFileDir()。 procedure (Sender: TObject)。 end。 end。 ShFileOperation(OpStruc)。 end。 ?。 if (StrLen(PChar(SourcePath)) 3) then SourcePath := SourcePath + ?\?。 pFrom := FromBuf。 ShouldCopy: Boolean。 { Public declarations } end。 CancelBtn: TButton。 type TBackUpForm = class(TForm) Panel1: TPanel。 var Key: Word。 begin (TAboutForm, AboutForm)。 begin (TSelectDir, SelectDir)。 if trim() = ?? then := ?10?。 := (?Coname?)。 procedure (Sender: TObject)。 messagedlg(?系統(tǒng) 設置數據信息保存完畢！ ?, mtwarning, [mbok], 0)。 S_address := trim()。 (?DataPath?, trim())。 try := HKEY_CURRENT_USER。 exit。 if trim() = ?? then begin messagedlg(?公司名稱不能為空，請檢查后重新輸入。 B_save := true。 var TheBitmap: TBitmap。 end。 (S_RegTree)。 { Private declarations } public { Public declarations } end。 procedure FormShow(Sender: TObject)。 e_backupdays: TEdit。 LE_datapath: TEdit。 Label7: TLabel。 GroupBox2: TGroupBox。 。 messagedlg(?數據庫打開錯誤，可能指定的系統(tǒng)數據庫文件不存在！ ? + 13 + 13 + ?系統(tǒng)將終止運行，請重新嘗試打開本程序。 I_logo := 0。 end。 var Key: Word。 while not eof do begin if = fieldbyname(?ID?).AsString then begin := fieldbyname(?USERName?).AsString。 canclose := true。 exit。 。 while not eof do //檢查用戶名與密碼 begin if (USERNAME = fieldbyname(?USERname?).asstring) and (S_tempPass = fieldbyname(?Psd?).asstring) then begin USERRIGHTSNAME := fieldbyname(?rightsname?).AsString。 end else b_halt := true。 {$R *.dfm} procedure (Sender: TObject。 Shift: TShiftState)。 E_PassWord: TEdit。 Label1: TLabel。 // 查找窗口 if Foundwin 0 then begin // 調用 Delphi自帶的查詢窗口函數，查找特定標題的窗體 // 若找到則激活已運行的程序，同時結束自身 ShowWindow(Foundwin, SW_RESTORE)。 Label4: TLabel。她無論在理論上還是在實踐中， 都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝她耐心的輔導。并提供部分系統(tǒng)維護功能 ,使用戶方便進行用戶名稱和密碼的更改，提高了軟件的安全性和健壯性。6. 9 商品分布查詢 該窗體以圖形化的界面，簡單直觀的向使用者提供商品的查詢功能，使用者可以通過已知商品信息迅速查詢到與此種商品相關的代理商信息，同時，也可用過代理商的信息反查處其代理的商品狀況。 定單進貨數據錄入窗口以及查詢窗口 該窗體是供使用者輸入訂貨單信息時候使用的，使用者可以對訂單進行增加修改刪除等具體操作。用戶可以通過增加按鈕任意增加一個操作員，同樣也可以通過修改或者刪除按鈕實現(xiàn)相應的操作。 167。 用戶登錄窗體 本窗體的任務是通過用戶輸入密碼判斷用戶是否是合法的用戶 .它用于管理員按照用戶名和密碼進行登錄。// 生成TstringList 類的實例 (strAlias)。下面代碼說明如何建立名字為 “CPXSGL”的別名，它的數據庫路徑為 “H:\畢業(yè)設計\數據庫 ”，數據庫類型為 PARADOX。有兩種方法可以為屬性DatabaseName 設置路徑：第一種方法是直接輸入數據表所在路徑，另一種方法是使用數據庫別名（ Alias）。輸入表字段內容具體操作步驟如下： 步驟 1：單擊 Windows 桌面的 “開始 ”菜單，選擇 ”程序 ”→“Borland Delphi 7”→“Database Desktop”。 5 定義數據表設計 DBD(Database Desktop)是 Delphi中提供的簡單實用的數據庫桌面工具，它的功能是創(chuàng)建﹑維護以及查詢數據庫。（要進入 BDE Administrator 進行操作，必須先關閉全部正在使用的 BDE 應用程序，為的是保證再進入編程環(huán)境時所設置的參數生效。 創(chuàng)建應用程序數據表 在這個商品銷售管理系統(tǒng)中我們設計了若干個 paradox 類型的 table表（代理商信息表﹑ 商品信息表﹑操作員信息表﹑代理商銷售記錄﹑訂單銷售記錄，系統(tǒng)信息表），每個表的具體字段內容如下 : 4 定義數據庫別名 為了方便對數據庫中文件進行管理，在創(chuàng)建數據庫之前，一般先要建立一個存放數據庫的文件夾。本銷售系統(tǒng)定義了兩種銷售模式： 1：訂單銷售。因此，必須實現(xiàn)以下兩點： a：系統(tǒng)操作員機制。唯一的要求是在使用 ADO組件時必須運行 ADO/OLE－ DB。如配合不同的數據庫動態(tài)鏈接庫文件，還可處理后臺數據庫數據。 4. ADO 方法： ADO 方法是微軟提供的一種數據庫訪問技術。Delphi強大的易用的特點得到程序員的青睞。 數據庫設計主要是進行數據庫的邏輯設計，即將數據按一定的分類、分組系統(tǒng)和邏輯層次組織起來，是面向用戶的。 DBMS產品還提供編程語言和對編程語言的接口 。 DBMS是數據庫系統(tǒng)的核心組成部分。 應用元數據：存儲在數據庫中的第四種數據是應用元數據，它用來存儲用戶窗體、報表、查索引：第三種類型的數據改進了數據庫的性能和可訪問性，這種數據經常稱作開銷數據，盡管有時也采用其他類型的數據結構，如鏈表，但它主要還是索引?，F(xiàn)在把關系看作數據表。開發(fā)的主要過程為：理解用戶的需求，然后，把它們轉變?yōu)橛行У臄祿煸O計。 高校教務管理工作中一項非常重要的工作就是考試管理工作，每學期各專業(yè)考試，從組織出卷到試卷的印制及試卷的管理等工作非常繁瑣且工作量很大，這種組織管理方式不僅工作任務繁重而且試卷的標準化程度、難易程度、題量大小等各方面難以控制，難以形成有效的試題庫，不利于充分發(fā)揮歷年來的優(yōu)秀試題及試卷的作用，給試題和試卷的管理帶來 很多問題和困難。我們知道，傳統(tǒng)的出試卷方法是由教師個人組卷，這樣往往造成試題難度和知識覆蓋面難以把握，不能達到對學生的科學而又全面的考核。由于試題庫的建設具有繼承性，規(guī)范性，可以不斷積累考試經驗，豐富試題庫的內容。 數據庫 數據庫由 DBMS（數據庫管理系統(tǒng)）處理， DBMS則由開發(fā)人員和用戶通過應用程序直接或間接地使用。這些系統(tǒng)表存儲了數據庫中表的情況，指出每一個表中有多少列，那一列是主關鍵字，每一列的數據類型的描述，它也存儲索引、關鍵字、規(guī)則和數據庫結構的其他部分。 一般來說，數據庫開發(fā)人員和用戶都不直接訪問應用元數據，想反，他們通過DBMS中的工具來處理這些數據。 DBMS 的特點和功能可以分為三個子系統(tǒng)：設計工具子系統(tǒng)、運行子系統(tǒng)和 DBMS 引擎。 167。 4 在表中，列的順序無關緊要，但不能重復 為防止數據庫出現(xiàn)更新異常、插入異常、刪除異常、數據冗余太大等現(xiàn)象，關系型數據庫要盡量按關系規(guī)范化要求進行數據庫設計。 167。這些后臺應用服務器程序包括 COM+/DCOM 應用程序服務器、 MTS中間件或CORBA應用程序服務器。 ADO的對象模型是所有數據訪問接口對象模型中最簡單的一種。 1：軟件必須向使用者提供商品基本的錄入，刪除，編輯等基本功能 2：鑒于商品的不同銷售方式（分為訂單銷售和代理商銷售兩種形式），軟件必須向使用者提供商品銷售環(huán)節(jié)中的基本管理功能，因此必須有訂單分銷模塊和代理商分銷模塊。所以，打印功能是必不可少的系統(tǒng)功能之一。 2：密碼登陸功能。 建立數據庫別名具體操作步驟如下： 步驟 1：打開 Windows的資源管理器，在 H盤（或其他盤符，但是設置別名路徑時應作相應的 修改）創(chuàng)建 “畢業(yè)設計 ”文件夾，并在該文件夾下在創(chuàng)建一個 “數據庫 ”的子文件夾。 單擊 Configuration 頁卡，在 Drivers 選項中選擇 Native 類驅動程序，在展開的樹狀結構中選擇 PARADOX 驅動程序項。單擊 save as按鈕，在彈出的保存對話 框中選擇 Alias 為 “CPXSGL”(設計 其他數據庫時要做相應更改 )，填寫表名后單擊 “保存 ”按鈕。 167。所以必須對數據文件的路徑進行有效的管理，以便用于系統(tǒng)的移植。下面代碼說明如何檢查數據庫別名 “CPXSGL”是否存在，如果存在則進行刪除。 系統(tǒng)在進行設計時，主要使用的是 delphi 中的一部分的控件，最長使用的是 Label 控件、 Button 控件、 Radiogroup 控件， Memo 控件。 Image 控件使得界面得以美化。 界面簡捷是本窗體的一個有點，這使對權限的管理十分方便。為了保證數據表的參照完整性，在點擊保存按鈕的時候，系統(tǒng)會檢查錄入的數據是否完整，如缺少項目，系統(tǒng)會給出正確的提示。 上圖是代理商進貨明細查詢，藍色的字體標出的是該代理商的進貨記錄，紅色的字體標出的是該代理商的退貨記錄，同時，使用者還可以使用對代理商姓名，商品名稱及型號的輸入，輕松實現(xiàn)對個別代理商銷售的查詢。同時，本系統(tǒng)也提供了豐富的打印功能，使得計算機里的數據可以以書面的形式印刷并且傳播，不會出現(xiàn)信息孤島的現(xiàn)象。這些都有待進一步改善。 Label1: TLabel。 {$R *.dfm} procedure (Sender: TObject)。 //密碼登陸窗口 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Registry, DBCtrls。 OKBtn: TButton。 procedure E_IDChange(Sender: TObject)。 { Private declarations } public { Public