《數(shù)據(jù)庫(kù)系統(tǒng)原理》課程設(shè)計(jì)報(bào)告基于ACCESS數(shù)據(jù)庫(kù)的企業(yè)銷售管理系統(tǒng)

《《數(shù)據(jù)庫(kù)系統(tǒng)原理》課程設(shè)計(jì)報(bào)告基于ACCESS數(shù)據(jù)庫(kù)的企業(yè)銷售管理系統(tǒng)》由會(huì)員分享，可在線閱讀，更多相關(guān)《《數(shù)據(jù)庫(kù)系統(tǒng)原理》課程設(shè)計(jì)報(bào)告基于ACCESS數(shù)據(jù)庫(kù)的企業(yè)銷售管理系統(tǒng)（29頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、江南大學(xué)太湖學(xué)院數(shù)據(jù)庫(kù)課程設(shè)計(jì) 江 南 大 學(xué) 太 湖 學(xué) 院 數(shù) 據(jù) 庫(kù) 課 程 設(shè) 計(jì) 報(bào) 告 課題 基于ACCESS數(shù)據(jù)庫(kù)的企業(yè)銷售管理系統(tǒng) 設(shè) 計(jì) 者 專 業(yè) 計(jì)算計(jì)科學(xué)與技術(shù) 班 級(jí) 計(jì)科73 學(xué) 號(hào) 0721087 同組成員名單 指導(dǎo)老師 評(píng)定成績(jī) ___________________ 2010年 1 月 8 日 課 程 設(shè) 計(jì) 任 務(wù) 書(shū) 一、課程名稱 《數(shù)據(jù)庫(kù)系統(tǒng)原理》 指導(dǎo)教師___ __ 二、本課程設(shè)計(jì)題目 《基于ACCESS數(shù)據(jù)庫(kù)的企

2、業(yè)銷售管理系統(tǒng)》 三、本設(shè)計(jì)所要達(dá)到的目的和要求 1、主題明確，軟體開(kāi)發(fā)要有創(chuàng)新性，能體現(xiàn)ACCESS的數(shù)據(jù)表關(guān)聯(lián)、主鍵及索引等； 2、用高級(jí)語(yǔ)言結(jié)合ACCESS數(shù)據(jù)庫(kù)進(jìn)行開(kāi)發(fā)； 3、寫出數(shù)據(jù)庫(kù)關(guān)系模式及相應(yīng)的數(shù)據(jù)庫(kù)表關(guān)系圖； 4、繪制企業(yè)銷售管理相應(yīng)的系統(tǒng)流程圖、E-R圖等； 5、完成企業(yè)銷售管理系統(tǒng)登陸界面、銷售管理、基礎(chǔ)數(shù)據(jù)、系統(tǒng)設(shè)置、系統(tǒng)幫助等各項(xiàng)設(shè)計(jì)與操作。 四、接受任務(wù)學(xué)生：

3、 73 班 姓名 韓娟 五、開(kāi)始及完成時(shí)間 自 2009 年 12 月 28 日 至 2010 年 1 月 8 日 2009年 12 月 28 日 2 目錄 1、概述 1 1．1引 言 1 1.2 為什么要開(kāi)發(fā)一個(gè)企業(yè)物資銷售信息系統(tǒng) 2 2 系統(tǒng)需求分析 2 3．功能需求分析 2 3．1系統(tǒng)功能的描述 3 3．2系統(tǒng)功能模塊示意圖 4 4數(shù)據(jù)概念結(jié)構(gòu)設(shè)計(jì) 5 4.1數(shù)據(jù)流程圖 5 4.2E-R圖 6 5、邏輯結(jié)構(gòu)設(shè)計(jì) 7 6、系統(tǒng)界面及

