Продаю исходные коды комплекса

← →
aktuba (2007-06-14 20:50) [80]

Класс!!! У меня тоже много исходников - могу продать =))))))

← →
keymaster © (2007-06-14 21:36) [81]

> Класс!!! У меня тоже много исходников - могу продать =))))))

по 100k$?

← →
MsGuns © (2007-06-14 22:18) [82]

А смешного-то тут маловато будет.
Я своих за фокусы, подобные [26],[29],[36], конкретно наказываю.
Деньгой.

← →
Углук © (2007-06-14 23:37) [83]

Чего вы все накинулись на человека?Тот факт, что проект после 90-ста человек работает, говорит о том, что он имеет право на жизнь. Вы же сами 80% лучше не напишете (уверен на 70% :)

← →
Углук © (2007-06-14 23:40) [84]

Хотя с другой стороны, одиозность заглавного поста возвращает меня к мысли, что это банальный развод, с целью обнажить шельмующий лик рядового форумчанина

← →
IMHO © (2007-06-14 23:44) [85]

> slPhoto := TStringList.Create;
> slPhoto.Add(ds.DataSet.FieldByName("Photo").AsString);
> slPhoto.SaveToFile(sTMP);
> Zimg.Picture.LoadFromFile(sTMP);

Я не понимаю, как эта фигня вообще может работать...

← →
IMHO © (2007-06-14 23:46) [86]

А может, чел просто выставил свой код на порку и теперь собирает бесплатный фидбак и бесплатные советы.

← →
Углук © (2007-06-15 00:07) [87]

> IMHO © (14.06.07 23:44) [85]

Я тоже не понимаю, как этот код работает. Однако ж никто из "мудрецов" не отметил этого до Вашего поста.

← →
MsGuns © (2007-06-15 00:27) [88]

>Углук © (15.06.07 00:07) [87]
>Однако ж никто из "мудрецов" не отметил этого до Вашего поста.

А что ж там отмечать, если код писал человек, не понимающий того, ЧТО делает.

Аргументы ?

Несколько примеров из [26]

const QuerySQL = "SELECT * FROM uv_RfPerson";

Зачем тащится вся таблица ?

procedure TfrmRfPerson.DBGridCellClick(Column: TColumn); begin sbInfo.Panels[0].Text := "Запись "+ IntToStr(ds.DataSet.RecNo) + " из "+ IntToStr(ds.DataSet.RecordCount); end;

Зачем "дергать" датасет и статусбар при ЛЮБОМ щелчке на сетке ? Будет ли это работать при пустом датасете ? И вообще ощущение, что код просто спионерен и использован бездумно.

procedure TfrmRfPerson.AppMessage(var Msg: TMsg; var Handled: Boolean); var i: SmallInt; begin {Mouse wheel behaves strangely with dgbgrids - this proc sorts this out} if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN; Msg.lParam := 0; i := HiWord(Msg.wParam); if i > 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN; Handled := False; end; end;

Это вообще песня. Грид уговариваривается "слушаться" мышиного колеса куда менее витиевато и куда более надежно.

procedure TfrmRfPerson.DBGridDblClick(Sender: TObject); begin if tbnEdit.Enabled then tbnEdit.OnClick(nil); end;

Для контекстного переключения элементов управления (не только тулбатонов) значительно удобнее и ПРАВИЛЬНЕЕ пользоваться механизмом TAction, централизующим это самое переключение, а не переключение собственно кнопок и менюшек.

Это только делфи. О БД ибизнес-логике вообще речи нет. Судя, по шедевру

QuerySQL := "DECLARE @nResult INT "+ "EXECUTE @nResult = up_DeleteRfPerson "+ IntToStr(nID)+ " SELECT @nResult RESULT";

там тоже поработали "мастера"

Короче, ИМХО, обсуждать нечего. Это либо провокация, либо приступ самолюбования программиста-первогодка.

← →
jack128 © (2007-06-15 00:35) [89]

IMHO © (14.06.07 23:44) [85]

Я не понимаю, как эта фигня вообще может работать...

Легко и непренужденно. А почему он не должен работать?

← →
Панкратов (2007-06-15 01:17) [90]

if MessageDlg("Вы уверены, что хотите удалить выбранную запись?", mtConfirmation,mbYesNo,0) = idNo then exit;

А если нажать на крестик или ALT+F4 ?

← →
IMHO © (2007-06-15 01:32) [91]

> jack128 © (15.06.07 00:35) [89]
>
> IMHO © (14.06.07 23:44) [85]
>
> Я не понимаю, как эта фигня вообще может работать...
>
> Легко и непренужденно. А почему он не должен работать?

Легко и непринужденно?

← →
Alx2 © (2007-06-15 02:41) [92]

>Углук © (15.06.07 00:07)

>Я тоже не понимаю, как этот код работает. Однако ж никто из "мудрецов"
>не отметил этого до Вашего поста.

Да-да-да... Так предосудительно, что многие проигнорировали свою святую обязанность в подобном дерьме покопаться. Совести у людей нет.

← →
Бакук © (2007-06-15 02:53) [93]

> slPhoto := TStringList.Create;
> slPhoto.Add(ds.DataSet.FieldByName("Photo").AsString);
> slPhoto.SaveToFile(sTMP);
> Zimg.Picture.LoadFromFile(sTMP);
======
Получили имя файла, загрузили его в Bitmap. Что не так? Естественно, что много ньюансов, но он работает :))

← →
Углук © (2007-06-15 02:56) [94]

Обязанность одна - соблюдать этические нормы при общении.
Но известно, что резвиться за счет чужой неопытности (и возможно дурости) очень легко. Да, код отстойный. Наиболее наглядно доказал
это MsGuns © (15.06.07 00:27) [88]
А вообще, чего я тут распинаюсь???
Придет автор топика, вот пусть он пинки и получает!

← →
Alx2 © (2007-06-15 02:59) [95]

>Углук ©

В очередной раз убеждаюсь, Вы - настоящий Человек!

← →
IMHO © (2007-06-15 03:20) [96]

> Бакук © (15.06.07 02:53) [93]
>
> > slPhoto := TStringList.Create;
> > slPhoto.Add(ds.DataSet.FieldByName("Photo").AsString);
>
> > slPhoto.SaveToFile(sTMP);
> > Zimg.Picture.LoadFromFile(sTMP);
> ======
> Получили имя файла, загрузили его в Bitmap. Что не так?
> Естественно, что много ньюансов, но он работает :))

Ну попробуй такой код в своем проекте. Маты от клиентов гарантирую.

← →
Petr V.Abramov (2007-06-15 03:22) [97]

озвученную сумму (и выше гораздо) стоят не исходники, а люди, которые их в закомпилированом виде втюхать умудряются (от слова мудр:)

← →
Ш-К (2007-06-15 05:12) [98]

Если такая программа существует, то только как диверсия со стороны исполнителя.

← →
keymaster © (2007-06-15 06:55) [99]

> Бакук © (15.06.07 02:53) [93]
> > slPhoto := TStringList.Create;> slPhoto.Add(ds.DataSet.
> FieldByName("Photo").AsString);> slPhoto.SaveToFile(sTMP);
> > Zimg.Picture.LoadFromFile(sTMP);======Получили имя файла,
> загрузили его в Bitmap. Что не так? Естественно, что много
> ньюансов, но он работает :))

Во-первых, получили не имя файла, а саму картинку из базы.
Затем она сохраняется в файл с именем sTmp и уже оттуда грузится
в image.

> Вы же сами 80% лучше не напишете (уверен на 70% :)

Я думаю, что большинство постоянно общающихся тут людей ТАК не напишут... Ибо не дети уже.

← →
db2admin © (2007-06-15 07:29) [100]

может таким не хитрым способом кто то пытается диплом причесать?
Мне особо нравиться что лог не ведеться, что случилось, когда, где один святой Коннектий знает.

← →
novoalex © (2007-06-15 08:05) [101]

procedure TfrmRfPerson.AppMessage(var Msg: TMsg; var Handled: Boolean); var i: SmallInt; begin {Mouse wheel behaves strangely with dgbgrids - this proc sorts this out} if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN; Msg.lParam := 0; i := HiWord(Msg.wParam); if i > 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN; Handled := False; end; end;
Чет бред какой-то... Handled- постоянно False. ?!?

> yutonig (14.06.07 16:25) [22]
>
> > Gero © (14.06.07 16:23) [21]
> > Сколько денег хочешь?
> > <Цитата>
>
>
> 100 тыс. бакинских рублика

Пиши на www.microsoft.com. В России за исходные коды стока не дадут.
Если б ты сказал, что microsoft предлогает исходные коды ОС Windows Server 2003, я б еще подумал...

← →
yutonig (2007-06-15 09:36) [102]

Если кому интересен скриншот, могу выслать на EMail

← →
ZeroDivide © (2007-06-15 09:37) [103]

Даже с доплатой такой код не нужен.... даже рефакторинг ему не поможет. Только переписать все с нуля. Глупо такой код продавать.

← →
Арсен (2007-06-15 09:44) [104]

Покупаю

← →
Johnmen © (2007-06-15 09:55) [105]

Мыши всё кололись и кололись, но продолжали есть кактус (с)

← →
G_M_S © (2007-06-15 09:57) [106]

> Ну попробуй такой код в своем проекте. Маты от клиентов
> гарантирую.

Клиенты код в большинстве случаев не видят. И, как показывает практика, большая часть работающих программ именно так и написана, и клиентам по барабану, что там в коде - им важно, что бы это РАБОАЛО. И пока "профессионалы" ломают копья на предмет крутости кода, его оптимальности и т.п., некоторые предприимчивые чайники этот код ПИШУТ. Не оптимально, но пишут. И много. И это работает. И за готовый откомпиленный и внедренный продукт платят бабки. Которые "профессионалам" и не снились. А "профессионалы" исходят желчью по этому поводу :))) И критикуют, критикуют...

ИМХО есть два показателя "крутости" кода: сколько за него заплачено в вечнозеленых рублях и насколько готовый продукт полезен пользователям, какое у них к нему отношение.

← →
iXT © (2007-06-15 09:59) [107]

продавать надо не исходники, а откомпиленный продукт, причем ес-но не открывать код. Тогда больше шансов на то, что если он действительно работает, то можно что-то из него выжать

← →
Rouse_ © (2007-06-15 10:00) [108]

> yutonig (15.06.07 09:36) [102]
> Если кому интересен скриншот, могу выслать на EMail
> ip:[85.21.39.7]

> Арсен (15.06.07 09:44) [104]
> Покупаю
> ip:[85.21.39.7]

Тихо сам с собой веду беседу? ;)

Их тут трое :)
еще nadJIIu`Angel ныкается где-то :)

← →
yutonig (2007-06-15 10:13) [112]

Админы: Закрыть тему

> yutonig (15.06.07 10:13) [112]
>
> Админы: Закрыть тему

Это приказ?

← →
yutonig (2007-06-15 10:18) [114]

вот бестолку обсуждаете качество кода, вопрос не в качестве в данный момент, а в работоспособности, есть потенциальная база клиентов, которая успешно пользуется программным продуктом, соглесен исходный код кривой, очень кривой, сейчас этот продукт нет желания поддерживать, большая часть программистов, которые разрабатывали этот код студенты, потому что нужно было создать все очень быстро, и чтобы работало. Проект действительно получился очень огромным, все его аспекты не перечислить. Делали под себя, пользуются 19 компаний.

Если на этом сайте могут вести критику люди, с интелектом подставки для монитора, то админы сразу удаляйте тему.

> есть потенциальная база клиентов, которая успешно пользуется программным продуктом

так потенциальная или уже пользуется?

Ты давай ка мил человек не будешь указывать что и как делать администраторам? А по поводу подставки для монитора - что хотел, то и получил...

> Если на этом сайте могут вести критику люди, с интелектом
> подставки для монитора

Пока что данный уровень интеллекта только Вы демонстрируете. Необоснованной критики в ветке не увидел.

> yutonig (15.06.07 10:18) [114]
> Делали под себя, пользуются 19 компаний.

Это ЗАЧОООТ :))) Так емко все объяснить одной фразой :)))

← →
yutonig (2007-06-15 10:28) [119]

> Ты давай ка мил человек не будешь указывать что и как делать
> администраторам? А по поводу подставки для монитора - что
> хотел, то и получил...

А если вы и имеете статус администратора или модератора, то предпочтительней было следить за соблюдением правил в данном разделе форума, в частности ,чтобы сообщения соответствовали тематике Форума, а не разводилась вода.

Это раздел "прочее", тут беседуют о всем, чем угодно :) А за правилами следят - не переживай :)

Продаю исходные коды комплекса Найти похожие ветки