Skip to forum content
My Visual Database
A Simple Solution for Creating Databases
You are not logged in. Please login or register.
Active topics Unanswered topics
Search options (Page 2 of 18)
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.
тогда попробуйте так, просто без проекта не понятно вообще, как слепой
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);
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
k245 wrote:Фигасе маленький. Да тут без проектной документации не разобраться...
это было очень давно
Я делал проект с кассой, но маленький и в нем использовался сканер штрих-кодов.
Этот проект я внедрял в сервисную программу 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!
sparrow wrote:Something like this
опишите вашу проблему, в какой форме должно происходить действие, на какую таблицу оно должно повлиять и т.д.
describe your problem, in what form the action should take place, which table it should affect, etc.
dhekabai wrote:Thank you for your help 
publish your project
опубликуйте Ваш проект
Step-in wrote:I'm trying to figure out how to bypass the searchable property. When setting this property, frequent friezes. Maybe there are good people who can share an option or a possible resolution of the problem, where it is provided that is available for search in ComboBox?
what exactly is your problem ?
abdulraheem.contact wrote:Hello
How do I hide the edit feature when previewing?
???
Новичок wrote:Здравствуйте.
Подскажите пожалуйста как скрыть компоненты (текст и панель) по заданной дате.
Например:
В январе 2024 скрыть ТЕКСТ
7 января скрыть ПАНЕЛЬ
procedure Form1_OnShow (Sender: TObject; Action: string);
begin
end;
procedure Form1_OnShow (Sender: TObject; Action: string);
var
myDate : TDateTime = SQLDateTimeToDateTime('2024-01-01 00:00:00.000');
begin
if Now > myDate then form1.Label1.Visible := false;
end;
я работаю на windows 11
Для тестов MySQL я использую хостинг джино: MySQL 10.1.48-MariaDB
I'm working on windows 11
For MySQL tests I use gino hosting: MySQL 10.1.48-MariaDB
levrussia174 wrote:Так как бывают поставки одной и той же техники, какое то время у них одинаковые характеристики, но потом начинает меняться и это должно отобразиться в таблице. Но я почитаю данную статью, спасибо
Вам не нужно копировать таблицу, Вы вообще представляете сколько у Вас в итоге будет таблиц???
Просто при поступлении товара нужно указать его характеристики, что и будет различать товары.
Вы же понимаете, что телевизор черного цвета не может стать красным - он либо есть, либо нет
ни чего не понял, Вы хотите продублировать таблицу или просто запись?
Делаю тетрис, в качестве поля использую TableGrid
осталось разобраться с проблемами:
1. создать проверку выхода за поле при перевороте фигуры
2. создать проверку на столкновения при перевороте фигуры
3. когда удаляются несколько линий, последняя линия удаляется при следующем ходе
Управление стрелками лево-право
Переворот стрелка вверх
ускорить падение фигуры стрелка вниз
Пока что устал от этого проекта, доделаю немного позже
tcoton wrote:Hi all,
I know it is possible to hide a column in a tablegrid but is it possible to hide a row or a specific record according an id in a tablegrid result?
Form1.TableGrid1.RowVisible[i] := False;
sparrow wrote:Небольшое недоразумение в программе:
Еще раз спасибо!
я использовал mniOptions, переименовал в помощь и сменил назначение onClick
а пункты меню просто скрыл, потому при переводе курсора мышки и срабатывал клик (дабы раскрыть меню)
я добавил удаление и теперь раскрываться нечему ))) и клик не срабатывает.
frmMain.mniOptions.Delete(6);
frmMain.mniOptions.Delete(5);
frmMain.mniOptions.Delete(4);
frmMain.mniOptions.Delete(3);
frmMain.mniOptions.Delete(2);
frmMain.mniOptions.Delete(1);
frmMain.mniOptions.Delete(0);
jrga wrote:Hi Pavlenko, thanks for getting back to us!
RichEdit is now working. Thank you, sparrow !
Теперь RichEdit работает. Спасибо, sparrow !
скачать тут https://fileworld.pavlenkovv.ru/BookLib … y.v5.2.zip
sparrow wrote:Устранение проблемы с RichEdit
Спасибо!
я об этом даже и не подумал
Исправил еще несколько ошибок
добавил файл справки
Ну вроди как все.
скачать тут https://fileworld.pavlenkovv.ru/BookLib … y.v5.2.zip
sparrow wrote:Такое поведение со стилем наблюдается на AMD
А вот на Intel
Спасибо!
k245 wrote:Может, в этом дело?
Версия не влияет, так же себя ведет Ваша сборка
k245 wrote:У меня работает со стилями без проблем. см. проект ComponentExplorer
Я даже винду переустановил..
Может это и есть, то что называется, утечкий памяти?
Posts found: 26 to 50 of 433