4、主要程序 8 6.1創(chuàng)建程序框架 8 6.2創(chuàng)建數(shù)據(jù)連接類 9 6.3創(chuàng)建登錄對(duì)話框 10 6.4系統(tǒng)查詢管理 12 6.5系統(tǒng)管理模塊 24 7、總結(jié) 26 8、參考文獻(xiàn) 26 26 1、概述 根據(jù)下述需求陳述，設(shè)計(jì)： 1、設(shè)計(jì)一個(gè)“企業(yè)銷售管理系統(tǒng)”的MIS（即管理信息系統(tǒng)）軟件； 2、用E-R圖和關(guān)系模型進(jìn)行數(shù)據(jù)庫(kù)分析和設(shè)計(jì)； 3、用Delphi 6 / 7 加SQL Server 2000后臺(tái)數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)現(xiàn)。 本題中待開(kāi)發(fā)的軟件，實(shí)現(xiàn)類似MIS系統(tǒng)的功能。與實(shí)際的MIS系統(tǒng)不同，本軟件不強(qiáng)調(diào)實(shí)用功能，只需要能夠體現(xiàn)SQL S

5、erver存儲(chǔ)過(guò)程、查詢、游標(biāo)及觸發(fā)器技術(shù)即可。 重點(diǎn)在于數(shù)據(jù)庫(kù)及表的創(chuàng)建，ODBC的配置，數(shù)據(jù)庫(kù)應(yīng)用組件（Data Module, Data Source, Dataset, ADOConnection, ADOQuery，ADOTable等）的應(yīng)用。 具體需要實(shí)現(xiàn)以下功能： A) 登陸界面設(shè)計(jì)，正確輸入用戶名、密碼能夠進(jìn)入系統(tǒng)； B) 能夠?qū)崿F(xiàn)主窗體、子窗體及菜單設(shè)計(jì)； 具體要求： 1．實(shí)驗(yàn)環(huán)境 SQL Server 2000（數(shù)據(jù)庫(kù)設(shè)計(jì)工具） Microsoft Office Visio（E-R圖等畫圖工具） Delphi6 / 7（面向?qū)ο蟮目梢暬幊坦ぞ撸?

6、 Photoshop（圖形制作工具，可選用） 2．實(shí)驗(yàn)內(nèi)容和所需時(shí)間 1）利用 SQL Server 2000 的企業(yè)管理器，創(chuàng)建數(shù)據(jù)庫(kù)及相關(guān)表。 2）利用 Visio流程圖軟件，畫出該系統(tǒng)的功能模塊圖、E-R圖 3）利用Delphi建立該應(yīng)用程序主窗口界面，并且創(chuàng)建相關(guān)子界面及菜單 4）進(jìn)一步為應(yīng)用程序配置控件資源，且為每個(gè)動(dòng)作過(guò)程編寫相應(yīng)的程序代碼。 5）利用Delphi提供的ADO組件中的ADOConnection 建立應(yīng)用程序同SQL數(shù)據(jù)庫(kù)的連接，用其他數(shù)據(jù)庫(kù)組件進(jìn)行數(shù)據(jù)表的操作。接續(xù)完成各功能實(shí)現(xiàn)。 1．1引 言 企業(yè)物資銷售信息系統(tǒng)是一個(gè)企業(yè)

7、單位不可缺少的部分,它的內(nèi)容對(duì)于企業(yè)的決策者和銷售者來(lái)說(shuō)都至關(guān)重要,所以企業(yè)物資銷售信息系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以?lái)人們使用傳統(tǒng)人工的方式來(lái)銷售，這種銷售方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)企業(yè)物資信息進(jìn)行銷售,具有著手工銷售所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這

8、些優(yōu)點(diǎn)能夠極大地提高企業(yè)物資銷售的效率,也是企業(yè)的科學(xué)化、正規(guī)化銷售,與世界接軌的重要條件。 1.2 為什么要開(kāi)發(fā)一個(gè)企業(yè)物資銷售信息系統(tǒng) 計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手： 今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長(zhǎng)足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面： 第一 計(jì)算機(jī)可以代替人工進(jìn)行許多繁雜的勞動(dòng)； 第二 計(jì)算機(jī)可以節(jié)省許多資源； 第三 計(jì)算機(jī)可以大大的提高人們的工作效率； 第四 計(jì)算機(jī)可以使敏感文檔更加安全，等等。 2 系統(tǒng)需求分析 所謂系統(tǒng)分析，就是指在整個(gè)系統(tǒng)開(kāi)發(fā)工程中，解決“做什么”的問(wèn)題

9、，把要解決哪些問(wèn)題，滿足用戶哪些具體的信息需求調(diào)查分析清楚，從邏輯上或說(shuō)從信息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進(jìn)行物理方案設(shè)計(jì)，解決怎么辦提供依據(jù)。它是信息開(kāi)發(fā)系統(tǒng)中的一個(gè)重要階段，是建立系統(tǒng)模型的第一步。其核心是目標(biāo)分析與需求分析，最后提出系統(tǒng)的設(shè)計(jì)方案。通過(guò)對(duì)企業(yè)工作人員的調(diào)查得知，以前的物資銷售辦法，工作繁瑣，工作量大，效率低。因而，建立一套物資銷售信息系統(tǒng)勢(shì)在必行。各單位的需求雖然不盡相同，但大概可分為以下幾個(gè)方面： ● 用戶的信息要求：隨時(shí)查詢庫(kù)存物資狀況，進(jìn)行庫(kù)存物資匯總，對(duì)記錄能隨時(shí)刪除、插入及恢復(fù). ● 用戶的處理要求：能隨時(shí)增加、刪除，修改每一個(gè)庫(kù)存物資

10、記錄，并能打印單據(jù)。 ● 對(duì)數(shù)據(jù)的安全性、完整性的要求：要保證每個(gè)記錄必須完整. 3．功能需求分析 系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)物資信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。系統(tǒng)功能分析是在系統(tǒng)開(kāi)發(fā)的總體任務(wù)的基礎(chǔ)上完成。 3．1系統(tǒng)功能的描述 下面是企業(yè)物資銷售信息系統(tǒng)需要完成功能主要有： ● 有關(guān)客戶基本信息的輸入，包括客戶編號(hào)、客戶名稱 、傳真號(hào)碼、建檔人和片區(qū)名稱。 ● 客戶基本信息的查詢。 ● 客戶基本信息的修改。 ● 客戶聯(lián)系人信息的輸入。 包括聯(lián)系人編號(hào)、聯(lián)系人姓名、客戶編號(hào)、客戶名稱。 ●客戶聯(lián)系人信息的查詢。 ●客戶聯(lián)系人信息的修改。 ●合同信息輸入

11、。包括合同編號(hào)、簽定日期、簽定人、客戶名稱、客戶聯(lián)系人、合同金額、產(chǎn)品名稱、產(chǎn)品型號(hào)、產(chǎn)品數(shù)量 ● 合同信息查詢。 ● 合同信息修改。 ● 發(fā)貨記錄的輸入 包括發(fā)貨計(jì)劃編號(hào)、合同編號(hào)、客戶名稱、產(chǎn)品名稱、產(chǎn)品型號(hào)、要貨日期、取消量、執(zhí)行狀態(tài) ● 發(fā)貨記錄的查詢 ● 發(fā)貨記錄的修改 ● 發(fā)票的輸入 ● 發(fā)票的查詢 ● 發(fā)票的修改 ● 收款計(jì)劃的查詢與瀏覽 3．2系統(tǒng)功能模塊示意圖 4數(shù)據(jù)概念結(jié)構(gòu)設(shè)計(jì) 4.1數(shù)據(jù)流程圖 4.2E-R圖 5、邏輯結(jié)構(gòu)設(shè)計(jì) 轉(zhuǎn)換成12個(gè)關(guān)系模式： （1） Company_inform

