超市销售系统的设计与实现

《超市销售系统的设计与实现》由会员分享，可在线阅读，更多相关《超市销售系统的设计与实现（35页珍藏版）》请在装配图网上搜索。

1、超市销售系统的设计与实现题 目：超市管理系统 指导老师：姓 名： 学 号： 班 级： 时 间： 2011-12-29 目 录1、相关技术介绍21.1、SQL Server 2000 的特性21.2、DELPHI 7 + ADO 介绍32、需求分析33、数据库概念设计63.1 数据库的物理设计63.2 数据库的实现64、数据库逻辑结构设计74.1系统模块图和系统模块功能74.2模块功能说明：75、Delphi界面设计75.1 Delphi的一些简单控件：75.2基本界面的展示，其中会附加上功能与解释：8、结束语与体会14、附录：含代码151、相关技术介绍1.1、SQL Server 2000 的

2、特性Microsoft SQL Server 2000 的特性包括： 1、Internet 集成SQL Server 2000 数据库引擎提供完整的 XML 支持。它还具有构成最大的 Web 站点的数据存储组件所需的可伸缩性、可用性和安全功能。SQL Server 2000 程序设计模型与 Windows DNA 构架集成，用以开发 Web 应用程序，并且 SQL Server 2000 支持 English Query 和 Microsoft 搜索服务等功能，在 Web 应用程序中包含了用户友好的查询和强大的搜索功能。2、可伸缩性和可用性同一个数据库引擎可以在不同的平台上使用，从运行 Mic

3、rosoft Windows 98 的便携式电脑，到运行 Microsoft Windows 2000 数据中心版的大型多处理器服务器。SQL Server 2000 企业版支持联合服务器、索引视图和大型内存支持等功能，使其得以升级到最大 Web 站点所需的性能级别。3、企业级数据库功能SQL Server 2000 关系数据库引擎支持当今苛刻的数据处理环境所需的功能。数据库引擎充分保护数据完整性，同时将管理上千个并发修改数据库的用户的开销减到最小。SQL Server 2000 分布式查询使您得以引用来自不同数据源的数据，就好象这些数据是 SQL Server 2000 数据库的一部分，同时

4、分布式事务支持充分保护任何分布式数据更新的完整性。复制同样使您得以维护多个数据复本，同时确保单独的数据复本保持同步。可将一组数据复制到多个移动的脱接用户，使这些用户自主地工作，然后将他们所做的修改合并回发布服务器。4、易于安装、部署和使用SQL Server 2000 中包括一系列管理和开发工具，这些工具可改进在多个站点上安装、部署、管理和使用 SQL Server 的过程。SQL Server 2000 还支持基于标准的、与 Windows DNA 集成的程序设计模型，使 SQL Server 数据库和数据仓库的使用成为生成强大的可伸缩系统的无缝部分。这些功能使您得以快速交付 SQL Ser

5、ver 应用程序，使客户只需最少的安装和管理开销即可实现这些应用程序。5、数据仓库SQL Server 2000 中包括析取和分析汇总数据以进行联机分析处理 (OLAP) 的工具。SQL Server 中还包括一些工具，可用来直观地设计数据库并通过 English Query 来分析数据1.2、DELPHI 7 + ADO 介绍Delphi是Borland公司研制的新一代可视化开发工具，可在Windows3.x、Windows95、WindowsNT、WindowsXP、Windows Vista等环境下使用。当前，DELPHI 也可以在LINUX平台上开发应用，其在LINUX上的对应产品Ky

6、lix。(1)直接编译生成可执行代码，编译速度快。由于Delphi编译器采用了条件编译和选择链接技术，使用它生成的执行文件更加精炼，运行速度更快。在处理速度和存取服务器方面，Delphi的性能远远高于其他同类产品。 (2)支持将存取规则分别交给客户机或服务器处理的两种方案，而且允许开发人员建立一个简单的部件或部件集合，封装起所有的规则，并独立于服务器和客户机，所有的数据转移通过这些部件来完成。这样，大大减少了对服务器的请求和网络上的数据传输量，提高了应用处理的速度。 (3)提供了许多快速方便的开发方法，使开发人员能用尽可能少的重复性工作完成各种不同的应用。利用项目模板和专家生成器可以很快建立项

