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

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

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

9,653

(1 replies, posted in General)

Hello,


Please, send me your project to support@drive-software.com

I'll try to help you.

Hi,


Yes, you can.


Please, download unofficial version 1.41
https://www.dropbox.com/s/fr76z69sc69l1 … 201.41.zip


Then download example project, attached with message.

9,655

(6 replies, posted in Script)

This is not a standard component, TNextGrid from http://www.bergsoft.net/en-us/product/n … erview.htm


In current version you have access to only the following methods:
AddRow(Count: Integer = 1): Integer;
ClearRows;


properties
VisibleRows: integer;
FixedCols: integer;
Cells(ARow, ACol): string;
RowHeight(ARow): integer;

9,656

(15 replies, posted in Russian)

kodecs
Default Value появится в компоненте, только если этот компонент размещен на форме, которая предназначена для добавления/редактирования записи, т.е. эта форма должна быть вызвана с помощью кнопки с действием Новая запись.


к сообщению я приложил пример, как автоматически сделать фамилию с инициалами с помощью скрипта.

9,657

(10 replies, posted in Russian)

можно добавить вторую строчку, чтобы синхронизировать и галки.


Form1.DateTimePicker1.Date := Form1.DateTimePicker2.Date;
Form1.DateTimePicker1.Checked := Form1.DateTimePicker2.Checked;

9,658

(10 replies, posted in Russian)

Владислав Косяков

Form1.Edit1.Text := '';
Form1.DateTimePicker1.Checked := False;

9,659

(237 replies, posted in Russian)

Владислав Косяков
чуть позже добавлю и Basic синтаксис

9,660

(6 replies, posted in Script)

TLabel
TButton
TEdit
TMemo
TComboBox
TCheckBox
TDateTimePicker
TMonthCalendar
TImage
TPanel
TGroupBox
TPageControl


also you can create other components by using a script that are present in Delphi, like TToolBar, TMenu etc.

9,661

(6 replies, posted in Script)

Hello,

procedure frmDictionary_gridGender_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
     frmDictionary.edGender.Text := frmDictionary.gridGender.Cells(ACol, ARow);
end;

9,662

(15 replies, posted in Russian)

kodecs

я бы не рекомендовал увлекаться SQL кодом, иначе теряется все преимущество программы )


на счет  "Type" = "Сотрудник", у компонент Textbox есть свойство DefaultValue, которое позволяет задать значение по умолчанию, во время создания записи, возможно будет лучше туда списать значение Сотрудник.


но вообще это неверный подход, для того чтобы определять тип персоны, в вашем случае необходимо завести еще одну таблицу, которая будет использоваться как словарь, где и будут содержаться все варианты значения Type, посмотрите видео урок по созданию телефонного справочника, где абоненту присваивается группа.
https://www.youtube.com/watch?v=lN6_yeK84K8


на счет Фамилия И.О., можно создать вычисляемое поля следующего вида:
person.lastname || ' ' || upper(substr(person.firstname, 1, 1)) || '.' || upper(substr(person.secondname, 1, 1)) || '.'
правда у SQLite есть особенность, функция upper, не умеет работать не с английскими буквами, т.е. получится Иванов и.и.


либо тоже самое можно сделать с помощью скрипта
Form1.Edit1.Text := Form1.edLastName.Text + ' ' + Form1.edFirstName.Text[1] + '.' + Form1.edSecondName.Text[1] + '.';

9,663

(30 replies, posted in Russian)

Niema

Можно, к сообщению прикреплен проект с примером.


Таким образом можно создавать любые компоненты с помощью скрипта.

9,664

(15 replies, posted in Russian)

Могу это посоветовать
http://www.sql.ru/docs/sql/u_sql/


будут вопросы, пишите, помогу )

9,665

(15 replies, posted in Russian)

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

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



Если все таки нужен SQL поиск используя несколько полей, то так


SELECT *

FROM person

WHERE
(case when '{edFirstName}'='' then 1=1 else person.firstname LIKE "%{edFirstName}%" end) AND
(case when '{edLastName}'='' then 1=1 else person.lastname LIKE "%{edLastName}%" end);

где edFirstName и edLastName это имена компонентов Textbox на текущей формы, с которых берется текст для поиска.

9,666

(2 replies, posted in Russian)

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

чтобы вызвать форму для создания новой записи, необходимо чтобы кнопка для этого имела действие НОВАЯ ЗАПИСЬ, тогда все поля будут очищены перед вызовом формы.

Скорей всего вы вызываете форму с действием ПОКАЗАТЬ ФОРМУ.


Если я что то неправильно понял, можете прислать проект на support@drive-software.com
посмотрю что не так.

9,667

(14 replies, posted in Script)

frmEmployees.gridEmployees.ClearRows;

9,668

(14 replies, posted in Script)

ndinotamba
Right now i don't have any documentation, but script have same objects, procedures and events like in Delphi, this way you can read books about Delphi.

9,669

(10 replies, posted in Russian)

Владислав Косяков wrote:

Как выглядит синтаксис команды "присвоить содержимое одного объекта TextBox другому объекту TextBox", DateTimePicker?


Form1.Edit1.Text := Form1.Edit2.Text;
Form1.DateTimePicker1.Date := Form1.DateTimePicker2.Date;

Владислав Косяков wrote:

Добавление комментариев в скрипты.

Пример:


// комментарий всей строки


{ много строчный комментарий
комментарий
комментарий}

9,671

(10 replies, posted in Russian)

Владислав Косяков
Пришлите проект, проверю.

9,672

(237 replies, posted in Russian)

Владислав Косяков
Узнал по подробней, это требует некоторой доработки скрипта, в текущей версии все таки не получится.

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

Спасибо за идеи и замечания )

9,675

(14 replies, posted in Script)

procedure Form1_bClear_OnClick (Sender: string; var Cancel: boolean);
begin
     Form1.edLastname.Text := '';
     Form1.edFirstname.Text := '';
     Form1.dtDateOfBirth.Checked := False;
end;

Also you can download project for example.