Приветствую,


вы видите эту дату в отчете? который был создан с помощью SQL запроса?
если да, то в этом случае поле с датой необходимо форматировать самостоятельно, например

SELECT strftime('%d.%m.%Y', datefield),....

tcoton
Yes, because you can't enter date in the TextBox, the last label at the bottom don't work.

6,953

(16 replies, posted in Reports)

tcoton
Form "PFReports" is main form?
If no, please, try use main form instead PFReports, example:

Form1.PFReports

prahousefamily
Your using My Visual Database in an educational institution?
If yes, I can give you free license for the educational institution.

tcoton
Checked, works, what exactly don't work?

6,956

(1 replies, posted in Script)

Hello,


In the current version there is only GetUserName function.
To get  the computer name or the network name is not possible in the current version.

6,957

(2 replies, posted in Russian)

Приветствую,


Form1.TableGrid1.FixedCols :=1;

6,958

(3 replies, posted in General)

Hello,


Yes, it's possible, you can change value CopyTo by script using event OnClick of button for save:

Form1.DBFile1.dbCopyTo := 'new value';

prahousefamily
Example for you.
But you can't use TextBox for entering a date.

d.v.aleinikov wrote:

Спасибо за разъяснение. А вообще, кончено, эта особенность (неизменяемый размер файла базы данных) странная. Неужели невозможно ничего с этим сделать?! Это риторический вопрос.

Можно, откройте файл базы данных (sqlite.db) в программе SQLite Studio, затем следуйте в меню Database > Vacuum

К сожалению запаролить саму базу данных пока нет возможности, но в принципе это возможно, и в будущем реализую.
Чтобы паролей не было видно, можно хранить не сами пароли, а их хеши, проект с примером:
http://myvisualdatabase.com/forum/misc. … download=1

d.v.aleinikov wrote:

Версия моей программы - 1.51.  Выкладываю исходный вариант базы. Попробуйте сделать изменения. И попутный вопрос - почему файл sqlite.db не уменьшается в объеме при удалении данных из базы?

Когда вы меняете поле на Обязательное, вы получили сообщение о том, что так как база уже существует, вы должны ввести значение по умолчанию для существующих записей для данного поля, т.к. теперь данное поле не может быть пустым.


Просто введите значение по умолчанию для данного поля.
Если вы не желаете вводить значение по умолчанию для данного поля, придется файл базы данных удалить, чтобы он пересоздался.



При удалении записей из базы, файл базы уменьшен не будет, место занимаемое удаленными записями, помечается как свободное, это место будет заполнено новыми записями в процессе работы БД. Такое поведение характерно для любых баз данных.

Nervis
Для комбобокса можно так

Form1.ComboBox1.dbItemID := -1;

d.v.aleinikov
У вас старая версия программы, которая не имела возможности изменять структуры таблиц без потери данных в БД.
Пожалуйста, скачайте последнюю версию программы:
http://myvisualdatabase.com/thank_you_f … ading.html

6,965

(22 replies, posted in Russian)

yevgeny2003 wrote:

спасибо, ещё подскажите как сделать чтобы курсор перескакивал по текстовым полям клавишей "enter"

сделал с помощью скрипта в группе "Поиск по фамилии"

kunar80 wrote:

А как к этой прелести добавить следующее:
1) цвет шрифта у электронных адресов (Columns[1]) синий, стиль: fsUnderline - подчеркнутный;


в принципе так

Form1.TableGrid1.Columns[1].Font.Color := clHighlight; 
Form1.TableGrid1.Columns[1].Font.Style := fsUnderline;

но почему то не срабатывает, посмотрю в чем дело.

6,967

(22 replies, posted in Russian)

yevgeny2003 wrote:

и ещё один вопрос если можно, у меня в одной форме и добавление и редактирование, когда нажимаю на редактирование выскакивает окошко, как сделать что-бы оно не появлялось.

К сожалению это ошибка в старой версии, в новой версии это исправлено.

6,968

(22 replies, posted in Russian)

yevgeny2003 wrote:

SQL запрос  с таким поиском будет работать в версии 1.46 ?

Будет, сделал.

6,969

(2 replies, posted in Russian)

Здравствуйте, мне необходим ваш проект, чтобы сделать это на вашем примере.

6,970

(7 replies, posted in Script)

tcoton

procedure Form2_OnClose (Sender: string; Action: string);
begin
    Form1.Show;
end;

Судя по описанию, у вас довольно старая версия.


Пожалуйста, приложите ваш проект (zip файл без exe и dll)
посмотрю в чем дело.

6,972

(7 replies, posted in Script)

If you close the main form, you close your project, you should to hide Form1, then close Form1, when Form2 is closing.


Script:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form2.Show;
    Form1.Hide;
end;

procedure Form2_OnClose (Sender: string; Action: string);
begin
    Form1.Close;
end;

begin
end.

Example project:

Здравствуйте,


Скрыть меню дизайнера отчета можно так

 Form1.mniReport.Visible := False;

Для поиска по первым буквам, у компонент TextBox есть свойство Filter, установите его значение "s%"

В вашем случае достаточно выч. поля (Статус партии):

CASE WHEN поле_Количество_запущенных_плат - поле_Количество изготовленных плат <= 0 THEN 'Завершено' else 'Не завершно' end

Можете описать вашу ситуацию более подробней, постараюсь помочь.