7,576

(2 replies, posted in General)

Hello,


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

7,577

(7 replies, posted in Russian)

Видимо я что то напутал, загрузил на сервер снова, попробуйте еще раз:
http://myvisualdatabase.com/thank_you_f … ading.html

7,578

(7 replies, posted in Russian)

1.
Немного переписал код для определения размера колонок, также добавил в программу свойство ClientWidth для компонента TableGrid
Пожалуйста, скачайте снова версию 1.50
http://myvisualdatabase.com/thank_you_f … ading.html


2. К сожалению со скролом ничего сделать нельзя.



Исправленный проект приложил к сообщению.

7,579

(3 replies, posted in Russian)

Пожалуйста, скачайте снова версию 1.50, внес некоторые изменения
http://myvisualdatabase.com/thank_you_f … ading.html


Для необходимых текстовых полей (Edit) установите свойство NumbersOnly = True
теперь десятичный разделитель будет выбираться автоматически, в зависимости от региональных настроек.

gozalovsamir
Спасибо, исправил, скачайте проект снова:
http://myvisualdatabase.com/forum/misc. … download=1

7,581

(7 replies, posted in Russian)

К сожалению в вашем сообщении нет проекта.
Приложите к сообщению проект (zip файл без exe и dll)

7,582

(5 replies, posted in Russian)

Отправил вам на емейл исправленный проект.

7,583

(33 replies, posted in Russian)

nikolai_nn
Добавил кнопку с надписью SQL Query

7,584

(4 replies, posted in Script)

You can get total from footer of TableGrid and then copy it to textbox.

Example:

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
   Form1.Edit1.Text := Form1.TableGrid1.Columns[0].Footer.Caption;
end;

7,585

(3 replies, posted in Script)

v_pozidis
You can see total in footer of TableGrid.
I sent the project to you.

7,586

(3 replies, posted in Script)

1.

SQLExecute('DELETE FROM ena');

used to delete records in a table



2.
Please, download example project
http://myvisualdatabase.com/forum/misc. … download=1


I added this feature in the version 1.50

7,587

(16 replies, posted in Reports)

I added this feature using script.
Please, download again latest version:
http://myvisualdatabase.com/thank_you_f … ading.html



Example:

7,588

(1 replies, posted in General)

Hello,


Unfortunately, this is not supported.

7,589

(6 replies, posted in General)

Montenegr0
Send me your project, with description of search
support@drive-software.com

timlitw
Please, send me your project to support@drive-software.com
with description of problem.

7,591

(1 replies, posted in Script)

You can return data using functions, example:


function GetSum (a, b: integer): integer;
begin
   result := a+b;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   c: integer;
begin
   c := GetSum(2, 3);
   ShowMessage(c);
end;

Sender - is the name of the component that generated the event.
This is necessary when using a single event multiple components.

7,592

(33 replies, posted in Russian)

nikolai_nn
Готово

7,593

(6 replies, posted in General)

Montenegr0 wrote:

another question, if i put my froms sizeable, if i maximize them they maximize the window, the buttons and everything else will be at the same size.

is there any way to maximize the window and everything "adjusts" to the size of the window?

Every component have property Anchors which defines the behavior of the component when the window is resized.

7,594

(6 replies, posted in General)

Montenegr0 wrote:

hello,

in the example PhoneBook for example, is there any way to search all the options only in one TextBox?

You can do it using SQL Query, example project:
http://myvisualdatabase.com/forum/misc. … download=1

7,595

(2 replies, posted in General)

Hello,


I made example for you:

7,596

(2 replies, posted in Script)

Hello,


Example:

var
    PrevAction: string;

procedure frmEmployee_OnShow (Sender: string; Action: string);
begin
    PrevAction := Action;
end;

procedure Form1_GridEmployees_OnChange (Sender: string);
begin
    if PrevAction = 'NewRecord' then
    begin
        PrevAction := '';
        Form1.GridEmployees.dbItemID := Last_Insert_id('employees');
        Form1.GridEmployees.ScrollToRow(Form1.GridEmployees.SelectedRow);
        Form1.GridEmployees.SetFocus;
    end;
end;

Also you can download example project

7,597

(7 replies, posted in Russian)

Можно, например так

Form2.Edit1.Text := Form2.ComboBox1.Text + ' ' + Form2.ComboBox2.Text + ' ' + Form2.ComboBox3.Text + ' ' + Form2.ComboBox4.Text;

7,598

(2 replies, posted in Russian)

К сожалению это вряд ли получится, но вы можете редактировать файл script.pas любым редактором, только при запуске проекта через MVD, файл script.pas будет перезаписан содержимым на вкладке "Скрипт"

Andrey.Padyukov
Пришлите пожалуйста ваш проект на support@drive-software.com

7,600

(33 replies, posted in Russian)

nikolai_nn wrote:

здравейте,възможно ли е  збора от таблицата (Sum) 1600 автоматично да бъде вписан в поле  (total All) което съм добавил.благодаря

Готово, в примере показал два разных способа, как это сделать.