Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/27: Рейтинг темы: голосов - 27, средняя оценка - 4.78
4 / 4 / 4
Регистрация: 20.12.2010
Сообщений: 117

маска ввода

03.11.2011, 18:27. Показов 5605. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
здравствуйте, не могу сделать маску ввода для DBEdit (даты) нажимаю New field потом выбираю в типе дату а дальше (не знаю как) но методом тыка попробовал по комбинировать с data, calculated и lookup результата нету то выдает ошибку то нечего в дбедит не вводится.
<a href='http://********************/show-image.php?id=341cb2caa3a16fc035242c64e3e df7b5' title='загрузить изображение'><img src='http://********************/thumb/01201111/341cb2caa3a16fc035242c64e3edf7b5.png' /></a>

еще вопрос а как сделать сортировку по возрастанию? (я использую ADOQuery) тоже нужно сделать через филтер как поиск?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
03.11.2011, 18:27
Ответы с готовыми решениями:

Маска ввода
Как зделать маску ввода чтобы по дефолту стояла дата всегда 01, для изменения доступно только месяц и год. Работаю с отчетом fast-report...

Фильтр и маска ввода
При таком коде отбираются записи по типу &quot;123*&quot;= &quot;12345&quot;,&quot;12378&quot; и т.д. Table1.Filter:='mark'+'='+''''+Edit1.Text+'*'+''''; ...

Маска для ввода денег
Подскажите я делаю Маску &quot;999 999 999,99;1;_&quot;, а мне нужно что бы выводило некое число до миллиарда. Пример: 1) 1 000 000,00 2) 1...

10
8 / 8 / 1
Регистрация: 01.04.2011
Сообщений: 88
03.11.2011, 19:17
- дважды щелкни по компоненту adoquery
- в появившемся окне нажми ПКМ в пустом месте, затем Add all fields
- выдели поле дата
- в свойстве editmask установи маску
например для формата 31.12.2012 маска выглядит так !99/99/9999;1;_

для dbedit определи свойства datasource(твоя таблица) и datafield(поле дата)


для сортировки лучше использовать параметрический запрос
1
4 / 4 / 4
Регистрация: 20.12.2010
Сообщений: 117
03.11.2011, 19:25  [ТС]
Sheepz, спс все разобрался, еще вопрос можно ли с помощью маски добавлять окончания? например 198 см и чтоб см добавилось автоматом? есть ли у вас статейки по маске там примеры по различным форматам? погуглил нашел только форматы даты.
0
8 / 8 / 1
Регистрация: 01.04.2011
Сообщений: 88
03.11.2011, 22:40
не знаю, мне такое не нужно было)
0
1497 / 1238 / 245
Регистрация: 04.04.2011
Сообщений: 4,363
04.11.2011, 12:53
Для этого не нужно маски.
См.события TField.OnGetText/OnSetText
0
4 / 4 / 4
Регистрация: 20.12.2010
Сообщений: 117
07.11.2011, 21:08  [ТС]
MsGuns, просто интересно было можно ли это осуществить, оказывается можно через маску окончания добавлять.
а как сделать сортировку по возрастанию? я использую ADOQuery.
0
12 / 12 / 2
Регистрация: 30.10.2011
Сообщений: 59
07.11.2011, 21:43
3Gern,
select * from atable ORDER BY afield [asc] - по умолчанию возрастание
select * from atable ORDER BY afield desc - по убыванию
1
4 / 4 / 4
Регистрация: 20.12.2010
Сообщений: 117
07.11.2011, 21:48  [ТС]
melomaniak, спс.
0
4 / 4 / 4
Регистрация: 20.12.2010
Сообщений: 117
09.11.2011, 19:22  [ТС]
при вводе этого кода выдает ошибку

Image1.Picture.LoadFromFile(DBEdit1.Text );

в DBEdit хранится путь к картинке.

http://imagepost.ru/thumbs/f/y... utqlax.JPG
0
1497 / 1238 / 245
Регистрация: 04.04.2011
Сообщений: 4,363
10.11.2011, 00:58
Сортировку можно делать локально, используя св-во TADODataSet.Sort

Примеры:

Для текущей колонки сетки (например в событии грида OnTitleClick)
Delphi
1
2
3
4
5
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
   TADODataSet(Column.Field.DataSet).Sort := Column.FieldName;  // по возастани-ю
   TADODataSet(Column.Field.DataSet).Sort := Column.FieldName+' DESC';  // по убыванию
end;
Для произвольно выбранных пользователем с помощью 3-х комбобоксов колонок
Delphi
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
   ADODataSet.Sort := ComboBox1.Text+','+ ComboBox2.Text+','+ComboBox3.Text;
end;
Такая сортировка будет много быстрее, чем переоткрытие датасета, но следует учитывать, что данные при этом с сервера не перечитываются, т.е. могут потерять актуальность (при многопользовательской работе) - в этом случае после сортировки надо еще вызвать метод

Delphi
1
ADODataSet.Requery;    // Но не Refresh !, как иногда советуют не слишком опытные прогеры
PS. Совет - используйте TADODataSet - для запросов, возвращающих данные (Select), и TADOCommand - для модифицирующих типа Update/Insert/Delete/DDL-queries.
TADOTable,TADOQuery,TADOStoredProc использовать не следует, т.к. они не "родные" для АДО и были разработаны исключительно для "старых" девелоперов, привыкших к тэйблам и кверям

Добавлено через 2 минуты
Image1.Picture.BitMap.LoadFromFile(DBEdit1.Text);
0
4 / 4 / 4
Регистрация: 20.12.2010
Сообщений: 117
10.11.2011, 08:21  [ТС]
MsGuns, огромное спасибо за совет.

Добавлено через 20 минут
MsGuns, теперь выдает другую ошибку пишет что не нашел путь, я делаю так
if opendialog1.Execute then
DBEdit6.Text:=OpenDialog1.FileName; потом я путь загоняю в таблицу.

а где нужно отобразить картинку стоит вот это.
Image1.Picture.BitMap.LoadFromFile(DBEdi t1.Text);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
10.11.2011, 08:21
Помогаю со студенческими работами здесь

Маска ввода даты (!99.99.0000;1;_)
Как сделать маску ввода даты для компонента DBEdit (DBEdit7.Field.EditMask:='!99.99.0000;1;_';)???

Маска в DBEdit
Делаю программу, и появилась необходимость создания поля регистрации клиента(ФИО, телефон, адрес и т.д) всё это делается в DBedit, нужна...

маска файлов
необходимо найти в директории только граффические файлы ищи вот таким образом маска *.* все файлы ...

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

DBEdit маска обработчик
С делал на DBEdit маску даты DBEdit5.Field.EditMask:='!!99.99.9999;1;_'; но когда ты вводиш дату и не вводиш месяц или число то...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru