《《數(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ù)庫的企
2、業(yè)銷售管理系統(tǒng)》
三、本設(shè)計所要達(dá)到的目的和要求 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)的數(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é)生：
3、 73 班 姓名 韓娟
五、開始及完成時間 自 2009 年 12 月 28 日
至 2010 年 1 月 8 日
2009年 12 月 28 日
2
目錄
1、概述 1
1．1引 言 1
1.2 為什么要開發(fā)一個企業(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è)計 5
4.1數(shù)據(jù)流程圖 5
4.2E-R圖 6
5、邏輯結(jié)構(gòu)設(shè)計 7
6、系統(tǒng)界面及
4、主要程序 8
6.1創(chuàng)建程序框架 8
6.2創(chuàng)建數(shù)據(jù)連接類 9
6.3創(chuàng)建登錄對話框 10
6.4系統(tǒng)查詢管理 12
6.5系統(tǒng)管理模塊 24
7、總結(jié) 26
8、參考文獻 26
26
1、概述
根據(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 S
5、erver存儲過程、查詢、游標(biāo)及觸發(fā)器技術(shù)即可。
重點在于數(shù)據(jù)庫及表的創(chuàng)建，ODBC的配置，數(shù)據(jù)庫應(yīng)用組件（Data Module, Data 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ū)ο蟮目梢暬幊坦ぞ撸?
6、
Photoshop（圖形制作工具，可選用）
2．實驗內(nèi)容和所需時間
1）利用 SQL Server 2000 的企業(yè)管理器，創(chuàng)建數(shù)據(jù)庫及相關(guān)表。 2）利用 Visio流程圖軟件，畫出該系統(tǒng)的功能模塊圖、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)。
1．1引 言
企業(yè)物資銷售信息系統(tǒng)是一個企業(yè)
7、單位不可缺少的部分,它的內(nèi)容對于企業(yè)的決策者和銷售者來說都至關(guān)重要,所以企業(yè)物資銷售信息系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式來銷售，這種銷售方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計算機科學(xué)日漸成熟,其強大的功能已為人們深刻認(rèn)識,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機應(yīng)用的一部分,使用計算機對企業(yè)物資信息進行銷售,具有著手工銷售所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這
8、些優(yōu)點能夠極大地提高企業(yè)物資銷售的效率,也是企業(yè)的科學(xué)化、正規(guī)化銷售,與世界接軌的重要條件。
1.2 為什么要開發(fā)一個企業(yè)物資銷售信息系統(tǒng)
計算機已經(jīng)成為我們學(xué)習(xí)和工作的得力助手：
今天，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計算機之所以如此流行的原因主要有以下幾個方面：
第一 計算機可以代替人工進行許多繁雜的勞動；
第二 計算機可以節(jié)省許多資源；
第三 計算機可以大大的提高人們的工作效率；
第四 計算機可以使敏感文檔更加安全，等等。
2 系統(tǒng)需求分析
所謂系統(tǒng)分析，就是指在整個系統(tǒng)開發(fā)工程中，解決“做什么”的問題
9、，把要解決哪些問題，滿足用戶哪些具體的信息需求調(diào)查分析清楚，從邏輯上或說從信息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進行物理方案設(shè)計，解決怎么辦提供依據(jù)。它是信息開發(fā)系統(tǒng)中的一個重要階段，是建立系統(tǒng)模型的第一步。其核心是目標(biāo)分析與需求分析，最后提出系統(tǒng)的設(shè)計方案。通過對企業(yè)工作人員的調(diào)查得知，以前的物資銷售辦法，工作繁瑣，工作量大，效率低。因而，建立一套物資銷售信息系統(tǒng)勢在必行。各單位的需求雖然不盡相同，但大概可分為以下幾個方面： ● 用戶的信息要求：隨時查詢庫存物資狀況，進行庫存物資匯總，對記錄能隨時刪除、插入及恢復(fù). ● 用戶的處理要求：能隨時增加、刪除，修改每一個庫存物資
10、記錄，并能打印單據(jù)。 ● 對數(shù)據(jù)的安全性、完整性的要求：要保證每個記錄必須完整.
3．功能需求分析
系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)物資信息的系統(tǒng)化、規(guī)范化和自動化。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成。
3．1系統(tǒng)功能的描述
下面是企業(yè)物資銷售信息系統(tǒng)需要完成功能主要有：
● 有關(guān)客戶基本信息的輸入，包括客戶編號、客戶名稱 、傳真號碼、建檔人和片區(qū)名稱。
● 客戶基本信息的查詢。
● 客戶基本信息的修改。
● 客戶聯(lián)系人信息的輸入。 包括聯(lián)系人編號、聯(lián)系人姓名、客戶編號、客戶名稱。
●客戶聯(lián)系人信息的查詢。
●客戶聯(lián)系人信息的修改。
●合同信息輸入
11、。包括合同編號、簽定日期、簽定人、客戶名稱、客戶聯(lián)系人、合同金額、產(chǎn)品名稱、產(chǎn)品型號、產(chǎn)品數(shù)量
● 合同信息查詢。
● 合同信息修改。
● 發(fā)貨記錄的輸入 包括發(fā)貨計劃編號、合同編號、客戶名稱、產(chǎn)品名稱、產(chǎn)品型號、要貨日期、取消量、執(zhí)行狀態(tài)
● 發(fā)貨記錄的查詢
● 發(fā)貨記錄的修改
● 發(fā)票的輸入
● 發(fā)票的查詢
● 發(fā)票的修改
● 收款計劃的查詢與瀏覽
3．2系統(tǒng)功能模塊示意圖
4數(shù)據(jù)概念結(jié)構(gòu)設(shè)計
4.1數(shù)據(jù)流程圖
4.2E-R圖
5、邏輯結(jié)構(gòu)設(shè)計
轉(zhuǎn)換成12個關(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)登錄成功后進入系統(tǒng)的主界面，通過主界面可以切換到各個子模塊進行相關(guān)操作，
新建窗體form2作為系統(tǒng)主界面的窗體，其界面布局效果圖如下所示。
窗體中使用的主控件及屬性設(shè)置如表所示。
控件類型
對象
屬性
屬性值
Tbutton
Button_add_1
caption
添加
Tbutton
Button_select_1
caption
查詢
TpageControl
PageControl_Main
Items
見表
TpageControl
PageControl_SaleMangement
I
19、tem
客戶信息
Tbutton
Button_modify_1
caption
修改
Tlabel
Label1
caption
客戶編號
Tedit
Edit_Custom_id_1
caption
—
TADOQuery
ADOQuery1
Connection
ERSS.mdb
系統(tǒng)主界面的是設(shè)置整個系統(tǒng)的功能菜單，通過雙擊PageControl_Main控件可以進行菜單編輯。
6.2創(chuàng)建數(shù)據(jù)連接類
雙擊下面圖片中的ADO。
選擇菜單中的ConnectionString ...按鈕！
出現(xiàn)對話框
單擊Build，
選擇好數(shù)據(jù)
20、源后測試，測試成功后便已經(jīng)連接成功！
6.3創(chuàng)建登錄對話框
在管理系統(tǒng)中，身份驗證是系統(tǒng)進入的必要步驟，新建form1作為登錄對話框，并設(shè)置標(biāo)題為“用戶登錄”，其界面如圖所示。
我們?yōu)榱藢崿F(xiàn)密碼輸入三次錯誤將退出系統(tǒng)，用戶單擊“確定”按鈕觸發(fā)OnClicks事件，函數(shù)進行用戶的驗證和狀態(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(密碼錯誤,請重新輸入!);
Edit_Password.Text:=;
end
else
begin
showmessage(密碼輸錯3次
23、，退出！);
application.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: 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
《數(shù)據(jù)庫系統(tǒng)原理》課程設(shè)計報告基于ACCESS數(shù)據(jù)庫的企業(yè)銷售管理系統(tǒng)
