7,026

(8 replies, posted in General)

Done, please download project

7,027

(8 replies, posted in Russian)

ivan.kulikov95
пожалуйста, приложите ваш проект к сообщению (zip файл без exe и dll)

А какое решение?

7,029

(20 replies, posted in Russian)

К сожалению структура склада неверная, скачайте пожалуйста данный проект
http://myvisualdatabase.com/database_ex … aster.html


обратите внимание на кнопки "Склад" и "Запчасти"

К сожалению не могу сообразить, не знаю какая таблица за что отвечает в вашем проекте.

Да, какой то пример не работает?

так можно показать данные из базы в TextBox

Form1.Edit1.Text := SQLExecute ('SELECT firstname FROM tablename'); 

если это необходимо выполнить при открытии формы, можете использовать событие OnShow данной формы, например

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.Edit1.Text := SQLExecute ('SELECT firstname FROM tablename');
end;

как правильно создавать обработчики событий можно посмотреть здесь:
http://myvisualdatabase.com/help_ru/scr … rview.html

чтобы узнать имя пользователя Windows, достаточна вызвать функция GetUserName



пример

ShowMessage(GetUserName);

Пожалуйста, конкретизируйте вопрос.

7,035

(8 replies, posted in General)

Here you can find, how to add own menu in TableGrid
http://myvisualdatabase.com/forum/viewtopic.php?id=1439

7,036

(8 replies, posted in General)

Done.

7,037

(22 replies, posted in Russian)

nikolai_nn wrote:

Здравейте,подскажете ми моля,какво трябва да направя.Когато  Form1 >Справки>Данни от електромери за всички месеци>отчет.
В отчета как могада подредя месеците ..януари,февруари,март....... защото сега разместени.Благодаря


Готово, отключил сортировку в отчетах, и сделал сортировку в SQL запросе отчета.


В поле zakaz.meseci вы храните текстовое название месяца, что неверно, лучше если бы вы сделали выбор месяца с помощью ComboBox, тем более у вас уже есть для этого внешний ключ zakaz.id_meseci, но почему то он не используется, тогда было бы достаточно сделать сортировку в SQL запросе по данному внешнему ключу.

7,038

(20 replies, posted in Russian)

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


Пожалуйста приложите ваш проект к сообщению (zip файл без exe и dll), и расскажите для чего необходима база данных?

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

7,040

(8 replies, posted in General)

Please, attach your project (zip file without dll and exe), I'll try do it in your project.

7,041

(1 replies, posted in Reports)

Unfortunately I can not understand your question.

7,042

(2 replies, posted in Script)

I can't use these utilities to encrypt database.
I'll plan use for it Cipher: https://www.zetetic.net/sqlcipher/


In the current version you can encrypt text fields, but without able to searchin them, here you can download example:
http://myvisualdatabase.com/forum/misc. … download=1

7,043

(4 replies, posted in General)

Checked, event OnClose is triggered, try to add function ShowMessage for test, example:

procedure Job_Description_EDIT_OnClose (Sender: string; Action: string);
begin
       ShowMessage('Close');
       JS_Job.Button4.Click;
end;

Необходимо не просто скопировать код, а создать событие, как это сделать, можно посмотреть здесь
http://myvisualdatabase.com/help_ru/scr … rview.html

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


Так можно передать текст из грида в TextBox

procedure Form1_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
    Form1.Edit1.Text := Form1.TableGrid1.Cells[0,ARow]; // 0 - текст из первой колонки
end;

Как "организовать" сложение этого товара в общем складе? Чтобы значение не изменялось, а именно суммировалось.

например можете включить суммирование в компонент TableGrid для необходимого столбца, здесь можете почитать подробней
http://myvisualdatabase.com/help_ru/com … ooter.html

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

7,047

(4 replies, posted in General)

Checked, OnClose event is triggered when click on button with action "SaveRecord"

Please, attach your project to your post (zip file without exe and dll), I'll check it.

Должно работать, вот так например можно заставить блокнот открыть JPG файл

OpenFile('d:\db.jpg','notepad.exe'); 

путь 'd:\db.jpg' передается в блокнот в качестве параметра, покажите пожалуйста ваш код

Попробуйте так

OpenFile('S:\Portable Apps\','path\Utils.exe');

первый параметр - ключ
второй параметр - программа

7,050

(1 replies, posted in Script)

You can't write script after "end."


In this case will be better use calculated field.
Fixed project attached