1、.：.；畢業(yè)設(shè)計(jì) 院系_ 專業(yè)_ 班級(jí)_ 姓名_日期 年 月 日中文摘要銷售管理系統(tǒng)為企事業(yè)單位銷售管理者提供充足的信息和快捷的查詢平臺(tái)，其開(kāi)發(fā)內(nèi)容主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端運(yùn)用程序的開(kāi)發(fā)兩個(gè)方面。利用DELPHI .軟件及其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具，建立完好性強(qiáng)、平安性好的數(shù)據(jù)庫(kù)，開(kāi)發(fā)出功能完備，易運(yùn)用的運(yùn)用程序。經(jīng)過(guò)調(diào)試、編譯與實(shí)現(xiàn)，該程序界面友好、程序設(shè)計(jì)風(fēng)格樸素，運(yùn)用起來(lái)美觀大方、方便易用。尤其是系統(tǒng)的“查詢與統(tǒng)計(jì)模塊的功能極大的減輕任務(wù)人員的任務(wù)量，并以快速、準(zhǔn)確等優(yōu)點(diǎn)取代人工操作，提高了銷售管理任務(wù)效率。關(guān)鍵詞 ： DELPHI . 信息管理系統(tǒng) 數(shù)據(jù)庫(kù) 模塊 銷售

2、管理系統(tǒng)Sales management system for enterprises and institutions to provide adequate information and marketing managers quick search platform, including the background of its development mainly to the establishment and maintenance of database front-end applications and development . Delphi . and the use

3、 of object-oriented software development tools, the establishment of strong integrity, good safety database developed functions, easy to use applications. After debugging, Translation and the realization that the process friendly interface, simple programming style, using up aesthetic generous, conv

4、enient user-friendly. In particular system enquiries and Statistics module function greatly reduce the workload of staff, and to the rapid, accurate, and other advantages replace manually operated, and enhanced sales management efficiency. Keyword : Delphi . Information Management System database mo

5、dule sales management system引 言 Delphi言語(yǔ)概述. Delphi簡(jiǎn)介. 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)介. 本運(yùn)用軟件的根本引見(jiàn) 本運(yùn)用程序的構(gòu)成和開(kāi)發(fā)步驟. 可行性研討 . 經(jīng)濟(jì)可行性 . 時(shí)間可行性 . 技術(shù)可行性 . 社會(huì)可行性 . 數(shù)據(jù)庫(kù)的建立和銜接. 系統(tǒng)的總體設(shè)計(jì) . 系統(tǒng)的詳細(xì)設(shè)計(jì) 本程序的技術(shù)實(shí)現(xiàn)及詳細(xì)功能 . 登錄的界面與程序設(shè)計(jì)實(shí)現(xiàn). 銷售管理界面與代碼設(shè)計(jì)實(shí)現(xiàn) . 查詢與統(tǒng)計(jì)界面與代碼設(shè)計(jì)實(shí)現(xiàn) . 圖表分析界面與代碼設(shè)計(jì) . 主界面設(shè)計(jì)與代碼設(shè)計(jì) 結(jié) 論致 謝參 考 文 獻(xiàn)引 言隨著經(jīng)濟(jì)的開(kāi)展，社會(huì)的提高，計(jì)算機(jī)越來(lái)越深化到他們?nèi)粘５娜蝿?wù)學(xué)習(xí)及生活中，成

6、為他們?nèi)粘Ｉ钪胁豢啥躺俚妮o助工具。 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深化認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揚(yáng)著越來(lái)越重要的作用。它曾經(jīng)深化到日常任務(wù)和生活的方方面面，比如文字處置、信息管理、輔助設(shè)計(jì)、圖形圖像處置、教育培訓(xùn)以及游戲文娛等。各行各業(yè)的人們無(wú)須經(jīng)過(guò)特別的訓(xùn)練就可以運(yùn)用電腦完成許許多多復(fù)雜的任務(wù)。然而，雖然如今世界上曾經(jīng)充溢了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需求，人們還不得不開(kāi)發(fā)適宜本人特殊需求的軟件。以前開(kāi)發(fā)Windows運(yùn)用軟件是專業(yè)人員的任務(wù)，需求掌握許多專業(yè)知識(shí)和經(jīng)過(guò)特殊的培訓(xùn)才干勝任。如今不同了，即使他沒(méi)有接受過(guò)嚴(yán)厲的

7、程序設(shè)計(jì)訓(xùn)練，運(yùn)用Delphi編程言語(yǔ)也一樣可以開(kāi)發(fā)出功能強(qiáng)大、適宜本人特殊需求的運(yùn)用程序了。Delphi編程言語(yǔ)承繼了其他言語(yǔ)易學(xué)易用的特點(diǎn)，特別適宜于初學(xué)者學(xué)習(xí)Windows系統(tǒng)編程。 銷售管理系統(tǒng)用計(jì)算機(jī)管理企事業(yè)單位產(chǎn)品銷售的一種計(jì)算機(jī)運(yùn)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前銷售管理都是由任務(wù)人員人工書(shū)寫,調(diào)閱的方式來(lái)操作的.如今普通的銷售管理都采用計(jì)算機(jī)智能化管理,采用計(jì)算機(jī)作為工具的適用的計(jì)算機(jī)網(wǎng)絡(luò)化管理程序來(lái)協(xié)助 前臺(tái)管理員進(jìn)展更有效的銷售管理任務(wù)。銷售管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端運(yùn)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一

8、致性和完好性強(qiáng)、數(shù)據(jù)平安性好的庫(kù)。而對(duì)于后者那么要求運(yùn)用程序功能完備,易運(yùn)用等特點(diǎn)。 經(jīng)過(guò)分析,他們運(yùn)用 Delphi編程言語(yǔ)開(kāi)發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)約支配數(shù)據(jù)庫(kù)的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)運(yùn)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)展需求迭代,不斷修正和改良,直到構(gòu)成用戶稱心的可行系統(tǒng)。由于本人才干有限，加上時(shí)間緊迫，所以設(shè)計(jì)出來(lái)的本系統(tǒng)能夠功能比較簡(jiǎn)單，另外本系統(tǒng)是單機(jī)版，不能實(shí)現(xiàn)網(wǎng)絡(luò)互聯(lián)操作,這些都有待于我在以后的任務(wù)學(xué)習(xí)中進(jìn)一步改良。Delphi簡(jiǎn)介. Delphi簡(jiǎn)介 Delphi是Inprise公司出品的一個(gè)優(yōu)秀的可視化程序開(kāi)發(fā)工具軟件

9、，它短小精悍，但功能卻可以與龐大的visual c+媲美。它易學(xué)易用，好像VB，因此被稱為“第四代編程言語(yǔ)。從年推出Delphi.至今曾經(jīng)閱歷了個(gè)版本，Delphi.運(yùn)轉(zhuǎn)在winx或winme，win，winxp，windowsNT等操作系統(tǒng)下，是一個(gè)位的運(yùn)用程序開(kāi)發(fā)工具。這里把“VB比作是傻瓜相機(jī)，Delphi是帶有自動(dòng)功能的專業(yè)相機(jī)。前些年，軟件界流行一句話叫“真正的程序員用VC，聰明的程序員用Delphi。也有的把Delphi稱作VB殺手。. 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)介數(shù)據(jù)庫(kù)系統(tǒng)是一個(gè)實(shí)踐可運(yùn)轉(zhuǎn)的存儲(chǔ)、維護(hù)和運(yùn)用系統(tǒng)提供數(shù)據(jù)的軟件系統(tǒng)，是存儲(chǔ)介質(zhì)、處置對(duì)象和管理系統(tǒng)的集合體。它通常由軟件、數(shù)據(jù)庫(kù)和數(shù)

10、據(jù)管理員組成。其軟件主要包括操作系統(tǒng)、各種宿主言語(yǔ)，適用程序以及數(shù)據(jù)庫(kù)管理系統(tǒng)。數(shù)據(jù)庫(kù)是按照某種數(shù)據(jù)模型組織起來(lái)并存放二級(jí)存儲(chǔ)器中的數(shù)據(jù)集合。這些數(shù)據(jù)為多個(gè)運(yùn)用效力，獨(dú)立于詳細(xì)的運(yùn)用程序。數(shù)據(jù)庫(kù)由數(shù)據(jù)庫(kù)管理系統(tǒng)一致管理，數(shù)據(jù)的插入、修正和檢索均要經(jīng)過(guò)數(shù)據(jù)庫(kù)管理系統(tǒng)進(jìn)展。數(shù)據(jù)庫(kù)管理系統(tǒng)是一種系統(tǒng)軟件，它的主要功能是維護(hù)數(shù)據(jù)庫(kù)并有效地訪問(wèn)數(shù)據(jù)庫(kù)中恣意部分?jǐn)?shù)據(jù)。對(duì)數(shù)據(jù)庫(kù)的維護(hù)包括堅(jiān)持?jǐn)?shù)據(jù)的完好性、一致性和平安性。數(shù)據(jù)管理員擔(dān)任創(chuàng)建、監(jiān)控和維護(hù)整個(gè)數(shù)據(jù)庫(kù)，使數(shù)據(jù)能被任何有權(quán)運(yùn)用的人有效運(yùn)用。數(shù)據(jù)庫(kù)管理員普通是由業(yè)務(wù)程度較高、資歷較深的人員擔(dān)任。數(shù)據(jù)庫(kù)系統(tǒng)的個(gè)體含義是指一個(gè)詳細(xì)的數(shù)據(jù)庫(kù)管理系統(tǒng)軟件和用它

11、建立起來(lái)的數(shù)據(jù)庫(kù)；它的學(xué)科含義是指研討、開(kāi)發(fā)、建立、維護(hù)和運(yùn)用數(shù)據(jù)庫(kù)系統(tǒng)所涉及的實(shí)際、方法、技術(shù)所構(gòu)成的學(xué)科。在這一含義下，數(shù)據(jù)庫(kù)系統(tǒng)是軟件研討領(lǐng)域的一個(gè)重要分支，常稱為數(shù)據(jù)庫(kù)領(lǐng)域。 數(shù)據(jù)庫(kù)研討跨越于計(jì)算機(jī)運(yùn)用、系統(tǒng)軟件和實(shí)際三個(gè)領(lǐng)域，其中運(yùn)用促進(jìn)新系統(tǒng)的研制開(kāi)發(fā)，新系統(tǒng)帶來(lái)新的實(shí)際研討，而實(shí)際研討又對(duì)前兩個(gè)領(lǐng)域起著指點(diǎn)作用。數(shù)據(jù)庫(kù)系統(tǒng)的出現(xiàn)是計(jì)算機(jī)運(yùn)用的一個(gè)里程碑，它使得計(jì)算機(jī)運(yùn)用從以科學(xué)計(jì)算為主轉(zhuǎn)向以數(shù)據(jù)處置為主，并從而使計(jì)算機(jī)得以在各行各業(yè)乃至家庭普遍運(yùn)用。在它之前的文件系統(tǒng)雖然也能處置耐久數(shù)據(jù)，但是文件系統(tǒng)不提供對(duì)恣意部分?jǐn)?shù)據(jù)的快速訪問(wèn)，而這對(duì)數(shù)據(jù)量不斷增大的運(yùn)用來(lái)說(shuō)是至關(guān)重要的。為了

12、實(shí)現(xiàn)對(duì)恣意部分?jǐn)?shù)據(jù)的快速訪問(wèn)，就要研討許多優(yōu)化技術(shù)。這些優(yōu)化技術(shù)往往很復(fù)雜，是普通用戶難以實(shí)現(xiàn)的，所以就由系統(tǒng)軟件數(shù)據(jù)庫(kù)管理系統(tǒng)來(lái)完成，而提供應(yīng)用戶的是簡(jiǎn)單易用的數(shù)據(jù)庫(kù)言語(yǔ)。由于對(duì)數(shù)據(jù)庫(kù)的操作都由數(shù)據(jù)庫(kù)管理系統(tǒng)完成，所以數(shù)據(jù)庫(kù)就可以獨(dú)立于詳細(xì)的運(yùn)用程序而存在，從而數(shù)據(jù)庫(kù)又可以為多個(gè)用戶所共享。因此，數(shù)據(jù)的獨(dú)立性和共享性是數(shù)據(jù)庫(kù)系統(tǒng)的重要特征。數(shù)據(jù)共享節(jié)省了大量人力物力，為數(shù)據(jù)庫(kù)系統(tǒng)的廣泛運(yùn)用奠定了根底。數(shù)據(jù)庫(kù)系統(tǒng)的出現(xiàn)使得普通用戶可以方便地將日常數(shù)據(jù)存入計(jì)算機(jī)并在需求的時(shí)候快速訪問(wèn)它們，從而使的計(jì)算機(jī)走出科研機(jī)構(gòu)進(jìn)入各行各業(yè)、進(jìn)入家庭。. 本運(yùn)用軟件的根本引見(jiàn)本運(yùn)用軟件先是翻開(kāi)一個(gè)啟動(dòng)窗口，就

13、可以進(jìn)入運(yùn)用程序的主窗口了。主界面是一個(gè)圖型界面窗口，整個(gè)平臺(tái)顯示采用人性化方式，可以非常方便的客戶管理,產(chǎn)品管理,查詢與統(tǒng)計(jì)以及圖表分析等根本信息，管理日常運(yùn)營(yíng)的根本情況，經(jīng)過(guò)各種條件查詢出產(chǎn)品銷售的根本信息，以及打印出查詢出的根本信息，總之銷售管理日常任務(wù)中的根本信息都會(huì)顯示在系統(tǒng)平臺(tái)上，大大提高了管理人員的任務(wù)效率。本運(yùn)用程序的構(gòu)成和開(kāi)發(fā)步驟下面從軟件工程的角度引見(jiàn)本程序的根本開(kāi)發(fā)步驟。Delphi 運(yùn)用程序普通包含以下三個(gè)根本部分： 運(yùn)用程序運(yùn)轉(zhuǎn)的接口：擔(dān)任系統(tǒng)整體環(huán)境的設(shè)置，運(yùn)轉(zhuǎn)形狀的監(jiān)視，運(yùn)用程序的啟動(dòng)等。 運(yùn)用程序的主體：主要完成用戶的業(yè)務(wù)邏輯功能，如客戶信息,產(chǎn)品信息查詢與統(tǒng)計(jì)

14、等信息.運(yùn)用程序的輔助部分：協(xié)助程序主體完成的一些任務(wù)。 下面從軟件工程的角度描畫本程序的開(kāi)發(fā)生命周期，開(kāi)發(fā)過(guò)程和組織過(guò)程。. 可行性研討任何一個(gè)系統(tǒng)或一項(xiàng)工程，在建立之前，必需首選進(jìn)展可行性分析，可行性分析包括兩層含義，一是能夠性，二是必要性。能夠性指開(kāi)發(fā)信息系統(tǒng)的條件能否具備，必要性是指客觀上能否真正需求，經(jīng)過(guò)可行性研討，可防止盲目投資，減少政治性要的損失。下面從四方面來(lái)討論：. 經(jīng)濟(jì)可行性主要是只指算一個(gè)新的系統(tǒng)開(kāi)發(fā)所需求的投資費(fèi)用和運(yùn)算費(fèi)用，并與估計(jì)的新系統(tǒng)收益進(jìn)展比較，看能否有利。本系統(tǒng)所需的軟硬件本錢比較低，投資小，具有一定的經(jīng)過(guò)性，因此 ，在經(jīng)濟(jì)上是可行的。. 時(shí)間可行性主要包括