12、ation(Company_id、Company_name、Company_Assist_code、Company_oldname、Company_address、Company_Legal_representative、Company_Economic_quality、Company_nation、Company_province、Company_city、 Company_mail、Company_phone、Company_email、Company_Web_address、Company_bank、 Company_Account_number、Company_Tax_number

13、、Company_Create_file_per、Company_Create_file_date、Company_situation、Company_Register_code） （2） Company_personal_information（Person_id、Person_name、Person_Assist_code、Person_section、Person_position、Person_Mobile_telnumber、Person_phone、Person_Time_limit、Person_memo） （3） Consign_plan(Consign_id、Contra

14、ct_id、Custom_name、Pord_name、Pord_type、Pord_price、Pord_amont、Pord_sum、Consign_data、Cancle_amont、Operat_state、Consign_memo） （4） Contract_Record（Contract_id、Contract_name、Contract_date、Contract_sum、Contract_prod_name、Contract_prod_type、Contract_prod_amont、Contract_consign_manner、Contract_linkman_name、

15、Contract_subscriber、Contract_inman） （5） Custom_Inf（Custom_id、Custom_name、Custom_phone、Custom_email、Custom_fax、Custom_inman、Area_name） （6） Custom_Linkman_Inf（Linkman_id、Linkman_name、Linkman_sex、Linkman_phone、Linkman_mobile、Linkman_email、Linkman_company、Linkman_depart、Linkman_posotion、 Linkman_inma

16、n） （7） Gathering_plan（Contract_id、Custom_name、Gathering_sum、Plan_date、Cancel_amont、Excute_state、G_plan_meno） （8） Product_information（Product_id、Product_name、Product_type、Product_category、Product_price） （9） Production_category_information（Prod_cate_id、Prod_Assist_code、Prod_cate_name、Prod_cate_memo

17、） （10） Sale_Invoice（Invoice_id、Invoice_date、Consign_id、Custom_name、Prod_name、Prod_type、Prod_price、Invoice_amont、Invoice_sum、Invoice_memo） （11） User_password（User_id、User_name、User_password） （12） Zone_information（Zone_id、Zone_name、Zone_Assist_code、Zone_director、Zone_meno） 其中帶下劃線的為關(guān)系模式關(guān)鍵字（即主碼）。 6

18、、系統(tǒng)界面及主要程序 6.1創(chuàng)建程序框架 系統(tǒng)登錄成功后進(jìn)入系統(tǒng)的主界面，通過(guò)主界面可以切換到各個(gè)子模塊進(jìn)行相關(guān)操作， 新建窗體form2作為系統(tǒng)主界面的窗體，其界面布局效果圖如下所示。 窗體中使用的主控件及屬性設(shè)置如表所示。 控件類型 對(duì)象 屬性 屬性值 Tbutton Button_add_1 caption 添加 Tbutton Button_select_1 caption 查詢 TpageControl PageControl_Main Items 見(jiàn)表 TpageControl PageControl_SaleMangement I

19、tem 客戶信息 Tbutton Button_modify_1 caption 修改 Tlabel Label1 caption 客戶編號(hào) Tedit Edit_Custom_id_1 caption — TADOQuery ADOQuery1 Connection ERSS.mdb 系統(tǒng)主界面的是設(shè)置整個(gè)系統(tǒng)的功能菜單，通過(guò)雙擊PageControl_Main控件可以進(jìn)行菜單編輯。 6.2創(chuàng)建數(shù)據(jù)連接類 雙擊下面圖片中的ADO。 選擇菜單中的ConnectionString ...按鈕！ 出現(xiàn)對(duì)話框 單擊Build， 選擇好數(shù)據(jù)

20、源后測(cè)試，測(cè)試成功后便已經(jīng)連接成功！ 6.3創(chuàng)建登錄對(duì)話框 在管理系統(tǒng)中，身份驗(yàn)證是系統(tǒng)進(jìn)入的必要步驟，新建form1作為登錄對(duì)話框，并設(shè)置標(biāo)題為“用戶登錄”，其界面如圖所示。 我們?yōu)榱藢?shí)現(xiàn)密碼輸入三次錯(cuò)誤將退出系統(tǒng)，用戶單擊“確定”按鈕觸發(fā)OnClicks事件，函數(shù)進(jìn)行用戶的驗(yàn)證和狀態(tài)欄的設(shè)置，添加代碼如下： procedure TForm1.Button_OKClick(Sender: TObject); begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.S

21、QL.Add(select User_name,User_password from User_password where User_name=+Edit_UserID.Text+); adoquery1.Open; Edit_UserID.Text:=adoquery1.fieldbyname(User_name).AsString; if adoquery1.fieldbyname(User_password).Asstring = Edit_Password.Text then

22、 begin Form2.Visible:=true; Form1.Visible:=false; end else begin if(i<2) then begin i:=i+1; showmessage(密碼錯(cuò)誤,請(qǐng)重新輸入!); Edit_Password.Text:=; end else begin showmessage(密碼輸錯(cuò)3次

23、，退出！); application.Destroy; end; end; End; 6.4系統(tǒng)查詢管理 系統(tǒng)查詢管理模塊主要用于顧客信息的查詢，添加、修改和刪除，模塊創(chuàng)建時(shí)將相關(guān)信息顯示到DBGrid中，而除DBGrid以外的控件內(nèi)容為空，用戶在這個(gè)控件中輸入數(shù)據(jù)，單擊“查詢”按鈕可將輸入添加到數(shù)據(jù)表中并顯示在DBGrid中。如果要對(duì)其他記錄進(jìn)行修改和操作，只需要在DBGrid中選中記錄再執(zhí)行相關(guān)操作即可，具體設(shè)計(jì)和實(shí)現(xiàn)過(guò)程如下。 procedure TForm2.Button_select_4Click(Sender: T

24、Object); begin // if (Edit_Consign_id_4.Text= )and (Edit_Contract_id_4.Text=) and (Edit_Custom_name_4.Text=) and (Edit_Prod_name_4.Text=)and (Edit_Prod_type_4.Text=)and (Edit_Consign_data_4.Text=) and(Edit_Cancle_amont_4.Text=)and (Edit_Operat_state_4.Text=) then Begin ADOQuery

25、1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select* from Consign_plan ); Edit_Consign_id_4.Text:=; ADOQuery1.Open; end; if Edit_Consign_id_4.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select* from Consign_plan whe

26、re Consign_id like %+Edit_Consign_id_4.Text+%); Edit_Consign_id_4.Text:=; ADOQuery1.Open; end; if Edit_Contract_id_4.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select* from Consign_plan where Contract_id like %+Edit_Contract_id_4.

27、Text+%); Edit_Contract_id_4.Text:=; ADOQuery1.Open; end; if Edit_Custom_name_4.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select* from Consign_plan where Custom_name like %+Edit_Custom_name_4.Text+%); Edit_Custom_name_4.Text

28、:=; ADOQuery1.Open; end; if Edit_Prod_name_4.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select* from Consign_plan where Prod_name like %+Edit_Prod_name_4.Text+%); Edit_Prod_name_4.Text:=; ADOQuery1.Open; end; if Edit_

29、Prod_type_4.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select* from Consign_plan where Prod_type like %+Edit_Prod_type_4.Text+%); Edit_Prod_type_4.Text:=; ADOQuery1.Open; end; if Edit_Consign_data_4.Text<> then begin ADOQ

30、uery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select* from Consign_plan where Consign_data like %+Edit_Consign_data_4.Text+%); Edit_Consign_data_4.Text:=; ADOQuery1.Open; end; if Edit_Cancle_amont_4.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.C

31、lear; ADOQuery1.SQL.Add(select* from Consign_plan where Cancle_amont like %+Edit_Cancle_amont_4.Text+%); Edit_Cancle_amont_4.Text:=; ADOQuery1.Open; end; if Edit_Operat_state_4.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(sele

32、ct* from Consign_plan where Operat_state like %+Edit_Operat_state_4.Text+%); Edit_Operat_state_4.Text:=; ADOQuery1.Open; end; end; procedure TForm2.Button_select_5Click(Sender: TObject); begin // if (Edit_Invoice_id_5.Text= )and (Edit_Custom_id_5.Text=)and(Edit_Custom_n

33、ame_5.Text=) and (Edit_Prod_type_5.Text=)and (Edit_Prod_name_5.Text=)and (Edit_Prod_price_5.Text=) and (Edit_Invoice_sum_5.Text=)and (Edit_Invoice_amont_5.Text=)and (Edit_Invoice_date_5.Text=)then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * fr

34、om Sale_Invoice,Custom_Inf where Sale_Invoice.Custom_name=Custom_Inf.Custom_name); Edit_Invoice_id_5.Text:=; ADOQuery1.Open; end; if Edit_Invoice_id_5.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Sale_Invoice,Custo

35、m_Inf where Sale_Invoice.Invoice_id like %+Edit_Invoice_id_5.Text+% and Sale_Invoice.Custom_name=Custom_Inf.Custom_name); Edit_Invoice_id_5.Text:=; ADOQuery1.Open; end; if Edit_Custom_id_5.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL

36、.Add(select * from Sale_Invoice,Custom_Inf where Custom_Inf.Custom_id like %+Edit_Custom_id_5.Text+% and Sale_Invoice.Custom_name=Custom_Inf.Custom_name ); Edit_Custom_id_5.Text:=; ADOQuery1.Open; end; if Edit_Custom_name_5.Text<> then begin ADOQuery1.Close; ADO

37、Query1.SQL.Clear; ADOQuery1.SQL.Add(select * from Sale_Invoice,Custom_Inf where Custom_Inf.Custom_name like %+Edit_Custom_name_5.Text+% and Sale_Invoice.Custom_name=Custom_Inf.Custom_name ); Edit_Custom_name_5.Text:=; ADOQuery1.Open; end; if Edit_Prod_type_5.Text<> then

38、 begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Sale_Invoice,Custom_Inf where Sale_Invoice.Product_type= like %+Edit_Prod_type_5.Text+%and Sale_Invoice.Custom_name=Custom_Inf.Custom_name); Edit_Prod_type_5.Text:=; ADOQuery1.Open; end;

39、 if Edit_Prod_price_5.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Sale_Invoice,Custom_Inf where Sale_Invoice.Prod_price like %+Edit_Prod_price_5.Text+% and Sale_Invoice.Custom_name=Custom_Inf.Custom_name); Edit_Prod_type_5.T

40、ext:=; ADOQuery1.Open; end; if Edit_Prod_name_5.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Sale_Invoice,Custom_Inf where Sale_Invoice.Prod_name like %+Edit_Prod_name_5.Text+%and Sale_Invoice.Custom_name=Custom_Inf.Cust

41、om_name); Edit_Prod_name_5.Text:=; ADOQuery1.Open; end; if Edit_Invoice_sum_5.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Sale_Invoice,Custom_Inf where Sale_Invoice.Invoice_sum like %+Edit_Invoice_sum_5.Text+% and

42、 Sale_Invoice.Custom_name=Custom_Inf.Custom_name ); Edit_Invoice_sum_5.Text:=; ADOQuery1.Open; end; if Edit_Invoice_amont_5.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Sale_Invoice,Custom_Inf where Sale_Invoice.I

43、nvoice_amont like %+Edit_Invoice_amont_5.Text+%and Sale_Invoice.Custom_name=Custom_Inf.Custom_name ); Edit_Invoice_amont_5.Text:=; ADOQuery1.Open; end; if Edit_Invoice_date_5.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select *

44、from Sale_Invoice,Custom_Inf where Sale_Invoice.Invoice_date like %+Edit_Invoice_date_5.Text+% and Sale_Invoice.Custom_name=Custom_Inf.Custom_name); Edit_Invoice_date_5.Text:=; ADOQuery1.Open; end; end; procedure TForm2.Button_select_6Click(Sender: TObject); begin // if (Ed

45、it_Contract_id_6.Text=) and(Edit_Custom_name_6.Text=)and(Edit_Gathering_sum_6.Text=) and (Edit_Plan_date_6.Text=)and (Edit_Cancel_amont_6.Text=) and (Edit_Excute_state_6.Text=) then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Gathering_plan);

46、 Edit_Contract_id_6.Text:=; ADOQuery1.Open; end; if Edit_Contract_id_6.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Gathering_plan where Contract_id like %+Edit_Contract_id_6.Text+%); Edit_Contract_id_6.Text:=

47、; ADOQuery1.Open; end; if Edit_Custom_name_6.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Gathering_plan where Custom_name like %+Edit_Custom_name_6.Text+%); Edit_Custom_name_6.Text:=; ADOQuery1.Open; end;

48、 if Edit_Gathering_sum_6.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Gathering_plan where Gathering_sum like %+Edit_Gathering_sum_6.Text+%); Edit_Gathering_sum_6.Text:=; ADOQuery1.Open; end; if Edit_Plan_date

49、_6.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Gathering_plan where Plan_date like %+Edit_Plan_date_6.Text+%); Edit_Plan_date_6.Text:=; ADOQuery1.Open; end; if Edit_Cancel_amont_6.Text<> then begin ADOQ

50、uery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Gathering_plan where Cancel_amont like %+Edit_Cancel_amont_6.Text+%); Edit_Cancel_amont_6.Text:=; ADOQuery1.Open; end; if Edit_Excute_state_6.Text<> then begin ADOQuery1.Close; ADOQuery

51、1.SQL.Clear; ADOQuery1.SQL.Add(select * from Gathering_plan where Excute_state like %+Edit_Excute_state_6.Text+%); Edit_Excute_state_6.Text:=; ADOQuery1.Open; end; end; procedure TForm2.Button_select_9Click(Sender: TObject); begin // if (Edit_Person_id_9.Text=)and(Ed

52、it_Person_Assist_code_9.Text=) and (Edit_Person_name_9.Text=)and(Edit_Person_position_9.Text=)and(Edit_Person_section_9.Text=)then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Zone_information) ; Edit_Zone_id_8.Text:=; ADOQuery1.Open; end; if Edit_Pe

53、rson_id_9.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Company_personnel_information where Person_id like %+Edit_Person_id_9.Text+%) ; Edit_Zone_id_8.Text:=; ADOQuery1.Open; end; if Edit_Person_Assist_code_9.Text<> then begin ADOQuery

54、1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Company_personnel_information where Person_Assist_code like %+Edit_Person_Assist_code_9.Text+%) ; Edit_Person_Assist_code_9.Text:=; ADOQuery1.Open; end; if Edit_Person_name_9.Text<> then begin ADOQuery1.Close; ADOQue

55、ry1.SQL.Clear; ADOQuery1.SQL.Add(select * from Company_personnel_information where Person_name like %+Edit_Person_name_9.Text+%) ; Edit_Person_name_9.Text:=; ADOQuery1.Open; end; if Edit_Person_position_9.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add

56、(select * from Company_personnel_information where Person_position like %+Edit_Person_position_9.Text+%) ; Edit_Person_position_9.Text:=; ADOQuery1.Open; end; if Edit_Person_section_9.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Company_p

57、ersonnel_information where Person_section like %+Edit_Person_section_9.Text+%) ; Edit_Person_section_9.Text:=; ADOQuery1.Open; end; end; procedure TForm2.Button_select_8Click(Sender: TObject); begin // if (Edit_Zone_id_8.Text=)and(Edit_Zone_Assist_code_8.Text=) and (Edit_Zone_name_8.

58、Text=)and(Edit_Zone_director_8.Text=)then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Zone_information) ; Edit_Zone_id_8.Text:=; ADOQuery1.Open; end; if Edit_Zone_id_8.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Ad

59、d(select * from Zone_information where Zone_id like %+Edit_Zone_id_8.Text+%) ; Edit_Zone_id_8.Text:=; ADOQuery1.Open; end; if Edit_Zone_Assist_code_8.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Zone_information where Zone_Assist_code lik

60、e %+Edit_Zone_Assist_code_8.Text+%) ; Edit_Zone_Assist_code_8.Text:=; ADOQuery1.Open; end; if Edit_Zone_name_8.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Zone_information where Zone_name like %+Edit_Zone_name_8.Text+%) ; Edit_Zone_nam

61、e_8.Text:=; ADOQuery1.Open; end; if Edit_Zone_director_8.Text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Zone_information where Zone_director like %+Edit_Zone_director_8.Text+%) ; Edit_Zone_director_8.Text:=; ADOQuery1.Open; end; end;

62、 procedure TForm2.Button_select_10Click(Sender: TObject); Begin if (Edit_Prod_cate_id_10.text= )and (Edit_Prod_cate_name_10.text=) then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Production_

63、category_information ); Edit_Prod_cate_id_10.text:=; ADOQuery1.Open; end; if Edit_Prod_cate_id_10.text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(s

64、elect * from Production_category_information where Prod_cate_id_10 like %+Edit_Prod_cate_id_10.text+% ); Edit_Prod_cate_id_10.text:=; ADOQuery1.Open; end ; if Edit_Prod_cate_name_10.text<> then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Production_category_information where Prod_cate_name_10 like %+Edit_Prod_cate_name_10.text+% ); Edit_Prod_cate_name_10.text:=; ADOQuery1.Open; end