1 Reply by pavlenko.vladimir.v

(4 replies, posted in General)

https://fileworld.pavlenkovv.ru/img/ScreenRecorderProject663.gif

Go to forum: General

2 Reply by pavlenko.vladimir.v

(5 replies, posted in Russian)

что значит sostav_2 ?
для чего эта таблица??

Go to forum: Russian

3 Reply by pavlenko.vladimir.v

(5 replies, posted in Script)

viii,myvalue  : integer;
var  viii: integer;

Go to forum: Script

4 Reply by pavlenko.vladimir.v

(2 replies, posted in Russian)

FOOD

Go to forum: Russian

5 Topic by pavlenko.vladimir.v

(2 replies, posted in Russian)

https://fileworld.pavlenkovv.ru/img/focus.gif

Go to forum: Russian

6 Reply by pavlenko.vladimir.v

(5 replies, posted in Russian)

Вынуть дату из БД 

 myDate : TDateTime = SQLDateTimeToDateTime();

потом можете их как угодно арифметить  big_smile big_smile big_smile big_smile
   

Case When oformlen = 1
THEN '+' ELSE ''     
END

в данном варианте вроди как не заменяется символ, а создается поле

Go to forum: Russian

7 Reply by pavlenko.vladimir.v

(8 replies, posted in Russian)

Новичок wrote:

