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 325 of 400)
Topics by DriveSoft User defined search
Posts found: 8,101 to 8,125 of 9,999
Hello,
Please, create an event for the form, which is used to create/edit a record
procedure Form2_OnShow (Sender: string; Action: string);
var
Y, M, D: Word;
begin
if Action = 'NewRecord' then
begin
DecodeDate(Now, Y, M, D);
Form2.DateTimePicker1.Date := EncodeDate(Y + 1, M, D);
end;
end;
borsai
procedure Form1_GridEmployees_OnChange (Sender: string);
var
i,f,r,c: integer;
begin
Form1.GridEmployees.BeginUpdate;
c := Form1.GridEmployees.Columns.Count - 1;
r := Form1.GridEmployees.RowCount - 1;
for i := 0 to r do
begin
if Form1.GridEmployees.Cells[3,i] = 'Да' then
begin
for f := 0 to c do
Form1.GridEmployees.Cell[f,i].Color := clGray;
end;
// второе условие
if Form1.GridEmployees.Cells[3,i] = 'Нет' then
begin
for f := 0 to c do
Form1.GridEmployees.Cell[f,i].Color := clRed;
end;
end;
Form1.GridEmployees.EndUpdate;
end;
Это так, но пока я не реализовал возможность использования других языков, но планирую.
jazzitcool wrote:Не получилось (( копаю дальше
Пришлите пожалуйста ваш проект на support@drive-software.com
с ссылкой на ваше сообщение на форуме, постараюсь помочь.
К сожалению это не поддерживается в SQLite
Hello,
Yes, it works only in 1.49
I added property for TextBox control, allows you to use this feature (write right to left), but I can't test it on my Windows OS.
Please, download beta version of My Visual Database
https://www.dropbox.com/s/bsk683d3yf6jv … 9.zip?dl=0
Also download example project, then open this example in the My Visual Database
Hello,
After 60 days the software stop to work.
Here you can download old freeware version 1.45
https://www.dropbox.com/s/t6iudxgkz9wct … 5.exe?dl=0
Для скриптов используется сторонний движок FastScript, поэтому не могу знать )
Попробуйте так
procedure frmApplication_cbMaster_OnChange (Sender: string);
begin
if frmApplication.cbMaster.Text = 'Буслаев Евгений' then frmApplication.cbStatus.ItemIndex := frmApplication.cbStatus.IndexOf('Выполнено');
end;
sokolov wrote:Добрый день. Реализую что то наподобие. То есть есть записи в таблице, есть поле, которое по умолчанию у всех записей 'НЕТ'. И у некоторых записей есть поле с прикрепленным файлом. Так вот нужно чтобы это поле 'НЕТ' у тех записей где есть "вложение" при клике по этим записям становилось 'ДА' и все это сохранялось в таблице.
Делал так: при клике по записи вызывал FileExists(), если true то менял запись 'НЕТ' на 'ДА' в соответствующей колонке, а вот как это сохранить так и не разобрался. Пытался через UPDATE таблицы, но не получилось. Подскажите пожалуйста. Заранее спасибо.
Приветствую,
Пришлите пожалуйста ваш проект на support@drive-software.com
постараюсь помочь.
atempbox
Я планирую создать настройки, думаю там будет такая опция, позволяющая это настроить.
tcoton wrote:I would need some help with another use of the checkbox component:
I have a field with a default value= "NO"
If I check the checkbox, I would like this value to be updated to "YES", is that possible or should I use a dropdown list?
Please, use default value 0 - for NO
and 1- for YES
Maybe I misunderstand the question.
This is exactly as it should work, you have not?
No need script for work Counter component.
Time: 1.44 - Create a field for counter
Time: 14:58 - Set up the counter component
Thank you for the bug report! )
Form1.Memo1.ScrollBars := ssNone; // The component has no scroll bars. (default)
Form1.Memo1.ScrollBars := ssHorizontal; // The component has a single scroll bar on the bottom edge.
Form1.Memo1.ScrollBars := ssVertical; // The component has a single scroll bar on the right edge.
Form1.Memo1.ScrollBars := ssBoth; // The component has a scroll bar on both the bottom and right edges.
tcoton wrote:Thanks, this does the trick, however, speach marks ( " ) and single quotes ( ' ) generate SQL error while saving.
Thank you, fixed, please download the example again.
Unfortunately the current version is not supported.
DenNik
if mrYes = MessageDlg('Сообщение', mtInformation, mbYes+mbNo, 0) then ShowMessage('Ответили Да');
DenNik wrote:можно пример для версии 1,45?
К сожалению готового примера нету, нужно подумать над механизмом, как лучше это реализовать, чтобы допустим при аварийном закрытии приложения (например через Ctrl+Alt+Del) данная блокировка не осталась висеть.
Не блокируется, механизм блокировки я пока не реализовывал, в текущей версии можете сделать это скриптом.
Hello,
In the current version there is no way.
But you can delete project file (*.vdb) and file scrips.pas from folder Script, because there is compiled version of this file (script.dcu)
DenNik wrote:[
я так понимаю, это автоматическое окно, созданное при компиляции проекта. а можно отключить его, самостоятельно определить, что запись заблокирована, чтобы в связи с этим предпринять какие-либо действия?
Данное сообщение появлялось скорей всего из за ошибки, которая была исправлена в последних версиях. Запись при редактировании не блокируется.
Posts found: 8,101 to 8,125 of 9,999