Давно не заглядывал сюда, вот стоит дать народу грелку они ее тут же станут рвать. Вообще надеялся что все сообщения будут перебрасываться на Я-мал, наверное забыл включить опцию.
Так вот рассказываю:
Скрипты хранятся в базе, каждый имеет свое имя и еще некоторые атрибуты. По скрипту же строится меню, т.е. все приложение создается с помощью скриптов.
Ну а они представляют собой нечто вроде такого:

Caption=Глобальные параметры
Query=select * from Global_Params
Style=2
ReadOnly=1
CommandButton=Label=Добавить;CommandName=RunAddGlbParam;
CommandButton=Label=Изменить;CommandName=RunEditGlbParam;
CommandButton=Label=Удалить;CommandName=DeleteConf;
Status=Некоторые параметры применятся после перезагрузки
[Fields]
4
Ид.
PARAM_ID
Наименование
PARAMCAPTION
Имя параметра
PARAMNAME
Значение
PARAMVALUE

ну это просто или вот

Query=select t1.* from DOCS t1, DatesOD t2 where t1.DateOD=t2.DateOD and t2.CurrentFlag=1
Declare=OperSum
NoKeys;
SetValue=OperSum;ReturnQuery=select SUM(OutSum) As OperCount from DOCS t1, DatesOD t2 where t1.OperateCode=17 and t2.CurrentFlag=1 and t1.DateOD=t2.DateOD;
Caption=Документы дня
CommandButton=Action=SaveDB;Label=Сохранить
CommandButton=Action=CancelUpdates;Label=Отменить
CommandButton=Label=Выгрузить;Hint=Выгрузка дня;CommandName=UnloadDay;
CommandButton=Action=Structure;Label=Структура
CommandButton=Action=Print;Label=Печать
CommandButton=Action=Find;Label=Найти
CommandButton=Label=Реестр;CommandName=PrintRep;FontStyle=UnderLine
CommandButton=Label=Изменить;CommandName=EditDoc
CommandButton=Label=Ввод;CommandName=NewDoc;FontStyle=Bold
CommandButton=Action=Close;Label=Закрыть
Style=2
ReadOnly=1
Navigator=1;Buttons=First,Prior,Next,Last,Delete
AddStatus=На сумму;Width=200;
AddStatus=&OperSum;Width=200;
SetStatusText=&OperSum;Status=Last
Events=ScrollEvents=RefreshOpers
[Fields]
10
Идент. Опер.
NumSeq;Width=60
Дата ОД
DateOD;Width=70
Номер опер.
OperateNum;Width=50
Код операции
OperateCode;Width=55
Время опер.
OperateTime;Width=55
Валюта
CurrCode
Сумма
OutSum
ФИО
NameFiz
Документ удост. лич.
Doc;Width=140
Адрес
Adress

А если кому интересно дальше пишите на Я-мал
Tango600@mail.ru

Ну вот например скрипт:
Declare=CountClients;
SetValue=CountClients;ReturnQuery=select count(*) from RusSt_Clients t where upper(t.name)=upper(:NAME) and t.dognumb=:DogNumb and t.acc=:Acc;
if Expression1=&CountClients; Expression2=0; then
ModifyingQuery=insert into RusSt_Clients(name, dognumb, acc, emplid) values('&CFRSClientName', '&CFRSDogNumb', '&CFRSACC', &_ROLEID_);
EndIf
Dispose=CountClients;
Declare=RSInputDateCompact;
SetValue=RSInputDateCompact;ReturnQuery=select first 1 substring('&RSInputDate' from 1 for 2) || substring('&RSInputDate' from 4 for 2) || substring('&RSInputDate' from 7 for 4) F1 from dual
ModifyingQuery=insert into Rus_Reestr(CompactDate, Summ, DogNumb, Name, Acc, EmplID) values('&RSInputDateCompact', &RSSumm, '&CFRSDogNumb', '&CFRSClientName', '&CFRSACC', &_ROLEID_);
Dispose=RSInputDateCompact,RSSumm,CFRSDogNumb,CFRSClientName,CFRSACC;
CloseDialog;

А тем что это не только к Ораклу можно приделать но и к SQL Server и к SYbase и к ...

mcureenab
Вопрос, сколько людей понимает язык твоей системы? Где обучают этому языку? Есть ли средства генерации кода? IDE? Каковы перспективы развития?

Есть IDE с мастерами, не визуальное. Сколько людей? 1 человек, Я. А вот вы поищите похожие примеры, и Вы найдете их превеликое множество, во многих предприятиях используются подобные системы, и кто еще их понимает. А вот тут было про Excel, вот кто еще поймет что там наделали? А потом, более-менее умненький специалист всосет любой язык, вы же учили интуитивно не понятный Ассемблер?