[*]При создании новой записи, в поле выбора КАТАЛОГА (ComboBox1) необходимо вывести последнее из сохраненных значений[/*]

последняя запись всегда имеет маскимальное значение ID
SELECT MAX(....)

Go to forum: Russian

8 Reply by pavlenko.vladimir.v

(13 replies, posted in General)

Он должен вернуться, просто он немного перегорел. Вполне возможно, что именно сейчас он создает новый конструктор

Go to forum: General

9 Reply by pavlenko.vladimir.v

(11 replies, posted in Russian)

Patriot10200 wrote:

И снова здравствуйте, может кто сталкивался, и расскажет как поправить, после поиска поле расход в таблице успешно превращается в нули.
С верху до поиска,
С низу после

НУЖЕН ВАШ ПРОЕКТ

Go to forum: Russian

10 Reply by pavlenko.vladimir.v

(4 replies, posted in General)

https://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=10314&download=0

Go to forum: General

11 Reply by pavlenko.vladimir.v

(4 replies, posted in General)

identity wrote:

Thanks for the reply
I know that I can choose not to use cascade.
I have attached a sample.
suppose you record something wrong in a (combobox1 Mainform) and you want to delete it while keeping other data.
If I don't use cascade delete then I get an error
If I use cascade delete all the data are lost.
What I need to do is that when I delete the data in (Tablegrid1 Bank) other data that are recorded should be intact and only the data of (combobox1 Mainform) should be cleared.
Do you think it can be done using a script?
thanks a lot

А Вам и не нужно ни чего удалять, просто перейдите в редактирование записи и в ComboBox выберете пустое поле, нажмите сохранить
 
And you don’t need to delete anything, just go to edit the entry and select an empty field in the ComboBox, click save

Go to forum: General

12 Reply by pavlenko.vladimir.v

(10 replies, posted in General)

lara.0080 wrote:

hi everyone

i am new to the app and i am trying some concept . i use a table called tempx that have a date filed , and when i  chose a date from date time picker and click save button the date stored in table but i have two problems
if i chose the same date it will store it again and i don't want this , i try to use sql but i have to change the date to string and i don't want that , is there a solution for this ??
second think i want to save each row in tempx date to other table with some other info, how to do this ???

i have attached the program ....

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
begin
  if ( SQLExecute('SELECT COUNT(id) FROM tempx WHERE Date='+ Form1.DateTimePicker1.sqlDateTime) <> 0) then Cancel := True;
end;

Go to forum: General

13 Reply by pavlenko.vladimir.v

(2 replies, posted in Russian)

Новичок wrote:

Здравствуйте.
Помогите мне с проектом.
При заполнении поля КЛЮЧ(Edit1) как сделать, что бы данные из базы данных подтягивались в поле Имя (Edit2)
Проект прилагаю.

procedure Form1_Edit1_OnChange (Sender: TObject);
begin
  if (Form1.Edit1.Text <> '') then
  Form1.Edit2.Text := SQLExecute('SELECT user_name FROM user_log WHERE user_key='''+Form1.Edit1.Text+'''') else
  Form1.Edit1.Text := '';
end;

Go to forum: Russian

14 Reply by pavlenko.vladimir.v

(9 replies, posted in Russian)

6katran6 wrote:

в общем такая проблема не могу сделать поиск по комплектующим и там еще есть поле где ставится дата когда товар был приобретен не сохраняет данные тоже спасибо за понимания и помощь заранее благодарен...

опишите точнее

Go to forum: Russian

15 Reply by pavlenko.vladimir.v

(1 replies, posted in General)

AD1408 wrote:

I was wandering if there is a way to link (hyperlink) a word in RTF editor to a tree node?

нужно искать на форуме, несколько лет назад я уже задовал такой вопрос Дмирию.
you need to search on the forum, several years ago I already asked this question to Dmitry.

Go to forum: General

16 Reply by pavlenko.vladimir.v

(2 replies, posted in General)

https://avatars.mds.yandex.net/i?id=b387ff80892f29af7681c9049b5688dc06a276d3-10639912-images-thumbs&amp;ref=rim&amp;n=33&amp;w=193&amp;h=200

Go to forum: General

17 Reply by pavlenko.vladimir.v

(6 replies, posted in General)

current_date replaced by - Date

Go to forum: General

18 Reply by pavlenko.vladimir.v

(10 replies, posted in General)

AD1408 wrote:

What I like to do is to add top or child note on the form "frmItemTree" with the help of checkboxes.

не могу понять
I can not understand

Go to forum: General

19 Reply by pavlenko.vladimir.v

(10 replies, posted in General)

..

Go to forum: General

20 Reply by pavlenko.vladimir.v

(10 replies, posted in General)

Будет не просто объяснить но я попоробую

It won't be easy to explain but I'll try
https://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=10267&amp;download=0

Go to forum: General

21 Reply by pavlenko.vladimir.v

(3 replies, posted in General)

ms2014m wrote:

How can when I press the delete key it asks for the passcode to confirm the deletion?

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
 pass : string = '1234jkjh';
 inputPass : string;
begin
  InputQuery('Подтверждение удаления ','Для удаления записи введите пароль',inputPass);
  if (inputPass <> pass) then Cancel := True;
end;

Go to forum: General

22 Reply by pavlenko.vladimir.v

(7 replies, posted in General)

Form1.Edit9.Clear;
     Form1.Edit10.Clear;
     Form1.Edit11.Clear;

Проблема в порядке выполнения операции
У Вас на изменение значения в Form1.Edit10.Clear; происходит расчет, по этому и происходит ошибка.. Там пусто
 
Problem with the order of operation
You have to change the value in Form1.Edit10.Clear; there is a calculation going on, that's why the error occurs.. It's empty

Go to forum: General

23 Reply by pavlenko.vladimir.v

(7 replies, posted in General)

приложние пустое

application is empty

Go to forum: General

24 Reply by pavlenko.vladimir.v

(42 replies, posted in Russian)

spravka2004 wrote:

Проект для организации фестивальной деятельности... В общем-то всё банально с некоторыми "ништяками". Программа сигнализирует при использовании в сети, об открытии карточки клиента. Фестивальная карточка заполняется из клиентской базы. Учет средств - элементарный, чисто на "+"... Доработки возможны smile В базу включены региональные данные по РФ.
https://disk.yandex.ru/d/zyv4DpOWr_ZMng

мне кажется идеальным !

Go to forum: Russian

25 Reply by pavlenko.vladimir.v

(42 replies, posted in Russian)

Landropa wrote:

Набросал программу для каталогизации дистрибутивов игр.

Хорошая идея, еще добавьте возможность переходить в каталог с игрой.

Go to forum: Russian