SQL запрос, из edit'a в БД

q5.SQL.Text :='CREATE TABLE Student (код AUTOINCREMENT(1, 1) PRIMARY KEY,'+Ed[0].Text+' text (20),'+Ed[1].Text+' text (20),'+Ed[2].Text+' text (20))';

q5.SQL.Text :='CREATE TABLE успеваемость (код AUTOINCREMENT(1, 1) PRIMARY KEY,'+Ed[0].Text+' text (20),'+Ed[1].Text+' text (20),'+Ed[2].Text+' text (20),'+Ed[3].Text+' text (20),'+Ed[4].Text+' text (20),'+Ed[5].Text+' text (20),'+Ed[6].Text+' text (20),'+Ed[7].Text+' text (20),'+Ed[8].Text+' text (20),'+Ed[9].Text+' text (20),'+Ed[10].Text+' text (20),'+Ed[11].Text+' text (20),'+Ed[12].Text+' text (20),'+Ed[13].Text+' text (20),'+Ed[14].Text+' text (20),'+Ed[15].Text+' text (20))';

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Query1.close;     {Деактивируем запрос в качестве одной из мер предосторожности }
if not Query1.prepared
then
Query1.prepare; {Убедимся что запрос подготовлен}
{Берем значение, введенное пользователем и заменяем
им параметр.}
if edit1.text <> '' {Проверяем на предмет пустого ввода}
then
Query1.ParamByName('DEPT_NO').AsString := edit1.text
else
Begin
Query1.ParamByName('DEPT_NO').AsInteger := 0;
edit1.text := '0';
end;
try        {перехватчик ошибок}
Query1.Open;     {Выполняем запрос и открываем набор данных}
except     {секция обработки ошибок}
On e : EDatabaseError do {e - новый дескриптор ошибки} messageDlg(e.message,
mtError,
[mbOK],0); {показываем свойство message объекта e}
end;     {окончание обработки ошибки}
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
sqlString : string; {здесь хранится SQL-запрос}
fmtStr1,
fmtStr2 : string; {здесь хранится строка, передаваемая для форматирования}
 
 
begin
{ Создание каркаса запроса }
sqlString := 'Select EMP_NO %s from employee where SALARY %s';
 
 
if showSalaryChkBox.checked {Если checkbox Salary отмечен}
then
fmtStr1 := ', SALARY'
else
fmtStr1 := '';
if salaryEdit.text <> '' { Если поле редактирования Salary не пустое }
then
fmtStr2 := salaryEdit.text
else
fmtStr2 := '>0';
 
 
Query1.Close; {Деактивируем запрос в качестве одной из мер предосторожности }
Query1.SQL.Clear; {Стираем любой предыдущий запрос}
Query1.SQL.Add(Format(sqlString,[fmtStr1, fmtStr2]));{Добавляем}
{форматированную строку к свойству SQL}
 
 
try {перехватчик ошибок}
Query1.Open; {Выполняем запрос и открываем набор данных}
except {секция обработки ошибок}
On e : EDatabaseError do {e - новый дескриптор ошибки}
messageDlg(e.message, mtError,[mbOK],0);
{показываем свойство message объекта e}
end; {окончание обработки ошибки}
end;

unit uspevaemost;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, StdCtrls, ADODB;
 
type
  TForm12 = class(TForm)
    btn1: TButton;
    ds1: TClientDataSet;
    q5: TADOQuery;
    lbl1: TLabel;
    edt1: TEdit;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
   
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form12: TForm12; Ed: Array of TEdit;
 
implementation
 
{$R *.dfm}
 uses PASSWORD, MainUnit;
procedure TForm12.btn1Click(Sender: TObject);
 
begin
 
q5.active:=false;
  q5.SQL.Clear;
  q5.SQL.Text :='CREATE TABLE óñïåâàåìîñòü (êîä AUTOINCREMENT(1, 1) PRIMARY KEY,'+Ed[0].Text+' text (20),'+Ed[1].Text+' text (20),'+Ed[2].Text+' text (20), '+Ed[3].Text+' text (20), '+Ed[4].Text+' text (20), '+Ed[5].Text+' text (20) )';
  try
  q5.execSQL;
  except
 end;
 showmessage('òàáëèöà ñîçäàíà');
 form3.q6.SQL.text:='select * from óñïåâàåìîñòü';
 form3.q6.Active:=true;
 form12.Close;
end;
 
 
 
procedure TForm12.btn2Click(Sender: TObject);
var Lab: Array of TLabel;
 
    n,i,a: Integer;
begin
 
  n :=StrToInt(edt1.Text) ;
  SetLength(Lab, n+1);
  SetLength(Ed, n+1);
  for i := 0 to n-1 do
    begin
      Lab[i] := TLabel.Create(Self);
      Lab[i].Parent := Self;
      Lab[i].Left := 10;
      Lab[i].Top := i*30+20;
      Lab[i].Caption := 'Ïðåäìåò ¹'+IntToStr(i+1);
      Ed[i] := TEdit.Create(Self);
      Ed[i].Parent := Self;
      Ed[i].Left := 150;
      Ed[i].Top := i*30+20;
      Ed[i].Text := 'Íàçâàíèå'+IntToStr(i+1);
 
end;
 end;
 
end.