15、系統(tǒng)在目前環(huán)境下能否正常運(yùn)轉(zhuǎn)，運(yùn)轉(zhuǎn)后所引起的各方面，以及這些變化對(duì)社會(huì)或人的要素所產(chǎn)生的影響。本系統(tǒng)對(duì)人事的管理比較全面，可長(zhǎng)期運(yùn)用。. 技術(shù)可行性利用現(xiàn)有的設(shè)備，軟件及技術(shù)人員，新系統(tǒng)的目的能否到達(dá)，這也是可行性研討中需求思索的一個(gè)問(wèn)題。關(guān)系型數(shù)據(jù)庫(kù)的高速開(kāi)展使管理信息系統(tǒng)具備了良好的開(kāi)發(fā)環(huán)境。本系統(tǒng)運(yùn)用的Delphi 普及性好，操作簡(jiǎn)單，用戶可以很快掌握運(yùn)用方法，因此，在技術(shù)上是完全可行的。. 社會(huì)可行性人類社會(huì)文明的開(kāi)展已進(jìn)入信息化的高速開(kāi)展時(shí)期，傳統(tǒng)的手工方式支持下的管理方式，曾經(jīng)不能滿足各方面的需求。開(kāi)發(fā)本系統(tǒng)的目的不僅是提高任務(wù)效率，減輕勞動(dòng)強(qiáng)度，而且減少出錯(cuò)率，具有很好的社會(huì)意義

16、。. 數(shù)據(jù)庫(kù)的建立和銜接這個(gè)程序采用的數(shù)據(jù)庫(kù)是Microsoft Access，Delphi作為數(shù)據(jù)庫(kù)的前臺(tái)開(kāi)發(fā)工具，必需與后臺(tái)數(shù)據(jù)庫(kù)進(jìn)展銜接，這樣才干控制和進(jìn)展操作數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)的銜接方式有兩種，ODBC和ADO。ODBC是數(shù)據(jù)庫(kù)的通用接口，其缺陷是效率低；公用接口調(diào)用直接速度快，但是通用性差，假設(shè)用ODBC銜接數(shù)據(jù)庫(kù)普通要兩個(gè)步驟：.要?jiǎng)?chuàng)建數(shù)據(jù)源；.創(chuàng)建描畫文件。數(shù)據(jù)庫(kù)的建立那么時(shí)在access中建立的，在這里他可以設(shè)置數(shù)據(jù)庫(kù)的密碼，對(duì)數(shù)據(jù)庫(kù)進(jìn)展維護(hù)。在創(chuàng)建數(shù)據(jù)源時(shí)可以經(jīng)過(guò)BDE administrator進(jìn)展創(chuàng)建，也可以經(jīng)過(guò)系統(tǒng)控制面板中的ODBC數(shù)據(jù)源進(jìn)展建立。而描畫文件那么可以在De

17、lphi的主程序中用Database Profile中進(jìn)展建立，之后進(jìn)展數(shù)據(jù)庫(kù)的銜接。接下來(lái)的任務(wù)是建表。同樣建表的過(guò)程也不是獨(dú)一的，但是最終實(shí)現(xiàn)的結(jié)果是獨(dú)一的。他可以經(jīng)過(guò)Access進(jìn)展建表，也可以經(jīng)過(guò)在 Visual Basic 主程序中建表，也可以經(jīng)過(guò)powerdesigner進(jìn)展可視化的建立，不過(guò)用這種方法，在導(dǎo)入的時(shí)候要把數(shù)據(jù)庫(kù)要先斷開(kāi)，否那么數(shù)據(jù)庫(kù)的數(shù)據(jù)容易喪失。建表的過(guò)程留意規(guī)范化命名規(guī)那么，如表的字段名等等。同時(shí)也要留意表的字段長(zhǎng)度和可否為空。由于以后要設(shè)計(jì)到主鍵，外鍵的問(wèn)題。假設(shè)字段名不同，同一字段長(zhǎng)度不同那么主鍵和外鍵將會(huì)銜接不上?？梢?jiàn)建表時(shí)應(yīng)做好全局的計(jì)劃。我在程序開(kāi)發(fā)的

18、初期，同樣犯了這個(gè)錯(cuò)誤，導(dǎo)致數(shù)據(jù)庫(kù)出錯(cuò)，有時(shí)還要向表中新參與字段。導(dǎo)致數(shù)據(jù)窗口不好用的連鎖反映。. 系統(tǒng)的總體設(shè)計(jì)這個(gè)管理系統(tǒng)從月日開(kāi)場(chǎng)著手設(shè)計(jì)開(kāi)發(fā),經(jīng)過(guò)一段時(shí)間的分析，并根據(jù)對(duì)銷售管理的詳細(xì)要求及需求本軟件實(shí)現(xiàn)的功能，將本軟件分為個(gè)大的模塊，分別是：第一部分：根本資料；第二部分：銷售管理；第三部分：查詢與統(tǒng)計(jì)； 第四部分：圖表分析。程序流程圖如下：程序登陸主界面基本資料銷售管理查詢統(tǒng)計(jì)圖表分析系統(tǒng)的詳細(xì)設(shè)計(jì)進(jìn)入Access后要做的第一件事就是建立一個(gè)數(shù)據(jù)庫(kù)。Access提供了種用構(gòu)造數(shù)據(jù)庫(kù)系統(tǒng)的對(duì)象，根據(jù)本課題的需求，在這里選擇一個(gè)空的數(shù)據(jù)庫(kù)，命名建立了一個(gè)數(shù)據(jù)庫(kù)稱號(hào)為“pn，銷售管理系統(tǒng)。

19、并在此數(shù)據(jù)庫(kù)下創(chuàng)建了六個(gè)表，用于存放原始數(shù)據(jù)。它只是存放數(shù)據(jù)，對(duì)其中數(shù)據(jù)的修正要經(jīng)過(guò)對(duì)應(yīng)的窗體來(lái)完成。創(chuàng)建各表的詳細(xì)構(gòu)造如下：.密碼信息表.chanpinl信息表.chanpinl信息表.客戶信息表:.khbf信息表.客戶資料信息表: 本程序的技術(shù)實(shí)現(xiàn)及詳細(xì)功能登錄的界面與程序設(shè)計(jì)實(shí)現(xiàn)代碼分析:unit unit_first;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, DB,

20、 ADODB;type Tfrm_first = class(TForm) Image: TImage; Label: TLabel; Label: TLabel; Label: TLabel; sbtn_enter: TSpeedButton; sbtn_exit: TSpeedButton; edt_password: TEdit; cmb_name: TComboBox; cmb_right: TComboBox; ADOTable: TADOTable; ADOConnection: TADOConnection; procedure sbtn_enterClick(Sender: T

21、Object); procedure FormCreate(Sender: TObject); procedure cmb_rightChange(Sender: TObject); procedure cmb_rightKeyPress(Sender: TObject; var Key: Char); procedure cmb_nameKeyPress(Sender: TObject; var Key: Char); procedure edt_passwordKeyPress(Sender: TObject; var Key: Char); procedure sbtn_exitClic

22、k(Sender: TObject); private Private declarations public right,i:integer; password,logname:string; flag:boolean; Public declarations end;var frm_first: Tfrm_first;implementationuses unit_main;$R *.dfmprocedure Tfrm_first.sbtn_enterClick(Sender: TObject);beginflag:=false;right:=cmb_right.ItemIndex;log

23、name:=cmb_name.Text;password:=edt_password.Text;adotable.Open;adotable.First;while not adotable.Eof dobeginif (logname=adotable.FieldValues帳號(hào)) and (right=adotable.FieldValues權(quán)限) and (password=adotable.FieldValues密碼) thenflag:=true;adotable.Next;end;if flag thenbeginif right= thenbeginfrm_main.n.Enab

24、led:=true;frm_main.Caption:=;frm_main.Caption:=三所銷售管理+-+管理員+(+cmb_name.Text+);end;if right= thenbeginfrm_main.n.Enabled:=false;frm_main.Caption:=;frm_main.Caption:=三所銷售管理+-+普通用戶+(+cmb_name.Text+);end;cmb_name.Text:=;edt_password.Text:=;cmb_name.SetFocus;adotable.Close;close;endelsebeginshowmessage(此

25、帳號(hào)不存在或密碼錯(cuò)誤,請(qǐng)重新輸入!);cmb_name.Text:=;edt_password.Text:=;cmb_name.SetFocus;end;end;procedure Tfrm_first.FormCreate(Sender: TObject);beginadoconnection.ConnectionString:=Provider=Microsoft.Jet.OLEDB.;Data Source=+getcurrentdir+datapassword.mdb;Persist Security Info=False;Jet OLEDB:Database Password=;ad

26、oconnection.Connected:=true;adotable.TableName:=密碼;adotable.Active:=true;adotable.First;end;procedure Tfrm_firstb_rightChange(Sender: TObject);vari:integer;beginadotable.Active:=true;cmb_name.Text:=;if cmb_right.ItemIndex= thenbegincmb_name.Items.Clear;adotable.Filter:=權(quán)限=;adotable.Filtered:=true;if

27、 adotable.RecordCount thenbeginfor i:= to adotable.RecordCount- dobegincmb_name.Items.Add(adotable.FieldValues帳號(hào));adotable.Next;end;endelsebeginfor i:= to dobegincmb_name.Items.Add(adotable.FieldValues帳號(hào));adotable.Next;end;end;endelsebegincmb_name.Items.Clear;adotable.Filter:=權(quán)限=;adotable.Filtered:=

28、true;if adotable.RecordCount thenbeginfor i:= to adotable.RecordCount- dobegincmb_name.Items.Add(adotable.FieldValues帳號(hào));adotable.Next;end;endelsebeginfor i:= to dobegincmb_name.Items.Add(adotable.FieldValues帳號(hào));adotable.Next;end;end;end;end;procedure Tfrm_firstb_rightKeyPress(Sender: TObject; var K

29、ey: Char);beginif key=# thencmb_name.SetFocus;end;procedure Tfrm_firstb_nameKeyPress(Sender: TObject; var Key: Char);beginif key=# thenedt_password.SetFocus;end;procedure Tfrm_first.edt_passwordKeyPress(Sender: TObject; var Key: Char);beginif key=# thensbtn_enter.Click;end;procedure Tfrm_first.sbtn_

30、exitClick(Sender: TObject);beginif frm_main.i= thenbeginfrm_first.close;frm_main.i:=;endelsebeginfrm_main.Close;close;end;end;end.銷售管理界面與代碼設(shè)計(jì)實(shí)現(xiàn)代碼設(shè)計(jì):unit unit_shfwgl;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls, mm

31、system,ComCtrls, DB, ADODB;type Tfrm_shfwgl = class(TForm) GroupBox: TGroupBox; Label: TLabel; dtp_qitime: TDateTimePicker; Label: TLabel; dtp_zhongtime: TDateTimePicker; Label: TLabel; cmb_khjc: TComboBox; Label: TLabel; cmb_fwren: TComboBox; GroupBox: TGroupBox; Label: TLabel; edt_cpbh: TEdit; Lab

32、el: TLabel; cmb_cplb: TComboBox; Label: TLabel; edt_fwf: TEdit; Label: TLabel; edt_bgbh: TEdit; Label: TLabel; Memo_bgnr: TMemo; Image: TImage; Image: TImage; Label: TLabel; edt_fwdh: TEdit; Label: TLabel; edt_fwxm: TEdit; GroupBox: TGroupBox; sbtn_first: TSpeedButton; sbtn_prior: TSpeedButton; sbtn

33、_next: TSpeedButton; sbtn_last: TSpeedButton; sbtn_adding: TSpeedButton; sbtn_post: TSpeedButton; Image: TImage; lbl_position: TLabel; ADODataSet: TADODataSet; sbtn_edit: TSpeedButton; sbtn_delete: TSpeedButton; sbtn_cancel: TSpeedButton; sbtn_print: TSpeedButton; sbtn_querry: TSpeedButton; sbtn_exi

34、t: TSpeedButton; Label: TLabel; edt_cpmc: TEdit; procedure sbtn_findClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure sbtn_addingClick(Sender: TObject); procedure sbtn_firstClick(Sender: TObject); procedure sbtn_priorClick(Sender: TObject); procedure sbtn_nextClick(Sender: TObje

35、ct); procedure sbtn_lastClick(Sender: TObject); procedure sbtn_postClick(Sender: TObject); procedure sbtn_editClick(Sender: TObject); procedure sbtn_deleteClick(Sender: TObject); procedure sbtn_cancelClick(Sender: TObject); procedure sbtn_exitClick(Sender: TObject); procedure sbtn_querryClick(Sender

36、: TObject); procedure sbtn_printClick(Sender: TObject); procedure cmb_khjcKeyPress(Sender: TObject; var Key: Char); procedure cmb_fwrenKeyPress(Sender: TObject; var Key: Char); procedure edt_fwdhKeyPress(Sender: TObject; var Key: Char); procedure dtp_zhongtimeKeyPress(Sender: TObject; var Key: Char)

37、; procedure dtp_qitimeKeyPress(Sender: TObject; var Key: Char); procedure edt_fwxmKeyPress(Sender: TObject; var Key: Char); procedure edt_cpbhKeyPress(Sender: TObject; var Key: Char); procedure cmb_cplbKeyPress(Sender: TObject; var Key: Char); procedure edt_cpmcKeyPress(Sender: TObject; var Key: Cha

38、r); procedure edt_fwfKeyPress(Sender: TObject; var Key: Char); procedure edt_bgbhKeyPress(Sender: TObject; var Key: Char); procedure Memo_bgnrKeyPress(Sender: TObject; var Key: Char); private Private declarations public adding:boolean; procedure showdata; procedure frmcreate; Public declarations end

39、;var frm_shfwgl: Tfrm_shfwgl;implementationuses unit_shfwglquerry, unit_main, unit_shfwreport;$R *.dfmprocedure Tfrm_shfwgl.sbtn_findClick(Sender: TObject);begin frm_shfwglquerry.ShowModal;end;procedure Tfrm_shfwgl.FormShow(Sender: TObject);beginfrmcreate;adodataset.Active:=false;adodataset.CommandT

40、ext:=select * from shfwgl;adodataset.Active:=true;if adodataset.RecordCount thenbeginshowmessage(無(wú)記錄，先添加);sbtn_adding.Click;sbtn_adding.Enabled:=false;abort;end;adodataset.Active:=false;adodataset.CommandText:=select * from shfwgl;adodataset.Active:=true;showdata;end;procedure Tfrm_shfwgl.sbtn_addin

41、gClick(Sender: TObject);beginplaysound(c:windowsmediastart.wav,SND_ASYNC);cmb_khjc.Text:=;cmb_fwren.Text:=;edt_fwdh.Text:=;edt_fwxm.Text:=;edt_cpbh.Text:=;cmb_cplb.Text:=;edt_fwf.Text:=;edt_bgbh.Text:=;edt_cpmc.Text:=;memo_bgnr.Lines.Text:=;dtp_qitime.Date:=now;dtp_zhongtime.Date:=now;sbtn_first.Ena

42、bled:=false;sbtn_prior.Enabled:=false;sbtn_next.Enabled:=false;sbtn_last.Enabled:=false;sbtn_edit.Enabled:=false;sbtn_delete.Enabled:=false;sbtn_post.Enabled:=true;sbtn_cancel.Enabled:=true;adding:=true;end;procedure Tfrm_shfwgl.showdata;beginwith adodataset dobegincmb_khjc.Text:=fieldvalues客戶簡(jiǎn)稱;cmb

43、_fwren.Text:=fieldvalues效力人員;edt_fwdh.Text:=fieldvalues效力單號(hào);edt_fwxm.Text:=fieldvalues效力工程;edt_cpbh.Text:=fieldvalues產(chǎn)品編號(hào);cmb_cplb.Text:=fieldvalues產(chǎn)品類別;edt_cpmc.Text:=fieldvalues產(chǎn)品稱號(hào);edt_fwf.Text:=floattostr(fieldvalues效力費(fèi));edt_bgbh.Text:=fieldvalues報(bào)告編號(hào);memo_bgnr.Lines.Text:=fieldvalues報(bào)告內(nèi)容;dtp_qi

44、time.Date:=strtodatetime(fieldvalues開(kāi)場(chǎng)時(shí)間);dtp_zhongtime.Date:=strtodatetime(fieldvalues終止時(shí)間);end;lbl_position.Caption:=inttostr(adodataset.Recordset.AbsolutePosition)+/ +inttostr(adodataset.Recordset.RecordCount);end;procedure Tfrm_shfwgl.sbtn_firstClick(Sender: TObject);beginplaysound(c:windowsmedi

45、astart.wav,SND_ASYNC);sbtn_last.Enabled:=true;sbtn_next.Enabled:=true;sbtn_first.Enabled:=false;sbtn_prior.Enabled:=false;if adodataset.Recordset.RecordCount then exit;adodataset.First;showdata;end;procedure Tfrm_shfwgl.sbtn_priorClick(Sender: TObject);beginplaysound(c:windowsmediastart.wav,SND_ASYN

46、C);if adodataset.Recordset.RecordCount then exit;if not adodataset.Recordset.bOF thenbeginadodataset.prior;sbtn_next.Enabled:=true;sbtn_last.Enabled:=true;endelsebeginadodataset.first;sbtn_first.Enabled:=false;sbtn_prior.Enabled:=false;sbtn_next.Enabled:=true;sbtn_last.Enabled:=true;end;if adodatase

47、t.Recordset.bOF thenbeginadodataset.first;sbtn_prior.Enabled:=false;sbtn_first.Enabled:=false;sbtn_next.Enabled:=true;sbtn_last.Enabled:=true;end;showdata;end;procedure Tfrm_shfwgl.sbtn_nextClick(Sender: TObject);beginplaysound(c:windowsmediastart.wav,SND_ASYNC);if adodataset.Recordset.RecordCount t

48、hen exit;if not adodataset.Recordset.EOF thenbeginadodataset.Next;sbtn_first.Enabled:=true;sbtn_prior.Enabled:=true;endelsebeginadodataset.Last;sbtn_next.Enabled:=false;sbtn_last.Enabled:=false;sbtn_first.Enabled:=true;sbtn_prior.Enabled:=true;end;if adodataset.Recordset.EOF thenbeginadodataset.Last

49、;sbtn_next.Enabled:=false;sbtn_last.Enabled:=false;sbtn_first.Enabled:=true;sbtn_prior.Enabled:=true;end;showdata;end;procedure Tfrm_shfwgl.sbtn_lastClick(Sender: TObject);beginplaysound(c:windowsmediastart.wav,SND_ASYNC);sbtn_last.Enabled:=false;sbtn_next.Enabled:=false;sbtn_first.Enabled:=true;sbt

50、n_prior.Enabled:=true;if adodataset.Recordset.RecordCount then exit;adodataset.Last;showdata;end;procedure Tfrm_shfwgl.sbtn_postClick(Sender: TObject);beginif adding=true thenbeginadding:=false;playsound(c:windowsmediastart.wav,SND_ASYNC);with adodataset dobeginappend;if (cmb_khjc.Text=) thenbeginfi

51、eldvalues客戶簡(jiǎn)稱:=無(wú);endelsebeginfieldvalues客戶簡(jiǎn)稱:=trim(cmb_khjc.Text);end;if (cmb_fwren.Text=) thenbeginfieldvalues效力人員:=無(wú);endelsebeginfieldvalues效力人員:=trim(cmb_fwren.Text);end;if (edt_fwdh.Text=) thenbeginfieldvalues效力單號(hào):=無(wú);endelsebeginfieldvalues效力單號(hào):=trim(edt_fwdh.Text);end;if (edt_fwxm.Text=) thenbe

