» Вопросы по Delphi

ListBox1.Perform...
Memo1.Lines.Assign(ListBox1.Items);

XPEHOMETP
Вдогонку: по-моему будет быстрее по-новой ввод оформить из списка и через диалоги, как ShIvADeSt предложит. Делов на 2-3 часа, если ни разу не делал (чтение хелпа и т.п.). Или через файл обмен организовать, а потом этот обмен прибить и сделать в программе .

Подскажите как реализовать смс-рассылку? Есть что почитать или посмотреть?

Подскажите пожалуйста, как правильно отфильтровать строки в таблице одновременно по двум полям, я чегото запутался.
Нужен фильтр по полю А по значению переменной S (String) + фильтр по полю В и значению в нём, равному 0.

whitewolfs
Table1.Filter := 'FieldA = ' + QuotedStr(S) + ' and FieldB = 0';
Table1.Filtered := False;
Table1.Filtered := True;

RomanTim
так не получается. компилируется, но при выполнении - syntax error.
Раньше мне ShIvADeSt подсказывал, но по одному полю:
.Filter := 'A='''+S+'''';
А как по двум?

попробуй .Filter := '(A='''+S+''') and (B=0)';

RostY
Ошибка - The two sides of an operation do not match

Вопрос такого характера - я понимаю, что он ламерский, но голова че-то не варит.
Есть таблица. Ее нужно отфильтровать по столбцу DATA. Формат данный столбец имеет ДД.ММ.ГГ У меня есть значение ММ. Как правильно сформулировать фильтр, чтобы он фильтровал по месяцам?

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

memmo
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
function EncodeDate(Year, Month, Day: Word): TDateTime;
можно с ними поиграться.

dyr farot

Цитата:

от языка зависит...

Не в обиду:
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi

Z MeZe да, но формат столбца в базе не date, а string

Цитата:

whitewolfs
Table1.Filter := 'FieldA = ' + QuotedStr(S) + ' and FieldB = 0';
Table1.Filtered := False;
Table1.Filtered := True;

Помоему правильнее так:

Table1.Filtered := False;
Table1.Filter := 'FieldA = ' + QuotedStr(S) + ' and FieldB = 0';
Table1.Filtered := True;

memmo
тылды вот так вот:
function StrToDate(const S: string): TDateTime;
и т.д.

RostY
Возможно твоя реализация DataSet не поддерживает фильтрацию по нескольким полям - для пробы попробуй отфильтровать по двум интовым полям - тогда точно не будет никаких сложностей с апострофами, и поиграться со скобками.
Мой вариант работает на ADO-DataSet, полученном с MSSQL

MAX_DAMAGE
Без разницы - при изменении самого поля Filtr ничего не происходит, так что вопрос исключительно вкуса и цвета

memmo
Z MeZe
function StrToDateTime(const S: string; var FormatSettings: TFormatSettings): TDateTime;
если явно задать FormatSettings, то можно избежать возможных проблем с разными форматами даты по умолчанию в зависимости от региональных настроек системы

Z MeZe
А эту функцию можно применять a фильтре таблицы по отношению к столбцу?

memmo
Z MeZe
MAX_DAMAGE
да вы что мужики, для фильтрации используй SQL
да и вообще, работа с базами данных не имеет никакого смысла без знания SQL...

Цитата:

да вы что мужики, для фильтрации используй SQL

Абосолютно согласен... пишите SQL-запросы...

memmo
Эту функцию можно применять в обработчике события OnFilterRecord

DroN_S
Знать SQL конечно нужно, но во-первых бывают ситуации когда лучше фильтровать на клиенте, не дергая сервер каждый раз, а во-вторых не всякий источник данных нормально поддерживает SQL, фильтрацию же в той или иной степени поддерживают все наследники TDataSet
Так что оптимальный вариант как всегда где-то посередине

Такая проблема: нужна программа, с поддержкой баз данных в сети. Проблема только одна: одновременная работа пользователей сети с одной и той же базой. С БД я еще не работал (читай - нуб;)), посоветуйте, какая больше предназначена для этого :)). Пока склюняюсь к SQL. Если нельзя сделать одновременную работу, как можно сделать синхронизацию БД с локальной машины с сервером?

Заранее пасибо :). От ссылок не откажусь ;).

2Polkan
У тебя вполне стандартные требования для многопользовательской клиент-серверной разработки, т.е. тебе подойдет любая серверная БД типа MS SQL Server/Oracle/Firebird/Interbase/MySQL... выбор зависит от требований к бесплатности, к ОС сервера, количеству пользователей и каких-либо ещё специфических требований. А SQL - это не БД, это язык запросов к БД, ну и не только запросов.

Вопрос отменен

2Polkan
я думаю тебе стоит попробовать Firebird.

EZH
Я из твоего списка сразу бы вычеркнул Oracle - монстр+толковой документации нет, а также InterBase, поскольку FireBird - то же самое, но бесплатно. И можно добавить postgreSQL, Access. Последний хорош когда база маленькая и нужно сделать очень быстро.
ArtemiyUO
Стоит попробовать разное, но вначале определиться, какая ОС, какой объем данных, сколько пользователей, что преобладает: простецкие запросы данных (Веб) или вставки/замены (складские системы). Без знания задачи выбирать или советовать сервер - гадать на кофейной гуще.

2Polkan
если у тебя база не слишком большая, то используй MySQL/InterBase/FireBird, порекомендую из личного опыта использывать последнюю, так как очень прост и бесплатен, чего не скажешь о InterBase.. Если же база имеет большое количество записей, то лучше сразу использовать MSSQL/Oracle/HyTech... но без знания SQL даже не пытайся что то делать... сначала почитай книжки..

SergeBS

Цитата:

Access

Цитата:

для многопользовательской клиент-серверной разработки

я бы не рекомендовал

whitewolfs
hdsUlc.Filtered := false;
hdsUlc.Filter := 'Rayon = '+IntToStr(hdsNsp['rayon'])+' and KOD1 = '''+
hdsNsp['kod']+'''';
hdsUlc.Filtered := true;
hdsXXX - HalcyonDataSet, hdsNsp['kod'] - символьное. Короче разберись с апострофами. Скорее всего дело в них (не хватает или лишний). Выведи строку получившегося фильтра и все увидишь.

Цитата:

для многопользовательской клиент-серверной разработки

Врядли Delphi это лучший выбор для разработки таких приложений

RostY
1 пользователь, 2, а дальше уже много . Именно для маленьких БД (что я и написал), во всех смыслах маленьких, Access - самое то, как младший брат MS SQL. И ежели что - переезд на MS SQL - влегкую. Единственный хинт: ничего не мешает выложить его mdb-файл на сетевой диск и работать с ним из ADO/DAO… В этом случае мы имеем однопользовательскую БД. Но если для работы запускается сам Access (MS Jet) на какой-то одной машине, и уже через нее у всех идет работа с данными, т.е к ней идут обращения – это уже вполне многопользовательский вариант. Не шибко много (2-5), но много . Access - не хуже 2000. Лицензия - офиса. А можно и вообще MSDE заюзать (в составе Офиса 2000 есть).


Добавлено:
valerka78
Ну сколько можно! И сервер, и клиент в первую очередь определяются задачей, во вторую - личными симпатиями (а бывает наоборот вначале симпатии, потом задача). И не надо религиозную войну затевать. Человек спросил - ему кучку вариантов высыпали. Дальше пусть читает книжки и выбирает.

valerka78

Цитата:

Врядли Delphi это лучший выбор для разработки таких приложений

и скажи чем тебя Delphi не устроила при работе с базами?
на чём предлагаешь работать по твоим представлениям?