PowerChute
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
procedure pr_CreateSystemTableReport;
begin
q_ := fn_QueryCreate;
try
with q_ do begin
Close;
SQL.Clear;
SQL.Add ('CREATE TABLE ' + rs_NameTableReport + '(');
SQL.Add ('rpt_ID int NOT NULL,');
// SQL.Add ('rpt_Prg int NULL,');
SQL.Add ('rpt_Remark varchar(100) NULL,');
SQL.Add ('rpt_Blob ntext NULL,');
SQL.Add ('PRIMARY KEY (rpt_ID))');
gv_SQLText := SQL.Text;
Execute;
Free;
end; { with q_ }
except
pr_ShowError (rs_StrErrorQuery, '',gv_SQLText);
end;
end;
----------
Хочешь всего и сразу, а получаешь ничего и постепенно. |
|
Всего записей: 520 | Зарегистр. 13-10-2004 | Отправлено: 09:01 09-03-2012 | Исправлено: PowerChute, 09:08 09-03-2012 |
|
