§
数据控制类负责显示从后台数据库读取库数据，并把用户对数据的修改通过所关联的Datasouce控件通知相应的数据集控件。这里的绝大多数组件，如DBText, DBEdit, DBMemo, DBImage, DBListBox, DBComboBox, DBCheckBox, DBRadioGroup, DBLookupListBox, DBLookupCombox, DBCtrGrid的功能和对应的非数据感知组件相同，如TEdit框，TRadioGroups单选按钮组等，只不过在显示数据库数据时要用而已。在系统中主要使用数据网格控件DBGrid。
§
在Delphi中使用SQL语言非常方便，一般来说，可以使用TADOquery组件来向后台数据库调用SQL。可以在TADOQuery组件的SQL属性中设置SQL语句。设计程序时，在该组件的属性对话框中选择SQL属性，单击带省略号的按钮，就可以打开String List Editor对话框，然后就可以在对话框中添加SQL语句。还可以使用Delphi的SQL Builder来自动生成SQL语句，这样可以避免手工编写SQL而可能造成的语法错误。静态SQL语句在程序设计时便已固定下来，它不包含任何参数和变量。动态SQL语句，也被称作参数化的语句，在其中间包含着表示字段名或表名的参数，例如下面的语句是一条动态SQL语句：
Select * From Students Where StudentCode =: StudentCode;
其中的变量StudentCode便是一个参数变量，它由一个冒号引导，在程序运行过程中，必须要为该参数赋值，该条SQL语句才能正确执行，每次运行应用程序时可以为该参数变量赋予不同的值。为参数赋值有三种方法：
①根据参数在SQL语句中出现的顺序，设置TADOQuery部件的Params属性值为参数赋值。
②直接根据SQL语句中各参数的名字，调用ParamByName方法来为各参数赋值。
③将TADOQuery部件的DataSource属性设置为另一个数据源，这样将另一个数据源中与当前TADOQuery部件的SQL语句中的参数名相匹配的字段值赋给其对应的参数。利用这种方法也能实现所谓的连接查询，创建主要—明细型数据库应用。在程序运行过程中，要想设置TADOQuery部件的SQL属性，必须首先调用Close方法，关闭TADOQuery部件，然后再调用Clear方法清除SQL属性中现存的SQL命令语句， 最后再调用Add方法为SQL属性设置新的SQL命令语句。例如：
ADOQuery1.Close; {关闭ADOQuery1}
ADOQuery1.SQL.Clear ;{清除SQL属性中的SQL命令语句}
ADOQuery1.SQL.Add;{'Select * From Students Where Name ="Lucy" '};
在为TADOQuery部件设置SQL属性时调用Close方法总是很安全的，如果TADOQuery部件已经被关闭了，调用Close方法时不会产生任何影响。在应用程序中为SQL属性设置新的SQL 命令语句时，必须要调用Clear方法以清除SQL属性中现存的SQL命令语句，如果不调用Clear方法，便调用Add方法向SQL属性中设置SQL命令语句，那么新设置的SQL命令语句会追加在现存SQL命令语句后面， 在程序运行时常常会出现出乎意料的查询结果甚至程序无法运行下去。在这里要特别注意的，一般情况下TADOQuery部件的SQL属性只能包含一条完整的SQL语句，它不允许被设置成多条SQL语句。当然有些数据库服务器也支持在TADOQuery部件的SQL属性中设置多条SQL语句，只要数据库服务器允许这样，在编程时可以为 SQL 属性设置多条SQL语句。在为TADOQuery部件设置完SQL属性的属性值之后，也即编写好适当的SQL程序之后，可以有多种方式来执行SQL程序。在设计过程中，设置完TADOQuery部件的SQL属性之后将其Active属性的值置为True， 这样便可以执行SQL属性中的SQL程序，如果应用中有与TADOQuery部件相连的数据浏览部件( 如TDDGrid TDBEdit等)那么在这些数据浏览部件中会显示SQL程序的执行结果。在应用程序运行过程中，通过程序调用TADOQuery部件的Open方法或ExecSQL 方法可以执行其SQL属性中的SQL程序。Open方法和ExecSQL方法是不一样的。Open方法只能用来执行SQL语言的查询语句(Select命令)， 并返回一个查询结果集，而ExecSQL方法还可以用来执行其它常用的SQL语句(如INSERT, UPDATE, DELETE等命令)，例如：
ADOQuery1.Open;{这样会返回一个查询结果集}
如果调用Open方法，而没有查询结果时，会出错。此时应该调用ExecSQL 方法来代替Open方法。如：
ADOQuery1.ExecSQL;{没有返回结果}
对于这种情况应当用Try…Except模块来设计程序。在 Try 部分调用Open方法，而在Except部分调用ExceSQL方法，这样才能保证程序的正确运行。Delphi中用ADOQuery来使用SQL语句同样十分方便。在ADOQuery组件中首先通过ConnectionString属性值来联接数据源，然后就通过双击SQL属性值来写入SQL语句。在Delphi中调用数据库，就可以调用ADOQuery组件，通过修改其中的SQL属性中的SQL语句来实现对数据库的各项操作。值得注意的是，ADOQuery组件只有在激活的情况下才可以被正确地使用，这样就提出了一个问题，也就是说，在每次修改ADOQuery组件的SQL属性时都必须先行进行关闭，待清除掉SQL中所有的SQL语句后才可以添加新的SQL语句。而且，在每一次修改完成以后，还应该记得重新将ADOQuery激活。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>