7、目的构架，然后根据用户的实际需要逐步完善。 (4)具有可重用性和可扩展性。开发人员不必再对诸如标签、按钮及对话框等Windows的常见部件进行编程。Delphi包含许多可以重复使用的部件，允许用户控制Windows的开发效果。 (5)具有强大的数据存取功能。它的数据处理工具BDE(BorlandDatabaseEngine)是一个标准的中介软件层，可以用来处理当前流行的数据格式，如xBase、Paradox等，也可以通过BDE的SQLLink直接与Sybase、SQLServer、Informix、Oracle等大型数据库连接。 Delphi既可用于开发系统软件，也适合于应用软件的开发。(6)

8、拥有强大的网络开发能力，能够快速的开发B/S应用，它内置的IntraWeb和ExpressWeb使得对于网络的开发效率超过了其他任何的开发工具。2、需求分析2.1系统目标设计要求对商品等信息分类管理，对表中商品信息、入库信息和销售信息、员工信息、会员信息、供应商信息进行系统性的分析、设计，并形成系统设计说明书；2.2系统功能分析该教务信息统计系统需要提供便捷、美观及丰富的界面以便能录入各类数据；动态查询各类信息；能用图形、报表和表格三种形式对教务信息网中的人员的各种情况进行分析和统计；能打印各类统计信息；应用程序采用多文挡界面的风格，尽量用菜单。界面的风格要多样化，但必须满足用户的要求。1、登

9、录权限：l 只限员工登录：需用数据库中的登录名和密码。2、员工权限：l 员工信息录入与浏览：添加员工用户名和密码；l 商品信息查询：根据索引进行信息查询，方便修改编辑；l 销售信息查询：员工可以进行信息查询，方便修改编辑；l 入库信息浏览与录入：经操作后可对信息进行浏览与录入；l 会员信息浏览与录入：经操作后可对信息进行浏览与录入；l 会员充值信息录入：员工可以给会员充值；l 供应商信息浏览：经浏览操作后可对信息进行浏览；2.3数据字典1、员工信息表字段名类型员工编号char（10）员工姓名char（10）密码char(10)性别Char(2)职务char(20)2、会员信息表字段名类型会员卡

10、号Char(10)会员姓名char（10）会员积分char(10)联系电话Char(20)账户余额Float(8)3、会员充值记录表字段名类型会员卡号char（10）充值金额char（10）账户余额Int(4)4、供应商信息表字段名类型供应商编号Char(10)供应商名称char（10）联系人char(10)联系电话Char(10)联系地址Char(10)5、入库信息表字段名类型入库单Char(10)入库日期char（10）商品名称char(10)进货量Char(10)进货单价float(8)库存量Int(4)6、商品信息表字段名类型商品类别Char(10)商品名称char（10）供应商cha

11、r(10)商品规格Char(10)商品进价float(8)商品售价Float(8)库存量Char(10)6、销售信息表字段名类型销售账号Char(10)商品类别char（10）商品名称char(10)商品数量Char(10)销售总额float(8)销售日期Char(10)3、数据库概念设计3.1 数据库的物理设计1、数据库的存放位置： 按要求运用的是SQL Server2000中新建的数据库，即教务信息数据库下建立了相关的表，向表中输入一些数据。2、系统配置：微机一台，window XP系统，Delphi7英文版程序开发开发，数据库DBMS是sql server2000。3、系统索引： 数据索

12、引在各个表中都建立了索引，目的是为了搜索的方便。比如：在学生信息表中除学生编号这个主键外，还设有姓名、性别、家庭地址等索引，其他的表也根据查询要求建立了一些索引，详细情况参照上面的数据字典。3.2 数据库的实现数据备份和恢复方式数据库的备份和恢复是管理人员的权限，在应用程序中管理人员有备份数据库的功能，当管理员登陆时，就可以在应用程序中执行，数据库备份就会备份到应用程序目录下的一个Backup目录的db_schools.bak。数据库的恢复要在DBMS中去完成，在sql server2000中可以把备份文件db_schools.bak还原到应用程序目录下的Database的目录下。其实在DBM

13、S的sql server2000中，数据库管理员可以对数据库备份和恢复。数据库的备份可以是静态备份和动态备份，因为这个教学统计系统是一个小的数据库管理系统，对数据库的备份用静态备份就行了。4、数据库逻辑结构设计4.1系统模块图和系统模块功能超市管理系统统统员工登陆 信息查询 信息修改 信息添加 4.2模块功能说明：1、信息管理模块：实现对员工、商品、供货商、会员等基本信息管理的功能，让管理层对整个超市的人事及商品有详细的了解，这个模块包括“员工管理”、“商品管理”、“供应商管理”、“会员管理”四个功能模块。(1)员工信息管理，这个模块对超市的所有员工的信息进行登记管理，包括添加、修改、删除、查

14、询操作。(2)商品信息管理和供货商信息管理，这两个模块功能同员工信息管理模块。(3)会员管理，对会员进行添加、修改、删除、充值等操作。(4)销售查询，这个模块实现对销售商品、销售金额等的查询功能。 5、Delphi界面设计5.1 Delphi的一些简单控件： 在Delphi中有很多设计界面的控件，用控件和程序的结合可以实现界面和数据库的连接。 一些简单的空间可以实现界面的优化，如添加image控件可以在界面当中插入一些非常精彩的图片，exit控件是用来设置键入信息框架的控件，他与memo控件相似，但是exit中一般是添加比较短的信息输入，如信息，名片编号等，而mome中可以加入比较长的文本字符

15、，如个人简历，个人介绍等等。还有就是button控件，使用设置按钮键的，在界面中运用程序按下按钮就可以实现查询，添加，修改，删除等功能。5.2基本界面的展示，其中会附加上功能与解释：1、员工登陆界面注释：如上面显示的一样，输入用户名和密码点击“确认”就可以进入下一个相应的界面了，如果用户名和密码不正确那么就会显示密码错误或者用户名不存在的提示语。如果想要退出，点击“退出”就可以回到原来的登录选择界面了。2、员工进入系统：主菜单界面含有5个子菜单，单击可以进入。3.商品信息查询4.销售信息查询5.入库信息查询6.会员信息录入与浏览7.会员充值8.供应商信息录入与浏览9.员工信息录入、结束语与体会

16、 经过几周在电脑面前的操作，我实现了Delphi与SQL Server2000的连接于界面的运行，实现了界面上控件的基本功能。由于经验的匮乏，难免有许多考虑不周全的地方，由于时间有限，系统功能实现不够完善，离实际使用也还有一定的距离，需要以后进行不断地补充和完善。如果没有导师的督促指导，同组同学的支持，以及室友的无私帮助，想要完成这个设计是难以想象的。从开始对Delphi一窍不通到后来能够用Delphi的语言来写程序确实很艰苦，这次程序设计让我深刻体会到编程是一项非常艰巨的工作，除了扎实的理论基础，还需要反复的动手实践，运用自己的聪明才智，克服一个个问题难关，但是令我很欣慰的是我的程序最后实现

17、了，还算令自己满意。此次程序设计最大的意义是让我体会到了编程的乐趣，提高了我解决实际问题的能力，在今后的工作生活中，这将是一笔宝贵的财富。、附录：含代码FORM1unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ADODB, DB;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; But

18、ton1: TButton; ADOConnection1: TADOConnection; ADOTable1: TADOTable; ADOQuery1: TADOQuery; DataSource1: TDataSource; Button2: TButton; Label3: TLabel; procedure button1click(sender: tobject); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var For

