《數(shù)據(jù)庫(kù)系統(tǒng)原理》課程設(shè)計(jì)報(bào)告基于ACCESS數(shù)據(jù)庫(kù)的企業(yè)銷售管理系統(tǒ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ù)據(jù)庫(kù)系統(tǒng)原理 指導(dǎo)教師_ _二、本課程設(shè)計(jì)題目 基于access數(shù)據(jù)庫(kù)的企業(yè)銷售管理系統(tǒng) 三、本設(shè)計(jì)所要達(dá)到的目的和要求 1、主題明確，軟體開發(fā)要有創(chuàng)新性，能體現(xiàn)access的數(shù)據(jù)表關(guān)聯(lián)、主鍵及索引等； 2、用高級(jí)語(yǔ)言結(jié)合access數(shù)據(jù)庫(kù)進(jìn)行開發(fā)； 3、寫出數(shù)據(jù)庫(kù)關(guān)系模式及相應(yīng)的

2、數(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é)生： 73 班 姓名 韓娟 五、開始及完成時(shí)間 自 2009 年 12 月 28 日 至 2010 年 1 月 8 日2009年 12 月 28 日2目錄1、概述111引 言11.2 為什么要開發(fā)一個(gè)企業(yè)物資銷售信息系統(tǒng)22 系統(tǒng)需求分析23功能需求分析231系統(tǒng)功能的描述332系統(tǒng)功能模塊示意圖44數(shù)據(jù)概念結(jié)構(gòu)設(shè)計(jì)54.1數(shù)據(jù)流程圖54.2e-r圖65、邏輯結(jié)構(gòu)設(shè)計(jì)76、系統(tǒng)界面及主要程序86.1創(chuàng)建程序框架86.2創(chuàng)

3、建數(shù)據(jù)連接類96.3創(chuàng)建登錄對(duì)話框106.4系統(tǒng)查詢管理126.5系統(tǒng)管理模塊247、總結(jié)268、參考文獻(xiàn)26261、概述根據(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ù)開發(fā)實(shí)現(xiàn)。 本題中待開發(fā)的軟件，實(shí)現(xiàn)類似mis系統(tǒng)的功能。與實(shí)際的mis系統(tǒng)不同，本軟件不強(qiáng)調(diào)實(shí)用功能，只需要能夠體現(xiàn)sql server存儲(chǔ)過(guò)程、查詢、游標(biāo)及觸發(fā)器技術(shù)即可。重點(diǎn)在于數(shù)據(jù)庫(kù)及表的創(chuàng)建，odbc的配置，數(shù)據(jù)庫(kù)應(yīng)用組件（data module, data

4、 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ū)ο蟮目梢暬幊坦ぞ撸﹑hotoshop（圖形制作工具，可選用）2實(shí)驗(yàn)內(nèi)容和所需時(shí)間1）利用 sql server 2000 的企業(yè)管理器，創(chuàng)建數(shù)據(jù)庫(kù)及相關(guān)表。 2）利用 visio流程圖軟件，畫出該系統(tǒng)的

5、功能模塊圖、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)。11引 言 企業(yè)物資銷售信息系統(tǒng)是一個(gè)企業(yè)單位不可缺少的部分,它的內(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í)間一

6、長(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)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高企業(yè)物資銷售的效率,也是企業(yè)的科學(xué)化、正規(guī)化銷售,與世界接軌的重要條件。 1.2 為什么要開發(fā)一個(gè)企業(yè)物資銷售信息系統(tǒng) 計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手： 今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長(zhǎng)足的進(jìn)步。它

7、已經(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)開發(fā)工程中，解決“做什么”的問(wèn)題，把要解決哪些問(wèn)題，滿足用戶哪些具體的信息需求調(diào)查分析清楚，從邏輯上或說(shuō)從信息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進(jìn)行物理方案設(shè)計(jì)，解決怎么辦提供依據(jù)。它是信息開發(fā)系統(tǒng)中的一個(gè)重要階段，是建立系統(tǒng)模型的第一步。其核心是目標(biāo)分析與需求分析，最后提出系統(tǒng)的設(shè)計(jì)方案。通過(guò)

8、對(duì)企業(yè)工作人員的調(diào)查得知，以前的物資銷售辦法，工作繁瑣，工作量大，效率低。因而，建立一套物資銷售信息系統(tǒng)勢(shì)在必行。各單位的需求雖然不盡相同，但大概可分為以下幾個(gè)方面： 用戶的信息要求：隨時(shí)查詢庫(kù)存物資狀況，進(jìn)行庫(kù)存物資匯總，對(duì)記錄能隨時(shí)刪除、插入及恢復(fù). 用戶的處理要求：能隨時(shí)增加、刪除，修改每一個(gè)庫(kù)存物資記錄，并能打印單據(jù)。 對(duì)數(shù)據(jù)的安全性、完整性的要求：要保證每個(gè)記錄必須完整. 3功能需求分析 系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)物資信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成。31系統(tǒng)功能的描述下面是企業(yè)物資銷售信息系統(tǒng)需要完成功能主要有： 有關(guān)客戶基本信息的輸入，包

9、括客戶編號(hào)、客戶名稱 、傳真號(hào)碼、建檔人和片區(qū)名稱。 客戶基本信息的查詢。 客戶基本信息的修改。 客戶聯(lián)系人信息的輸入。 包括聯(lián)系人編號(hào)、聯(lián)系人姓名、客戶編號(hào)、客戶名稱。客戶聯(lián)系人信息的查詢。 客戶聯(lián)系人信息的修改。 合同信息輸入。包括合同編號(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ì)劃的查詢與瀏覽 32系統(tǒng)功能模塊示意圖4數(shù)據(jù)概念結(jié)構(gòu)設(shè)計(jì)4.1數(shù)據(jù)

10、流程圖4.2e-r圖5、邏輯結(jié)構(gòu)設(shè)計(jì)轉(zhuǎn)換成12個(gè)關(guān)系模式：（1） company_information(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_ban

11、k、company_account_number、company_tax_number、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_

12、memo）（3） consign_plan(consign_id、contract_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_

13、consign_manner、contract_linkman_name、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_depar

14、t、linkman_posotion、linkman_inman）（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

15、_cate_name、prod_cate_memo）（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）其中帶下劃線的

16、為關(guān)系模式關(guān)鍵字（即主碼）。6、系統(tǒng)界面及主要程序6.1創(chuàng)建程序框架系統(tǒng)登錄成功后進(jìn)入系統(tǒng)的主界面，通過(guò)主界面可以切換到各個(gè)子模塊進(jìn)行相關(guān)操作，新建窗體form2作為系統(tǒng)主界面的窗體，其界面布局效果圖如下所示。窗體中使用的主控件及屬性設(shè)置如表所示?？丶愋蛯?duì)象屬性屬性值tbuttonbutton_add_1caption添加tbuttonbutton_select_1caption查詢tpagecontrolpagecontrol_mainitems見(jiàn)表tpagecontrolpagecontrol_salemangementitem客戶信息tbuttonbutton_modify_1capt

17、ion修改tlabellabel1caption客戶編號(hào)teditedit_custom_id_1captiontadoqueryadoquery1connectionerss.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ù)源后測(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í)

18、現(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.sql.add(select user_name,user_password from user_password where user_name=+edit_userid.text+); adoquery1.open; edit_userid.text:=adoque

19、ry1.fieldbyname(user_name).asstring; if adoquery1.fieldbyname(user_password).asstring = edit_password.text then begin form2.visible:=true; form1.visible:=false; end else begin if(i2) then begin i:=i+1; showmessage(密碼錯(cuò)誤,請(qǐng)重新輸入!); edit_password.text:=; end else begin showmessage(密碼輸錯(cuò)3次，退出！); applicatio

20、n.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: tobject);begin / if (edit_consign_id_4.text= )and (edit

21、_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 adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add(select* from consign_plan ); e

22、dit_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 where consign_id like %+edit_consign_id_4.text+%); edit_consign_id_4.text:=; adoquery1.open; end; if edit_contract_id_4.text then begin

23、 adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add(select* from consign_plan where contract_id like %+edit_contract_id_4.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_p

24、lan where custom_name like %+edit_custom_name_4.text+%); edit_custom_name_4.text:=; 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:=; ado

25、query1.open; end; if edit_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 adoquery1.close; adoquery1.sql

26、.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.clear; adoquery1.sql.add(select* from consign_plan where cancle_amont like

27、 %+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(select* from consign_plan where operat_state like %+edit_operat_state_4.text+%); edit_operat_state_4.text:=; adoquery1.open;

28、 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_name_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

29、.text=)and (edit_invoice_date_5.text=)then begin adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add(select * from 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;

30、adoquery1.sql.clear; adoquery1.sql.add(select * from sale_invoice,custom_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; adoquer

31、y1.sql.clear; adoquery1.sql.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; adoquery1.sql.cl

32、ear; 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 begin adoquery1.close; adoquery1.sql.clear;

33、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; if edit_prod_price_5.text then begin adoquery1.close; adoquery1.sql.clear; adoque

34、ry1.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.text:=; adoquery1.open; end; if edit_prod_name_5.text then begin adoquery1.close; adoquery1.sql.clear; adoquery1.sql.

35、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.custom_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(selec

36、t * from sale_invoice,custom_inf where sale_invoice.invoice_sum like %+edit_invoice_sum_5.text+% and 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(sele

37、ct * from sale_invoice,custom_inf where sale_invoice.invoice_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

38、(select * 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 (edit_contract_id_6.text

39、=) 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); edit_contract_id_6.text:=; adoquery1.open; end

40、; 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:=; adoquery1.open; end; if edit_custom_name_6.text then begin adoquery1.close; adoquery1.sql.clear

41、; adoquery1.sql.add(select * from gathering_plan where custom_name like %+edit_custom_name_6.text+%); edit_custom_name_6.text:=; adoquery1.open; end; if edit_gathering_sum_6.text then begin adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add(select * from gathering_plan where gathering_sum like

42、%+edit_gathering_sum_6.text+%); edit_gathering_sum_6.text:=; adoquery1.open; end; if edit_plan_date_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

43、 edit_cancel_amont_6.text then begin adoquery1.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; adoquery1.sql.clea

44、r; 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(edit_person_assist_code_9.text=)and (edit_person_n

45、ame_9.text=)and(edit_person_position_9.text=)and(edit_person_section_9.text=)thenbegin adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add(select * from zone_information) ; edit_zone_id_8.text:=; adoquery1.open;end;if edit_person_id_9.text thenbegin adoquery1.close; adoquery1.sql.clear; adoquery

46、1.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 thenbegin adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add(select * from company_personnel_information where pers

47、on_assist_code like %+edit_person_assist_code_9.text+%) ; edit_person_assist_code_9.text:=; adoquery1.open;end;if edit_person_name_9.text thenbegin adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add(select * from company_personnel_information where person_name like %+edit_person_name_9.text+%)

48、; edit_person_name_9.text:=; adoquery1.open;end;if edit_person_position_9.text thenbegin adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add(select * from company_personnel_information where person_position like %+edit_person_position_9.text+%) ; edit_person_position_9.text:=; adoquery1.open;end

49、;if edit_person_section_9.text thenbegin adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add(select * from company_personnel_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:

50、tobject);begin/if (edit_zone_id_8.text=)and(edit_zone_assist_code_8.text=)and (edit_zone_name_8.text=)and(edit_zone_director_8.text=)thenbegin 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 thenbegin adoquery1