1

(4 replies, posted in Russian)

http://myvisualdatabase.com/forum/viewtopic.php?id=4274

извиняюсь, моя ошибка

Last_Insert_id - получает идентификатор новой (созданной) записи, Last_Insert_id  сработает если Вы с начало создадите запись в таблице main .

SQLExecute('SELECT MAX(id) FROM ваша_таблица'); - Выберет из таблицу максимальный (то есть последний) идентификатор записи..

http://myvisualdatabase.com/forum/viewt … 553#p35553

4

(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;

5

(5 replies, posted in General)

attach the project

6

(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;

у Вас массив Object

а i - это integer

получается, что Вы пытаетесь присвоить число массиву объектов

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

(1 replies, posted in General)

https://sqlitestudio.pl/

расположение текста выравнивается в самой таблице

Form1.TableGrid1.Columns[0].Alignment:=taCenter; 

11

(2 replies, posted in Script)

http://myvisualdatabase.com/forum/viewtopic.php?id=6874

12

(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;

форма:
frmdbCoreLogin
 
компоненты:
Image1
bLogin
pnPassword
edPassword
pnLogin
edLogin

14

(1 replies, posted in General)

используйте скрипт

Имя_Вашей_формы.Show

Вы сам проект покажите и объясните, что нужно доработать ... а люди Вам цену скажут..

16

(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

(4 replies, posted in Russian)

glkonst79 wrote:

Название формы по 2 вопросу - frmSpecification.
А почему при копировании скрипта в мою базу запрос с комбо не срабатывает, а в скаченной базе работает, но все равно огромное спасибо за помощь.

я не использовал скрипт - я настроил связи comboBox в свойствах компонента

18

(4 replies, posted in Russian)

связи готовы
  ...
по второму вопросу не понятно - какая именно форма...

19

(19 replies, posted in General)

3. не понятно, что Вы хотите

20

(10 replies, posted in SQL queries)

SELECT name FROM sqlite_master WHERE type=table  ORDER BY name 

как передать изображение из базы,  удаленной БД  POST запросом?

22

(0 replies, posted in Talks about all)

хочу попробовать создать модульный функционал в программе
модули будут располагаться  dir - Modules - Module_1
каждый модуль состоит из XML и  pas
при этом xml по аналогии в Вашей программе

не могу решить...  как можно подключить  xml и pas ?

HTTPGetFile(,,)

24

(5 replies, posted in Russian)

готово...  можете скачать пример
http://myvisualdatabase.com/forum/viewt … 707#p37707

скрипт выбирает все 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.