19、m1: TForm1;implementationuses Unit2;$R *.dfmprocedure tform1.button1click(sender: tobject);beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add(select * from 员工信息表 where 员工姓名= + edit1.Text + and 密码=+edit2.Text + );adoquery1.Open;adoquery1.Open;if adoquery1.RecordCount=1 thenbeginform1.hide;for

20、m2.Show;endelse beginshowmessage(用户名或密码错误);end; end;procedure TForm1.Button2Click(Sender: TObject);begin form1.close;end;End.FORM2unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, jpeg, ExtCtrls;type TForm2 = class(TForm) MainMenu1: T

21、MainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; Image1: TImage; procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N5Cli

22、ck(Sender: TObject); procedure N6Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N10Click(Sender: TObject); private Private declarations public Public declarations end;var Form2: TForm2;implementationuses Unit3, Unit5, Unit4, Unit6, Unit7, Un

23、it8, Unit9, Unit1;$R *.dfmprocedure TForm2.N2Click(Sender: TObject);begin form3.show;end;procedure TForm2.N3Click(Sender: TObject);begin form4.Show;end;procedure TForm2.N7Click(Sender: TObject);begin form5.show;end;procedure TForm2.N5Click(Sender: TObject);begin form6.show;end;procedure TForm2.N6Cli

24、ck(Sender: TObject);begin form7.show;end;procedure TForm2.N8Click(Sender: TObject);begin form8.show;end;procedure TForm2.N9Click(Sender: TObject);begin form9.show;end;procedure TForm2.N10Click(Sender: TObject);begin form1.show; form2.close;end;End.FORM3unit Unit3;interfaceuses Windows, Messages, Sys

25、Utils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;type TForm3 = class(TForm) ADOConnection1: TADOConnection; ADOTable1: TADOTable; ADOQuery1: TADOQuery; DataSource1: TDataSource; Edit1: TEdit; Label1: TLabel; Button1: TButton; Edit2: TEdit; Edit3: TEdi

26、t; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private Private declarations public Public de

27、clarations end;var Form3: TForm3;implementationuses Unit2, Unit1;$R *.dfmprocedure TForm3.Button1Click(Sender: TObject);begin edit2.Text:=adotable1.FieldByName(商品类别).asstring ; edit3.Text:=adotable1.FieldByName(供应商).asstring ; edit4.Text:=adotable1.FieldByName(商品规格).asstring ; edit5.Text:=adotable1.

28、FieldByName(商品进价).asstring ; edit6.Text:=adotable1.FieldByName(商品售价).asstring ; edit7.Text:=adotable1.FieldByName(库存量).asstring ; ADOTable1.Edit; ADOTable1.FieldValues商品类别:=Edit2.Text; ADOTable1.FieldValues供应商:=Edit3.Text; ADOTable1.FieldValues商品规格:=Edit4.Text; ADOTable1.FieldValues商品进价:=Edit5.Text;

29、 ADOTable1.FieldValues商品售价:=Edit6.Text; ADOTable1.FieldValues库存量:=Edit7.Text;end;procedure TForm3.Button2Click(Sender: TObject);begin form3.close;end;End.FORM4unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCt

30、rls, Buttons;type TForm4 = class(TForm) ADOQuery1: TADOQuery; DBGrid1: TDBGrid; Edit1: TEdit; BitBtn1: TBitBtn; Label1: TLabel; DataSource1: TDataSource; ADOConnection1: TADOConnection; Button1: TButton; procedure BitBtn1Click(Sender: TObject); procedure Button1Click(Sender: TObject); private Privat

