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

江南大学太湖学院数据库课程设计江 南 大 学 太 湖 学 院数 据 库 课 程 设 计 报 告课题 基于ACCESS数据库的企业销售管理系统设 计 者 专 业 计算计科学与技术班 级 计科73学 号 0721087 同组成员名单指导老师 评定成绩 _2010年 1 月 8 日课 程 设 计 任 务 书一、课程名称 数据库系统原理 指导教师_ _二、本课程设计题目 基于ACCESS数据库的企业销售管理系统 三、本设计所要达到的目的和要求 1、主题明确，软体开发要有创新性，能体现ACCESS的数据表关联、主键及索引等； 2、用高级语言结合ACCESS数据库进行开发； 3、写出数据库关系模式及相应的数据库表关系图； 4、绘制企业销售管理相应的系统流程图、E-R图等； 5、完成企业销售管理系统登陆界面、销售管理、基础数据、系统设置、系统帮助等各项设计与操作。 四、接受任务学生： 73 班 姓名 韩娟 五、开始及完成时间 自 2009 年 12 月 28 日 至 2010 年 1 月 8 日2009年 12 月 28 日2目录1、概述111引 言11.2 为什么要开发一个企业物资销售信息系统22 系统需求分析23功能需求分析231系统功能的描述332系统功能模块示意图44数据概念结构设计54.1数据流程图54.2E-R图65、逻辑结构设计76、系统界面及主要程序86.1创建程序框架86.2创建数据连接类96.3创建登录对话框106.4系统查询管理126.5系统管理模块247、总结268、参考文献26261、概述根据下述需求陈述，设计：1、设计一个“企业销售管理系统”的MIS（即管理信息系统）软件；2、用E-R图和关系模型进行数据库分析和设计； 3、用Delphi 6 / 7 加SQL Server 2000后台数据库开发实现。 本题中待开发的软件，实现类似MIS系统的功能。与实际的MIS系统不同，本软件不强调实用功能，只需要能够体现SQL Server存储过程、查询、游标及触发器技术即可。重点在于数据库及表的创建，ODBC的配置，数据库应用组件（Data Module, Data Source, Dataset, ADOConnection, ADOQuery，ADOTable等）的应用。具体需要实现以下功能：A) 登陆界面设计，正确输入用户名、密码能够进入系统；B) 能够实现主窗体、子窗体及菜单设计；具体要求：1实验环境 SQL Server 2000（数据库设计工具） Microsoft Office Visio（E-R图等画图工具）Delphi6 / 7（面向对象的可视化编程工具）Photoshop（图形制作工具，可选用）2实验内容和所需时间1）利用 SQL Server 2000 的企业管理器，创建数据库及相关表。 2）利用 Visio流程图软件，画出该系统的功能模块图、E-R图3）利用Delphi建立该应用程序主窗口界面，并且创建相关子界面及菜单 4）进一步为应用程序配置控件资源，且为每个动作过程编写相应的程序代码。 5）利用Delphi提供的ADO组件中的ADOConnection 建立应用程序同SQL数据库的连接，用其他数据库组件进行数据表的操作。接续完成各功能实现。11引 言 企业物资销售信息系统是一个企业单位不可缺少的部分,它的内容对于企业的决策者和销售者来说都至关重要,所以企业物资销售信息系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式来销售，这种销售方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对企业物资信息进行销售,具有着手工销售所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高企业物资销售的效率,也是企业的科学化、正规化销售,与世界接轨的重要条件。 1.2 为什么要开发一个企业物资销售信息系统 计算机已经成为我们学习和工作的得力助手： 今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面： 第一 计算机可以代替人工进行许多繁杂的劳动； 第二 计算机可以节省许多资源； 第三 计算机可以大大的提高人们的工作效率； 第四 计算机可以使敏感文档更加安全，等等。 2 系统需求分析 所谓系统分析，就是指在整个系统开发工程中，解决“做什么”的问题，把要解决哪些问题，满足用户哪些具体的信息需求调查分析清楚，从逻辑上或说从信息处理的功能需求上提出系统的方案，即逻辑模型，为下一阶段进行物理方案设计，解决怎么办提供依据。它是信息开发系统中的一个重要阶段，是建立系统模型的第一步。其核心是目标分析与需求分析，最后提出系统的设计方案。通过对企业工作人员的调查得知，以前的物资销售办法，工作繁琐，工作量大，效率低。因而，建立一套物资销售信息系统势在必行。各单位的需求虽然不尽相同，但大概可分为以下几个方面： 用户的信息要求：随时查询库存物资状况，进行库存物资汇总，对记录能随时删除、插入及恢复. 用户的处理要求：能随时增加、删除，修改每一个库存物资记录，并能打印单据。 对数据的安全性、完整性的要求：要保证每个记录必须完整. 3功能需求分析 系统开发的总体任务是实现物资信息的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。31系统功能的描述下面是企业物资销售信息系统需要完成功能主要有： 有关客户基本信息的输入，包括客户编号、客户名称 、传真号码、建档人和片区名称。 客户基本信息的查询。 客户基本信息的修改。 客户联系人信息的输入。 包括联系人编号、联系人姓名、客户编号、客户名称。客户联系人信息的查询。 客户联系人信息的修改。 合同信息输入。包括合同编号、签定日期、签定人、客户名称、客户联系人、合同金额、产品名称、产品型号、产品数量 合同信息查询。 合同信息修改。 发货记录的输入 包括发货计划编号、合同编号、客户名称、产品名称、产品型号、要货日期、取消量、执行状态 发货记录的查询 发货记录的修改 发票的输入 发票的查询 发票的修改 收款计划的查询与浏览 32系统功能模块示意图4数据概念结构设计4.1数据流程图4.2E-R图5、逻辑结构设计转换成12个关系模式：（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_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_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_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_depart、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_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）其中带下划线的为关系模式关键字（即主码）。6、系统界面及主要程序6.1创建程序框架系统登录成功后进入系统的主界面，通过主界面可以切换到各个子模块进行相关操作，新建窗体form2作为系统主界面的窗体，其界面布局效果图如下所示。窗体中使用的主控件及属性设置如表所示。控件类型对象属性属性值TbuttonButton_add_1caption添加TbuttonButton_select_1caption查询TpageControlPageControl_MainItems见表TpageControlPageControl_SaleMangementItem客户信息TbuttonButton_modify_1caption修改TlabelLabel1caption客户编号TeditEdit_Custom_id_1captionTADOQueryADOQuery1ConnectionERSS.mdb系统主界面的是设置整个系统的功能菜单，通过双击PageControl_Main控件可以进行菜单编辑。6.2创建数据连接类双击下面图片中的ADO。选择菜单中的ConnectionString .按钮！出现对话框单击Build，选择好数据源后测试，测试成功后便已经连接成功！6.3创建登录对话框在管理系统中，身份验证是系统进入的必要步骤，新建form1作为登录对话框，并设置标题为“用户登录”，其界面如图所示。我们为了实现密码输入三次错误将退出系统，用户单击“确定”按钮触发OnClicks事件，函数进行用户的验证和状态栏的设置，添加代码如下：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(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次，退出！); application.Destroy; end; end; End;6.4系统查询管理系统查询管理模块主要用于顾客信息的查询，添加、修改和删除，模块创建时将相关信息显示到DBGrid中，而除DBGrid以外的控件内容为空，用户在这个控件中输入数据，单击“查询”按钮可将输入添加到数据表中并显示在DBGrid中。如果要对其他记录进行修改和操作，只需要在DBGrid中选中记录再执行相关操作即可，具体设计和实现过程如下。procedure TForm2.Button_select_4Click(Sender: TObject);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 ADOQuery1.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 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; 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_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:=; ADOQuery1.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.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 %+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; 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.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; 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; ADOQuery1.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.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 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; 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.Text:=; 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.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_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(select * 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(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=) 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; 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; 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 %+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 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.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(Edit_Person_Assist_code_9.Text=)and (Edit_Person_name_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; 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 thenbegin ADOQuery1.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 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_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_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: 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.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_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+%) ; Edit_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.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_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(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