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

1、江 南 大 學(xué) 太 湖 學(xué) 院數(shù) 據(jù) 庫 課 程 設(shè) 計 報 告課題 基于access數(shù)據(jù)庫的企業(yè)銷售管理系統(tǒng)設(shè) 計 者 專 業(yè) 計算計科學(xué)與技術(shù)班 級 計科73學(xué) 號 0721087 同組成員名單指導(dǎo)老師 評定成績 _2010年 1 月 8 日課 程 設(shè) 計 任 務(wù) 書一、課程名稱 數(shù)據(jù)庫系統(tǒng)原理 指導(dǎo)教師_ _二、本課程設(shè)計題目 基于access數(shù)據(jù)庫的企業(yè)銷售管理系統(tǒng) 三、本設(shè)計所要達(dá)到的目的和要求 1、主題明確，軟體開發(fā)要有創(chuàng)新性，能體現(xiàn)access的數(shù)據(jù)表關(guān)聯(lián)、主鍵及索引等； 2、用高級語言結(jié)合access數(shù)據(jù)庫進(jìn)行開發(fā)； 3、寫出數(shù)據(jù)庫關(guān)系模式及相應(yīng)的數(shù)據(jù)庫表關(guān)系圖； 4、繪制企業(yè)

2、銷售管理相應(yīng)的系統(tǒng)流程圖、e-r圖等； 5、完成企業(yè)銷售管理系統(tǒng)登陸界面、銷售管理、基礎(chǔ)數(shù)據(jù)、系統(tǒng)設(shè)置、系統(tǒng)幫助等各項設(shè)計與操作。 四、接受任務(wù)學(xué)生： 73 班 姓名 韓娟 五、開始及完成時間 自 2009 年 12 月 28 日 至 2010 年 1 月 8 日2009年 12 月 28 日目錄1、概述111引 言11.2 為什么要開發(fā)一個企業(yè)物資銷售信息系統(tǒng)22 系統(tǒng)需求分析23功能需求分析231系統(tǒng)功能的描述332系統(tǒng)功能模塊示意圖44數(shù)據(jù)概念結(jié)構(gòu)設(shè)計54.1數(shù)據(jù)流程圖54.2e-r圖65、邏輯結(jié)構(gòu)設(shè)計76、系統(tǒng)界面及主要程序86.1創(chuàng)建程序框架86.2創(chuàng)建數(shù)據(jù)連接類96.3創(chuàng)建登錄對話

3、框106.4系統(tǒng)查詢管理126.5系統(tǒng)管理模塊247、總結(jié)268、參考文獻(xiàn)261、概述根據(jù)下述需求陳述，設(shè)計：1、設(shè)計一個“企業(yè)銷售管理系統(tǒng)”的mis（即管理信息系統(tǒng)）軟件；2、用e-r圖和關(guān)系模型進(jìn)行數(shù)據(jù)庫分析和設(shè)計； 3、用delphi 6 / 7 加sql server 2000后臺數(shù)據(jù)庫開發(fā)實(shí)現(xiàn)。 本題中待開發(fā)的軟件，實(shí)現(xiàn)類似mis系統(tǒng)的功能。與實(shí)際的mis系統(tǒng)不同，本軟件不強(qiáng)調(diào)實(shí)用功能，只需要能夠體現(xiàn)sql server存儲過程、查詢、游標(biāo)及觸發(fā)器技術(shù)即可。重點(diǎn)在于數(shù)據(jù)庫及表的創(chuàng)建，odbc的配置，數(shù)據(jù)庫應(yīng)用組件（data module, data source, dataset,

4、adoconnection, adoquery，adotable等）的應(yīng)用。具體需要實(shí)現(xiàn)以下功能：a) 登陸界面設(shè)計，正確輸入用戶名、密碼能夠進(jìn)入系統(tǒng)；b) 能夠?qū)崿F(xiàn)主窗體、子窗體及菜單設(shè)計；具體要求：1實(shí)驗(yàn)環(huán)境 sql server 2000（數(shù)據(jù)庫設(shè)計工具） microsoft office visio（e-r圖等畫圖工具）delphi6 / 7（面向?qū)ο蟮目梢暬幊坦ぞ撸﹑hotoshop（圖形制作工具，可選用）2實(shí)驗(yàn)內(nèi)容和所需時間1）利用 sql server 2000 的企業(yè)管理器，創(chuàng)建數(shù)據(jù)庫及相關(guān)表。 2）利用 visio流程圖軟件，畫出該系統(tǒng)的功能模塊圖、e-r圖3）利用delp

5、hi建立該應(yīng)用程序主窗口界面，并且創(chuàng)建相關(guān)子界面及菜單 4）進(jìn)一步為應(yīng)用程序配置控件資源，且為每個動作過程編寫相應(yīng)的程序代碼。 5）利用delphi提供的ado組件中的adoconnection 建立應(yīng)用程序同sql數(shù)據(jù)庫的連接，用其他數(shù)據(jù)庫組件進(jìn)行數(shù)據(jù)表的操作。接續(xù)完成各功能實(shí)現(xiàn)。11引 言 企業(yè)物資銷售信息系統(tǒng)是一個企業(yè)單位不可缺少的部分,它的內(nèi)容對于企業(yè)的決策者和銷售者來說都至關(guān)重要,所以企業(yè)物資銷售信息系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式來銷售，這種銷售方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查

6、找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機(jī)應(yīng)用的一部分,使用計算機(jī)對企業(yè)物資信息進(jìn)行銷售,具有著手工銷售所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高企業(yè)物資銷售的效率,也是企業(yè)的科學(xué)化、正規(guī)化銷售,與世界接軌的重要條件。 1.2 為什么要開發(fā)一個企業(yè)物資銷售信息系統(tǒng) 計算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手： 今天，計算機(jī)的價格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計算機(jī)之所以如

7、此流行的原因主要有以下幾個方面： 第一 計算機(jī)可以代替人工進(jìn)行許多繁雜的勞動； 第二 計算機(jī)可以節(jié)省許多資源； 第三 計算機(jī)可以大大的提高人們的工作效率； 第四 計算機(jī)可以使敏感文檔更加安全，等等。 2 系統(tǒng)需求分析 所謂系統(tǒng)分析，就是指在整個系統(tǒng)開發(fā)工程中，解決“做什么”的問題，把要解決哪些問題，滿足用戶哪些具體的信息需求調(diào)查分析清楚，從邏輯上或說從信息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進(jìn)行物理方案設(shè)計，解決怎么辦提供依據(jù)。它是信息開發(fā)系統(tǒng)中的一個重要階段，是建立系統(tǒng)模型的第一步。其核心是目標(biāo)分析與需求分析，最后提出系統(tǒng)的設(shè)計方案。通過對企業(yè)工作人員的調(diào)查得知，以前的物資

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

9、檔人和片區(qū)名稱。 客戶基本信息的查詢。 客戶基本信息的修改。 客戶聯(lián)系人信息的輸入。 包括聯(lián)系人編號、聯(lián)系人姓名、客戶編號、客戶名稱?？蛻袈?lián)系人信息的查詢。 客戶聯(lián)系人信息的修改。 合同信息輸入。包括合同編號、簽定日期、簽定人、客戶名稱、客戶聯(lián)系人、合同金額、產(chǎn)品名稱、產(chǎn)品型號、產(chǎn)品數(shù)量 合同信息查詢。 合同信息修改。 發(fā)貨記錄的輸入 包括發(fā)貨計劃編號、合同編號、客戶名稱、產(chǎn)品名稱、產(chǎn)品型號、要貨日期、取消量、執(zhí)行狀態(tài) 發(fā)貨記錄的查詢 發(fā)貨記錄的修改 發(fā)票的輸入 發(fā)票的查詢 發(fā)票的修改 收款計劃的查詢與瀏覽 32系統(tǒng)功能模塊示意圖4數(shù)據(jù)概念結(jié)構(gòu)設(shè)計4.1數(shù)據(jù)流程圖4.2e-r圖5、邏輯結(jié)構(gòu)設(shè)計

10、轉(zhuǎn)換成12個關(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_bank、company_account_

11、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_memo）（3） consign_p

12、lan(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_consign_manner、con

13、tract_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_depart、linkman_posotion

14、、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_cate_name、prod_ca

15、te_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）其中帶下劃線的為關(guān)系模式關(guān)鍵字（即主碼）。6、系統(tǒng)

16、界面及主要程序6.1創(chuàng)建程序框架系統(tǒng)登錄成功后進(jìn)入系統(tǒng)的主界面，通過主界面可以切換到各個子模塊進(jìn)行相關(guān)操作，新建窗體form2作為系統(tǒng)主界面的窗體，其界面布局效果圖如下所示。窗體中使用的主控件及屬性設(shè)置如表所示?？丶愋蛯ο髮傩詫傩灾祎buttonbutton_add_1caption添加tbuttonbutton_select_1caption查詢tpagecontrolpagecontrol_mainitems見表tpagecontrolpagecontrol_salemangementitem客戶信息tbuttonbutton_modify_1caption修改tlabellabel1c

17、aption客戶編號teditedit_custom_id_1captiontadoqueryadoquery1connectionerss.mdb系統(tǒng)主界面的是設(shè)置整個系統(tǒng)的功能菜單，通過雙擊pagecontrol_main控件可以進(jìn)行菜單編輯。6.2創(chuàng)建數(shù)據(jù)連接類雙擊下面圖片中的ado。選擇菜單中的connectionstring .按鈕！出現(xiàn)對話框單擊build，選擇好數(shù)據(jù)源后測試，測試成功后便已經(jīng)連接成功！6.3創(chuàng)建登錄對話框在管理系統(tǒng)中，身份驗(yàn)證是系統(tǒng)進(jìn)入的必要步驟，新建form1作為登錄對話框，并設(shè)置標(biāo)題為“用戶登錄”，其界面如圖所示。我們?yōu)榱藢?shí)現(xiàn)密碼輸入三次錯誤將退出系統(tǒng)，用戶單

18、擊“確定”按鈕觸發(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:=adoquery1.fieldbyname(us

19、er_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(密碼錯誤,請重新輸入!); edit_password.text:=; end else begin showmessage(密碼輸錯3次，退出！); application.destroy; end; en

20、d; end;6.4系統(tǒng)查詢管理系統(tǒng)查詢管理模塊主要用于顧客信息的查詢，添加、修改和刪除，模塊創(chuàng)建時將相關(guān)信息顯示到dbgrid中，而除dbgrid以外的控件內(nèi)容為空，用戶在這個控件中輸入數(shù)據(jù)，單擊“查詢”按鈕可將輸入添加到數(shù)據(jù)表中并顯示在dbgrid中。如果要對其他記錄進(jìn)行修改和操作，只需要在dbgrid中選中記錄再執(zhí)行相關(guān)操作即可，具體設(shè)計和實(shí)現(xiàn)過程如下。procedure tform2.button_select_4click(sender: tobject);begin / if (edit_consign_id_4.text= )and (edit_contract_id_4.tex

21、t=) 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 ); edit_consign_id_4.t

22、ext:=; 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 adoquery1.close;

23、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_plan where custom_n

24、ame 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:=; adoquery1.open; end;

25、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.clear; adoquery1.

26、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 %+edit_cancle_amo

27、nt_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; end;end;procedure

28、 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.text=)and (edit_i

29、nvoice_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; adoquery1.sql.clea

30、r; 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; adoquery1.sql.clear; adoq

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

32、.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; adoquery1.sql.add(

33、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; adoquery1.sql.add(select

34、 * 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.add(select * from

35、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(select * from sale_invo

36、ice,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(select * from sale_inv

37、oice,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(select * from sal

38、e_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=) and(edit_custom

39、_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; if edit_contract

40、_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; adoquery1.sql.ad

41、d(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 %+edit_gathering_s

42、um_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 edit_cancel_amont

43、_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.clear; adoquery1.sql.a

44、dd(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_name_9.text=)and(ed

45、it_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; adoquery1.sql.add(select *

46、 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 person_assist_code lik

47、e %+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+%) ; edit_person_name

48、_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;if edit_person_se

49、ction_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: tobject);begin/if

50、(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.close; adoquery1.sq