Patriot10200 wrote:

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

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

2

(4 replies, posted in General)

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

3

(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

4

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

5

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

6

(9 replies, posted in Russian)

6katran6 wrote:

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

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

7

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

8

(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

9

(6 replies, posted in General)

current_date replaced by - Date

10

(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

11

(10 replies, posted in General)

..

12

(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

13

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

14

(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

15

(7 replies, posted in General)

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

application is empty

16

(42 replies, posted in Russian)

spravka2004 wrote:

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

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

17

(42 replies, posted in Russian)

Landropa wrote:

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

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

18

(42 replies, posted in Russian)

spravka2004 wrote:

Поправил ссылку. Яндекс шалит smile  https://disk.yandex.ru/d/QdmVfBqyfiQ2Kg

Дизайн БОМБА, интересно узнать как устроена работа с номенклатурой

netros wrote:

Есть необходимость прогнать процесс через несколько форм.

Form1.Show;
Form2.Show;
Form3.Show
etc
Выходные результаты каждой формы являются входными для следующей.
Как затормозить работу программы до закрытия выполняемой формы?

Можно, конечно, while boolean =0 do delay=500 со взводом флага по закрытию формы (событие OnExit), но опять эти прыжки по коду....
Может есть какой-то параметр типа WindowState = Close?

var
T:TTimer;

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
begin
  Form2.Show;
end;

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
  if ( Form2.Visible = False ) then Form1.Close else T.Enabled:=True;
end;

begin
  T:=TTimer.Create(Application);
  T.Interval:=10;
  T.OnTimer:=@Form1_Button1_OnClick;
  T.Enabled:=False;
end.

20

(7 replies, posted in Russian)

тогда попробуйте так, просто без проекта не понятно вообще, как слепой

procedure FrmOne_Button23_OnClick (Sender: TObject; var Cancel: boolean);
var 
i: integer;
begin
for i := 0 to FrmOne.TG_PayRoll.RowCount-1 do
  if (FrmOne.TG_PayRoll.Cells[17,i] = SQLExecute('SELECT RecipientPay FROM TemPay Where Transf > 240000 AND id=' +FrmOne.TG_PayRoll.dbIndexToID(i) )) then
     frmOne.TG_PayRoll.Cell[17,i].Color := $FF00E2;
end.

21

(7 replies, posted in Russian)

попробуйте так

procedure FrmOne_Button23_OnClick (Sender: TObject; var Cancel: boolean);
var 
i: integer;
begin
for i := 0 to FrmOne.TG_PayRoll.RowCount-1 do
  if (FrmOne.TG_PayRoll.Cells[17,i] = SQLExecute('SELECT RecipientPay FROM TemPay Where Transf > 240000')) then
     frmOne.TG_PayRoll.Cell[17,i].Color := $FF00E2;
end.

22

(11 replies, posted in General)

var
    IBAN, IBANText: string;
    IBANverify: Int64;
begin
    IBAN := frmAddPayee.Edit3.Text;
    IBANText := Copy(IBAN,3,25)+ '1011'+ Copy(IBAN,1,2);
    IBANverify := StrToInt64('IBANNum');
    if IBANverify = 0 then
    begin
        showmessage('Error');
    end
    else
    begin
        showmessage('Good');
    end;

вообще не понимаю:
Зачем капировать символы, я не вижу продолжения.
Зачем проверять IBANverify  если его значение будет всегда одинаково.
 
I don't understand at all:
Why copy the characters, I don’t see a continuation.
Why check IBANverify if its value will always be the same.
 
 
 
может Вы хотели сделать так
maybe you wanted to do this

IBANverify := StrToInt64(IBANText);

23

(11 replies, posted in General)

Step-in wrote:

In the program, I write the code for conversion and verification of the IBAN of the account. In it, I operate with values of 31 characters. When executing StrToInt64 (1234567890123456789012345678901) gives an error: "1234567890123456789012345678901" is not valid integer value.

I read many forums and tips. Everywhere it says that it should work. What can be done about it?

var
  A, B, C, D, E, F : Int64;

begin
  A := 32;
  B := StrToInt64('100');    // строка '100' преобразуется в целочисленное 100
  C := StrToInt64('  -12');  // Начальные пробелы игнорируются
  D := StrToInt64('$1E');    // Шестнадцатеричные значения начинаются с '$'
  E := StrToInt64('-0x1E');  // ... или с '0x'

переменная должна быть - Int64
значение должно быть в скобках String; - text
 
the variable must be Int64
the value must be in brackets String; - text

24

(4 replies, posted in General)

k245 wrote:

Фигасе маленький. Да тут без проектной документации не разобраться...

big_smile big_smile это было очень давно

25

(4 replies, posted in General)

Я делал проект с кассой, но маленький и в нем использовался сканер штрих-кодов.
Этот проект я внедрял в сервисную программу https://myvisualdatabase.com/forum/view … hp?id=6853
если не разберетесь, пишите!

I did a project with a cash register, but it was small and it used a barcode scanner.
I implemented this project into the service program https://myvisualdatabase.com/forum/view ... hp?id=6853
If you don't understand, write!