Search options (Page 334 of 400)

Приветсвую,

нашел несколько ошибок

1.
на форме frm_client на настройках кнопки "Сохранить запись", вы внесли в список сохраняемых компонентов, компоненты table_phone и TableGrid2, этого не нужно было делать.

2. в таблице базы данных clients у вас есть обязательное текстовое поле email, но на форме frm_client нет компонента, который бы был привязан к данному полю в БД.  также в этой таблице есть поле phone,которое тоже скорей всего лишнее. И обязательные поля pokup и prod, на данной форме нет компонентов, привязанных к данным полям.

3. На форме Form1, кнопка "Добавить нового клиента в базу" имеет действие "Показать форму", а должно иметь действие "Новая запись", тоже самое и на других формах, если кнопка вызывает форму для создания новой записи, действие кнопки должно быть "Новая запись"

4. На форме Form1 в настройках кнопки "Найти" в список компонентов, которые отвечают за критерии поиска, был внесен лишний компонент "table_clients", который не может быть одновременно критерием поиска и компонентом для вывода результатов поиска.

Исправленный проект приложил к сообщению.

Hello

Please attach your project (zip)  to the topic (without exe and dll)
I'll try to help you.

Merry Christmas! )

Leonid
Данная ошибка возникает в последней версии? 1.47

Хотел бы взглянуть на ваш проект, но смогу это сделать только после праздников, напомните мне пожалуйста об этой проблеме после 2 января.

С Наступающим )

Приветствую,

к сожалению смогу помочь только после праздников, т.к. в отпуске )

С наступающим )

Right.

Приветствую,

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

mitrich45
в принципе оптимизация тут ничего не даст, если конечно у вас не сотни записей в словарях, но можно записать код чуть короче

if SQLExecute('SELECT count(id) FROM status WHERE statusname="Ремонтируется";')  = '0' then SQLExecute('INSERT INTO  status ("statusname") VALUES ("Ремонтируется");');

if SQLExecute('SELECT count(id) FROM status WHERE statusname="Готов";') = '0'  then SQLExecute('INSERT INTO  status ("statusname") VALUES ("Готов");');

можно, пример

procedure Form1_PageControl1_OnChange (Sender: string);
begin                                                                          
    if Form1.PageControl1.ActivePageIndex = 0 then Form1.TableGrid1.dbUpdate; 
    if Form1.PageControl1.ActivePageIndex = 1 then Form1.TableGrid2.dbUpdate;
    if Form1.PageControl1.ActivePageIndex = 2 then Form1.TableGrid3.dbUpdate;
end; 

Yes, this app stop working after 60 days.

Yes, you can upgrade to a lifetime license just for $200, for that you should contact to us
sales@drive-software.com

Thanks.

Action = 'ShowRecord'
Позволяет узнать, для чего была открыта форма.

Может иметь следующие значения:
'Start' - при запуске приложения, только у главной формы.
'NewRecord' - при вызове окна с помощью кнопки с действием Новая запись.
'ShowRecord' - при вызове окна с помощью кнопки с действием Показать запись
'ShowForm' - при вызове окна с помощью кнопки с действием Показать форму
'' - пустая строка, если окно было вызвано с помощью скрипта.

if Form2.Edit1.Text <> '' then Form1.PageControl1.ActivePageIndex:= 0;
дословно можно перевести как:
если в компоненте Edit1, его текстовое содержимое не равно пустоте, то переключаемся  на первую вкладку

Можно для формы редактирования создать событие OnShow, где в зависимости от данных на форме, переключать нужную вкладку, пример:

procedure Form2_OnShow (Sender: string; Action: string);
begin
    if Action = 'ShowRecord' then
    begin
        if Form2.Edit1.Text <> '' then Form1.PageControl1.ActivePageIndex:= 0; 
        if Form2.Edit2.Text <> '' then Form1.PageControl1.ActivePageIndex:= 1;
        if Form2.Edit3.Text <> '' then Form1.PageControl1.ActivePageIndex:= 2;
    end;
end;

zoomix
Обычно имя пользователя хранится в открытом виде, только вместо паролей хранят их хеши, сделал для вас пример: