2 2020-09-25 10:56:20
Re: [Решено] Сохранение в две таблицы (13 replies, posted in Russian)
извиняюсь, моя ошибка
Last_Insert_id - получает идентификатор новой (созданной) записи, Last_Insert_id сработает если Вы с начало создадите запись в таблице main .
SQLExecute('SELECT MAX(id) FROM ваша_таблица'); - Выберет из таблицу максимальный (то есть последний) идентификатор записи..
3 2020-09-24 18:53:49
Re: Неверное изображение на диалоговой форме типа "mtConfirmation" (1 replies, posted in Russian)
4 2020-09-24 05:58:06
Re: Help in the _user table (5 replies, posted in General)
var
onoma:string;
procedure Form1_OnShow (Sender: TObject; Action: string);
var
y:Boolean;
begin
if Application.User.is_admin = true then begin
onoma:=Application.User.Username;
form1.Label1.Caption:= Application.User.Username;
y:=StrToBool(SQLExecute('SELECT a1 FROM _user WHERE username="'+onoma+'"'));
if (y=True) then showmessage('yes and a1 has value ='+onoma) else showmessage('no');
end;
end;6 2020-09-23 17:31:25
Re: число кратное трём (1 replies, posted in Russian)
procedure CalculateTotal50(Sender: TObject; var Cancel: boolean);
begin
if (Form1.Edit1.Value mod 3) =0 then Form1.Label1.Caption:='Число кратно трем';
if (Form1.Edit1.Value mod 3) <>0 then Form1.Label1.Caption:='Число некратно трем';
end;7 2020-09-23 16:44:41
Re: Обращение к обьекту Формы наименование которых зашито в массив данных (1 replies, posted in Russian)
у Вас массив Object
а i - это integer
получается, что Вы пытаетесь присвоить число массиву объектов
8 2020-09-19 13:57:29
Re: [Решено] Сохранение в две таблицы (13 replies, posted in Russian)
procedure Form1_Button1_OnAfterClick (Sender: string);
begin
SQLExecute( 'INSERT INTO D (X, Y, Z, id_main) VALUES ("' + Form2.Edit1.Text + '","' + Form2.Edit2.Text + '","' + Form2.Edit3.Text +'", "'+IntToStr(Last_Insert_id)+'")' );
end;id_man - содержит id записи с которой Вам нужно связать новую запись, где man- имя таблицы с которой связываете запись
Last_Insert_id - получить id последней записи
9 2020-09-19 13:49:30
Re: Reset role password (1 replies, posted in General)
10 2020-09-16 10:13:37
Re: Подскажите, как в sql запросе отцентровать содержимое (1 replies, posted in Russian)
расположение текста выравнивается в самой таблице
Form1.TableGrid1.Columns[0].Alignment:=taCenter; 11 2020-09-14 11:43:16
Re: Error in Multiselect Combobox (2 replies, posted in Script)
12 2020-09-14 11:38:39
Topic: скрипт поиска формы (0 replies, posted in FAQ)
в этом примере происходит поиск имени формы по ее заголовку
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
i:integer;
begin
for i := 0 to Screen.FormCount - 1 do
if Lowercase(Screen.Forms[i].Caption)= Lowercase('Вход') then Form1.Edit1.Text:=Screen.Forms[i].name;
end;13 2020-09-14 11:30:15
Re: Изменение дизайна формы аутентификации пользователя (3 replies, posted in Russian)
форма:
frmdbCoreLogin
компоненты:
Image1
bLogin
pnPassword
edPassword
pnLogin
edLogin
14 2020-09-12 18:50:51
Re: активные окна (1 replies, posted in General)
используйте скрипт
Имя_Вашей_формы.Show15 2020-09-08 10:20:17
Re: Помогите доработать простую программу учёта продаж (1 replies, posted in FAQ)
Вы сам проект покажите и объясните, что нужно доработать ... а люди Вам цену скажут..
16 2020-09-06 08:16:32
Re: Выборка значений в combobox (4 replies, posted in Russian)
сделал пример на вашей форме
укажите количество - ндс - сумму
после указания суммы программа посчитает сумму с ндс
frmSpecification.Edit4.Value:=(frmSpecification.Edit2.Value*frmSpecification.Edit1.Value) * StrToFloat('1,'+frmSpecification.Edit3.Text); Посчитать сумму с НДС можно, не вычисляя предварительно сам налог. Для этого используйте формулы:
С = НБ × 1,20 — если считать НДС по ставке 20% (с 01.01.2019),
С = НБ × 1,18 — если считать НДС по ставке 18% (до 01.01.2019),
С = НБ × 1,10 — по ставке 10%,
где НБ — налоговая база, то есть сумма без налога.
17 2020-09-06 07:24:26
Re: Выборка значений в combobox (4 replies, posted in Russian)
Название формы по 2 вопросу - frmSpecification.
А почему при копировании скрипта в мою базу запрос с комбо не срабатывает, а в скаченной базе работает, но все равно огромное спасибо за помощь.
я не использовал скрипт - я настроил связи comboBox в свойствах компонента
18 2020-09-04 20:26:36
Re: Выборка значений в combobox (4 replies, posted in Russian)
связи готовы
...
по второму вопросу не понятно - какая именно форма...
19 2020-08-17 17:21:27
Re: Some issues with my very first project (19 replies, posted in General)
3. не понятно, что Вы хотите
20 2020-08-14 12:24:12
Re: SQL query working outside but no in MVD (10 replies, posted in SQL queries)
SELECT name FROM sqlite_master WHERE type=table ORDER BY name 21 2020-08-10 22:12:33
Topic: передать поле Blob (изображение) (0 replies, posted in Russian)
как передать изображение из базы, удаленной БД POST запросом?
22 2020-08-10 16:07:38
Topic: Вопрос Дмитрию (0 replies, posted in Talks about all)
хочу попробовать создать модульный функционал в программе
модули будут располагаться dir - Modules - Module_1
каждый модуль состоит из XML и pas
при этом xml по аналогии в Вашей программе
не могу решить... как можно подключить xml и pas ?
23 2020-08-10 10:27:21
Re: Сохранить изображение из интернета на диск (2 replies, posted in Russian)
HTTPGetFile(,,)
24 2020-08-08 17:08:12
Re: Поля ComboBox тип поля MultiSelect (5 replies, posted in Russian)
готово... можете скачать пример
http://myvisualdatabase.com/forum/viewt … 707#p37707
25 2020-08-08 17:06:38
Topic: скрипт формирования цены из услуг выбранных из ComboBox в MultiSelect (0 replies, posted in FAQ)
скрипт выбирает все ComboBox на форме проверяет на выбранные значения в MultiSelect и формирует единую цену
procedure Form1_OnShow (Sender: TObject; Action: string);
begin
Form1.ComboBox1.TagString:='itemA';
Form1.ComboBox2.TagString:='itemB';
end;
procedure Form1_ComboBox1_OnChange (Sender: TObject);
var
i,j:integer;
begin
Form1.Edit1.Value:=0;
for i:=0 to Form1.ComponentCount-1 do
if (Form1.Components[i] is TdbComboBox) then
for j:=0 to TdbComboBox(Form1.Components[i]).Items.Count-1 do
if TdbComboBox(Form1.Components[i]).ItemsChecked[j]= True then
Form1.Edit1.Value:= Form1.Edit1.Value + SQLExecute('SELECT price FROM "'+ TdbComboBox(Form1.Components[i]).TagString +'" WHERE id='+IntToStr(TdbComboBox(Form1.Components[i]).dbIndexToID(j)));
end;
begin
end.