И снова здравствуйте, может кто сталкивался, и расскажет как поправить, после поиска поле расход в таблице успешно превращается в нули.
С верху до поиска,
С низу после
НУЖЕН ВАШ ПРОЕКТ
My Visual Database → Posts by pavlenko.vladimir.v
И снова здравствуйте, может кто сталкивался, и расскажет как поправить, после поиска поле расход в таблице успешно превращается в нули.
С верху до поиска,
С низу после
НУЖЕН ВАШ ПРОЕКТ
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
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;
Здравствуйте.
Помогите мне с проектом.
При заполнении поля КЛЮЧ(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;
в общем такая проблема не могу сделать поиск по комплектующим и там еще есть поле где ставится дата когда товар был приобретен не сохраняет данные тоже спасибо за понимания и помощь заранее благодарен...
опишите точнее
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.
current_date replaced by - Date
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
Будет не просто объяснить но я попоробую
It won't be easy to explain but I'll try
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;
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
приложние пустое
application is empty
Проект для организации фестивальной деятельности... В общем-то всё банально с некоторыми "ништяками". Программа сигнализирует при использовании в сети, об открытии карточки клиента. Фестивальная карточка заполняется из клиентской базы. Учет средств - элементарный, чисто на "+"... Доработки возможны В базу включены региональные данные по РФ.
https://disk.yandex.ru/d/zyv4DpOWr_ZMng
мне кажется идеальным !
Набросал программу для каталогизации дистрибутивов игр.
Хорошая идея, еще добавьте возможность переходить в каталог с игрой.
Поправил ссылку. Яндекс шалит https://disk.yandex.ru/d/QdmVfBqyfiQ2Kg
Дизайн БОМБА, интересно узнать как устроена работа с номенклатурой
Есть необходимость прогнать процесс через несколько форм.
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.
тогда попробуйте так, просто без проекта не понятно вообще, как слепой
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.
попробуйте так
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.
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);
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
Фигасе маленький. Да тут без проектной документации не разобраться...
это было очень давно
Я делал проект с кассой, но маленький и в нем использовался сканер штрих-кодов.
Этот проект я внедрял в сервисную программу 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!
My Visual Database → Posts by pavlenko.vladimir.v
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi