Delphi连接SQL Server 2000
一、在Delphi7中连接MS SQL Server 2000的方法。
刚开始时界面如下：添加4个控件。
设置控件属性过程：
1、ADOConnection1设置
1）双击ADOConnection1，进行设置连接字符串（作用是：选取连接驱动方式和连接的数据库设置）。过程如下图所示：
2、ADOQuery1设置：
1）ADOQuery1.connection属性为ADOConnection1;
2）ADOQuery1.SQL属性为select student.sno,sname,cname,grade from student,sc,course where student.sno=sc.sno and course.cno=sc.cno
3）ADOQuery1.Active设置为TRUE。
3、DataSource1设置
DataSet属性为ADOQuery1
4、DBGrid1设置
DataSource属性设置为DataSource1.
效果图：
二、通过Delphi7进行设计SQL查询的界面和程序实现。
1、界面设计
添加Edit，Button和Label控件，如图摆放和设置基本属性。
2、在BitBtn1的Click事件内完成程序。（Edit1和Edit2的综合查询，共4种情况）
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
SqlStr:String;
begin
i:=0;
if edit1.Text<>'' then
i:=i+1;
if edit2.Text<>'' then
i:=i+2;
case i of
0:
begin
SqlStr:='select student.sno,sname,cname,grade from student,sc,course '
+'where student.sno=sc.sno and course.cno=sc.cno ';
adoquery1.Close; //关闭ADOQuery1，以便于进行SQL语句更新
adoquery1.SQL.Clear; //清空SQL语句
adoquery1.SQL.Add(sqlStr); //添加新的SQL
adoquery1.Open; //新SQL有效
end;
1:
begin
SqlStr:='select student.sno,sname,cname,grade from student,sc,course '
+'where student.sno=sc.sno and course.cno=sc.cno and sname='''+edit1.Text+'''';
adoquery1.Close; //关闭ADOQuery1，以便于进行SQL语句更新
adoquery1.SQL.Clear; //清空SQL语句
adoquery1.SQL.Add(sqlStr); //添加新的SQL
adoquery1.Open; //新SQL有效
end;
2:
begin
SqlStr:='select student.sno,sname,cname,grade from student,sc,course '
+'where student.sno=sc.sno and course.cno=sc.cno and cname='''+edit2.Text+'''';
adoquery1.Close;
相关文档：
1.创建表
(1)用Create Table 命令创建表
语法:
Create Table tabl_name
({
}column_name As computed_column_expression
}
}[，...n]
)
[On {fiegroup | Default}]
[Textimage_On {fiegroup | Default}]
例子:
打开cust数据库，创建一个表，该表包含了学生的有关信息，即有学号、姓名、性别、出生� ......
/*
select *,dbo.getDeptTree(id) as DeptTree from sysdept
递归函数
*/
CREATE function getDeptTree(@NodeId int)
returns varchar(8000)
as
begin
declare @ret varchar(8000),@ParentId int,@len int
set @len = 0
&nb ......
在主界面的implementation {$R *.dfm} 下放入以下代码：
procedure PatchInt3;
var
NOP: Byte;
NTDLL: THandle;
BytesWritten: DWORD;
Address: Pointer;
begin
if Win32Platform <> VER_PLATFORM_WIN32_NT then
Exit;
NTDLL := GetModuleHandle('NTDLL.DLL');
if NT ......
表的建立
关系数据库的主要特点之一就是用表的方式组织数据。表是SQL语言存放数据、查找数据以及更新数据的基本数据结构。在SQL语言中，表有严格的定义，它是一种二维表，对于这种表有如下规定：
1)每一张表都有一个名字，通常称为表名或关系名。表名必须以字母开头，最大长度为30个字符。
2)一张表可以由若干列组成� ......
SQL注入攻击是黑客对数据库进行攻击的常用手段之一。随着B/S模式应用开发的发展，使用这种模式编写应用程序的程序员也越来越多。但是由于程序员的水平及经验也参差不齐，相当大一部分程序员在编写代码的时候，没有对用户输入数据的合法性进行判断，使应用程序存在安全隐患。用户可以提交一段数据库查询代码，根据程序 ......