52、ginfieldvalues效力工程:=無(wú);endelsebeginfieldvalues效力工程:=trim(edt_fwxm.Text);end;if (edt_cpbh.Text=) thenbeginfieldvalues產(chǎn)品編號(hào):=無(wú);endelsebeginfieldvalues產(chǎn)品編號(hào):=trim(edt_cpbh.Text);end;if (edt_cpmc.Text=) thenbeginfieldvalues產(chǎn)品稱號(hào):=無(wú);endelsebeginfieldvalues產(chǎn)品稱號(hào):=trim(edt_cpmc.Text);end;if (cmb_cplb.Text=) the

53、nbeginfieldvalues產(chǎn)品類別:=無(wú);endelsebeginfieldvalues產(chǎn)品類別:=trim(cmb_cplb.Text);end;if (edt_fwf.Text=) thenbeginfieldvalues效力費(fèi):=;endelsebeginfieldvalues效力費(fèi):=strtofloat(trim(edt_fwf.Text);end;if (edt_bgbh.Text=) thenbeginfieldvalues報(bào)告編號(hào):=無(wú);endelsebeginfieldvalues報(bào)告編號(hào):=trim(edt_bgbh.Text);end;if (memo_bgnr.

54、Text=) thenbeginfieldvalues報(bào)告內(nèi)容:=無(wú);endelsebeginfieldvalues報(bào)告內(nèi)容:=trim(memo_bgnr.Text);end;fieldvalues開(kāi)場(chǎng)時(shí)間:=formatdatetime(yyyy-mm-dd,dtp_qitime.Date);fieldvalues終止時(shí)間:=formatdatetime(yyyy-mm-dd,dtp_zhongtime.Date);post;end;sbtn_last.Click;sbtn_adding.Enabled:=true;sbtn_post.Enabled:=false;sbtn_cancel.

55、Enabled:=false;sbtn_edit.Enabled:=true;sbtn_delete.Enabled:=true;sbtn_first.Enabled:=true;sbtn_prior.Enabled:=true;sbtn_next.Enabled:=true;sbtn_last.Enabled:=true;end;end;procedure Tfrm_shfwgl.sbtn_editClick(Sender: TObject);beginplaysound(c:windowsmediastart.wav,SND_ASYNC);if application.MessageBox

56、(確定要修正當(dāng)前記錄嗎!,修正記錄,mb_okcancel+mb_iconinformation)=idok thenbeginwith adodataset dobeginedit;if (cmb_khjc.Text=) thenbeginfieldvalues客戶簡(jiǎn)稱:=無(wú);endelsebeginfieldvalues客戶簡(jiǎn)稱:=trim(cmb_khjc.Text);end;if (cmb_fwren.Text=) thenbeginfieldvalues效力人員:=無(wú);endelsebeginfieldvalues效力人員:=trim(cmb_fwren.Text);end;if (

57、edt_fwdh.Text=) thenbeginfieldvalues效力單號(hào):=無(wú);endelsebeginfieldvalues效力單號(hào):=trim(edt_fwdh.Text);end;if (edt_fwxm.Text=) thenbeginfieldvalues效力工程:=無(wú);endelsebeginfieldvalues效力工程:=trim(edt_fwxm.Text);end;if (edt_cpbh.Text=) thenbeginfieldvalues產(chǎn)品編號(hào):=無(wú);endelsebeginfieldvalues產(chǎn)品編號(hào):=trim(edt_cpbh.Text);end;i

58、f (edt_cpmc.Text=) thenbeginfieldvalues產(chǎn)品稱號(hào):=無(wú);endelsebeginfieldvalues產(chǎn)品稱號(hào):=trim(edt_cpmc.Text);end;if (cmb_cplb.Text=) thenbeginfieldvalues產(chǎn)品類別:=無(wú);endelsebeginfieldvalues產(chǎn)品類別:=trim(cmb_cplb.Text);end;if (edt_fwf.Text=) thenbeginfieldvalues效力費(fèi):=;endelsebeginfieldvalues效力費(fèi):=strtofloat(trim(edt_fwf.Te

59、xt);end;if (edt_bgbh.Text=) thenbeginfieldvalues報(bào)告編號(hào):=無(wú);endelsebeginfieldvalues報(bào)告編號(hào):=trim(edt_bgbh.Text);end;if (memo_bgnr.Text=) thenbeginfieldvalues報(bào)告內(nèi)容:=無(wú);endelsebeginfieldvalues報(bào)告內(nèi)容:=trim(memo_bgnr.Text);end;fieldvalues開(kāi)場(chǎng)時(shí)間:=formatdatetime(yyyy-mm-dd,dtp_qitime.Date);fieldvalues終止時(shí)間:=formatdatet

60、ime(yyyy-mm-dd,dtp_zhongtime.Date);post;post;end;end;end;procedure Tfrm_shfwgl.sbtn_deleteClick(Sender: TObject);beginif application.MessageBox(確定要?jiǎng)h除當(dāng)前記錄嗎?,刪除記錄,mb_okcancel+mb_iconinformation)=idok thenbeginplaysound(c:windowsmediastart.wav,SND_ASYNC);if adodataset.RecordCount thenbegincmb_khjc.Text