ок, спасибо большое, очень вам благодарен
1 2022-09-08 12:41:41
Re: Максимальное значение (Max) K2_1,K2_2,K2_3,K2_4,K2_5 (5 replies, posted in Russian)
2 2022-09-08 04:34:44
Re: Максимальное значение (Max) K2_1,K2_2,K2_3,K2_4,K2_5 (5 replies, posted in Russian)
sparrow, спасибо большое еще раз,
1й вариант не сработал пишет синтаксис эрор
K2 := StrToFloat(sqlexecute('SELECT max((select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox4.Text+'"), '+
' (select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox5.Text+'"), '+
' (select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox6.Text+'"), '+
' (select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox7.Text+'"), '+
' (select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox8.Text+'") '));
а 2й работает отлично
K2 := StrToFloat(sqlexecute('select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox4.Text+'" '+
' UNION ALL '+
' select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox5.Text+'" '+
' UNION ALL '+
' select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox6.Text+'" '+
' UNION ALL '+
' select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox7.Text+'" '+
' UNION ALL '+
' select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox8.Text+'" '+
' ORDER BY 1 DESC LIMIT 1'));
И просьба, посоветуйте пжл какую нибудь книгу или материал по SQLite либо по MYSQL, чтобы можно было делать подобные запросы и выборки, а то в инете кусками
Заранее благодарен!
3 2022-09-07 12:03:49
Re: Максимальное значение (Max) K2_1,K2_2,K2_3,K2_4,K2_5 (5 replies, posted in Russian)
Ок, спасибо большое, такой крутой запрос-выборка
4 2022-09-07 07:00:56
Topic: Максимальное значение (Max) K2_1,K2_2,K2_3,K2_4,K2_5 (5 replies, posted in Russian)
Добрый день, подскажите пожалуйста как получить максимальное значение из полученных данных, а именно сделал процедуру, все протестировал по отдельности, работает, теперь нужно чтобы К2 был равен максимальному значению из K2_1,K2_2,K2_3,K2_4,K2_5, в интернете поискал но там в основном выборка из массива, а мне нужно не из массива, по видимому нужно задать минимальное и максимальное значение и соответствующее сравнение, подскажите как реализовать ?
Заранее благодарю
procedure Insurance_Button3_OnClick (Sender: TObject; var Cancel: boolean);
var
K1,K2,K2_1,K2_2,K2_3,K2_4,K2_5,K3,K4,K5,K6: Double;
begin
If Insurance.ComboBox12.Text = ' ' then
K3:= 1
else
K3:= 1.6;
begin
K1:= sqlexecute('select TypeVehicleRatio from TypeVehicle where TypeAuto = "'+Insurance.ComboBox2.Text+'"');
K4:= sqlexecute('select LocationRatio from RegistrationAuto where LocationAuto = "'+Insurance.ComboBox1.Text+'"');
K5:= sqlexecute('select DiagnCardRatio from DiagnosticCard where DiagnCardYesNo = "'+Insurance.ComboBox9.Text+'"');
K6:= sqlexecute('select InsPeriodRatio from InsurancePeriod where InsPeriod = "'+Insurance.ComboBox10.Text+'"');
//K2:= Max(K2_1,K2_2,K2_3,K2_4,K2_5);
K2_1:= sqlexecute('select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox4.Text+'"');
K2_2:= sqlexecute('select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox5.Text+'"');
K2_3:= sqlexecute('select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox6.Text+'"');
K2_4:= sqlexecute('select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox7.Text+'"');
K2_5:= sqlexecute('select AgeExpDrRatio from AgeExpDriver where AgeExpDriving = "'+Insurance.ComboBox8.Text+'"');
Insurance.edit1.value:= 1680*K1*K2(?)*K3*K4*K5*K6;
end;
end;
6 2022-08-18 04:50:49
Re: Прокрутка 'scrolling' (4 replies, posted in Russian)
необходимо чтобы как например в браузере или например в ворде, прокручиваешь колесо мыши и содержимое окна движется либо вверх либо вниз, сейчас чтобы просмотреть все поля, chekboxы или или увидеть кнопки внизу, нужно нажимать на стрелочки /\ или \/ и тогда все что есть на форме движется либо вниз либо вверх....если есть возможность хотелось бы чтобы данную манипуляцию можно было осуществлять колесом мыши ?
7 2022-08-17 05:44:59
Topic: Прокрутка 'scrolling' (4 replies, posted in Russian)
Добрый день, в ходе тестирования приложения, выяснилось что на формах прокрутка колесом мыши не работает, то есть AutoScroll указан True, сама прокрутка есть, но двигается только когда указываешь курсором на стрелочки вниз/вверх, а колесом мыши не прокручивается.
Подскажите, как можно сделать чтобы форма прокручивалась колесом мыши ?
Заранее благодарен, проект прилагаю.
8 2022-08-11 02:59:10
Re: Вывод на печать CheckBox (48 replies, posted in Russian)
Спасибо большое, попробую оба варианта
Thank you very much, I will try both options!
9 2022-08-10 17:13:46
Re: Вывод на печать CheckBox (48 replies, posted in Russian)
Добрый день, подскажите пожайлуста, как сделать так чтобы CheckBox в отчете (на печате) печатал не на русском нет или да, а на английском языке no или yes, попытался в самом отчете изметить в свойствах в Format Boolean в Format string указал No, Yes не сработало, сделал вот так через Edit, работает, но когда начал тестировать очень не удобно, чтобы появилось yes no надо два раза нажимать (Click) на CheckBox, изначально все работало автоматически но на русском языке
procedure Policy_CheckBox1_OnClick (Sender: TObject);
begin
if policy.CheckBox1.Checked then
policy.Edit47.Text:= 'yes'
else
policy.Edit47.Text:= 'no';
end;
Заранее благодарен!
11 2022-08-04 05:01:16
Topic: данные с сайта (2 replies, posted in Russian)
Добрый день всем,
Подскажите пожалуйста, как получить данные с сайта, а конкретнее вот сайт
https://www.nbkr.kg/getservice.jsp?snam … ;lang=RUS,
это сайт центрального банка (хотя это не так важно ) это ссылка на ежедневный автоинформатор курса валюты, мне нужно чтобы по Click.Batton либо при запуске приложения, в приложение в Edit загружался курс на текущую дату.
Если есть несложные варианты подскажите!
Заранее благодарен!
12 2022-08-02 10:04:12
Re: Вывод на печать CheckBox (48 replies, posted in Russian)
Дерек, ваши рекомендации и советы очень полезные и простые, огромное спасибо!
Derek, your recommendations and tips are very useful and simple, thank you so much!
13 2022-08-01 16:08:28
Re: Вывод на печать CheckBox (48 replies, posted in Russian)
Ok, большое спасибо.
Ok, Thanks a lot of
14 2022-08-01 13:48:16
Re: Вывод на печать CheckBox (48 replies, posted in Russian)
Ok, большое спасибо.
Ok, Thanks a lot of
15 2022-08-01 12:59:27
Re: Вывод на печать CheckBox (48 replies, posted in Russian)
ок, спасибо большое !
16 2022-08-01 11:28:48
Topic: Вывод на печать CheckBox (48 replies, posted in Russian)
Добрый день, подскажите пожалуйста, как сделать чтоб при выборе CheckBox он отображался в отчете (печать) не словами "да" или "нет", а как на форме стик (V) в квадратике, либо закрашенный небольшой квадрат или прямоугольник ?
написал небольшой скрипт в отчете, но при проверке выбираешь CheckBox или не выбираешь CheckBox показывает постоянно залитый черным
Заранее благодарен !
17 2022-07-29 16:33:45
Re: Авто заполнение (16 replies, posted in Russian)
Добрый день Дерек, спасибо вам большое, я вам очень признателен, я попробую все варианты!
Good day Derek, thank you very much, I am very grateful to you, I will try all the options!
18 2022-07-28 03:20:34
Re: Авто заполнение (16 replies, posted in Russian)
Спасибо огромное Дерек, ваши рекомендации и советы весьма полезны и конструктивны
Thank you very much Derek, your recommendations and advice are very useful and constructive
19 2022-07-27 12:52:55
Re: Авто заполнение (16 replies, posted in Russian)
приложение которое я делаю должно упростить оформление страхового полиса (а более конкретнее этот список будет печататься ), то есть когда доходишь до списка страны следования и страны транзита, это тоже максимально упрощалось,
я создал таблицу со странами загрузил их туда через cvs, в edit работает идеально но только с одно страной, вот и подумал возможно ли сделать через мемо
хотя если вы пишите весьма сложно, а стоит ли оно того ?
поискал инфу о тектовом редакторе с автозаполнением и понял что для того чтобы это реализовать мне придеться сделать еще одно небльшое приложение, если это так то я думаю не стоит, пусть в ручную заполняют
если есть попроще вариант подскажите пожалуйста, что он из себя представляет ?
20 2022-07-27 10:38:44
Re: Авто заполнение (16 replies, posted in Russian)
Добрый день,
а можно сделать автозаполнение в МЕМО и через запятую, то есть к примеру набираешь "ро" заполняется Россия ставлю запятую набираю "пак" заполняется Пакистан и тд ,чтоб оно выглядело вот так (Россия, Пакистан, Китай) ?
я соединил МЕМО с несколькими Edit полями, добивив слеш получается Россия/Пакистан/Китай, но если я ничего не заполняю то программа выдает в пустом МЕМО вот так (///)
Заранее благодарен
21 2022-07-22 06:35:41
Re: Обязательный выбор для Combobox (18 replies, posted in Russian)
Привет всем,
Derek, вы правы, первоначально идея была, чтобы не показывать поле со списком, а в приложении, диапазон дат рассчитывался автоматически, чтобы избежать операционного риска (ошибок со стороны пользователей).
Ваше предыдущее предложение мне очень помогло я применил некоторые функции из него в своем проекте и они работают превосходно, последнее предложение я обязательно посмотрю.
Спасибо всем, любые предложения, любые рекомендации мне помогают, сам я не программист (информацию сначала ищу по книжкам), My Visual Database очень классная среда разработки, упрощает работу над приложением.
.
.
Hi everyone,
Derek, you're right, the original idea was not to show the List Box, but in the application, the date range was calculated automatically to avoid operational risk (errors on the part of users).
Your previous suggestion helped me a lot, I applied some of the functions from it in my project and they work perfectly, I will definitely look at the last suggestion.
Thanks to everyone, any suggestions, any recommendations help me, I am not a programmer myself (I first look for information from books), My Visual Database is a very cool development environment, simplifies work on the application.
22 2022-07-21 14:31:33
Re: Обязательный выбор для Combobox (18 replies, posted in Russian)
ок спасибо, попробую все варианты
23 2022-07-21 10:47:34
Topic: Обязательный выбор для Combobox (18 replies, posted in Russian)
Добрый день, подскажите пожалуйста в чем ошибка
нужно чтобы по результатам разницы между Калькулятор.DateTimePicker2.DateTime - Калькулятор.DateTimePicker1.DateTime +1 в калькулятор.ComboBox3 из выпадающего списка указывался только заданный период, написал условие, ошибку не выдает но и нужного результата тоже
if ((Калькулятор.DateTimePicker2.DateTime - Калькулятор.DateTimePicker1.DateTime +1) > 1) and ((Калькулятор.DateTimePicker2.DateTime - Калькулятор.DateTimePicker1.DateTime +1) <=7) then
Калькулятор.ComboBox3.text:= sqlexecute('select Period from TimeList where Period like "1-7" ');
нужно чтоб если разница межу двумя датами к примеру 3 дн с 21/07/22 и 23/07/22 то в ComboBox выпадал заданный для этого периода указатель 1-7
сейчас в ComboBox выпадает несколько периодов 1-7, 8-14, 15-21, 22-31, 32-62 итд
нужно сделать ограничение чтобы пользователи не выбирали не нужное
заранее благодарен
24 2022-07-19 16:15:21
Re: Стили в мy visual database 6.5 (16 replies, posted in Russian)
Ок спасибо, сработало, я оказывается вот эту часть не правильно добавил
begin
AddScrollBox( Form1 );
end.
25 2022-07-18 16:15:18
Re: Стили в мy visual database 6.5 (16 replies, posted in Russian)
Да уж я об этом..... -Да я хотел пошутить над премиями за ковид, но вижу, что всё очень серьёзно...
А как это реализовать ?
Вызывать в главной секции приложения для форм, в которых нужно поддерживать AutoScroll = True
begin
AddScrollBox( Form1 );
end.
Я код скопировал, в скрипт но что то не сработало ? По всей видимости не правильно что то сделал ?
на всех формах выставил AutoScroll = True