《数据库系统原理》课程设计报告基于ACCESS数据库的企业销售管理系统

《《数据库系统原理》课程设计报告基于ACCESS数据库的企业销售管理系统》由会员分享，可在线阅读，更多相关《《数据库系统原理》课程设计报告基于ACCESS数据库的企业销售管理系统（29页珍藏版）》请在装配图网上搜索。

1、江南大学太湖学院数据库课程设计 江 南 大 学 太 湖 学 院 数 据 库 课 程 设 计 报 告 课题 基于ACCESS数据库的企业销售管理系统 设 计 者 专 业 计算计科学与技术 班 级 计科73 学 号 0721087 同组成员名单 指导老师 评定成绩 ___________________ 2010年 1 月 8 日 课 程 设 计 任 务 书 一、课程名称 《数据库系统原理》 指导教师___ __ 二、本课程设计题目 《基于ACCESS数据库的企

2、业销售管理系统》 三、本设计所要达到的目的和要求 1、主题明确，软体开发要有创新性，能体现ACCESS的数据表关联、主键及索引等； 2、用高级语言结合ACCESS数据库进行开发； 3、写出数据库关系模式及相应的数据库表关系图； 4、绘制企业销售管理相应的系统流程图、E-R图等； 5、完成企业销售管理系统登陆界面、销售管理、基础数据、系统设置、系统帮助等各项设计与操作。 四、接受任务学生：

3、 73 班 姓名 韩娟 五、开始及完成时间 自 2009 年 12 月 28 日 至 2010 年 1 月 8 日 2009年 12 月 28 日 2 目录 1、概述 1 1．1引 言 1 1.2 为什么要开发一个企业物资销售信息系统 2 2 系统需求分析 2 3．功能需求分析 2 3．1系统功能的描述 3 3．2系统功能模块示意图 4 4数据概念结构设计 5 4.1数据流程图 5 4.2E-R图 6 5、逻辑结构设计 7 6、系统界面及

4、主要程序 8 6.1创建程序框架 8 6.2创建数据连接类 9 6.3创建登录对话框 10 6.4系统查询管理 12 6.5系统管理模块 24 7、总结 26 8、参考文献 26 26 1、概述 根据下述需求陈述，设计： 1、设计一个“企业销售管理系统”的MIS（即管理信息系统）软件； 2、用E-R图和关系模型进行数据库分析和设计； 3、用Delphi 6 / 7 加SQL Server 2000后台数据库开发实现。 本题中待开发的软件，实现类似MIS系统的功能。与实际的MIS系统不同，本软件不强调实用功能，只需要能够体现SQL S

5、erver存储过程、查询、游标及触发器技术即可。 重点在于数据库及表的创建，ODBC的配置，数据库应用组件（Data Module, Data Source, Dataset, ADOConnection, ADOQuery，ADOTable等）的应用。 具体需要实现以下功能： A) 登陆界面设计，正确输入用户名、密码能够进入系统； B) 能够实现主窗体、子窗体及菜单设计； 具体要求： 1．实验环境 SQL Server 2000（数据库设计工具） Microsoft Office Visio（E-R图等画图工具） Delphi6 / 7（面向对象的可视化编程工具）

6、 Photoshop（图形制作工具，可选用） 2．实验内容和所需时间 1）利用 SQL Server 2000 的企业管理器，创建数据库及相关表。 2）利用 Visio流程图软件，画出该系统的功能模块图、E-R图 3）利用Delphi建立该应用程序主窗口界面，并且创建相关子界面及菜单 4）进一步为应用程序配置控件资源，且为每个动作过程编写相应的程序代码。 5）利用Delphi提供的ADO组件中的ADOConnection 建立应用程序同SQL数据库的连接，用其他数据库组件进行数据表的操作。接续完成各功能实现。 1．1引 言 企业物资销售信息系统是一个企业

7、单位不可缺少的部分,它的内容对于企业的决策者和销售者来说都至关重要,所以企业物资销售信息系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式来销售，这种销售方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对企业物资信息进行销售,具有着手工销售所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这

8、些优点能够极大地提高企业物资销售的效率,也是企业的科学化、正规化销售,与世界接轨的重要条件。 1.2 为什么要开发一个企业物资销售信息系统 计算机已经成为我们学习和工作的得力助手： 今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面： 第一 计算机可以代替人工进行许多繁杂的劳动； 第二 计算机可以节省许多资源； 第三 计算机可以大大的提高人们的工作效率； 第四 计算机可以使敏感文档更加安全，等等。 2 系统需求分析 所谓系统分析，就是指在整个系统开发工程中，解决“做什么”的问题

9、，把要解决哪些问题，满足用户哪些具体的信息需求调查分析清楚，从逻辑上或说从信息处理的功能需求上提出系统的方案，即逻辑模型，为下一阶段进行物理方案设计，解决怎么办提供依据。它是信息开发系统中的一个重要阶段，是建立系统模型的第一步。其核心是目标分析与需求分析，最后提出系统的设计方案。通过对企业工作人员的调查得知，以前的物资销售办法，工作繁琐，工作量大，效率低。因而，建立一套物资销售信息系统势在必行。各单位的需求虽然不尽相同，但大概可分为以下几个方面： ● 用户的信息要求：随时查询库存物资状况，进行库存物资汇总，对记录能随时删除、插入及恢复. ● 用户的处理要求：能随时增加、删除，修改每一个库存物资

10、记录，并能打印单据。 ● 对数据的安全性、完整性的要求：要保证每个记录必须完整. 3．功能需求分析 系统开发的总体任务是实现物资信息的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。 3．1系统功能的描述 下面是企业物资销售信息系统需要完成功能主要有： ● 有关客户基本信息的输入，包括客户编号、客户名称 、传真号码、建档人和片区名称。 ● 客户基本信息的查询。 ● 客户基本信息的修改。 ● 客户联系人信息的输入。 包括联系人编号、联系人姓名、客户编号、客户名称。 ●客户联系人信息的查询。 ●客户联系人信息的修改。 ●合同信息输入

11、。包括合同编号、签定日期、签定人、客户名称、客户联系人、合同金额、产品名称、产品型号、产品数量 ● 合同信息查询。 ● 合同信息修改。 ● 发货记录的输入 包括发货计划编号、合同编号、客户名称、产品名称、产品型号、要货日期、取消量、执行状态 ● 发货记录的查询 ● 发货记录的修改 ● 发票的输入 ● 发票的查询 ● 发票的修改 ● 收款计划的查询与浏览 3．2系统功能模块示意图 4数据概念结构设计 4.1数据流程图 4.2E-R图 5、逻辑结构设计 转换成12个关系模式： （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） 其中带下划线的为关系模式关键字（即主码）。 6

18、、系统界面及主要程序 6.1创建程序框架 系统登录成功后进入系统的主界面，通过主界面可以切换到各个子模块进行相关操作， 新建窗体form2作为系统主界面的窗体，其界面布局效果图如下所示。 窗体中使用的主控件及属性设置如表所示。 控件类型 对象 属性 属性值 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 系统主界面的是设置整个系统的功能菜单，通过双击PageControl_Main控件可以进行菜单编辑。 6.2创建数据连接类 双击下面图片中的ADO。 选择菜单中的ConnectionString ...按钮！ 出现对话框 单击Build， 选择好数据

20、源后测试，测试成功后便已经连接成功！ 6.3创建登录对话框 在管理系统中，身份验证是系统进入的必要步骤，新建form1作为登录对话框，并设置标题为“用户登录”，其界面如图所示。 我们为了实现密码输入三次错误将退出系统，用户单击“确定”按钮触发OnClicks事件，函数进行用户的验证和状态栏的设置，添加代码如下： 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系统查询管理 系统查询管理模块主要用于顾客信息的查询，添加、修改和删除，模块创建时将相关信息显示到DBGrid中，而除DBGrid以外的控件内容为空，用户在这个控件中输入数据，单击“查询”按钮可将输入添加到数据表中并显示在DBGrid中。如果要对其他记录进行修改和操作，只需要在DBGrid中选中记录再执行相关操作即可，具体设计和实现过程如下。 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