Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Пример вывода информации в MySQL
Goto page Previous  1, 2, 3
 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> БЭСТ-4
View previous topic :: View next topic  
Author Message
Олег Смирнов



Joined: 06 Sep 2004
Posts: 821
Location: Олег Смирнов
Occupation: Раут (поганист-сисадмин)
Interests: Новосибирск
PostPosted: 04 Feb 2005 18:38    Post subject: Reply with quote
alexzt wrote:
но почему-то все забывают, что до сих пор ис][одником для БЭСТ4+ являются программы на клиппере, которые потом перерабатываются harbour.

И я о том же самом! Тут всего-то перешли на другой компилятор - а проблем... А уж как перейдут на другую идеологию... (не нашёл такого стандартного смайлика/крайника )
_________________
С уважением, Олег Р. Смирн
Back to top
View user's profile Send private message
Яков



Joined: 04 Mar 2002
Posts: 618
Location: Яков
Occupation: Экстремальная терапия бизнеса
Interests: Владивосток
PostPosted: 05 Feb 2005 11:09    Post subject: Reply with quote
EugeneT wrote:
такая СУБД в которой ссылочная целостность поддерживается средствами самой СУБД.
Вероятность совершить ошибку при программировании приводящую к нарушению целостности базы существенно меньше. Если схема базы, связь между таблицами жестко прописана в движке, то он ее нарушить не даст. Сколько раз в БЕСТе вы отлавливали висящие несвязанные с другими таблицами строки? Попробуйте в любой мало-мальски продуманной реляционной СУБД (Хоть в пресловутой MS JET) удалить строку имеющую связи со строками в другой таблице.


Целостность данных на уровне СУБД это конечно хорошо.
НО с другой стороны как вспомню
Про "Удалеенные склады", про номенклатуру и партнеров, которых там набивают.
Про всевозможные объединения/разъединения баз.
Про перенос всевозможных справочников из одной базы в другую.

И БЭСТ4 позволяет всё это делать.
И база не рушится, а продолжает работать, и всевозможные проблемы можно устранять уже по ходу дела.

Позволит ли нам всё это "реляционная" СУБД (в вашем понимании)?
Однозначно могу сказать - НЕТ.
И опыт с БЭСТ-ПРО, с его сообщениями о "нарушенна целостность данны" это доказывает.
Back to top
View user's profile Send private message Send e-mail Visit poster's website
itman



Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
PostPosted: 07 Feb 2005 08:10    Post subject: Reply with quote
Quote:
И опыт с БЭСТ-ПРО, с его сообщениями о "нарушенна целостность данны" это доказывает.


И с ИС-ПРО тоже, коллега
Back to top
View user's profile Send private message Send e-mail
EugeneT



Joined: 23 Mar 2004
Posts: 130
Location: Токарев Евгений
Occupation: Класс
Interests: Магнитогорск
PostPosted: 07 Feb 2005 08:35    Post subject: Reply with quote
ЯКОВ wrote:

Про "Удалеенные склады", про номенклатуру и партнеров, которых там набивают.
Про всевозможные объединения/разъединения баз.
Про перенос всевозможных справочников из одной базы в другую.

И БЭСТ4 позволяет всё это делать.
И база не рушится, а продолжает работать, и всевозможные проблемы можно устранять уже по ходу дела.

Позволит ли нам всё это "реляционная" СУБД (в вашем понимании)?
Однозначно могу сказать - НЕТ.
И опыт с БЭСТ-ПРО, с его сообщениями о "нарушенна целостность данны" это доказывает.


Не хочу спорить, продукты отличные от БЕСТ4 не знаю совсем. Но мне думается все вышеперечисленные проблемы, могут вылезти при неправильной постановки задачи и небрежном программировании на любом движке. Я не вызываю на спор касательно, что лучше SQL или DBF. Мне хочеться узнать мнение разработчиков касательно перспектив БЕСТ4х. Может не стоит вылизывать до бесконечности код БЕСТ4 (далеко не безупречный), возможно, будет лучше и ничуть не дороже переписать код с нуля сохранив бизнес-логику программы.
Back to top
View user's profile Send private message
Дениска



Joined: 26 Feb 2002
Posts: 649
PostPosted: 11 Feb 2005 14:53    Post subject: Re: Пример вывода информации в MySQL Reply with quote
itman2 wrote:
Всего лишь пример того, что в старом БЭСТе делалось с "условностями", а в БЭСТ-4+ довольно легко и просто.

Суть задачи: позволить менеджеру по продажам без лишних хлопот поддерживать прайс-лист на WWW-Сервере в актуальном состоянии, используя штатные средства БЭСТ-4+ (остальное, как говорится за кадром )

http://www.bestnet.ru/bank/show.php?pid=83


Что-то у меня не работает. Такое ощущение, что вообще он ничего не делает ...

В архиве не нашел !prices.prg (исходника), который вроде должен лежать в корне БЭСТ-а. Может это причина проблемы?
Back to top
View user's profile Send private message
itman2



Joined: 31 Jan 2005
Posts: 5
Location: Ильин Е.Ю.
Occupation: Нач. отдела ИТ
Interests: Самарская область
PostPosted: 11 Feb 2005 16:16    Post subject: Reply with quote
Для тестирования:
- необходимо иметь доступ к серверу MySQL!
- необходимо внести изменения в ds.bat.
исходник - элементарный.
Пример прайс листа в формате PDF

Code:

function main()
private cDir, aStru, nrec
nrec:= nkolstrok

dbpush()
if mlabel->ocena1>0
cdir:= '.\dbf2sql\price.dbf'
if nnumber=1
aStru := {}
aStru:={{"DATE_SAVE","D",8,0}}
aAdd(aStru,{"TIME_SAVE","C",10,0})
aAdd(aStru,{"SCLAD","C",6,0})
aAdd(aStru,{"GRUP","C",5,0})
aAdd(aStru,{"NNUM","C",13,0})
aAdd(aStru,{"Name","C",60,0})
aAdd(aStru,{"ED","C",5,0})
aAdd(aStru,{"OCENA1","N",19,8})
aAdd(aStru,{"OCENA2","N",19,8})
aAdd(aStru,{"GRUPNAME","C",34,0})
aAdd(aStru,{"marka","C",34,0})
DBCreate(cDir,aStru)
endif
netuse('lprice',cdir)
lprice->(addrec())
lprice->DATE_SAVE   := Date()
lprice->TIME_SAVE   := time()
lprice->SCLAD      := mkart->SCLAD     
lprice->GRUP      := mkart->GRUP   
lprice->NNUM      := mkart->NNUM   
lprice->name      := mlabel->name 
lprice->ed      := mlabel->ed   
lprice->Ocena1      := mlabel->ocena1
lprice->Ocena2      := mlabel->ocena2
lprice->marka      := mlabel->marka
lprice->grupname   := mgrup->name
lprice->(f_dbUnLock())
lprice->(dbCloseArea())
endif
dbpop()
if nnumber=nrec
run expmysql.bat
endif
return
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> БЭСТ-4 All times are GMT + 4 Hours
Goto page Previous  1, 2, 3
Page 3 of 3

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru