Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Закладки » Вопросы по Delphi 2

Модерирует : ShIvADeSt

ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006
pit23



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здорова всем. У меня возник вопросик. Как проверять на уникальность ввода информации, если работаю с ADOTable и запись в базу идет напрямую в таблицу из формы.
Интересно ваше мнение по этому вопросу.

Всего записей: 60 | Зарегистр. 04-03-2006 | Отправлено: 12:04 02-11-2006
xlebopezka

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
в базе поставь уникальный ключ и БД сама не даст вставить тебе не уник. запись

Всего записей: 93 | Зарегистр. 06-07-2005 | Отправлено: 12:12 02-11-2006
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Поставить в таблице, что поле уникально. А потом ловить исключения с помощью try ... Except. Если попытаешся добавить данные, которые не будут уникальны JET драйвер (или какой ты там используеш) сгенерит ошибку. Без try except будет в принципе тоже работать, но зачем нам левые окошка с ошибками?

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 12:12 02-11-2006
pit23



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
xlebopezka
 
В базе стоит требование уникальности. Мне надо узнать как лучше всего в программе отследить попытку записи неуникального кода и сообщить юзеру понятное сообщение.
 
OdesitVadim
 
А куда надо ставить try ... except если при переходе по записям в CtrlGrid'е автоматически срабатывает метод Post

Всего записей: 60 | Зарегистр. 04-03-2006 | Отправлено: 14:06 02-11-2006
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
А у ADOTable нет обработчика, который можно дёргать в случае ошибки? Например OnPostError
 
Добавлено:
try except уже не надо будет

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 14:19 02-11-2006
sunduk4

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Перевожу строку из формата rtf в текст таким образом -  
 

Код:
 
  RE := TRichEdit.Create(Self);
  RE.Parent := Self;
  RE.Text := RtfString;
  Result := RE.Text;
  RE.Free;
 

 
на хр все работает, на 98-й конвертации не происходит.
подскажите, как победить?

Всего записей: 177 | Зарегистр. 03-04-2004 | Отправлено: 14:48 02-11-2006
pit23



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OdesitVadim
 
Да есть такой обработчик, он так и называется. Большое спасибо .  
Это помогло избавится от написания кода проверки во многих местах программы.

Всего записей: 60 | Зарегистр. 04-03-2006 | Отправлено: 14:58 02-11-2006
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
sunduk4
Через сохранение в поток (например TMemoryStream) или временный файл и последующей загрузкой в RichEdit

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 15:19 02-11-2006
sunduk4

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OdesitVadim
Спасибо! Через TStringStream победилось.

Всего записей: 177 | Зарегистр. 03-04-2004 | Отправлено: 15:42 02-11-2006
andead



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
wd123

Цитата:
это не скин бдс, а скин винды

OdesitVadim

Цитата:
Это не скин винды, и не шкурка BDS. Это подмененая Welcome Page. Если кто то хочет, могу выложить именно эту Welcome Page, в добавок немного русифицированую мной.

велкам панельку уже скачал по ссылке http://files.vingrad.ru/alex/arhiv/bds_community_welcome_page_v2_only2006en.rar
пробовал менять шкуры у винды но у БДС оставался такой же жёлтый =\ поэтому подумал что это скин такой

Всего записей: 1821 | Зарегистр. 22-09-2005 | Отправлено: 17:03 02-11-2006
Zergboy



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем привет. Уперся рогом, не пойму как решить.
Опишу задачу.
Есть центр, в который сдает залы в почасовую аренду. Сейчас учет ведется в Excel в столбцах - залы, в строках часы. Один месяц - один лист. Бронирование зала арендатором отображается объединением ячеек столбца (сколько часов - столько ячеек) В ячейке пишется: ФИО (или организация)  Время начала аренды, время окончания, название мероприятия и требующееся дополнительное оборудование).
В целом администратора все устраивает в текущей ситуации, за исключением сложностей с хоть какой-то статистикой.
Замена на  Access как-то не очень устраивает - слишком привязались к простоте графического оформления в Excel
 
Как в Delphi решить вопрос отображения одного дня не с помощью StringGrid, но чтобы по процессу работы это походило на Эксельку (Мышой выделили "ячейки", объединил)
Если извращаться над StringGrid черз OnDrawCell так как пишут многие товарисчи в статьях, получаются побочные эффекты (например, перестает работать RangeSelect)
 
Может я немного сумбурно вопрос ставлю, но вот пока так получилось

Всего записей: 243 | Зарегистр. 16-12-2004 | Отправлено: 12:52 04-11-2006 | Исправлено: Zergboy, 12:53 04-11-2006
wader



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Zergboy
А просто у объединенных ячеек фон другой сделать?
например красный, зеленый и т.д.

Всего записей: 113 | Зарегистр. 26-05-2005 | Отправлено: 14:51 04-11-2006
afiget



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Zergboy
_http://devexpress.com/Products/VCL/ExSpreadSheet/Index.xml

Всего записей: 545 | Зарегистр. 31-12-2005 | Отправлено: 15:46 04-11-2006
Zergboy



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
А просто у объединенных ячеек фон другой сделать?  
например красный, зеленый и т.д.

Ну это ж опять-таки через OnDrawCell придется делать, а глюк этого метода - перекрытие объедниения ячеек (т.е. если в OnDrawCell что-то рисуешь, то выделить диапазон мышой не получится - сетка каждый раз перерисовывается и сбрасывает выделение, хотя может я чего и не выткаю, но мой опыт такой)
 
ExSpreadSheet кажется более интересным замороком, сейчас в поисках сами знаете чего, а то 500 баков - это уж слишком

Всего записей: 243 | Зарегистр. 16-12-2004 | Отправлено: 18:53 04-11-2006
afiget



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В обменнике нету?

Всего записей: 545 | Зарегистр. 31-12-2005 | Отправлено: 20:28 04-11-2006
wader



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Zergboy
Присмотрись к VirtualTreeView. Бесплатно.

Всего записей: 113 | Зарегистр. 26-05-2005 | Отправлено: 22:03 04-11-2006
Zergboy



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
В обменнике нету?

ExSpreadSheet адекватных экономических решений вопроса регистрации не нашел (может не там искал, хотя варезник весь облазил)
Скачал VirtualTreeView - посмотрим-разберемся. Выглядит/звучит, по крайне мере, любопытно.
Спасибо за участие

Всего записей: 243 | Зарегистр. 16-12-2004 | Отправлено: 04:15 05-11-2006
sunduk4

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Zergboy
Стучись в ПМ, демки и хелп тяжеловаты для меня, конечно, но самим пакетом Девок смогу помочь.

Всего записей: 177 | Зарегистр. 03-04-2004 | Отправлено: 08:02 05-11-2006
Sexton

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Zergboy

Цитата:
ExSpreadSheet кажется более интересным замороком

TAdvSpreadGrid (TMS) и Next Sheet (http://www.bergsoft.net/index.php?section=components&page=nextsheet) ещё есть, правда, не уверен, что они круче.

Всего записей: 142 | Зарегистр. 31-05-2004 | Отправлено: 20:23 05-11-2006 | Исправлено: Sexton, 20:25 05-11-2006
Zergboy



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Спасибки. Скачал, посмотрю сейчас, что за звери такие

Всего записей: 243 | Зарегистр. 16-12-2004 | Отправлено: 03:02 06-11-2006
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Закладки » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru