Search options (Page 155 of 400)

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

Просто приложите актуальный проект, и опишите действия, которые приводят к ошибке (пошаговые действия с указанием имен компонентов)

Также учитывайте, что у меня будет пустая база (делать импорт у меня нет времени), поэтому опишите какие данные я должен внести, чтобы воспроизвести ошибку.

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

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

alduyr
В файле reg.ini запоминается дата первого запуска программы, при его удалении, соотвественно это информация теряется. Обычно подобную информацию хранят в системном реестре, но к сожалению старая версия программы не имеет функций для работы с системным реестром.

Примерно в середине вашего скрипта есть строки

begin

end.

удалите их. Все что в скрипте идет после end. будет проигнорировано, соотвественно и все фунции которые следуют за этим перестанут работать.

AD1408
I checked your project, but in frmSaleInv.tgSaleInv there is no column with number 9.

Also on form frmSaleTransHist I can't find component with name edSaleTransInvTotal

Пожалуйста обобщите ваш вопрос в одном сообщении, иначе не ясно какую проблему вы уже решили, а какая осталась.

Popkov-alex
В настройках кнопки "Сохранить запись" и в настройках грида "Settings", есть возможность указать сортировку сразу по нескольким столбцам. Выберите из выдающего списка "Сортировка" значение ORDER BY, затем в появившемся текстовом поле перечислите столбцы через запятую, по которым необходимо отсортировать данные.

Т.е. перед открытием проекта в MVD, в папке присутствует файл Script.pas, в котором содержится скрипт (для проверки этого можете открыть его любым текстовым редактором), и после открытия проекта в MVD этот скрипт исчезает?

Выполняет деление и возвращает остаток от деления, подрбоней
http://www.delphibasics.ru/Mod.php

в данном скрипте необходима, чтобы раскрашивать строчки через одну.

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

Количество записей можно узнать в этой переменной slLastAddedID.Count

ShowMessage( IntToStr(slLastAddedID.Count) );

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

Добавил такую возможность.

Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0

Создается глобальная функция OnSQLException по перехвату исключений, связанных с базой данных:

// global event for all exceptions related database
function OnSQLException(Sender: TObject; Msg: string; SQL: string): boolean;
begin
    // exception from functions SQLExecute or SQLQuery
    if Sender=nil  then
    begin
        result := true; // to prevent system message
        ShowMessage(Msg); // your message
    end;

    // exception from button frmEmployee.bSaveEmp
    if Sender = frmEmployee.bSaveEmp then // if exception from button frmEmployee.bSaveEmp
    begin
        if Pos('UNIQUE constraint failed', Msg)=1 then
        begin
            result := True; // to prevent system message
            MessageBox('Person already exists.', 'Error', MB_OK+MB_ICONWARNING);
        end;
    end;
end;



procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
begin
    SQLExecute('INSERT INTO employees (lastname) VALUES ("ivanov")');
end;


procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
var
    Results: TDataSet;
begin
    SQLQuery('INSERT INTO employees (lastname) VALUES ("ivanov")', Results);
end;

Проект с примером: