Достаточно данного скрипта
procedure Form1_DateTimePicker1_OnChange (Sender: string);
begin
Form1.DateTimePicker2.DateTime := Form1.DateTimePicker1.DateTime + 28;
Form1.DateTimePicker2.Checked := Form1.DateTimePicker1.Checked;
end;6,676 2015-08-17 13:28:28
Re: Прошу помощи знатоков SQL (63 replies, posted in Russian)
6,677 2015-08-17 12:46:41
Re: Create PDF file,save it ,and auto add to mail (6 replies, posted in General)
Hello,
Please download latest beta version here
https://www.dropbox.com/s/x8fmbj7mycf0u … 3.zip?dl=0
I made an example for you:
6,678 2015-08-16 11:10:09
Re: Вопрос по Button и Edit (14 replies, posted in Russian)
maxkyl wrote:
Извиняюсь, я не совсем правильно поставил вопрос. Есть ли возможность реализовать виртуальный NumLock для ввода цифр в Edit?
Сделал для вас проект с примером. Обратите внимание, для кнопок 0-9 используется одно и тоже событие (OnClick) для данных кнопок.
6,679 2015-08-14 23:48:38
Re: Work in multiple windows (3 replies, posted in General)
I have no tutorial for that.
You can attach your project and description what exacly you need, may be I able to suggest something else.
6,680 2015-08-14 23:42:53
Re: Вопрос по Button и Edit (14 replies, posted in Russian)
Кнопке нельзя присвоить значение.
Присвоить значение для Edit по нажатию на кнопку можно так:
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
Form1.Edit1.Text := '1';
end;6,681 2015-08-14 23:40:54
Re: Data will not save (3 replies, posted in General)
May be you forget add this component to button 'Save Record'?
Also you can attach your project (zip file without exe and dll), I'll try to help you.
6,682 2015-08-13 20:42:27
Re: Work in multiple windows (3 replies, posted in General)
Hello,
Unfortunately it can not be changed.
You can do it only using script and SQL, but for this you need experience in programming.
6,683 2015-08-13 08:40:07
Re: How To Show Information my computer in Function Script (3 replies, posted in Script)
1. Retrieves a handle to the top-level window whose class name and window name match the specified strings.
For example you can check running Calculator app or not.
if FindWindow('', 'Calculator')<>0 then ShowMessage('Calculator running') else ShowMessage('Calculator not found');2.
ShowMessage(GetHardDiskSerial('c'));3. Retrieves the number of milliseconds that have elapsed since the system was started, up to 49.7 days.
ShowMessage(GetTickCount);6,684 2015-08-12 23:10:26
Re: Нужна помощь!!! (7 replies, posted in Russian)
попробуйте так
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
Results: TDataSet;
sNomer1: string;
begin
SQLQuery('SELECT id, nomer1 FROM main', Results);
while not Results.Eof do
begin
sNomer1 := Results.FieldByName('nomer1').AsString;
if SQLExecute('SELECT COUNT(*) FROM temp WHERE nomer2='+sNomer1)<>'0' then
begin
SQLExecute ('UPDATE main SET [text]='+form1.Edit1.sqlValue+' WHERE id='+Results.FieldByName('id').AsString);
SQLExecute ('UPDATE main SET [cost1]=(SELECT temp.cost2 FROM temp WHERE nomer2='+sNomer1+') WHERE id='+Results.FieldByName('id').AsString);
end;
Results.Next;
end;
Results.Free;
Form1.TableGrid1.dbUpdate;
end;6,685 2015-08-12 22:34:47
Re: Нужна помощь!!! (7 replies, posted in Russian)
lexa_ua
При первом взгляде ошибок не вижу, пожалуйста описывайте подробней, скрипт не работает? либо возникает ошибка?
также можете приложить проект.
6,686 2015-08-12 21:47:44
Re: Нужна помощь!!! (7 replies, posted in Russian)
Приветствую,
Например так:
UPDATE main SET cost1=(SELECT temp.cost2 FROM temp WHERE temp.id=1) WHERE main.id=1только не совсем ясно о каком сравнении таблиц идет речь.
6,687 2015-08-12 18:38:35
Re: My Visual Database and hardly compatible with windows 10 (8 replies, posted in General)
timlitw
Can you send me your project?
6,688 2015-08-12 18:21:56
Re: Фильтр списка записей ComboBox (2 replies, posted in Russian)
Приветствую,
Задействуйте для компонента CheckBox свойство AllowGrayed = True
а также установите свойства DefaultState = Grayed
т.о. компонент может иметь третье состояние (Grayed), которое исключает компонент при поиске.
6,689 2015-08-12 18:18:34
Re: My Visual Database and hardly compatible with windows 10 (8 replies, posted in General)
I have tested in Windows 10, all works fine.
Can you send me your project for test?
support@drive-software.com
6,690 2015-08-11 18:23:18
Re: Вопрос по гриду и чекбоксу (5 replies, posted in Russian)
maxkyl wrote:
Добрый вечер знатоки. Не могли бы помочь со скриптом в проекте? Заменить значения CheckBox "1" и "0" в гриде на изображение.
К сожалению ваш проект сделан в старой версии программы, которая не поддерживает графические изображения в гриде, доработал ваш проект с помощью последней версии программы.
6,691 2015-08-11 11:08:48
Re: Разное (3 replies, posted in Russian)
По ссылкам выше уже есть примеры использования.
6,693 2015-08-10 23:03:09
Re: Duplicate Records on Print/Save (2 replies, posted in General)
Hello,
I just checked it in the latest version, there is no problem.
Please, download latest version here:
http://myvisualdatabase.com/thank_you_f … ading.html
6,694 2015-08-10 19:38:59
Re: Кодировка HTML. Как вместо кракозябр получить кириллицу? (3 replies, posted in Russian)
pha1984 wrote:
Можно ли открыть html-файл в мемо поле?
К сожалению нет, компонент предназначен исключительно для простого текста.
6,695 2015-08-10 19:38:24
Re: Кодировка HTML. Как вместо кракозябр получить кириллицу? (3 replies, posted in Russian)
kunar80
Спасибо за найденную ошибку, исправил, скачайте пожалуйста последнюю бета версию:
https://www.dropbox.com/s/x8fmbj7mycf0u … 3.zip?dl=0
6,696 2015-08-10 14:24:33
Re: Вопрос по гриду и чекбоксу (5 replies, posted in Russian)
Можно, сделал для вас пример:
6,697 2015-08-10 09:31:35
Re: Подскажите буквально один вопрос, знатоки (5 replies, posted in Russian)
Поправил.
На форме Form1, в настройках кнопки Button3 изменил таблицу с visits на clients
6,698 2015-08-10 08:25:27
Re: My Visual Database and hardly compatible with windows 10 (8 replies, posted in General)
Can you attach a screenshot?
6,699 2015-08-09 15:35:38
Re: ask can i add map google and add point to show on map .? (4 replies, posted in General)
It's not supported.
6,700 2015-08-09 10:32:02
Re: My Visual Database and hardly compatible with windows 10 (8 replies, posted in General)
I have not tested it, but I think is fully compatible.