Can i ask why do you use twice the Screen.Height??
(Screen.Height<720) AND (Screen.Height<640)
просто вбил любые цифры
I just entered any number
My Visual Database → Posts by pavlenko.vladimir.v
Can i ask why do you use twice the Screen.Height??
(Screen.Height<720) AND (Screen.Height<640)
просто вбил любые цифры
I just entered any number
Yew, I know that program, But what if we had the change to make it automatic or giving the option to our customers just with running our software?
That is the reason asking .
может просто маштабировать само приложение, Вам нужно написать свои цифры
can just scale the app itself, you need to write your numbers
if (Screen.Height<720) AND (Screen.Height<640) then
AdjustResolution(Form_Name);
End;
procedure AdjustResolution(oForm:TForm);
var
iPercentage:integer;
begin
iPercentage:=Round(((Screen.Width-640)/640)*100)+100;
oForm.ScaleBy(iPercentage,100);
end;
Hi all. Can we get a message for the screen result if it's lower than 720 X 640? I need it because clients complains.....
if (Screen.Height=720) OR (Screen.Height=640) then
*****
*****
End
Вопрос к пользователям ClassExplorer. Сейчас примеры могут включать форматированный текст и картинки. Но форматировать текст нужно вручную.
Насколько актуально добавить автоматическое форматирование текста и подсвечивание ключевых слов для выделенного фрагмента текста? И нужно ли хранение изображений или достаточно подсветки кода, как это сделано в программе Snippet Manager?
Очень даже актуально, с форматированием совсем по другому воспринимается.. подсветка кода помогает читать этот код. С картинкой даже не знаю , мне не обязательно.
часто получаю такую ошибку
sibprogsistem wrote:нашел на просторах интернета систему управления контентом
CMS на основе APIПолучилось?
там не так сложно как кажется, к понятию коллекции данных я привык еще с сервиса WIX
Я как только закончу переделывать question сделаю пример на этой CMS
pavlenko.vladimir.v wrote:chartcatuser wrote:Дорогой друг наверное тебе не столь понятно давай я тебе приведу пример более подходящий там я расписал момент. Извени за настырность..)
что за ближайшая дата? от куда она берется?
Зачем передовать дату в DateTimePicker ?
где хранятся списки дат? даты привязаны к конкретной записи или просто свободный выбор????Ближайшая дата из всего списка дат которые привязаны к id Item
я вот сделал кое что но у меня при поиске выдает ошибку....
Вообщем я просто налепил сверху таблицу и сделал на нее поиск а сам поиск привязал к первой таблице где хранятся item ну при первом поиске все нормально выдает даты которые привязаны к конкретной записи выходишь из формы обратно заходишь и когда пытаешься опять нажать поиск по 1 таблице выдает такую ошибку, я вот думаю может кнопку через sql запрос сделать ?
у меня есть таблица
bsm_new - где храняться ITEM
ordert - там храняться даты там есть поле dateи вот ругается при повторном поиске >....
так а что тут не получается?
Form1.DateTimePicker1.DateTime := SQLDateTimeToDateTime(SQLexecute('SELECT name3 FROM NAMES WHERE id='+Form1.TableGrid1.sqlValue));
просто TableGrid1 смените на ComboBox1
но у меня все равно не полчается Вас понять, если у Вас уже есть список дат, то зачем снова создавать дату? и DateTimePicker тоже не понятно зачем нужен, просто сохраните выбранную дату из ComboBox .
зачем Вам запрос LEFT OUTER JOIN ?
Дорогой друг наверное тебе не столь понятно давай я тебе приведу пример более подходящий там я расписал момент. Извени за настырность..)
что за ближайшая дата? от куда она берется?
Зачем передовать дату в DateTimePicker ?
где хранятся списки дат? даты привязаны к конкретной записи или просто свободный выбор????
У меня mysql выдает ошибку
видимо не выбранно поле с датой
если Вы не обратили внимание, в примере поле с датой берется из выбора в таблице (id='+Form1.TableGrid1.sqlValue)
Вот более подробнее пример в закрепе:
Выбираем из таблицы запись = она равняется combobox = id=1 у которой в свою очередь парент combobox2 ( но как привязать datetimepicker) чтобы он включался при выборе combobox2 на ближаюшую дату!!! Помогите пожалуйтста
То есть у записи 1 может быть 10 разных дат но при выборе из таблице запись 1 - выбирается ближайшая дата
Form1.DateTimePicker1.DateTime := SQLDateTimeToDateTime(SQLexecute('SELECT name3 FROM NAMES WHERE id='+Form1.TableGrid1.sqlValue));
Подскажите как можно сделать поиск, чтобы он искал слова пока ты их набираешь в строке поиска (например как поиск в яндекс), а не только когда ты ввел слово целиком?
видео пример https://zen.yandex.ru/video/watch/62dda … 2c18a61837
попробуйте другой запрос
http://myvisualdatabase.com/forum/viewtopic.php?id=7125
http://myvisualdatabase.com/forum/viewt … 363#p45363
Мне интерестно посмотреть кто, что сделал )!!
Добрый день, напишете пожалуйста что не так с моим кодом ? Мне нужно чтобы при нажатии на кнопку при выборе в ComboBox1, ComboBox2, ComboBox3, в Edit выводился соответствующий результат из нужной таблицы
procedure Form1_Button3_OnClick (Sender: TObject; var Cancel: boolean);
begin
if (form1.ComboBox1.SelectedCount < 1) and (form1.ComboBox2.SelectedCount < 1) and (form1.ComboBox3.SelectedCount < 1) then
begin
Form1.Edit2.dbFilter:= 'id_Tarif =(id_Option='+IntToStr(Form1.ComboBox1.dbItemID)+') AND (id_AmountPeople='+IntToStr(Form1.ComboBox2.dbItemID)+') AND (id_Days='+IntToStr(Form1.ComboBox3.dbItemID)+')';
end
else
begin
Form1.Edit2.Value:= 0;
end;
end;Заранее благодарю
не могу понять, что Вы хотите сделать!! ((
Hello everyone, I'm trying to do a division for my son but I find an error and I don't know where it comes from.
Can anyone help me?
frmOperation.edTotalDivision.Value := frmOperation.edDivision1.Value / frmOperation.edDivision2.Value;
can be compared
You need to store the actual numbers in the database and compare the entered ones.
можно сравнивать
Вам нужно хранить действующие номера в БД и сравнивать введенные.
вот пример с БД SQLite
Image1
bLogin
pnPassword
edPassword
pnLogin
edLogin
Подскажите как отсортировать выпадающий список в дефолтном окне авторизации.
как то так наверное TCombobox(frmdbCoreLogin.edLogin).Sorted := True , но имя объекта явно не то.P.S.: Хотел прикрутить Component Explorer чтобы посмотреть имена полей в окне авторизации но не получается, т.к. нет процедуры Combo_GetFormList.
для поиска формы
http://myvisualdatabase.com/forum/viewtopic.php?id=6966
потом продитесь по форме и получите все компоненты
обьявление массива
var mas: array[1..3,1..2] of string;
vArr:mas; s:string;
в реальности массив будет выглядеть так
1 - 1-7дн, 8-14 дн, 15-21дн, 22-31дн, 32-62дн, 63-92дн, 93-130дн, 131-180дн, 181-270дн, 271-360дн
2 - 1-7дн, 8-14 дн, 15-21дн, 22-31дн, 32-62дн, 63-92дн, 93-130дн, 131-180дн, 181-270дн, 271-360дн
3 - 1-7дн, 8-14 дн, 15-21дн, 22-31дн, 32-62дн, 63-92дн, 93-130дн, 131-180дн, 181-270дн, 271-360дн
,,,
Задаём начальное значение переменной s:
s:=''; //пустая строка
Заполняем массив:
vArr[0,0]:='столбец 0 строка 0';
vArr[0,1]:='столбец 0 строка 1';
vArr[0,2]:='столбец 0 строка 2';
vArr[1,0]:='столбец 1 строка 0';
vArr[1,1]:='столбец 1 строка 1';
vArr[1,2]:='столбец 1 строка 2';
Формируем строку для вывода в memo:
s:=vArr[0,0]+' '+vArr[0,1]+' '+vArr[0,2]+' '+vArr[1,0]+' '+vArr1,1]+' '+vArr[1,2];
Используем свойство «text» объекта memo1.Lines:
memo1.Lines.Text:=s;
дальше надеюсь сможите разобраться
А вообще получается слишком много строк не проще-ли использовать связь БД
Можно просто в Комбобоксы записать значения по умолчанию, так как значения все равно одинаковы.
да, я сосласлся.
так у меня еще одна процедура есть (ifClient2)
которую нужно повесить на то же поле.
у Вас две одинаковых процедуры, в них нет смысла
Вам нужно ссылаться на одну процедуру, просто нужно правильно написать условие
Вот пример:
Procedure ifClient;
begin
if (Client.CheckBox4.Checked = true) then
begin
if (client.ComboBox1.Text = '') AND (client.ComboBox2.Text = '') then client.Edit4.Value := 5;
if (client.ComboBox3.Text = '') AND (client.ComboBox4.Text = '') then client.Edit6.Value := 5;
end;
end;
в событиях Вам нужно просто сослаться на процедуру (ifClient)
что именно Вам нужно?
опишите что Вы хотите сделать
Проблема 2 процедуры, при этом нужны одни и те же поля... как можно 2 процедуры повесить на одно событие?
begin
procedureOne(var);
procedureTwo(var);
end;
Добрый день.
Допустим если у автора попросить номер счета с которого оплачивается хостинг для его оплаты в дальнейшем?
Форум размещен на https://www.hetzner.com/ru/webhosting и там оплата в ЕВРО
Или логин/пароль от хоста все для той же оплаты. Думаю 24 евро на год наберем.
будет на много лучше профессионалу или группе получить доступ к исходнику, создать новый форум с обонентской платой (пускай хоть 200р)..
продолжить развивать программу..
Смотрите что получилось я добавил вычислительные поля...
Вот как сделать так чтоб если строка G и строка H соответствовали 10 то сообщение готово если больше 10 в H то ошибка ?
зачем Вы используете SUM ??
в вашем Варианте скорее нужно так
CASE
WHEN (SELECT inn FROM bsm_off) < (SELECT minus FROM bsm_off) THEN "ДА"
ELSE "НЕТ"
END
но тут также будет ошибка, программа будет выводить данные только по одному полю.. скорее всего нужен еще какой-то опереатор
My Visual Database → Posts by pavlenko.vladimir.v
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi