antonfender wrote:

Продукт скачал,  пользуюсь,  видосы на русском все пересмотрел и ни в одном про скрипты не рассказывается:( А мне очень бы хотелось сдедать БД сочной:)
Вот и прошу помощи у вас:)  Может документацией подробной подсабите или видио какое нить скините.
И расскажите,  где в этой программе скрипт писать?



Скрипты используют синтаксис языка Object Pascal (Delphi), здесь можете найти материалы
http://myvisualdatabase.com/forum/viewt … 462#p13462


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

2,902

(2 replies, posted in General)

Check it out

procedure MenuClick1 (Sender: string);
begin
  frmInvoice.ShowRecord('Invoice', Form1.tgMainInv.dbItemID);
end;

procedure MenuClick4 (Sender: string);
begin
  ClipboardSet( Form1.tgMainInv.Cells[Form1.tgMainInv.SelectedColumn, Form1.tgMainInv.SelectedRow] );
end;

procedure MenuClick2 (Sender: string);
var
    s: string;
    i,c: integer;
begin
    s := '';
    c := Form1.tgMainInv.Columns.Count-1;
    for i := 0 to c do s := s + Form1.tgMainInv.Cells[i, Form1.tgMainInv.SelectedRow]+ ' | ';
    ClipboardSet(s);
end;

procedure MenuClick3 (Sender: string);
var
    s: string;
    iCol,c: integer;
    iRow,q: integer;
begin
    s := '';

    q := Form1.tgMainInv.RowCount-1;
    c := Form1.tgMainInv.Columns.Count-1;

    for iRow := 0 to q do
    begin
        for iCol := 0 to c do
        begin
            s := s + Form1.tgMainInv.Cells[iCol, iRow]+ ' | ';
        end;
        s:= s + #13#10;
    end;

    ClipboardSet(s);
end;

procedure MenuClick5 (Sender: string);
begin
  // not support
end;

2,903

(2 replies, posted in General)

It's look like some problem with firewall in your system.


can you attach your project? I will test it.

2,904

(16 replies, posted in Russian)

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

2,905

(5 replies, posted in Russian)

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

procedure Form1_TableGrid1_OnChange (Sender: string);
var
    i, c: integer;
begin
    c := Form1.TableGrid1.Columns.Count - 1;
    for i := 0 to c do
        Form1.TableGrid1.Columns[i].Options := Form1.TableGrid1.Columns[i].Options + coAutoSize ;
end;
kovalenko wrote:
DriveSoft wrote:

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

Ок. Есть разные статусы заказов и панельки помогают фильтровать вывод заявок со статусами - всё кроме, или только выбранне. Хочется чтобы можно было выбрать вывод всех статусов кроме, например "закрыто" и оно (это состояние отфильтрованного статуса) при необходимости сохранялось до последующего изменения. Если о фильтрации вывода "только выбранные статусы", то их сохранение(статуса фильтрации) не актуально.

У компонента ComboBox есть свойство MultiSelect, установите его значение True, таким образом вы сможете выбирать при поиске, с какими статусами заказы показывать.

2,907

(43 replies, posted in Russian)

omarovaasya5 wrote:

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

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


Скорей всего ваш csv файл имеет кодировку отличную от UTF-8 (unicode), просто перекодируйте ваш файл например с помощью программы Notepad++


если не получиться, приложите пожалуйста ваш проект с csv файлом.

2,908

(1 replies, posted in Russian)

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


Скорей всего ваш csv файл имеет кодировку отличную от UTF-8 (unicode), просто перекодируйте ваш файл например с помощью программы Notepad++


если не получиться, приложите пожалуйста ваш проект с csv файлом.

2,909

(4 replies, posted in Russian)

Скачайте пожалуйста последнюю бета версию 3.7
https://www.dropbox.com/s/eef9rf7u08k63 … b.zip?dl=0


Поставьте галочку напротив нового свойство Searchable, что даст возможность искать записи непосредственно в ComboBox, в т.ч. и при использовании связанного списка.

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


По второму вопросу, к сожалению не очень понимаю его.

2,911

(6 replies, posted in General)

All forms stored in file forms.xml, check this file. Also you can attach your project.

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

2,913

(16 replies, posted in Russian)

RZ-007
Думаю тут явно какая то ошибка в принципах проектирования, лучше расскажите, какая цель всего этого? Возможно есть более правильный способ.

2,914

(9 replies, posted in Russian)

Victor51ru wrote:

Дмитрий огромное спасибо!!!
Дмитрий не подскажите как еще сделать вот Это

С  главной формы по кнопке платежка переходим на форму платежи. Делаем платеж, хотелось что бы этот платеж отображался на форме "Основная"  у конкретного водителя или  машине. Я так понимаю там скорей всего надо делать SQL запрос на открытие формы или как то по другому  и с этим проблема!!!

Пожалуйста описывайте вопрос подробней. Что значит отображался на форме Основная? Как именно? где? Что значит "конкретного водителя или  машине"

2,915

(7 replies, posted in General)

Check it out

var
    gl_ImageFileName: string;
    gl_FileExists: boolean;

procedure Affichage_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    gl_ImageFileName := Affichage.DBImage1.dbFileName;
    gl_FileExists := FileExists( ExtractFileDir(Application.ExeName)+ Affichage.DBImage1.dbCopyTo+'\'+ExtractFileName(gl_ImageFileName) );
end;

procedure Affichage_Button1_OnAfterClick (Sender: string);
Var
    i : Integer;
    sFile: string;
begin
    Form1.Grille_Armen.dbUpdate;
    i := Form1.Grille_Armen.RowCount;
    Form1.Label2.Caption := 'Il y a ' + IntToStr(i) + ' fiches';

    if (Affichage.DBImage1.dbImageIsChanged) and (gl_FileExists) then
    begin
        sFile := ExtractFileDir(Application.ExeName) + Affichage.DBImage1.dbCopyTo+'\'+ExtractFileName(Affichage.DBImage1.dbFileName);
        DeleteFile(sFile);
        SQLExecute('UPDATE Armen SET Couverture_filename="'+Affichage.DBImage1.dbCopyTo+'\'+ExtractFileName(gl_ImageFileName)+'" WHERE id='+ IntToStr(Affichage.Button1.dbGeneralTableId) );
    end;

end;

Project:

Проект с примером

2,917

(7 replies, posted in General)

Please attach your project, with steps to repeat this bug.

2,918

(10 replies, posted in General)

manixs2013 wrote:

Sir prahousefamily!

Pls help.  there is a problem in the details in every table.. All data has not yet display.
Only one record was display

Thanks!

Check it out:

2,919

(7 replies, posted in General)

Check out height of field (Notes)

Form1.GridSearch.Columns[3].SlideBounds.Height := 50;

I think you should reduce height of field.

2,920

(9 replies, posted in Russian)

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


В таблице бд где хранятся записи о водителях, создайте поле с типом ДА/НЕТ, с именем archived, со значением по умолчанию: 0


На форме расположите компонент CheckBox, с надписью например "В архиве".
Данное поле будет означать, находится ли водитель в архиве, либо просто уволен. На форме поиска водителей можете разместить также CheckBox, чтобы при желании можно было просматривать водителей в архиве.

Thank you for the example!

2,922

(2 replies, posted in General)

var
    d: int64;
    i: integer;
begin
    d := GetFileSize(application.exename);
    i := d;
    Form1.Caption := IntToStr(i); // bytes
    Form1.Caption := FloatToStr(i/1024); //kb
    Form1.Caption := FormatFloat('0.00', i/(1024*1024));  //mb
    Form1.Caption := FormatFloat('0.00', i/(1024*1024*1024));  //gb

2,923

(4 replies, posted in Russian)

К сожалению пока такой возможности нет. Попробую реализовать встроенный поиск в ComboBox, чтобы работал без скриптов и со связанными списками.

kovalenko
К сожалению кнопки не могут изменять цвет. Это можно сделать например в компонентом Panel.
Панелей будет какое то конкретное количество? Или нужен скрипт для разного количества панелей?

2,925

(6 replies, posted in General)

Done.