26 Reply by Alexandr

(4 replies, posted in Russian)

Все получилось, спасибо огромное!

Go to forum: Russian

27 Reply by Alexandr

(4 replies, posted in Russian)

Спасибо , что отозвались!

Прикладываю проект. Нужно добавить кнопку, которая будет дублировать выделенную запись в таблице СПРАВКИ в эту же таблицу. Допустим, я добавил одну запись в таблицу Справки, а через какое время нужно опять добавить эту же запись, изменив значения только пары колонок. Я хочу чтобы можно было выделить существующую строку в таблице СПРАВКИ с данными и с помощью клика по кнопке скопировать (продублировать) эту запись в эту же таблицу.

Go to forum: Russian

28 Topic by Alexandr

(4 replies, posted in Russian)

В чем вопрос...есть таблица, в ней есть колонки, к примеру ( имя, фамилия, отчество, билет). Я хочу сделать кнопку, с  помощью которой можно было дублировать ВЫДЕЛЕННУЮ строку и только колонки имя, фамилия , отчество......пытался сделать это так:
insert into table1 select name, soname, otchestvo from table1 ,но в таком случае у меня дублируются вообще записи в таблице, а нужно чтобы копировалась только выделенная. Подскажите как это можно сделать..

Go to forum: Russian

29 Reply by Alexandr

(2 replies, posted in Russian)

sparrow wrote:

Как правило по фотографии здесь судьбу не предсказывают. Обычно по примеру или проекту.
Вы можете попробовать сделать как в скриншоте для Report и всех Page. Может быть достаточно и одного из двух.


Если нет - высылайте пример для более точного предсказания.


Спасибо большое! Поставил как показали и все заработало!

Go to forum: Russian

30 Topic by Alexandr

(2 replies, posted in Russian)

Есть таблица, по которой строится отчет. В отчете есть лицевая (Page1) и обратная (Page2) сторона листа. Без обратной стороны все формируется и показывается нормально, но если добавить обратную (Page2) сторону, то при формировании отчета выводится ошибка (скрин). Подскажите как ее решить?

Go to forum: Russian

31 Reply by Alexandr

(3 replies, posted in Russian)

sparrow wrote:
TNxNumberColumn(Form1.TableGrid1.Columns[0]).FormatMask := 'dd mmmm YYYY';

А как сделать чтобы месяц склонялся?

Go to forum: Russian

32 Topic by Alexandr

(3 replies, posted in Russian)

В компоненте Date Time Picker можно сделать длинный формат даты (1 января 2021 г). А как сделать такой же формат даты в таблице?

Go to forum: Russian

33 Reply by Alexandr

(4 replies, posted in Russian)

Спасибо! Но в этом примере создаются новые файлы резервной копии, а не обновляется уже созданный. Не знаете,как это можно сделать?

Go to forum: Russian

34 Topic by Alexandr

(4 replies, posted in Russian)

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

Go to forum: Russian

35 Topic by Alexandr

(4 replies, posted in Russian)

Собственно вопрос в названии топа. Есть база, есть кнопка которая создаёт резервную копию. Как в случае чего запустить резервную копию файла базы данных? Просто перетащить из бэкапа в основную папку с заменой основного файла?

Go to forum: Russian

36 Reply by Alexandr

(3 replies, posted in Russian)

sibprogsistem wrote:

DeleteFile(FileName);

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

Go to forum: Russian

37 Topic by Alexandr

(3 replies, posted in Russian)

Есть скрипт для открытия файла по двойному клику на таблицу. При этом файл автоматически копируется в указанную мной папку. Как сделать так,чтобы при удалении записи из таблицы,файл который скопировался в папку автоматически удалился?

П.с. код нашел на форуме

procedure Anketa_OnShow (Sender: string; Action: string);
begin
    Anketa.TableGrid1.dbPopupMenu.Items.Items[0].Enabled:= False;
end;

procedure Anketa_OnDoubleClick (Sender: string);
var
   FileName: string;
begin
    FileName:= SQLExecute ('Select file_filename From Anketa Where id='+Anketa.TableGrid1.sqlValue);
    FileName:= ExtractFileDir (Application.ExeName)+FileName;
    if FileExists (FileName) then OpenFile (FileName);
end;

Также в компоненте DBFile в свойстве CopyTo указываю папку куда будет копироваться файл (в моем случае в папку files)

Go to forum: Russian

38 Reply by Alexandr

(11 replies, posted in FAQ)

Спасибо Вам огромное!) Это мой мини черновой проект, я его сделал чтобы просто разобраться как оно должно работать, после чего по этому примеру буду делать уже основной проект...там таблиц и полей в них будет больше, но думаю тут все по аналогии заработает, дело техники

Go to forum: FAQ

39 Reply by Alexandr

(11 replies, posted in FAQ)

Вот пожалуйста

Go to forum: FAQ

40 Reply by Alexandr

(11 replies, posted in FAQ)

Где то лишнее равно?

Go to forum: FAQ

41 Reply by Alexandr

(11 replies, posted in FAQ)

Выводит во т такую ошибку...подскажите пожалуйста в чем может быть проблема?

Go to forum: FAQ

42 Reply by Alexandr

(11 replies, posted in FAQ)

Здравствуйте! Данный скрипт только добавляет новую запись, а как сделать такое же редактирование уже существующих записей в разных таблицах с помощью одной кнопки?

Go to forum: FAQ

43 Topic by Alexandr

(3 replies, posted in Russian)

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

Вопрос: как сделать чтобы редактировало записи также по одной кнопке?

Go to forum: Russian

44 Topic by Alexandr

(0 replies, posted in Russian)

Суть в чем...есть у меня на форме компонент DBFile,  типа стоит LinkFile, допустим на телефонный справочник в эксель. При первом открытии программы, компонент работает правильно и открывает файл, но при последующем включении программы ссылка на файл пропадает...объясните как сделать ссылку на файл, чтобы она не пропадала при каждом включении?

Go to forum: Russian

45 Reply by Alexandr

(2 replies, posted in Russian)

derek wrote:

procedure form1_OnShow (Sender: TObject; Action: string);
begin
  if application.User.is_admin = false then form1.mnichangepassword.visible := false;
end;

Derek.


Спасибо огромное!!

Go to forum: Russian

46 Topic by Alexandr

(2 replies, posted in Russian)

Как всем известно, в MVD есть встроенное управление доступом...НО..почему то  пользователи с ролью user могут сами менять себе пароль....Вопрос...как запретить user-у самому менять свой пароль? Нужно чтобы управлением доступа и менять пароли мог заниматься только админ.

Go to forum: Russian

47 Reply by Alexandr

(2 replies, posted in Russian)

Можно в свойствах комбобокса  поставить свойство Searchable в "True" и тогда будет возможность выбирать несколько вариантов...

Go to forum: Russian

48 Reply by Alexandr

(2 replies, posted in Russian)

Вот что происходит после выделения значения в главной таблице

Go to forum: Russian

49 Topic by Alexandr

(2 replies, posted in Russian)

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

Go to forum: Russian

50 Reply by Alexandr

(32 replies, posted in Russian)

sibprogsistem wrote:
k245 wrote:

Какой богатый стек разработки.... Пользуетесь всем? Было бы интересно ваше мнение. В плане сравнения возможностей и удобства работы в семейке Pascal  )))

из семейства паскаля использую только Delphi и MVD , остальное в основном для подглядывания сторонних проектов ..
VisualNeoWin, Flipabit  и Hiasm  - нашел когда стал искать альтернативы MVD - VisualNeoWin  и Flipabit  меня больше всего зацепили..
 
VisualNeoWin -  сейчас создал S-WORD много бесплатных и хороших плагинов, работает с разными БД.. сама программа написана на Delphi, на сайте можно скачать SDK для delphi и C# и писать свои компоненты (дальше  хоть за платно распространяйте)..
VisualNeoWeb  - на нем хочу создать QuestionDWeb (еще пока без лицензии) почти тоже самое (VisualNeoWin ), только еще для сети и мобилок.
у VisualNeo много преимуществ..
форум на английском, но там много русских, тюменский профессор создал бесплатный курс https://distant.orgpsiholog.ru/enrol/index.php?id=20
русификатор для VisualNeoWin  тут https://visualneo.com/forum/topic/rus-v … stid-11504
есть у них и свое облако но я им еще не пользовался..

Flipabit  - как я понял это QT QML - можно в принципе создавать все визуально а можно и программировать если знаете JS, хотя это скорее не понадобится. Тут много моментов в визуальной разработке.
Компилирует под разные платформы,  программа может работать с гуглавской БД, таблицами гугл, Json, Sqlite ..
пока в планах написать простенькие игры на подобие 4-ре картинки одно слово..
можно создавать свои проекты за бесплатно, как денюшка будет, купить лицензию на месяц и проекты скомпилировать под лицензию..
авторы проекта обещают выпустить серьезное обновление к концу сентября и там будет много примеров приложений ..
   
скретч как самому интересно так и племяннику - офигеть как он  удивляется этой программе ))
 
андройдстудио - ради интереса, пару раз запустил и забыл ))
 
ардуино поставил, что бы показать племяннику, но по ходу его это не заинтересовало ((

остальное - это похождения в поисках игровых возможностей все не удаляю (может еще вернусь к ним), мне понравился GAMEGURUMAX.  писать на lua но не обязательно, разработчики стараются, ИИ можно создавать визуально, естественно под любые жанры, ЗД модели можно экспортировать из стима, магазина на их сайте, sketchfab, и собственные.. поддерживается VR , в общем тут есть свои плюшки, но для меня самое главное - это простой и не загруженный интерфейс..


Интересная программка VisualNeo...заинтересовала прям) Мне кажется в ней с кодом работать намного проще, чем в Делфи или .NET

Go to forum: Russian