Tag: Delphi预览模式: 普通 | 列表

Delphi与SQL模糊查询

作者:admin  日期:2010-03-16

Delphi代码
  1. 模糊查询  
  2.   
  3.   
  4. 1．用变量进行模糊查询  
  5. 对数据进行模糊查询主要用SQL语句LIKE来实现。该语句放在Where语句的后面，使用标识符“%”、“_”、“[]”、“[^]”对数据进行模糊查询。  
  6. 例如，对姓名为“王”，并且姓名为两个字的学生信息。  
  7. Select * FROM MR_Student where 姓名 like '林_'  
  8. 例如，查询数学成绩在70~79之间的学生信息。  
  9. Select * FROM MR_Student where 数学 like '7[0123456789]'  
  10. 例如，查询除三年级二班的所有学生信息。  
  11. Select * FROM MR_Student where 班级 like '三年[^二]_'  
  12. 例如，查询三年级的所有学生信息。  
  13. Select * FROM MR_Student where 班级like '三*'  
  14. 下面对姓名进行模糊查询，只要在“姓名”文本框中输入名字中的任意一个字，便可以查找相关人员的信息。  
  15. 操作步骤如下：  
  16. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton和TDBGrid等组件。  
  17. （2）主要程序代码如下：  
  18.   with ADOQuery1 do  
  19.   begin  
  20.     close;  
  21.     SQL.Clear;  
  22.     SQL.Add('Select * FROM MR_Student where 姓名 like '+''''+'%'+Trim(edit1.Text)+'%'+'''');  
  23.     open;  
  24.   end;  
  25. 上面的SQL语句也可以写成如下形式：  
  26. SQL.Add('Select * FROM MR_Student where 姓名 like ''%'+Trim(edit1.Text)+'%''');  
  27.   
  28.   
  29. 2．使用参数进行模糊查询  
  30. 在Delphi中进行模糊查询时，可以用TADOQuery组件来向SQL语句中传递参数。  
  31. 其格式为：“Like:参数名”。  
  32. 利用TADOQuery组件的ParamByName方法将值传递给参数。  
  33. * 注意：在Like后面必须加空格。  
  34. 下面用TADOQuery组件进行参数传递，并对数据进行模糊查询。  
  35. 操作步骤如下：  
  36. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton和TDBGrid等组件。  
  37. （2）主要程序代码如下：  
  38.   with ADOQuery1 do  
  39.   begin  
  40.     close;  
  41.     SQL.Clear;  
  42.     SQL.Add('Select * FROM MR_Student where 姓名 like :aa');  
  43.     Parameters.ParamByName('aa').Value:='%'+trim(Edit1.text)+'%';  
  44.     open;  
  45.   end;  
  46.     
  47.     
  48. 3．复杂模糊查询  
  49. 在对信息进行模糊查询的时候，也可以通过逻辑运算符（AND、OR、NOT）插入其他的查询条件来提高查询的速度。  
  50. 下面是模糊查询和其他查询方法相结合而形成的复杂模糊查询。  
  51. 操作步骤如下：  
  52. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton、TComboBox和TDBGrid等组件。  
  53. （2）主要程序代码如下：  
  54.   if CheckBox1.Checked=true then  
  55.    Str := ' and 班级='+''''+ComboBox1.Text+''''  
  56.   else  
  57.    ComboBox1.Enabled := False;  
  58.   with ADOQuery1 do  
  59.   begin  
  60.    close;  
  61.    SQL.Clear;  
  62.    SQL.Add('Select * FROM MR_Student where 姓名 like ''%'+Trim(edit1.Text)+'%'''+Str);  
  63.    open;  
  64.   end;  

Tags: Delphi SQL 模糊 查询

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 39

Delphi与SQL存储过程

作者:admin  日期:2010-03-16

Delphi代码
  1. 存 储 过  程  
  2.   
  3. 1．创建存储过程  
  4. 创建存储过程主要用SQL语句Create PROCEDURE来实现，并用“Exec语句+存储过程名”来执行已创建的存储过程。  
  5. 本示例是用存储过程来执行多表合并的操作。  
  6. 操作步骤如下：  
  7. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton、TEdit和TDBGrid等组件。  
  8. （2）主要程序代码如下：  
  9.   with ADOQuery1 do  
  10.   begin  
  11.     Close;  
  12.     SQL.Clear;  
  13.     SQL.add('create procedure '+Edit1.Text);    //创建存储过程  
  14.     SQl.Add('as ');  
  15.     SQL.Add('select k.学生编号,k.学生姓名,j.外语 FROM tb_stu AS k INNER JOIN tb_mark AS j ON k.学生编号 = j.学生编号 Where (((k.学生编号)=[j].[学生编号]))');  
  16.     ExecSQL;  
  17.     SQL.Clear;  
  18.     SQL.Add('Exec '+Edit1.Text);    //执行存储过程  
  19.     Open;  
  20.   end;  
  21.     
  22.     
  23. 2．对存储过程进行加密  
  24. 在创建存储过程时，可以为存储过程加密，这样用户可以隐藏存储过程的文本，避免其他用户在存储过程属性中查看其语句，主要用WITH ENCRYPTION选项实现。在对存储过程加密前必须对已有的存储过程进行删除。  
  25. 下面用存储过程的WITH ENCRYPTION选项来创建一个加密存储过程。  
  26. 操作步骤如下：  
  27. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton、TEdit、TMemo和TDBGrid等组件。  
  28. （2）主要程序代码如下：  
  29.   with ADOQuery1 do  
  30.   begin  
  31.     close;  
  32.     SQL.Clear;  
  33.     SQL.Add('if EXISTS(Select name FROM sysobjects Where name='+QuotedStr(Trim(Edit1.Text))+' AND type = ''p'')');    //判断存储过程是否存在  
  34.     SQL.Add('Drop PROCEDURE '+Trim(Edit1.Text));    //删除已有的存储过程  
  35.     EXECSQL;  
  36.     close;  
  37.     SQL.Clear;  
  38.     //为存储过程加密  
  39.     SQL.Add('Create PROCEDURE '+Edit1.Text+' WITH ENCRYPTION AS '+Trim(Memo1.Text));  
  40.     EXECSQL;  
  41.   end;  
  42.     
  43.     
  44. 3．用存储过程附加数据库  
  45. 使用存储过程附加数据库可以方便地将没有连接的数据库附加到当前服务器上，只是在附加数据库前先将存储过程所在的数据库以手动方式附加到服务器上。附加数据库主要用系统存储过程sp_attach_db来实现。在存储过程中不可以用占位符N。  
  46. 下面用存储过程将服务器以外的数据库附加到服务器上，只适用于英文数据库名。  
  47. 操作步骤如下：  
  48. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton和TEdit等组件。  
  49. （2）主要程序代码如下：  
  50. 创建一个含有参数的存储过程。  
  51.   with ADOQuery1 do  
  52.   begin  
  53.     close;  
  54.     SQL.Clear;  
  55.     SQL.Add('Create PROCEDURE '+Trim(Edit4.Text));  
  56.     SQL.Add('@Table varchar(20),');  
  57.     SQL.Add('@date varchar(200),');  
  58.     SQL.Add('@LOG varchar(200)');  
  59.     SQL.Add('AS');  
  60.     SQL.Add('EXEC sp_attach_db @dbname=@Table,@filename1=@date,@filename2 =@LOG');  
  61.     EXECSQL;  
  62.   end  
  63. 执行带参数的存储过程。  
  64.   with ADOQuery1 do  
  65.   begin  
  66.     close;  
  67.     SQL.Clear;  
  68.     SQL.Add('if EXISTS(Select name FROM sysobjects Where name='+QuotedStr(Trim(Edit4.Text))+' AND type = ''p'')');    //判断存储过程是否存在  
  69.     //以传参的形式调用存储过程  
  70.     SQL.Add('EXEC '+Trim(Edit4.Text)+' @Table='+QuotedStr(Trim(Edit1.Text))+',@date='+QuotedStr(Trim(Edit2.Text))+ ',@LOG='+QuotedStr(Trim(Edit3.Text)));  
  71.     EXECSQL;  
  72.   end;  
  73.     
  74.     
  75. 4．用存储过程备份数据库  
  76. 备份数据库与附加数据库所用的方法基本相同，只是备份数据库用SQL语句BACKUP DATABASE来实现，而附加数据库则用系统存储过程sp_attach_db来实现。  
  77. 下面利用存储过程对服务器上的任意数据库进行备份。  
  78. 操作步骤如下：  
  79. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton和TEdit等组件。  
  80. （2）主要程序代码如下：  
  81. 创建一个含有参数的存储过程。  
  82.   with ADOQuery1 do  
  83.   begin  
  84.     close;  
  85.     SQL.Clear;  
  86.     SQL.Add('Create PROCEDURE '+Trim(Edit3.Text));  
  87.     SQL.Add('@name varchar(20),');  
  88.     SQL.Add('@way varchar(200)');  
  89.     SQL.Add('AS');  
  90.     SQL.Add('backup database @name to disk=@way');  
  91.     EXECSQL;  
  92.     Showmessage('存储过程'+Edit3.Text+'创建成功。');  
  93.   end  
  94. 执行存储过程备份数据库。  
  95.   with ADOQuery1 do  
  96.   begin  
  97.     close;  
  98.     SQL.Clear;  
  99.     SQL.Add('if EXISTS(Select name FROM sysobjects Where name='+QuotedStr(Trim(Edit3.Text))+' AND type = ''p'')');    //判断存储过程是否存在  
  100.     //以传参的形式调用存储过程  
  101.     SQL.Add('EXEC '+Trim(Edit3.Text)+' @name='+Trim(ComboBox1.Text)+',@way='+QuotedStr(Trim(Edit2.Text)));  
  102.     EXECSQL;  
  103.   end;  

Tags: SQL 存储过程 Delphi

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 34

Delphi与SQL触发器

作者:admin  日期:2010-03-16

Delphi代码
  1. 触发器  
  2.   
  3. 1．利用触发器添加数据  
  4. 用触发器对相关表添加数据时，所添加的记录将存储在系统临时表“inserted”中，可以将该表中的字段信息添加到其他表的相应字段中。在用触发器向其他表添加数据时，应注意表中的字段是否有不为空的记录。  
  5. 下面利用触发器在“tb_Stu”表中添加记录后，在“tb_Mark”表中会自动添加相应的记录。  
  6. 操作步骤如下：  
  7. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton、TEdit和TDBGrid等组件。  
  8. （2）主要程序代码如下：  
  9.   with ADOQuery3 do  
  10.   begin  
  11.     Close;  
  12.     SQL.Clear;  
  13.     SQL.Add('Create TRIGGER '+Edit1.Text+' ON dbo.tb_Stu');  
  14.     SQL.Add('FOR Insert');  
  15.     SQL.Add('AS');  
  16.     SQL.Add('DECLARE @id Int,@name varChar(10)');  
  17.     SQL.Add('Select @id=学生编号,@name=学生姓名  from inserted');  
  18.     SQL.Add('Insert INTO tb_Mark (学生编号,学生姓名,高数,外语,计算机文化基础,马经,数据库管理,数据结构,软件工程) VALUES (@id,@name,0,0,0,0,0,0,0)');  
  19.     EXECSQL;  
  20.   end;  
  21.     
  22.     
  23. 2．利用触发器更新数据  
  24. 在表中更新数据时，将更新前的数据存放在系统临时表“deleted”中，将更新后的数据存放在系统临时表“inserted”中。在触发器中可以根据“deleted”表中的字段对相关表进行查询，并用“inserted”表中的数据修改相关表中的信息。  
  25. 下面利用触发器在“tb_Stu”表中更新记录后，在“tb_Mark”表中会自动更新相关的数据。  
  26. 操作步骤如下：  
  27. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton、TEdit和TDBGrid等组件。  
  28. （2）主要程序代码如下：  
  29.   with ADOQuery3 do  
  30.   begin  
  31.     Close;  
  32.     SQL.Clear;  
  33.     SQL.Add('Create TRIGGER '+Edit1.Text+' ON dbo.tb_Stu');  
  34.     SQL.Add('FOR Update');  
  35.     SQL.Add('AS');  
  36.     SQL.Add('DECLARE @id Int,@name varchar(10)');  
  37.     SQL.Add('select @id=学生编号 from deleted');  
  38.     SQL.Add('select @name=学生姓名 from Inserted');  
  39.     SQL.Add('Update tb_Mark SET 学生姓名=@name Where 学生编号 = @id');  
  40.     EXECSQL;  
  41.   end;  
  42.     
  43.     
  44. 3．利用触发器删除数据  
  45. 在对表中的数据进行删除时，会将删除的记录存入系统临时表“deleted”中，触发器将利用该表中的信息在相关表中进行查询，并删除符合条件的记录。  
  46. * 注意：如果某两个表是一对一的关系，那么触发器应创建在从表中。  
  47. 下面利用触发器在“tb_Stu”表中删除记录后，“tb_Mark”表将自动删除相关的记录。  
  48. 操作步骤如下：  
  49. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton、TEdit和TDBGrid等组件。  
  50. （2）主要程序代码如下：  
  51.   with ADOQuery3 do  
  52.   begin  
  53.     Close;  
  54.     SQL.Clear;  
  55.     SQL.Add('Create TRIGGER '+Edit1.Text+' ON dbo.tb_Stu');  
  56.     SQL.Add('FOR Delete ');  
  57.     SQL.Add('AS');  
  58.     SQL.Add('DECLARE @id Int,@name varchar(10)');  
  59.     SQL.Add('select @id=学生编号,@name=学生姓名 from deleted');  
  60.     SQL.Add('Delete tb_Mark where 学生编号=@id and 学生姓名=@name');  
  61.     EXECSQL;  
  62.   end;  

Tags: Delphi 触发器

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 83