Delphi创建SQLserver数据库视图的例子，使用create View语句来生成视图，当然本程序创建好视图后，也可删除视图，下面是详细的代码：
//创建一个视图：
procedure TForm1.Button1Click(Sender: TObject);
begin
try
with ADOquery1 do
begin
Close;
SQL.clear;
SQL.add('create View ' Edit1.Text);
SQl.Add('as ');
SQL.Add(' Select * from T_dia_spxx');
ExecSQL;
SQL.Clear;
SQL.Add('Select * from ' Edit1.Text);
Open;
ShowMessage('视图创建' Edit1.Text '成功');
end;
except
showmessage('可能视图已存在');
end;
end;
//删除一个视图：
procedure TForm1.Button2Click(Sender: TObject);
begin
with ADOquery1 do
begin
Close;
SQL.clear;
SQL.add('Drop view ' Edit1.Text);
ExecSQL;
end;
end;
