图书仓库管理系统.doc

很好的图书仓库管理系统 有需要的人可以看看吧 还行 课程设计

[ORDER BY列名 [ASC│DEAC]…]
我在SELECT语句中还使用了大量的保留字和通配符以进行各种各样的条件查询。在系统中有大量的查询按钮，其使用了大量的查询语句，而且这些查询语句大部分使用的是模糊查询，所以大量的使用了模式匹配符LIKE(判断值是否与指定的字符通配格式相符)。在包含LIKE的查询语句中可以使用两个通配符：%（百分号）：与零个或多个字符组成的字符串匹配；_（下划线）：与单个字符匹配。系统中的条件判断往往包含多个条件，这时就需要使用逻辑运算符NOT、AND、OR(用于多条件的逻辑连接)，谓词ALL以及保留字DISTINCT等等。做为SELECT语句还有很多的使用方法，这里就不再叙述。
2.3.3  SQL数据更新
使用数据库的目的是为了有效地管理数据，而数据的插入、删除和修改则是必不可少的一个功能。在本系统中就大量地使用了数据插入、删除和修改这三种操作，现做一个简单地介绍。
●数据插入
往数据库的基本表中插入数据使用的是INSERT语句，其方式有两种：一种是元组值的插入，另一种是查询结果的插入。在本系统中使用的是前一种方式，其句法如下：
INSERT INTO 基本表名（列表名）VALUES（元组值）
●数据删除
往数据库的基本表中删除数据使用的是DELETE语句，其句法如下：
DELETE FROM 基本表名 [WHERE 条件表达式]
在些作一点说明，删除语句实际上是“SELECT * FROM 基本表名 [WHERE 条件表达式]”和DELETE操作的结合，每找到一个元组，就把它删除。此外，DELETE语句只能从一个基本表中删除元组，WHERE子句中条件可以嵌套，也可以是来自几个基本表的复合条件。
●数据修改
当需要修改基本表中元组的某些列值时，可以用UPDATE语句实现，其句法如下：
UPDATE基本表名
SET列名=值表达式[，列名=值表达式…]
[WHERE条件表达式]
在Delphi中使用SQL语句是很方便的，一般来说，都是通过TQuery组件来使用SQL语言的。有一点要进行说明，虽然通过TQuery组件来使用SQL语言很方便，但考虑到自己对不同组件的理解程度、个人习惯以及其它各个方面，在本系统中我采用的是ADO组件来对数据库进行操作。最简单的方法比如在TADOQuery组件的SQL属性中就可以键入SQL语句，至于详细的使用方法在后面进行介绍。


第三章    数据库开发工具
§3.1 Delphi 6.0 简介
Delphi类可以粗略地分成两部分：一部分是组件类，这些组件类通常以某种方式出现在组件面板上，当用户从组件面板上点取一个类的图标后，在程序中就自动生成了该类的对象（非可视组件除外）；另一部分是功能类，这此功能类的对象通常出现在程序代码中，起着不可代替的作用，但是这些功能类在组件面板上是找不到的。在Delphi中，每一个类的祖先都是Tobject类,整个类的层次结构就像一棵倒挂的树，在最顶层的树根即为Tobject类。这样，按照面向对象编程的基本思想，就使得用户可用Tobject类这个类型代替任何其它类的数据类型。实际上在Delphi的类库中，Tobject类派生出了为数相当众多的子类，它们形成了一个庞大的体系，通常情况下，如果不自行开发组件，就不必了解整个类的体系结构，只用到类层次树的叶结点就足够了。
凡是做过程序开发的人都知道从来没有单纯的数据应用程序，也就是说，数据库应用程序必须和用户界面（可以是图形界面，也可以是命令接口）元素相结合，只讲界面或只讲数据库本身都构不成数据库应用程序，因而用Delphi 6.0开发数据库应用程序就隐含着界面开发。Delphi6中的VCL组件可用图3-1来说明。组件在Delphi程序的开发中是最显眼的角色。大家知道，在编写程序时一般都开始于在组件面板上选择组件并定义组件间的相互作用。但也有一些组件不在组件面板上，例如Tform和Tapplication（典型的非可视组件）。组件是Tcomponents派生出来的子类，可以流的形式存放在DFM文件中，具有事件和Publish属性。
窗口组件类是窗口化的可视化组件类，在Delphi的类库中占有最大的份额。在实际编程中，窗口组件类的对象都有句柄，可以接受输入焦点和包含其它组件。
图形组件与窗口组件并列，是另一大类组件。图形组件不是基于窗口的，因而不能有窗口句柄，不能接受输入焦点和包含其它组件。从图8-43中可以看出，图形组件的基类是TgraphicControl,在实际编程中，它们必须寄生于它们的宿主——窗口组件类的对象，由它们的拥有者负责其显示，而且它们还能触发一些和鼠标活动相关的事件。图形控件最典型的例子是Tlabel和TspeedButton。由此可以看出图形组件的功能很弱，有读者会问图形组件的用处何在呢？其实使用图形组件的最大好处在于节省资源，正是因为它们的功能较弱，所以使用的系统资源就要少。在一个应用程序中，如果能在不影响其功能的前提下合理大量地使用图形组件，将会大减少程序对系统资源的消耗。
非可视组件是与可视组件相并列的另一类组件，非可视组件在程序运行中是不可见的（除各种对话框组件之外，事实上有人认为对话框组件不能归入非可视组件，应该是另一种介于可视与非可视之间的组件）。
§3.2 Delphi 6.0 控件
用Delphi6开发数据库应用，重点是和各种数据库组件打交道，当然也要使用其它的一些组件，现在就我在系统设计中所使用的重要组件给与简单介绍。
3.2.1  ADO数据访问组件
ADO数据对象(Active Data Objects)实际是一种提供访问各种数据类型的链接机制。ADO设计为一种极简单的格式，通过ODBC的方法同数据库接口中，可以使用任何一种ODBC数据源，即不止适合于SQL Server、Oracle、Access等数据库应用程序，也适合于Excel表格、文本文件、图形文件和无格式的数据文件。ADO是基于OLE-DB之上的技术，因此ADO通过其内部的属性和方法提供统一的数据访问接口方法。ADO使您的客户端应用程序能够通过OLE DB提供访问和操作在数据库服务器中的数据。ADO支持用于建立C/S和Web的应用程序的主要功能。其主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少。ADO同时具有远程数据服务(RDS)功能，通过RDS可以在一次往返过程中实现将数据从服务器移动到客户端应用程序和Web页、在客户端对数据进行处然后将更新结果返回服务器的操作。
Delphi 6.0继续对Microsoft的ADO访问能力的支持。这种能力是通过一组新组件实现的，这些组件是在企业版的ADO组件页中，在组件面版的ADO页上可以找到这些组件。利用在前面章节提到的TdataSet抽象类，ADO组件可以不通过BDE而直接实现ADO连接。这意味着只需要很少的代码就可以实现该连接并且性能得到提高。
利用ADO数据访问组件，可以只使用ADO结构与数据库取得联系并对其中的数据进行操作，而在这些过程中完全不需要使用BDE。大多数的ADO连接和数据集组件都是与基于BDE的连接和数据集组件相类似的。TADOConnection组件与基于BDE的应用程序中的Tdatabase组件类似。TADOTable与Ttable，TADOQuery与Tquery，以及TADOStoreProc和TstoredProc之间都具有这种类似的对应关系。使用这些ADO组件的方式与我们常使用的数据访问组件（基于BDE）都有许多相同之处。TTADODataSet没有直接的BDE对应组件，但它提供了许多与Ttable和Tquery相同的功能。同样，TADOCommand也没有相对应的BDE组件，它是在Delphi/ADO环境中完成特定功能的组件。Delphi 6.0通过ADO数据集访问组件，可以不借助BDE数据引擎而是通过微软的OLEDB来访问更为广泛的数据库中的数据。ADO数据集访问组件与常用的数据访问组件是并列的关系。
在系统中我主要使用的是ADOTablet和ADOQuery两个组件。
3.2.2  数据控制类DataControl
数据控制类负责数据库数据的显示，并把用户对数据的修改传回。这里的绝大多数组件，如DBText, DBEdit,  DBMemo, DBImage, DBListBox, DBComboBox, DBCheckBox, DBRadioGroup, DBLookupListBox, DBLookupCombox, DBCtrGrid的功能和对应的非数据感知组件相同，如TEdit框，TRadioGroups单选按钮组等，只不过在显示数据库数据时要用而已。
在系统中主要使用数据网格控件DBGrid和数据库导航器控件DBNavigator。
3.2.3  数据访问类DataAccess
数据库应用系统中数据访问是一个首要问题，包括单用户和 C/S系统，都必须联系一些数据库和数据表文件。Delphi 6 提供了专门用于数据访问的基类控件。主要包括数据源控件DataSource、客户数据集控件ClientDataSet、数据集提供器控件DataSetProvider等等。
Tdatabase：当一个基于BDE的数据库应用程序需要一个永久数据库连接时，需要定制向一个数据库服务器的连接时，需要事务控制和特殊的数据库别名时就得用到Tdatabase对象。特别是当连接到一个远程的SQL数据库服务器时，如果要利用BDE进行数据库事务处理，那么，TDatabase对象的威力就体现出来了。在一个应用程序中为每一个数据库连接显示的声明Tdatabase对象要根据需要而定，不是必需的。对一个数据库连接，如果没有显示的声明并实例化TDatabase对象，系统就会产生一个带有默认属性的TDatabase对象。
TdataSource对象用于在DataSet对象（包括Tquery,TstoredProc,Ttable等）和数据感知组件之间提供一个连接的纽带，以便在窗体上显示数据库中的数据，在数据库中导航定位与编辑数据集中的数据。如果一个DataSet对象中的数据想在数据感知组件中显示和修改，它就必须和TdataSource对象相联系。同样，一个数据感知组件如果想和数据源相联系以便显示和操纵数据，就必须以TDataSource对象为中介。
用Delphi6作数据库应用开发概括来说如下：先利用数据存取组件和实际的数据库建立连接，并用Tsession对象和Tdatabase对象管理这些连接。然后以Tdatasource对象为中介，用数据感知组件向用户显示数据库的内容并接受用户的查询和修改等操作。
3.2.4  SQL语言在Delphi中的应用
在Delphi中使用SQL语言非常方便，一般来说，都是通过Tquery组件来使用SQL语言的。可以在TQuery组件的SQL属性中设置SQL语句。设计程序时，在该组件的属性对话框中选择SQL属性，单击带省略号的按钮，就可以打开String List Editor对话框，然后我们就可以在对话框中添加SQL语句。还可以使用Delphi的SQL Builder来自动生成SQL语句，这样可以避免手工编写SQL而可能造成的语法错误。
静态SQL语句在程序设计时便已固定下来，它不包含任何参数和变量。
动态SQL语句，也被称作参数化的语句，在其中间包含着表示字段名或表名的参数，例如下面的语句是一条动态SQL语句： 
Select  *  From  Students  Where StudentCode =: StudentCode;
其中的变量StudentCode便是一个参数变量，它由一个冒号引导，在程序运行过程中，必须要为该参数赋值，该条SQL语句才能正确执行，每次运行应用程序时可以为该参数变量赋予不同的值。为参数赋值有三种方法：
①根据参数在SQL语句中出现的顺序，设置TQuery部件的Params属性值为参数赋值。
②直接根据SQL语句中各参数的名字，调用ParamByName方法来为各参数赋值。
③将TQuery部件的DataSource属性设置为另一个数据源，这样将另一个数据源中与当前TQuery部件的SQL语句中的参数名相匹配的字段值赋给其对应的参数。利用这种方法也能实现所谓的连接查询，创建主要—明细型数据库应用。
在程序运行过程中，要想设置TQuery部件的SQL属性，必须首先调用Close方法，关闭TQuery部件，然后再调用Clear方法清除SQL属性中现存的SQL命令语句， 最后再调用Add方法为SQL属性设置新的SQL命令语句。例如：
Query1.Close {关闭Query1)
Query1.SQL.Clear {清除SQL属性中的SQL命令语句}
Query1.SQL.Add(‘Select * From Students‘);
Query1.SQL.Add(‘ Where Name ="Lucy" ‘);
在为TQuery部件设置SQL属性时调用Close方法总是很安全的，如果TQuery部件已经被关闭了，调用Close方法时不会产生任何影响。在应用程序中为SQL属性设置新的SQL 命令语句时，必须要调用Clear方法以清除SQL属性中现存的SQL命令语句，如果不调用Clear方法，便调用Add方法向SQL属性中设置SQL命令语句，那么新设置的SQL命令语句会追加在现存SQL命令语句后面， 在程序运行时常常会出现出乎意料的查询结果甚至程序无法运行下去。
在这里要特别注意的，一般情况下TQuery部件的SQL属性只能包含一条完整的SQL语句，它不允许被设置成多条SQL语句。当然有些数据库服务器也支持在TQuery部件的SQL属性中设置多条SQL语句，只要数据库服务器允许这样，我们在编程时可以为 SQL 属性设置多条SQL语句。
在为TQuery部件设置完SQL属性的属性值之后，也即编写好适当的SQL程序之后，可以有多种方式来执行SQL程序。
在设计过程中，设置完TQuery部件的SQL属性之后将其Active属性的值置为True， 这样便可以执行SQL属性中的SQL程序，如果应用中有与TQuery部件相连的数据浏览部件( 如TDDGrid TDBEdit等)那么在这些数据浏览部件中会显示SQL程序的执行结果。
在应用程序运行过程中，通过程序调用TQuery部件的Open方法或ExecSQL 方法可以执行其SQL属性中的SQL程序。Open方法和ExecSQL方法是不一样的。Open方法只能用来执行SQL语言的查询语句(Select命令)， 并返回一个查询结果集，而ExecSQL方法还可以用来执行其它常用的SQL语句(如INSERT, UPDATE, DELETE等命令)，例如：
Query1.Open (这样会返回一个查询结果集)
如果调用Open方法，而没有查询结果时，会出错。此时应该调用ExecSQL 方法来代替Open方法。如：
Query1.ExecSQL (没有返回结果)