You are not logged in. Please login or register.
My Visual Database → Posts by DriveSoft
Приветствую.
Сделал пример.
В таблицах predmetAdmin и paramsAdmin создаются как бы образцы, которые могут быть скопированы в таблицы tablemain и tableparams
Нажав на кнопку "Создание предмета и параметров для админа" вы создаете предметы и их параметры в качестве образцов.
Приветствую.
Пример
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
sHTML: string;
sSearch: string;
iStart, iEnd: integer;
begin
......
sHTML := Web.GetHTMLBody; // получем html код страницы
sSearch := '<div class="sticky-header-prop sticky-header-title">'; // искомая строка
iStart := Pos(sSearch, sHTML); // находим начальную позицию искомой строки
if iStart > 0 then
begin
iEnd := PosEx('</div>', sHTML, iStart); // находим конечную позицию
if iEnd > 0 then
begin
Form1.Edit1.Text := Copy(sHTML, iStart+Length(sSearch), iEnd-iStart-Length(sSearch)); // копируем текст между искомыми строками
end;
end;
end;RZ-007
Не думаю что там все так просто, на сайте есть защита от подобных манипуляций, также после теста вашего примера сайт меня заблокировал
Доступ с вашего IP-адреса временно ограничен
Приветствую.
К сожалению я могу помочь только с конкретным вопросом, ваш вопрос это скорей техническое задание )
Вы прислали проект, я просил тестовый проект, т.е. в котором нет ничего лишнего, на основе которого я бы смог реализовать это.
Just copy and paste corrected procedure.
При создании отчета в ексель, там где есть связанные таблицы ставит ID. В прошлых версиях было нормально. Отчет в ексель делается на полном автомате.
Спасибо, поправлю.
Hello.
You can do it using button with action "Report"
I have posted the answer in your previous theme.
http://myvisualdatabase.com/forum/viewtopic.php?id=2919
Hello.
Corrected:
procedure CalculateTotal;
var
TaxRate: double;
begin
TaxRate := 0;
frmExpenses.edExpenseNetPrice.Value := frmExpenses.edExpenseUnitPrice.value * frmExpenses.edExpenseQty.Value;
TaxRate := SQLExecute('SELECT tax_rate FROM TaxRates WHERE id='+frmExpenses.cbExpenseTaxRate.sqlValue);
frmExpenses.edExpenseTaxAmt.Value := frmExpenses.edExpenseNetPrice.Value * (TaxRate / 100);
frmExpenses.edExpenseTotal.Value := frmExpenses.edExpenseNetPrice.Value + frmExpenses.edExpenseTaxAmt.Value;
end;v_pozidis
Please download your project.
Also I made some changes in your database structure.
С помощью вычисляемого поля вы можете комбинировать несколько полей, затем это выч. поле отправить в отчет.
RZ-007
1.
Блок Except выполняется только при наличии ошибки, нужно так
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
Source: string;
begin
try
Source:= HTTPGet('https://www.yandex.ru',True);
except
if ExceptionMessage <> 'HTTP/1.1 404 Not Found' then ShowMessage('нет интернета');
end;
Form1.Memo1.Lines.Add (Source);
end;2. В данном коде уже есть проверка на загрузку страницы, данная строка
while Web.ReadyState <> 4 do Application.ProcessMessages;зацикливается до тех пор, пока страница не будет загружена полностью. В моем примере есть использование ClickElement
3. Не понял вопроса.
menshikov-76
Чтобы разобраться с добавление товара, можете скачать проекты простого склада.
http://myvisualdatabase.com/forum/viewtopic.php?id=1529
sidhillsaid
Редактирование в гриде и работа с COM портом.
Обновления второй версии уже не будет.
Те, кто купил вторую версию в августе или позже, получат обновление до третьей версии бесплатно.
menshikov-76
в таблице model у вас есть поле kol с опцией NOT NULL, что означает, что при создании записи это поле не может быть пустым.
Однако на форме new_model у вас нет компонента связанного с полем kol, т.о. вы пытаетесь создать запись в таблице model с пустым значением в поле kol.
Приветствую.
Обыкновенные штрих коды в принципе не поддерживают русские и какие либо другие символы кроме английских.
Можете воспользоваться QR кодом, который поддерживает использование не только английских символов.
Приложите ваш проект, постараюсь помочь.
Возможно, используйте компонент DBImage
пример как загрузить изображение
Form1.DBImage1.LoadFromDatabase('users', 'photo', [здесь идентификатор записи пользователя]);Приветствую.
1. Нет.
2. Возможно.
3. Планируется.
4. Планируется.
5. Планируется.
6. Используется стандартая кнопка, предусмотрено только два стиля, изменить его можно в свойстве Style
7. Для этого вы должны создать инсталяционную программу, которая добавит необходимые шрифты при установке вашей программы. Создать это можно например с помощью программы InnoSetup
Done
Thanks.
выч. поле
поправили? все работает теперь?
после присвоения фильтра, необходимо вызвать метод, который обновит данные в гриде
DocsZakaz.TableGrid1.dbUpdate;Возможно в данном скрипте нет необходимости, дочерние записи в гриде показываются автоматически на форме, вызванная для создания/редактирования данных, если в настройках грида выбрана опция "Показывать дочерние записи"
procedure Form1_Image1_OnClick (Sender: string);
begin
OpenFile(imgFile);
end;Не открывает.
попробуйте так
ShowMessage(imgFile);
OpenFile(imgFile);т.о. вы проверите, действительно ли переменная передает правильное имя файла.
Также возможно в вашей ОС не назначена программа, которая открывает указанный тип файла.
menshikov-76
Данного поле фактически с базе нет.
Скорей всего при создании данного поля, вы отказались от пересоздания базы данных, чтобы данное поле создалось.
Вы используете старую версию программы, которая еще не умела создавать новые поля в существующей базе без ее пересоздания и потери данных.
Просто удалить файл базы данных sqlite.db и она пересоздаться автоматически.
My Visual Database → Posts by DriveSoft
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi