【正文】 id控件。 167。必不可少的，該窗體同樣向用戶提供打印輸出 功能。 七 結束語 致謝 在本次畢業(yè)設計中，我從指導老師張韋偉老師身上學到了很多東西。 var Foundwin: HWND。 CancelBtn: TButton。 var LoginForm: TLoginForm。 exit。 。 procedure (Sender: TObject)。 perform(WM_NEXTDLGCTL, 0, 0)。 try open。 type TSetupForm = class(TForm) Panel1: TPanel。 E_tel: TEdit。 procedure FormCreate(Sender: TObject)。 reg := 。 end。 exit。 end。 S_username := trim()。 。 if (?autosave?) = ?1? then := true else := true。 end。 end. unit BackUpUnit。 procedure Edit_pathEnter(Sender: TObject)。 // 設置 OpStruc with OpStruc do begin Wnd := Handle。 StrPCopy(ToBuf, Pchar(DFilePath))。 if MessageBox(Handle, PChar(MesString), ? 信息 ?, MB_YESNO + MB_ICONINFORMATION) IDYES then ShouldCopy := False else //先刪除該文件夾 begin := FO_DELETE。 end。 := + ? 數(shù)據(jù)備份 ?。 。 end。 ?。 end。 FillChar(ToBuf, Sizeof(ToBuf), 0)。 FileAttrs: Integer。 procedure Edit_pathChange(Sender: TObject)。 begin if (key = 13) or (key = 40) then { 判斷是按執(zhí)行鍵 } begin key := 0。 if (FileExists()) then := 。 := (?Cotel?)。 B_save := true。 (?savedays?, trim())。 if (not DirectoryExists(trim())) and (trim() ?【系統(tǒng)默認】 ?) then begin messagedlg(?指定數(shù)據(jù)庫目錄不存在，請檢查后重新輸入。 procedure (Sender: TObject)。 var CanClose: Boolean)。 implementation {$R *.dfm} uses MainUnit, SelectDirUnit, AboutUnit。 procedure SB_stopClick(Sender: TObject)。 SB_selectpath: TSpeedButton。 end。 B_halt := true。 begin if key = 27 then begin 。 procedure (Sender: TObject)。 。 USERNAME := 。 procedure FormCreate(Sender: TObject)。 L_name: TLabel。 private { Private declarations } public { Public declarations } end。 但現(xiàn)實中的商品交易形式是多種多樣的，是由于畢業(yè)設計時間較短，需求分析做得不夠完善，個人能力以及精力等因素的限制，所以該系統(tǒng)只假設了兩種形式銷售方式，即訂單銷售和代理商銷售， 并且假設這兩種銷售方式在商品的流通過程中不存在互相干擾的現(xiàn)象。 167。在第一次運行本系統(tǒng) 時， 本窗口自動運行，要求使用者輸入系統(tǒng)的基本信息， 以及指定數(shù)據(jù)庫所在路徑。 。 數(shù)據(jù)庫應用程序的移植是一個重要的問題。創(chuàng)建數(shù) 據(jù)庫表結構具體操作步驟如下： 步驟 1：單擊 Windows 桌面的 “開始 ”菜單，選擇 “程序 ”→“Borland Delphi 7”→“Database Desktop”。 建立數(shù)據(jù)庫別名是在 Delphi 7提供的數(shù)據(jù)庫驅(qū)動器（ BDE，Borland Database Engine）中進行的。 B：銷售數(shù)據(jù)直接反映了一個銷售單位的盈虧狀況，鑒于銷售數(shù)據(jù)的重要性，所以必 須對這些數(shù)據(jù)加以保護，在系統(tǒng)崩潰時或者誤操作等情況下，可以對數(shù)據(jù)進行恢復。 綜上所述，雖然 Delphi的各個版本提供多種數(shù)據(jù)庫的連接和訪問方法，但在同一個應用程序中，開發(fā)者幾乎不可能同時選用多種連接方法，因而選擇合適方法是一個必須在開發(fā)前仔細考慮的問題。 Delphi 類可以粗略地分成兩部分：一部分是組件類，這些組件類通常以某種 方式出現(xiàn)在組件面板上，當用戶從組件面板上點取一個類的圖標后，在程序中就自動生成了該類的對象（非可視組件除外）；另一部分是功能類，這此功能類的對象通常出現(xiàn)在程序代碼中，起著不可代替的作用，但是這些功能類在組件面板上是找不到的。它所包含的運行處理器用來處理窗體和數(shù)據(jù)庫的數(shù)據(jù)交互，以及回答查詢和打印報表等 。 查詢和其他形式的查詢組件。 數(shù)據(jù)庫技術在計算機軟件鄰域研究中一直是非常重要的主題，產(chǎn)生于 60 年代， 30多年來數(shù)據(jù)庫技術得到了迅速發(fā)展，并已形成較 為完整的理論體系和一大批實用系統(tǒng)。 商品銷售管理系統(tǒng)論文 49772字 投稿：洪溈溉 【摘要】本文簡要介紹了本商品管理系統(tǒng)的開發(fā)情況 ,基本設計思想、系統(tǒng)開發(fā)環(huán)境及目前的應用情況。并且，近年來，隨著 World Wide Web(WWW)的猛增及 Inter 技術的迅速發(fā)展，使得數(shù)據(jù)庫技術之時成為最熱門技術之一。并非所有的 DBMS都支持應用組件，支持組件的 DBMS也不一定把全部組件的結構作為應用元數(shù)據(jù)存儲在數(shù)據(jù)庫中。DBMS 引擎從其他兩個組件接受請求，并把它們翻譯成對操作系統(tǒng)的命令，以便讀寫物理介質(zhì)上的數(shù)據(jù)。在 Delphi中，每一個類的祖先都是 Tobject 類 ,整個類的層次結構就像一棵倒掛的樹，在最頂層的樹根即為 Tobject 類。 4 數(shù)據(jù)庫組件 用 ，重點是和各種數(shù)據(jù)庫組件打交道，控件組有： BDE 控件組、 ADO控件組、 Date Controls控件組和 dbExpress 控件組。這就需要系統(tǒng)提供備份功能。 數(shù)據(jù)庫驅(qū)動器（ BDE， Borland Database Engine）又稱集成化數(shù)據(jù)庫應用程序編程接口（ IDAPI），它是數(shù)據(jù)庫工具中的核心部件，是運行數(shù)據(jù)庫應用程序時所必須的支撐系統(tǒng)。 步驟 2：選擇 “File” →“New” →“Table” ，在彈出的 Create Table 對話框中選擇 Table Type 為 ，類型，長度，默認值。因為在數(shù)據(jù)庫應用程序中要訪問數(shù)據(jù)庫或數(shù)據(jù)表，就要涉及到數(shù)據(jù)文件的路徑。 end。 167。6. 8 代理商銷售數(shù)據(jù)查詢 該功能分為兩個窗體實現(xiàn)，分別是一般數(shù)據(jù)查詢和明細數(shù)據(jù)查詢 。另外，該系統(tǒng)還有許多不盡如人意的地方。 var LogoForm: TLogoForm。 Panel_button: TPanel。 private B_halt: bool。 if ( = ??) or ( = ?未知用戶 ?) then //用戶名為空 begin messagedlg(?用戶錯誤 ?, mterror, [mbok], 0)。 end else begin messagedlg(?用戶名與密碼不符，請檢查后重新輸入。 begin b_halt := false。 exit。 reg := 。 end。 Label9: TLabel。 procedure SB_CLOSEClick(Sender: TObject)。 procedure (Sender: TObject)。 begin inherited。 var reg: TRegistry。 ?, mtwarning, [mbok], 0)。 。 finally 。 := (?Address?)。 if ( = mrOK) then := 。 perform(WM_NEXTDLGCTL, 0, 0)。 procedure FormCreate(Sender: TObject)。 label COPYAGAIN。 SFilePath := SourcePath + ?data?。 // 檢測目的路徑是否存 在 ShouldCopy := True。 MessageBox(Handle, PChar(MesString), ?錯誤 ?, MB_OK + MB_ICONERROR)。 procedure (Sender: TObject)。 end。 begin inherited。 if FindFirst(DFilePath + ?\*.*?, FileAttrs, sr) = 0 then begin FileSetAttr(DFilePath + ?\? + , faArchive)。 ? + chr(13) + ?是否繼續(xù)備份至該目錄？ ?。 DFilePath := 。 FillChar(ToBuf, Sizeof(ToBuf), 0)。 procedure CancelBtnClick(Sender: TObject)。 end。 。 if = ?? then := ?【系統(tǒng)默認】 ?。 end。 with MainForm do begin S_name := trim()。 exit。 if messagedlg(? 確定要保存以上所有資料嗎？ ?, mtconfirmation, [mbyes, mbno], 0) = mrno then begin B_save := true。 if not B_save then canclose := false。 begin inherited。 var CanClose: Boolean)。 e_name: TEdit。//基本信息設置窗口 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, Registry。 with query_pass do begin := ?SELECT , USERNAME, Psd,? + ? RIGHTSNAME, RIGHTS FROM Sysus