Skip to forum content
My Visual Database
A Simple Solution for Creating Databases
You are not logged in. Please login or register.
Active topics Unanswered topics
Search options (Page 6 of 68)
Pages Previous 1 … 4 5 6 7 8 … 68 Next
Dezmantaz wrote:Такой вопрос есть еще 1 )
А можно к примеру сделать так когда наступает по таймеру ноль то кто победил в битве по количеству очков то ему автоматически засчитывается бал ?
И заметил есть без цифр нажать на стоп или обнулить высвечивается ошибка и закрывается программа
Timer.Enabled:=Nil;
if TdbLabel(Sender).Caption='Стоп' then Timer.Enabled:=False;
опять пробуйте
Dezmantaz wrote:Я указал на фотографии к примеру указав 5 минут или же 15 в верху и нажав старт начался отчет и когда нужно останавливать его или продолжить или сбросить!
пробуйте
Dezmantaz wrote:А можно к этому проекту таймер поставить ?
опишите более конкретно
Dezmantaz wrote:Вот смотрите хочу что бы была такая функция, что бы был счёт к примеру между 2 командами с разными цифрами. И при нажатие на кнопку к примеру 1 в счётчику цифра становилась 1 затем при нажатие на 5 становилось 6 и так далее вот проект.
Надеюсь это то , чего Вы хотели
m128mx wrote:интересно на сколько домен с хостингом оплачен, не пора ли форум с приложениями копипастить?
Registry Expiry Date: 2022-10-29T14:56:01Z
я вернулся после лечения
Всем привет!!
Dezmantaz wrote:Хочу что бы при нажатие на кнопки увеличивалось значение если вас не затруднит помогите с этим!
А то я что то сам не нашел !
подробнее пожалуйста
Alexandr wrote:Вот пожалуйста
procedure Form2_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
ID:string = SQLExecute('SELECT id_prodavec FROM client WHERE id='+Form1.TableGrid1.sqlValue); // получить идентификатор записи таблицы prodavec
begin
// запись в таблицу client
SQLExecute('UPDATE client SET name="'+Form2.Edit1.Text+'" WHERE id='+Form1.TableGrid1.sqlValue );
// запись в таблицу prodavec
SQLExecute('UPDATE prodavec SET nameS="'+Form2.Edit2.Text+'" WHERE id='+ID );
// обновление таблицы данных главной формы
Form1.TableGrid1.dbUpdate;
Form1.TableGrid2.dbUpdate;
Form2.Close;
end;
у Вас было 2-ве ошибки
SQLExecute('UPDATE prodavec SET nameS="'+Form2.Edit2.Text+'" WHERE id='+ID ); // тут у Вас было другое имя поля
ID:string = SQLExecute('SELECT id_prodavec FROM client WHERE id='+Form1.TableGrid1.sqlValue);
тут вы получали идентификатор из второй таблицы а у вас главная первая таблица
Alexandr wrote:Где то лишнее равно?
Загрузите Ваш проект
Alexandr wrote:Где то лишнее равно?
синтаксическая ошибка ( связана с "=")
Alexandr wrote:Выводит во т такую ошибку...подскажите пожалуйста в чем может быть проблема?
здесь у Вас нет идентификатора записи
Alexandr wrote:Здравствуйте! Данный скрипт только добавляет новую запись, а как сделать такое же редактирование уже существующих записей в разных таблицах с помощью одной кнопки?
procedure eee_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
ID:string = SQLExecute('SELECT id_b FROM a WHERE id='+Form1.TableGrid1.sqlValue); // получить идентификатор записи таблицы b
begin
// запись в таблицу A
SQLExecute('UPDATE a SET firstname="'+eee.Edit1.Text+'", twoname="'+eee.Edit2.Text+'", lastname="'+eee.Edit3.Text+'" WHERE id=' +Form1.TableGrid1.sqlValue );
// запись в таблицу B
SQLExecute('UPDATE b SET sn="'+eee.Edit4.Text+'", model="'+eee.Edit5.Text+'", status="'+eee.Edit6.Text+'" WHERE id='+ID );
// обновление таблицы данных главной формы
Form1.TableGrid1.dbUpdate;
eee.Close;
end;
vit007 wrote:Ни как неполучается получить вторую страку строку из json. Постоянно выдает ноль...
JSONObject := nil;
JSONObject := TJSONObject(TJSONObject.ParseJSONValue(smsquestion.responsetext));
if JSONObject <> nil then
begin
JSONString := TJSONString(JSONObject.GetPairByName('status_code').JsonValue);
ShowMessage(JSONString.Value);
if Pos('100',JSONString.Value) then
begin
JSONObjProp := TJSONObject(JSONObject.GetPairByName('sms').JsonValue);
JSONObjProp2 := TJSONObject(JSONObjProp.GetPairByName(sD).JsonValue);
JSONString := TJSONString(JSONObjProp2.GetPairByName('status_code').JsonValue);
ShowMessage(JSONString.Value);
end;
было бы хорошо увидеть сам JSON
k245 wrote:Современный UI. Часть 4
Стандартный компонент для отображения календаря не вписывается в дизайн нашего приложения: он маленький, нельзя настроить его размер, да и подсветка ограничивается выделением фона каким-то бледным колером. Поэтому наш календарь мы создадим сами, с помощью меток (TdbLabel), изображений (TdbImage) и скриптов
Читать далее: https://createmyvisualdatabaseapp.blogs … /ui-4.html
ааа вспомнил, на одной форме было два TScroLLBox и нужно было понять с начало на каком находиться мышка
k245 wrote:Современный UI. Часть 1.
С ростом производительности компьютеров растут и ожидания пользователей относительно удобства и красоты интерфейса программ, в том числе - для бизнес-приложений. В частности надо обязательно учитывать особенности отличия восприятия информации между мужчинами и женщинами. Например, для представителей прекрасного пола очень важна цветовая гамма и простота интерфейса, а наличие художественной составляющей увеличивает скорость запоминания основных функций программы. Впрочем, мужчины тоже предпочитают интуитивно-понятный интерфейс, который не предполагает чтение инструкции для начала работы с программой.
Возможно ли создание подобного интерфейса силами среды разработки My Visual Database, которая по умолчанию предлагает стандартные компоненты отображения данных? Мой ответ - да. Но для этого придется использовать скрипты, а также некоторые дополнительные инструменты.
Читать далее: https://createmyvisualdatabaseapp.blogs … /ui-1.html
оооооо, классно, статья про UI, кнопки меня сильно интересовали... И точно, хорошая идея хранить изображения в отдельной форме..
vovka3003 wrote:OnMouseWheelUp
OnMouseWheelDow
А чем не подошло чтение WheelDelta и вызов соответсвующих процедур (Up, Down)?
я уже и не помню зачем мне это было нужно, но про WheelDelta нужно почитать
You are trying to store the value from edit5 in the costing field
ну вот и очередной черновик
судя по статистике форума DyBase, программа еще совсем сырая ((
k245 wrote:Это для проверки, читает ли кто-нибудь это всё или нет)))
На этой неделе закомментирую его как следует и выложу в библиотеке https://mvdlibrary.blogspot.com
Там пока только отображение игрового поля, проверка хода и подсчет очков. Планирую добавить ИИ, настраиваемые параметры (размер карты, размеры блоков, число игроков), а также игру по сети. Ну, и графику поинтересней ))
шикарно, я уже готов к списыванию )))
Posts found: 126 to 150 of 1,694
Pages Previous 1 … 4 5 6 7 8 … 68 Next