Add(DataGrid,14699,238,210)
{
 Left=80
 Top=70
 Width=300
 Height=195
 Font=[Arial,8,0,0,1]
 link(Query,61892:Query,[])
}
Add(Hub,29256,112,140)
{
 link(onEvent1,89786:doData,[])
 link(onEvent2,53168:doEvent1,[(163,153)(163,216)])
}
Add(Hub,53168,182,210)
{
 InCount=2
 OutCount=1
 link(onEvent1,14699:doRefresh,[])
}
Add(Button,81531,119,217)
{
 Left=5
 Top=70
 Font=[Arial,8,0,0,1]
 Caption="Refresh"
 link(onClick,53168:doEvent2,[])
}
Add(Button,99133,98,70)
{
 Left=5
 Top=10
 Font=[Arial,8,0,0,1]
 Caption="Open"
 link(onClick,61892:doOpen,[(223,76)(223,125)])
}
Add(DoData,89786,168,140)
{
 link(onEventData,61892:doQuery,[])
 link(Data,36653:Text,[])
}
Add(Edit,36653,168,91)
{
 Left=80
 Top=40
 Width=300
 Height=21
 Font=[Arial,8,0,0,1]
 Text="select * from OTV"
}
Add(Button,71023,56,140)
{
 Left=5
 Top=40
 Font=[Arial,8,0,0,1]
 Caption="Query"
 link(onClick,29256:doEvent1,[])
}
Add(MSSQL,61892,238,119)
{
 link(FileName,3943:Text,[])
}
Add(Edit,3943,238,28)
{
 Left=80
 Top=10
 Width=300
 Height=21
 Font=[Arial,8,0,0,1]
 Text="tst.mdb"
}

procedure CreateSQLBase;
var myADO : TADOQuery;
NameSQLBase,NameSQLTable,NameSQLServer : string;
 
begin
myADO:=TADOQuery.Create(self);
myADO.ConnectionString:='Provider=SQLOLEDB.1;'+
'Integrated Security=SSPI;'+
'Persist Security Info=False;'+
'Data Source='+NameSQLServer;
myADO.SQL.Clear;
myADO.SQL.Text:='CREATE DATABASE '+NameSQLBase;
try
myADO.ExecSQL;
except
ShowMessage('База данных с именем: "'+NameSQLBase+'" - уже существует...');
end;
myADO.Free;
end;
 
Создать таблицу на SQL-сервере:
 
procedure CreateSQLTable;
var myADO : TADOQuery;
NameSQLBase,NameSQLTable,NameSQLServer : string;
 
begin
myADO:=TADOQuery.Create(self);
myADO.ConnectionString:='Provider=SQLOLEDB.1;'+
'Integrated Security=SSPI;'+
'Persist Security Info=False;'+
'Initial Catalog='+NameSQLBase+';'+
'Data Source='+NameSQLServer;
 
myADO.SQL.Clear;
myADO.SQL.Text:='CREATE TABLE NameSQLTable ('+
'[Number] [int] IDENTITY (1,1) NOT NULL ,'+
'[Chek] [Bit] NULL , '+
'[Text1] [varchar] (10) NULL ,'+
'[Text2] [varchar] (20) NULL ,'+
//поля таблицы......
'[Text3] [varchar] (30) NULL ,'+
'[Text4] [varchar] (255) NULL ,'+
'[Chislo] int,'+
'[Comment] memo,'+
' ON [PRIMARY]';
try
myADO.ExecSQL;
except
ShowMessage('Ошибка создания таблицы "'+NameSQLTable+'", или'+#13+#10+
'такая таблица уже существует...');
end;
myADO.Free;
end;

Add(MainForm,2953706,14,189)
{
 Point(onClose)
 link(onCreate,4800683:doOpen,[])
 link(onClose,4800683:doClose,[])
}
Add(DS_SQLite,4800683,63,203)
{
 Name="mydb"
 FileName="Sale.db"
 link(onOpen,9733076:doExec,[])
}
Add(DSC_Exec,9733076,112,203)
{
 SQL="-- Список программ\r\nCREATE TABLE IF NOT EXISTS progs(\r\n  [id] INTEGER PRIMARY KEY,\r\n  [progName] TEXT NOT NULL ,\r\n  [Data] INTEGER,\r\n  [comm] TEXT);\r\n-- Отметки о продаже\r\nCREATE TABLE IF NOT EXISTS sb(\r\n  [id] INTEGER PRIMARY KEY,\r\n  [prog_id] INTEGER, \r\n  [pData] INTEGER);   "
 DSManager="mydb"
}

CREATE DATABASE IF NOT EXISTS `dbname` DEFAULT CHARACTER SET utf8 COLLATE utf8_unicode_ci;