Таблица BoevName связана с Boev, таблица Boev связана с основной Таблицей Client
BoevName - комбобокс для выбора значения
Даты в одной таблице?
My Visual Database → Posts by sibprogsistem
Таблица BoevName связана с Boev, таблица Boev связана с основной Таблицей Client
BoevName - комбобокс для выбора значения
Даты в одной таблице?
Вы меняли настройки? я опять загрузил и вижу тоже самое
procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
begin
if (Form1.TableGrid2.SelectedRow>-1) then
begin
SQLExecute('INSERT INTO q(a)VALUES("'+ SQLExecute('SELECT a FROM w WHERE id='+ Form1.TableGrid2.sqlValue ) +'")');
SQLExecute('DELETE FROM w WHERE id='+ Form1.TableGrid2.sqlValue);
Form1.TableGrid1.dbUpdate;
Form1.TableGrid2.dbUpdate;
end;
end;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
if (Form1.TableGrid1.SelectedRow>-1) then
begin
SQLExecute('INSERT INTO w(a)VALUES("'+ SQLExecute('SELECT a FROM q WHERE id='+ Form1.TableGrid1.sqlValue ) +'")');
SQLExecute('DELETE FROM q WHERE id='+ Form1.TableGrid1.sqlValue);
Form1.TableGrid1.dbUpdate;
Form1.TableGrid2.dbUpdate;
end;
end;
Form1.TableGrid1.SelectedRow:=-1;
так может у Вас в БД ошибка?
от куда у Вас берутся парные записи?
I have a problem that the combobox appears in the form of numbers in the table and not in the form of text
You have specified a field with a pointer to a record that is stored in another table
Интересная программка VisualNeo...заинтересовала прям) Мне кажется в ней с кодом работать намного проще, чем в Делфи или .NET
это вопрос привычки
sibprogsistem wrote:Delphi RAD studio 10.3 Community Edition - не нужно ни кого ломать, свободная версия..
Она бесплатная до тех пор, пока вы лично для себя упражняетесь. Но создавать распространяемые программные продукты правообладатель не разрешает. К тому же, как я понимаю, она сильно урезана и подходит для ознакомления и обучения.
до 5-ти тысяч долларов в год, ну ясен дуб, что если заработал 5т зеленых то можешь и лицензию купить )
https://www.embarcadero.com/ru/products/delphi/starter
Какой богатый стек разработки.... Пользуетесь всем? Было бы интересно ваше мнение. В плане сравнения возможностей и удобства работы в семейке Pascal )))
из семейства паскаля использую только Delphi и MVD , остальное в основном для подглядывания сторонних проектов ..
VisualNeoWin, Flipabit и Hiasm - нашел когда стал искать альтернативы MVD - VisualNeoWin и Flipabit меня больше всего зацепили..
VisualNeoWin - сейчас создал S-WORD много бесплатных и хороших плагинов, работает с разными БД.. сама программа написана на Delphi, на сайте можно скачать SDK для delphi и C# и писать свои компоненты (дальше хоть за платно распространяйте)..
VisualNeoWeb - на нем хочу создать QuestionDWeb (еще пока без лицензии) почти тоже самое (VisualNeoWin ), только еще для сети и мобилок.
у VisualNeo много преимуществ..
форум на английском, но там много русских, тюменский профессор создал бесплатный курс https://distant.orgpsiholog.ru/enrol/index.php?id=20
русификатор для VisualNeoWin тут https://visualneo.com/forum/topic/rus-v … stid-11504
есть у них и свое облако но я им еще не пользовался..
Flipabit - как я понял это QT QML - можно в принципе создавать все визуально а можно и программировать если знаете JS, хотя это скорее не понадобится. Тут много моментов в визуальной разработке.
Компилирует под разные платформы, программа может работать с гуглавской БД, таблицами гугл, Json, Sqlite ..
пока в планах написать простенькие игры на подобие 4-ре картинки одно слово..
можно создавать свои проекты за бесплатно, как денюшка будет, купить лицензию на месяц и проекты скомпилировать под лицензию..
авторы проекта обещают выпустить серьезное обновление к концу сентября и там будет много примеров приложений ..
скретч как самому интересно так и племяннику - офигеть как он удивляется этой программе ))
андройдстудио - ради интереса, пару раз запустил и забыл ))
ардуино поставил, что бы показать племяннику, но по ходу его это не заинтересовало ((
остальное - это похождения в поисках игровых возможностей все не удаляю (может еще вернусь к ним), мне понравился GAMEGURUMAX. писать на lua но не обязательно, разработчики стараются, ИИ можно создавать визуально, естественно под любые жанры, ЗД модели можно экспортировать из стима, магазина на их сайте, sketchfab, и собственные.. поддерживается VR , в общем тут есть свои плюшки, но для меня самое главное - это простой и не загруженный интерфейс..
Зачем? Речь о получении списка установленных принтеров, а не тех, которые надо установить? И почему именно сеть? Может они все локально в усб-портах торчат...
а, ну да, я чего-то зациклился на сети ((
Угу.. Хеловорлды писать..)
ну хз, мне пока хватает ))
А зачем их искать..?
он же такую программу хочет создать не для одного принтера, то есть программа должна опросить сеть, получить адреса принтеров, это же SNMP или есть что-то еще.. ?
а разве для этого не snmp мониторинг нужен, ну, что бы для начала найти принтеры ?
Delphi RAD studio 10.3 Community Edition - не нужно ни кого ломать, свободная версия..
var Sb:TScrollBox; begin Sb := TScrollBox.Create(Form1); Sb.Parent := Form1; Sb.Align := alClient; Form2.Parent := Sb; Form2.Show; end.
спасибо за подсказку, нашёл свою ошибку!!
Походу русские символы в путях. Замени модуль:
спасибо!
На вот, готовое:
я получаю ошибку
sibprogsistem wrote:как повесить программу?
repeat .. until или while .. do.
Вопрос: для чего?
для создания фоновой музыки
пробовал
PlaySound('audio\music\Flowing Rocks.wav',0, SND_ASYNC or SND_LOOP);
но тут это не работает
у формы Form2 установлен BorderStyle = bsNone;
также эта форма parent:=Form1
Form1 тоже BorderStyle = bsNone;
мне нужно включить прокрутку в Form2
AutoScroll отображает вертикальный скролл но не работает, будто бы он Enabled:=False;, но принудительно позиции скролла менять можно
как мне включить скролл?
классная идея , будет где подсмотреть ..
неверное потому, что Вы не создали поле записи в БД
procedure Form2_OnShow (Sender: TObject; Action: string);
begin
Form2.CheckBox1.Checked:=StrToBool(SQLEXecute('SELECT w FROM a WHERE id=1'));
end;
procedure Form1_OnShow (Sender: TObject; Action: string);
begin
if (SQLExecute('SELECT COUNT(id) FROM a')='0') then SQLExecute('INSERT INTO a(w)VALUES("0")');
Form1.TableGrid1.dbUpdate;
end;
procedure Form1_CheckBox1_OnClick (Sender: TObject);
begin
SQLExecute('UPDATE a SET w="'+ Form1.CheckBox1.sqlValue +'" WHERE id=1');
Form1.TableGrid1.dbUpdate;
end;
Вроде понятно, как сиеминутно сделать выбор с помощью скрипта...
А вот как закрепить положение флажка в базе, чтоб, она, база, помнила, в каком положение, он стоит, при каждом ее запуске. Так понимаю нужно поле да/нет.
SQLExecute('UPDATE таблица SET поле="'+ Form1.CheckBox1.SqlValue +'"' WHERE id=1);
Как выдернуть значение отсюда
url:='https://sms.ru/my/balance'; smsquestion:=createoleobject('WinHttp.WinHttpRequest.5.1'); smsquestion.open('POST', url, true); smsquestion.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded'); smsquestion.send('api_id='+SMSAPI_ID+'&json=1'); //smsAn:= 'SMS.RU'; //smsTimer:=Ttimer.create(Form1); //smsTimer.Enabled:=True; //smsTimer.Interval:=1000; //smsTimer.OnTimer:=@smsAnswer; JSONObject:=TJSONObject(TJSONObject.ParseJSONValue(smsquestion.responsetext)); JSONString := TJSONString(JSONObject.GetPairByName('balance').JsonValue); form1.Edit6.Text := JSONString;
за это отвечает процедура smsAnswer
текст ответа находится здесь smsquestion.responsetext
структура JSON http://www.json.org/json-ru.html
My Visual Database → Posts by sibprogsistem
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi