《《數(shù)據(jù)庫系統(tǒng)原理》課程設(shè)計報告基于ACCESS數(shù)據(jù)庫的企業(yè)銷售管理系統(tǒng)》由會員分享，可在線閱讀，更多相關(guān)《《數(shù)據(jù)庫系統(tǒng)原理》課程設(shè)計報告基于ACCESS數(shù)據(jù)庫的企業(yè)銷售管理系統(tǒng)（29頁珍藏版）》請在裝配圖網(wǎng)上搜索。
1、江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計江 南 大 學(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è)計所要達到的目的和要求 1、主題明確，軟體開發(fā)要有創(chuàng)新性，能體現(xiàn)ACCESS的數(shù)據(jù)表關(guān)聯(lián)、主鍵及索引等； 2、用高級語言結(jié)合ACCESS數(shù)據(jù)庫進行開發(fā)； 3、寫出數(shù)據(jù)庫關(guān)系模式及相應(yīng)的
2、數(shù)據(jù)庫表關(guān)系圖； 4、繪制企業(yè)銷售管理相應(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 日2目錄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)
3、建數(shù)據(jù)連接類96.3創(chuàng)建登錄對話框106.4系統(tǒng)查詢管理126.5系統(tǒng)管理模塊247、總結(jié)268、參考文獻26261、概述根據(jù)下述需求陳述，設(shè)計：1、設(shè)計一個“企業(yè)銷售管理系統(tǒng)”的MIS（即管理信息系統(tǒng)）軟件；2、用E-R圖和關(guān)系模型進行數(shù)據(jù)庫分析和設(shè)計； 3、用Delphi 6 / 7 加SQL Server 2000后臺數(shù)據(jù)庫開發(fā)實現(xiàn)。 本題中待開發(fā)的軟件，實現(xiàn)類似MIS系統(tǒng)的功能。與實際的MIS系統(tǒng)不同，本軟件不強調(diào)實用功能，只需要能夠體現(xiàn)SQL Server存儲過程、查詢、游標及觸發(fā)器技術(shù)即可。重點在于數(shù)據(jù)庫及表的創(chuàng)建，ODBC的配置，數(shù)據(jù)庫應(yīng)用組件（Data Module, Data
4、 Source, Dataset, ADOConnection, ADOQuery，ADOTable等）的應(yīng)用。具體需要實現(xiàn)以下功能：A) 登陸界面設(shè)計，正確輸入用戶名、密碼能夠進入系統(tǒng)；B) 能夠?qū)崿F(xiàn)主窗體、子窗體及菜單設(shè)計；具體要求：1實驗環(huán)境 SQL Server 2000（數(shù)據(jù)庫設(shè)計工具） Microsoft Office Visio（E-R圖等畫圖工具）Delphi6 / 7（面向?qū)ο蟮目梢暬幊坦ぞ撸㏄hotoshop（圖形制作工具，可選用）2實驗內(nèi)容和所需時間1）利用 SQL Server 2000 的企業(yè)管理器，創(chuàng)建數(shù)據(jù)庫及相關(guān)表。 2）利用 Visio流程圖軟件，畫出該系統(tǒng)的
5、功能模塊圖、E-R圖3）利用Delphi建立該應(yīng)用程序主窗口界面，并且創(chuàng)建相關(guān)子界面及菜單 4）進一步為應(yīng)用程序配置控件資源，且為每個動作過程編寫相應(yīng)的程序代碼。 5）利用Delphi提供的ADO組件中的ADOConnection 建立應(yīng)用程序同SQL數(shù)據(jù)庫的連接，用其他數(shù)據(jù)庫組件進行數(shù)據(jù)表的操作。接續(xù)完成各功能實現(xiàn)。11引 言 企業(yè)物資銷售信息系統(tǒng)是一個企業(yè)單位不可缺少的部分,它的內(nèi)容對于企業(yè)的決策者和銷售者來說都至關(guān)重要,所以企業(yè)物資銷售信息系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式來銷售，這種銷售方式存在著許多缺點,如:效率低、保密性差,另外時間一
6、長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計算機科學(xué)日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機應(yīng)用的一部分,使用計算機對企業(yè)物資信息進行銷售,具有著手工銷售所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高企業(yè)物資銷售的效率,也是企業(yè)的科學(xué)化、正規(guī)化銷售,與世界接軌的重要條件。 1.2 為什么要開發(fā)一個企業(yè)物資銷售信息系統(tǒng) 計算機已經(jīng)成為我們學(xué)習(xí)和工作的得力助手： 今天，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進步。它
7、已經(jīng)被應(yīng)用于許多領(lǐng)域，計算機之所以如此流行的原因主要有以下幾個方面： 第一 計算機可以代替人工進行許多繁雜的勞動； 第二 計算機可以節(jié)省許多資源； 第三 計算機可以大大的提高人們的工作效率； 第四 計算機可以使敏感文檔更加安全，等等。 2 系統(tǒng)需求分析 所謂系統(tǒng)分析，就是指在整個系統(tǒng)開發(fā)工程中，解決“做什么”的問題，把要解決哪些問題，滿足用戶哪些具體的信息需求調(diào)查分析清楚，從邏輯上或說從信息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進行物理方案設(shè)計，解決怎么辦提供依據(jù)。它是信息開發(fā)系統(tǒng)中的一個重要階段，是建立系統(tǒng)模型的第一步。其核心是目標分析與需求分析，最后提出系統(tǒng)的設(shè)計方案。通過
8、對企業(yè)工作人員的調(diào)查得知，以前的物資銷售辦法，工作繁瑣，工作量大，效率低。因而，建立一套物資銷售信息系統(tǒng)勢在必行。各單位的需求雖然不盡相同，但大概可分為以下幾個方面： 用戶的信息要求：隨時查詢庫存物資狀況，進行庫存物資匯總，對記錄能隨時刪除、插入及恢復(fù). 用戶的處理要求：能隨時增加、刪除，修改每一個庫存物資記錄，并能打印單據(jù)。 對數(shù)據(jù)的安全性、完整性的要求：要保證每個記錄必須完整. 3功能需求分析 系統(tǒng)開發(fā)的總體任務(wù)是實現(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ù)
10、流程圖4.2E-R圖5、邏輯結(jié)構(gòu)設(shè)計轉(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_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)登錄成功后進入系統(tǒng)的主界面，通過主界面可以切換到各個子模塊進行相關(guān)操作，新建窗體form2作為系統(tǒng)主界面的窗體，其界面布局效果圖如下所示。窗體中使用的主控件及屬性設(shè)置如表所示?？丶愋蛯ο髮傩詫傩灾礣buttonButton_add_1caption添加TbuttonButton_select_1caption查詢TpageControlPageControl_MainItems見表TpageControlPageControl_SaleMangementItem客戶信息TbuttonButton_modify_1capt
17、ion修改TlabelLabel1caption客戶編號TeditEdit_Custom_id_1captionTADOQueryADOQuery1ConnectionERSS.mdb系統(tǒng)主界面的是設(shè)置整個系統(tǒng)的功能菜單，通過雙擊PageControl_Main控件可以進行菜單編輯。6.2創(chuàng)建數(shù)據(jù)連接類雙擊下面圖片中的ADO。選擇菜單中的ConnectionString .按鈕！出現(xiàn)對話框單擊Build，選擇好數(shù)據(jù)源后測試，測試成功后便已經(jīng)連接成功！6.3創(chuàng)建登錄對話框在管理系統(tǒng)中，身份驗證是系統(tǒng)進入的必要步驟，新建form1作為登錄對話框，并設(shè)置標題為“用戶登錄”，其界面如圖所示。我們?yōu)榱藢?/p>
18、現(xiàn)密碼輸入三次錯誤將退出系統(tǒng)，用戶單擊“確定”按鈕觸發(fā)OnClicks事件，函數(shù)進行用戶的驗證和狀態(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(密碼錯誤,請重新輸入!); Edit_Password.Text:=; end else begin showmessage(密碼輸錯3次，退出！); applicatio
20、n.Destroy; end; end; End;6.4系統(tǒng)查詢管理系統(tǒng)查詢管理模塊主要用于顧客信息的查詢，添加、修改和刪除，模塊創(chuàng)建時將相關(guān)信息顯示到DBGrid中，而除DBGrid以外的控件內(nèi)容為空，用戶在這個控件中輸入數(shù)據(jù)，單擊“查詢”按鈕可將輸入添加到數(shù)據(jù)表中并顯示在DBGrid中。如果要對其他記錄進行修改和操作，只需要在DBGrid中選中記錄再執(zhí)行相關(guān)操作即可，具體設(shè)計和實現(xiàn)過程如下。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 th
51、enbegin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(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 thenbegin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Zone_
52、information where Zone_Assist_code like %+Edit_Zone_Assist_code_8.Text+%) ; Edit_Zone_Assist_code_8.Text:=; ADOQuery1.Open;end;if Edit_Zone_name_8.Text thenbegin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from Zone_information where Zone_name like %+Edit_Zone_name_8.Text+%) ; E
53、dit_Zone_name_8.Text:=; ADOQuery1.Open;end;if Edit_Zone_director_8.Text thenbegin 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;procedure TForm2.Butt
54、on_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_category_information ); Edit_Prod_cate_id_10.text:=; ADOQuery1.Open; end; if Edit_Prod_cate_id_10.te
55、xt then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * 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
《數(shù)據(jù)庫系統(tǒng)原理》課程設(shè)計報告基于ACCESS數(shù)據(jù)庫的企業(yè)銷售管理系統(tǒng)
