【正文】 id控件。 167。必不可少的，該窗體同樣向用戶(hù)提供打印輸出 功能。 七 結(jié)束語(yǔ) 致謝 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師張韋偉老師身上學(xué)到了很多東西。 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)。 // 設(shè)置 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)默認(rèn)】 ?) then begin messagedlg(?指定數(shù)據(jù)庫(kù)目錄不存在，請(qǐng)檢查后重新輸入。 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)實(shí)中的商品交易形式是多種多樣的，是由于畢業(yè)設(shè)計(jì)時(shí)間較短，需求分析做得不夠完善，個(gè)人能力以及精力等因素的限制，所以該系統(tǒng)只假設(shè)了兩種形式銷(xiāo)售方式，即訂單銷(xiāo)售和代理商銷(xiāo)售， 并且假設(shè)這兩種銷(xiāo)售方式在商品的流通過(guò)程中不存在互相干擾的現(xiàn)象。 167。在第一次運(yùn)行本系統(tǒng) 時(shí)， 本窗口自動(dòng)運(yùn)行，要求使用者輸入系統(tǒng)的基本信息， 以及指定數(shù)據(jù)庫(kù)所在路徑。 。 數(shù)據(jù)庫(kù)應(yīng)用程序的移植是一個(gè)重要的問(wèn)題。創(chuàng)建數(shù) 據(jù)庫(kù)表結(jié)構(gòu)具體操作步驟如下： 步驟 1：?jiǎn)螕?Windows 桌面的 “開(kāi)始 ”菜單，選擇 “程序 ”→“Borland Delphi 7”→“Database Desktop”。 建立數(shù)據(jù)庫(kù)別名是在 Delphi 7提供的數(shù)據(jù)庫(kù)驅(qū)動(dòng)器（ BDE，Borland Database Engine）中進(jìn)行的。 B：銷(xiāo)售數(shù)據(jù)直接反映了一個(gè)銷(xiāo)售單位的盈虧狀況，鑒于銷(xiāo)售數(shù)據(jù)的重要性，所以必 須對(duì)這些數(shù)據(jù)加以保護(hù)，在系統(tǒng)崩潰時(shí)或者誤操作等情況下，可以對(duì)數(shù)據(jù)進(jìn)行恢復(fù)。 綜上所述，雖然 Delphi的各個(gè)版本提供多種數(shù)據(jù)庫(kù)的連接和訪問(wèn)方法，但在同一個(gè)應(yīng)用程序中，開(kāi)發(fā)者幾乎不可能同時(shí)選用多種連接方法，因而選擇合適方法是一個(gè)必須在開(kāi)發(fā)前仔細(xì)考慮的問(wèn)題。 Delphi 類(lèi)可以粗略地分成兩部分：一部分是組件類(lèi)，這些組件類(lèi)通常以某種 方式出現(xiàn)在組件面板上，當(dāng)用戶(hù)從組件面板上點(diǎn)取一個(gè)類(lèi)的圖標(biāo)后，在程序中就自動(dòng)生成了該類(lèi)的對(duì)象（非可視組件除外）；另一部分是功能類(lèi)，這此功能類(lèi)的對(duì)象通常出現(xiàn)在程序代碼中，起著不可代替的作用，但是這些功能類(lèi)在組件面板上是找不到的。它所包含的運(yùn)行處理器用來(lái)處理窗體和數(shù)據(jù)庫(kù)的數(shù)據(jù)交互，以及回答查詢(xún)和打印報(bào)表等 。 查詢(xún)和其他形式的查詢(xún)組件。 數(shù)據(jù)庫(kù)技術(shù)在計(jì)算機(jī)軟件鄰域研究中一直是非常重要的主題，產(chǎn)生于 60 年代， 30多年來(lái)數(shù)據(jù)庫(kù)技術(shù)得到了迅速發(fā)展，并已形成較 為完整的理論體系和一大批實(shí)用系統(tǒng)。 商品銷(xiāo)售管理系統(tǒng)論文 49772字 投稿：洪溈溉 【摘要】本文簡(jiǎn)要介紹了本商品管理系統(tǒng)的開(kāi)發(fā)情況 ,基本設(shè)計(jì)思想、系統(tǒng)開(kāi)發(fā)環(huán)境及目前的應(yīng)用情況。并且，近年來(lái)，隨著 World Wide Web(WWW)的猛增及 Inter 技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫(kù)技術(shù)之時(shí)成為最熱門(mén)技術(shù)之一。并非所有的 DBMS都支持應(yīng)用組件，支持組件的 DBMS也不一定把全部組件的結(jié)構(gòu)作為應(yīng)用元數(shù)據(jù)存儲(chǔ)在數(shù)據(jù)庫(kù)中。DBMS 引擎從其他兩個(gè)組件接受請(qǐng)求，并把它們翻譯成對(duì)操作系統(tǒng)的命令，以便讀寫(xiě)物理介質(zhì)上的數(shù)據(jù)。在 Delphi中，每一個(gè)類(lèi)的祖先都是 Tobject 類(lèi) ,整個(gè)類(lèi)的層次結(jié)構(gòu)就像一棵倒掛的樹(shù)，在最頂層的樹(shù)根即為 Tobject 類(lèi)。 4 數(shù)據(jù)庫(kù)組件 用 ，重點(diǎn)是和各種數(shù)據(jù)庫(kù)組件打交道，控件組有： BDE 控件組、 ADO控件組、 Date Controls控件組和 dbExpress 控件組。這就需要系統(tǒng)提供備份功能。 數(shù)據(jù)庫(kù)驅(qū)動(dòng)器（ BDE， Borland Database Engine）又稱(chēng)集成化數(shù)據(jù)庫(kù)應(yīng)用程序編程接口（ IDAPI），它是數(shù)據(jù)庫(kù)工具中的核心部件，是運(yùn)行數(shù)據(jù)庫(kù)應(yīng)用程序時(shí)所必須的支撐系統(tǒng)。 步驟 2：選擇 “File” →“New” →“Table” ，在彈出的 Create Table 對(duì)話(huà)框中選擇 Table Type 為 ，類(lèi)型，長(zhǎng)度，默認(rèn)值。因?yàn)樵跀?shù)據(jù)庫(kù)應(yīng)用程序中要訪問(wèn)數(shù)據(jù)庫(kù)或數(shù)據(jù)表，就要涉及到數(shù)據(jù)文件的路徑。 end。 167。6. 8 代理商銷(xiāo)售數(shù)據(jù)查詢(xún) 該功能分為兩個(gè)窗體實(shí)現(xiàn)，分別是一般數(shù)據(jù)查詢(xún)和明細(xì)數(shù)據(jù)查詢(xún) 。另外，該系統(tǒng)還有許多不盡如人意的地方。 var LogoForm: TLogoForm。 Panel_button: TPanel。 private B_halt: bool。 if ( = ??) or ( = ?未知用戶(hù) ?) then //用戶(hù)名為空 begin messagedlg(?用戶(hù)錯(cuò)誤 ?, mterror, [mbok], 0)。 end else begin messagedlg(?用戶(hù)名與密碼不符，請(qǐng)檢查后重新輸入。 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?。 // 檢測(cè)目的路徑是否存 在 ShouldCopy := True。 MessageBox(Handle, PChar(MesString), ?錯(cuò)誤 ?, 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)默認(rèn)】 ?。 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。//基本信息設(shè)置窗口 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