Search options (Page 161 of 400)

abgroup-artur
Я небольшой специалист по SQL запросам, но думаю да.
Но подзапрос необходимо взять в скобки, также для таблицы в подзапросе необходимо использовать псевдоним, иначе подзапросу просто не будет ясно, какую с какой таблицей сравнивать.

(SELECT Z.id_myOrg FROM zakaz Z WHERE  Z.id=zObrabotka.id_zakaz)

You have lifetime license, also you can use My Visual Database on all you PC at home and one PC at office.
Anyway I will send you discount.

motorolla

Можно

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Edit1.Value := Form1.TableGrid1.Columns[4].Footer.FormulaValue;
end;

либо без кнопки, автоматически

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.Edit1.Value := Form1.TableGrid1.Columns[4].Footer.FormulaValue;
end;

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

SELECT TOTAL(fieldname) FROM tablename

Возможно будет проще использовать Word шаблон, если отчет довольно простой, тогда сможете вставить любые данные с помощью скрипта, пример
http://myvisualdatabase.com/forum/misc. … download=1

kkalgidim
I have added footer in your project, also added button last week and last month.

Hello.

Example:

var
     ChartBar: TChart;  

procedure Form1_OnShow (Sender: string; Action: string);
begin
  ChartBar := TChart.Create(Form1);
  ChartBar.Parent := Form1.PanelBar;
  ChartBar.Align := alClient;
  ChartBar.AddSeries(TBarSeries.Create(ChartBar));
  TBarSeries(ChartBar.Series[0]).Marks.Visible := False;
  Form1.bBarUpdate.Click;
end;


procedure Form1_bBarUpdate_OnClick (Sender: string; var Cancel: boolean);
var
    Results: TDataSet;
    sProduct: string;
    QtyValue: string;
    x: integer;
begin
    ChartBar.Series[0].Clear;
    x := 1;

    SQLQuery('SELECT product, qty FROM bar_data', Results);

    while not Results.Eof do
    begin
        sProduct := Results.FieldByName('product').asString;
        QtyValue := Results.FieldByName('qty').asString;

        if ValidInt(QtyValue) then ChartBar.Series[0].AddXY(x, StrToInt(QtyValue), sProduct);

        Results.Next;
        Inc(x);
    end;
end;

motorolla
Приложите пожалуйста ваш проект.

Unfortunately it's not possible in the current version, but localization feature is planned.

Это для указания раздела контекстной справки, в диалоге можно показать кнопку Help, при нажатии на которую откроется справка в нужном разделе, но в MVD это не реализовано, поэтому не обращайте внимания.

Check it out.

1. Отформатировать время в гриде можно с помощью выч. поле:

strftime('%H:%M', timefield)

где timefield - это имя поля, в котором содержится время.
Данное выч. поле необходимо вывести в грид вместо поля timefield

2. Если вы воспользуетесь выводом времени как показано в 1. вопросе, то будет 24 часовой формат. В противном случае формат времени в гриде задается региональными настройками Windows. Изменить формат времени в компоненте DateTimePicker можно с помощью его свойства Format, задайте его значение таким: HH:mm

2. Проект с примером: http://myvisualdatabase.com/forum/misc. … download=1

3. Пример, как заблокировать изменять размер первых трех колонок

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[0].Options := Form1.TableGrid1.Columns[0].Options + coFixedSize;
    Form1.TableGrid1.Columns[1].Options := Form1.TableGrid1.Columns[1].Options + coFixedSize;
    Form1.TableGrid1.Columns[2].Options := Form1.TableGrid1.Columns[2].Options + coFixedSize;
end;

4. К сожалению мануал пока недописал с учетом новых свойств.

5.

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.BestFitColumns(bfBoth);
end;

stas.kodpi
1. В рыночной экономике цену формирует спрос, если цена такая какая есть, значит она устраивает клиентов, иначе проект бы стал убыточным и был бы давно закрыт. Также поддержка на форуме отнимает довольно много времени, а время это тоже деньги.

2. Планируется, также вы можете сделать импорт из CSV в SQLite сторонней бесплатной утилитой SQLite Studio. Важно понимать, что каждый выдвигает различные предположения, что именно должно быть реализовано в первую очередь.

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

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