ок, спасибо большое, очень вам благодарен

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, чтобы можно было делать подобные запросы и выборки, а то в инете кусками

Заранее благодарен!

Ок, спасибо большое, такой крутой запрос-выборка yikes smile

Добрый день, подскажите пожалуйста как получить максимальное значение из полученных данных, а именно сделал процедуру, все протестировал по отдельности, работает, теперь нужно чтобы К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;

5

(4 replies, posted in Russian)

ок, спасибо большое

6

(4 replies, posted in Russian)

необходимо чтобы как например в браузере или например в ворде, прокручиваешь колесо мыши и содержимое окна движется либо вверх либо вниз, сейчас чтобы просмотреть все поля, chekboxы или или увидеть кнопки внизу, нужно нажимать на стрелочки /\ или \/ и тогда все что есть на форме движется либо вниз либо вверх....если есть возможность хотелось бы чтобы данную манипуляцию можно было осуществлять колесом мыши ?

7

(4 replies, posted in Russian)

Добрый день, в ходе тестирования приложения, выяснилось что на формах прокрутка колесом мыши не работает, то есть AutoScroll  указан True, сама прокрутка есть, но двигается только когда указываешь курсором на стрелочки вниз/вверх, а колесом мыши не прокручивается.

Подскажите, как  можно сделать чтобы форма прокручивалась колесом мыши ?

Заранее благодарен, проект прилагаю.

8

(48 replies, posted in Russian)

Спасибо большое, попробую оба варианта
Thank you very much, I will try both options!

9

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

Заранее благодарен!

10

(2 replies, posted in Russian)

ок, огромное вам спасибо

11

(2 replies, posted in Russian)

Добрый день всем,
Подскажите пожалуйста, как получить данные с сайта, а конкретнее вот сайт
https://www.nbkr.kg/getservice.jsp?snam … ;lang=RUS,
это сайт центрального банка (хотя это не так важно smile ) это ссылка на ежедневный автоинформатор курса валюты, мне нужно чтобы по Click.Batton либо при запуске приложения, в приложение в Edit загружался курс на текущую дату.

Если есть несложные варианты подскажите!

Заранее благодарен!

12

(48 replies, posted in Russian)

Дерек, ваши рекомендации и советы очень полезные и простые, огромное спасибо!
Derek, your recommendations and tips are very useful and simple, thank you so much!

13

(48 replies, posted in Russian)

Ok, большое спасибо.
Ok, Thanks a lot of

14

(48 replies, posted in Russian)

Ok, большое спасибо.
Ok, Thanks a lot of

15

(48 replies, posted in Russian)

ок, спасибо большое !

Добрый день, подскажите пожалуйста, как сделать чтоб при выборе CheckBox он отображался в отчете (печать) не словами "да" или "нет", а как на форме стик (V) в квадратике, либо закрашенный небольшой квадрат или прямоугольник ?

написал небольшой скрипт в отчете, но при проверке выбираешь CheckBox или не выбираешь CheckBox показывает постоянно залитый черным

Заранее благодарен !

17

(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

(16 replies, posted in Russian)

Спасибо огромное Дерек, ваши рекомендации и советы весьма полезны и конструктивны

Thank you very much Derek, your recommendations and advice are very useful and constructive

19

(16 replies, posted in Russian)

приложение которое я делаю должно упростить оформление страхового полиса (а более конкретнее этот список будет печататься ), то есть когда доходишь до списка страны следования  и страны транзита, это тоже максимально упрощалось,

я создал таблицу со странами загрузил их туда через cvs, в edit работает идеально но только с одно страной, вот и подумал возможно ли сделать через мемо

хотя если вы пишите весьма сложно, а стоит ли оно того smile ?

поискал инфу о тектовом редакторе с автозаполнением и понял что для того чтобы это реализовать мне придеться сделать еще одно небльшое приложение, если это так то я думаю не стоит, пусть в ручную заполняют smile

если есть попроще вариант подскажите пожалуйста, что он из себя представляет ?

20

(16 replies, posted in Russian)

Добрый день,

а можно сделать автозаполнение в МЕМО и через запятую, то есть к примеру набираешь "ро" заполняется Россия ставлю запятую набираю "пак" заполняется Пакистан и тд ,чтоб оно выглядело вот так (Россия, Пакистан, Китай) ?

я соединил МЕМО с несколькими Edit  полями, добивив слеш получается Россия/Пакистан/Китай, но если я ничего не заполняю то программа выдает в пустом МЕМО вот так (///)

Заранее благодарен

Привет всем,

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.

ок спасибо, попробую все варианты

Добрый день, подскажите пожалуйста в чем ошибка
нужно чтобы по результатам  разницы между Калькулятор.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 итд

нужно сделать ограничение чтобы пользователи не выбирали не нужное smile

заранее благодарен

24

(16 replies, posted in Russian)

Ок спасибо, сработало, я оказывается  вот эту часть не правильно добавил 
begin
  AddScrollBox( Form1 );
end.

25

(16 replies, posted in Russian)

Да уж smile я об этом..... -Да я хотел пошутить над премиями за ковид, но вижу, что всё очень серьёзно...

А как это реализовать ?
Вызывать в главной секции приложения для форм, в которых нужно поддерживать AutoScroll = True
begin
  AddScrollBox( Form1 );
end.

Я код скопировал, в скрипт но что то не сработало ? По всей видимости не правильно что то сделал ?

на всех формах выставил AutoScroll = True