31、e declarations public Public declarations end;var Form4: TForm4;implementationuses Unit1;$R *.dfmprocedure TForm4.BitBtn1Click(Sender: TObject);var Tno:string;begin Tno:=trim(Edit1.Text); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(SELECT * FROM 销售信息表 WHERE (商品名称 =+Tno+); ADOQuery1

32、.Open; ShowMessage(查询成功);end; end;procedure TForm4.Button1Click(Sender: TObject);begin form4.close;end;End.FORM5unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;type TForm5 = class(TForm) ADOConnection1:

33、TADOConnection; ADOTable1: TADOTable; ADOQuery1: TADOQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Edit1: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Button1: TButton; Edit6: TEdit; ComboBox1: TComboBox; Button

34、2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var Form5: TForm5;implementationuses Unit1;$R *.dfmprocedure TForm5.Button1Click(Sender: TObject);begin adoquery1.Close;adoquery1.SQL.Clear;adoque

35、ry1.SQL.Add(select * from 入库信息表 where 商品类别= + combobox1.text + and 商品名称=+edit3.Text + );adoquery1.Open;adoquery1.Open; if adoquery1.RecordCount=1 thenbegin edit6.Text:=inttostr(strtoint(edit4.Text)+ adotable1.FieldByName(库存量).AsInteger); begin adotable1.Insert;adotable1.fieldbyname(入库单). asstring:=e

36、dit1.text;adotable1.fieldbyname(商品类别). asstring:=combobox1.text;adotable1.fieldbyname(商品名称). asstring:=edit3.text;adotable1.fieldbyname(进货量). asstring:=edit4.text;adotable1.fieldbyname(进货单价). asstring:=edit5.text;adotable1.fieldbyname(库存量). asstring:=edit6.text;edit1.Text:=;combobox1.text:=;edit3.Te

37、xt:=;edit4.Text:=;edit5.Text:=;end;endelsebegin adotable1.Insert;adotable1.fieldbyname(入库单). asstring:=edit1.text;adotable1.fieldbyname(商品类别). asstring:=combobox1.text;adotable1.fieldbyname(商品名称). asstring:=edit3.text;adotable1.fieldbyname(进货量). asstring:=edit4.text;adotable1.fieldbyname(进货单价). asst

38、ring:=edit5.text;adotable1.FieldByName(库存量).AsInteger:=strtoint(edit4.Text)+ 0;edit1.Text:=;combobox1.text:=;edit3.Text:=;edit4.Text:=;edit5.Text:=;end; end;procedure TForm5.Button2Click(Sender: TObject);begin form5.close;end;End.FORM6unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, C

39、lasses, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;type待添加的隐藏文字内容3 TForm6 = class(TForm) ADOConnection1: TADOConnection; ADOTable1: TADOTable; ADOQuery1: TADOQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Ed

40、it3: TEdit; Label3: TLabel; Label4: TLabel; Edit4: TEdit; Edit5: TEdit; Label5: TLabel; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var Form6: TForm6;implementationus

41、es Unit1;$R *.dfmprocedure TForm6.Button1Click(Sender: TObject);begin adotable1.Insert;adotable1.fieldbyname(会员卡号). asstring:=edit1.text;adotable1.fieldbyname(会员姓名). asstring:=edit2.text;adotable1.fieldbyname(会员积分). asstring:=edit3.text;adotable1.fieldbyname(联系电话). asstring:=edit4.text;adotable1.fie

42、ldbyname(账户余额). asstring:=edit5.text;edit1.Text:=;edit2.Text:=;edit3.Text:=;edit4.Text:=;edit5.Text:=;adotable1.Post;end;procedure TForm6.Button2Click(Sender: TObject);begin form6.close;end;End.FORM7unit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, D

43、ialogs, DB, ADODB, Grids, DBGrids, StdCtrls;type TForm7 = class(TForm) DBGrid1: TDBGrid; ADOConnection1: TADOConnection; ADOTable1: TADOTable; ADOQuery1: TADOQuery; DataSource1: TDataSource; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Button1: TButton; Edit4: TEdit; Edit5: TEdit; But

44、ton2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var Form7: TForm7;implementationuses Unit1;$R *.dfmprocedure TForm7.Button1Click(Sender: TObject);begin adoquery1.Close;adoquery1.SQL.Clear;ado

45、query1.SQL.Add(select * from 会员充值记录表 where 会员卡号= + edit1.text + );adoquery1.Open;adoquery1.Open; if adoquery1.RecordCount=1 thenbegin edit5.Text:=inttostr(strtoint(edit2.Text)+ adotable1.FieldByName(账户余额).AsInteger); begin adotable1.Insert;adotable1.fieldbyname(会员卡号). asstring:=edit1.text;adotable1.

46、fieldbyname(充值金额). asstring:=edit2.text;adotable1.fieldbyname(账户余额). asstring:=edit5.text;edit1.Text:=;edit2.Text:=;edit5.Text:=;end;endelsebegin adotable1.Insert;adotable1.fieldbyname(会员卡号). asstring:=edit1.text;adotable1.fieldbyname(充值金额). asstring:=edit2.text;adotable1.fieldbyname(账户余额). AsIntege

47、r:=strtoint(edit2.Text)+0;edit1.Text:=;edit2.Text:=;end;end;procedure TForm7.Button2Click(Sender: TObject);begin form7.close;end;end.FORM8unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls;type TForm8 = cla

48、ss(TForm) ADOConnection1: TADOConnection; ADOTable1: TADOTable; ADOQuery1: TADOQuery; DBGrid1: TDBGrid; DataSource1: TDataSource; Button1: TButton; Button2: TButton; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Label4: TLabel; Edit3: TEdit; Edit4: TEdit; Label5: TLabel

49、; Edit5: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var Form8: TForm8;implementationuses Unit1;$R *.dfmprocedure TForm8.Button1Click(Sender: TObject);begin adotable1.Insert;adotable1.fieldbyname

50、(供应商编号). asstring:=edit1.text;adotable1.fieldbyname(供应商名称). asstring:=edit2.text;adotable1.fieldbyname(联系人). asstring:=edit3.text;adotable1.fieldbyname(联系电话). asstring:=edit4.text;adotable1.fieldbyname(联系地址). asstring:=edit5.text;edit1.Text:=;edit2.Text:=;edit3.Text:=;edit4.Text:=;edit5.Text:=;adota

51、ble1.Post;end;procedure TForm8.Button2Click(Sender: TObject);begin form8.close;end;End.FORM9unit Unit9;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls;type TForm9 = class(TForm) ADOConnection1: TADOConnection; ADOT

52、able1: TADOTable; ADOQuery1: TADOQuery; DBGrid1: TDBGrid; DataSource1: TDataSource; Edit1: TEdit; Label1: TLabel; Label2: TLabel; Edit2: TEdit; Edit3: TEdit; Label3: TLabel; Label4: TLabel; Edit4: TEdit; Label5: TLabel; Edit5: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TBu

53、tton; Button5: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private Private declarations public Public declarations end;var Form9:

54、TForm9;implementationuses Unit1;$R *.dfmprocedure TForm9.Button1Click(Sender: TObject);begin adotable1.Insert;adotable1.fieldbyname(员工编号).asstring:=edit1.text;adotable1.fieldbyname(员工姓名). asstring:=edit2.text;adotable1.fieldbyname(密码). asstring:=edit3.text;adotable1.fieldbyname(性别). asstring:=edit4.

55、text;adotable1.fieldbyname(职务). asstring:=edit5.text; edit1.Text:=;edit2.Text:=;edit3.Text:=;edit4.Text:=;edit5.Text:=;ADOTable1.Post;end;procedure TForm9.Button2Click(Sender: TObject);begin ADOTable1.Delete;end;procedure TForm9.Button3Click(Sender: TObject);begin DBGrid1.visible:=true;end;procedure

56、 TForm9.Button4Click(Sender: TObject);begin DBGrid1.visible:=false;end;procedure TForm9.Button5Click(Sender: TObject);begin form9.close;end;end.参考文献1、 Delphi程序设计 人北京理工大学出版社 孙茜 主编2、Delphi信息管理系统开发 人民邮电出版社 *求是科技 编著*；3、数据库系统及应用SQL Server2000 清华大学出版社 陈明 编著；4、数据库系统概论高等教育出版社 王珊 萨师煊 编著；5、数据库系统教程高等教育出版社施伯乐丁宝康汪卫 编著。