Search options (Page 246 of 400)

поддержка MySQL появилась начиная с версии 2.0

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

храните ли файлы непосредственной в базе данных?

Роман

после этой строки

arrStr := SplitString(sl[i], ';'); // sl[i] возвращает строку из csv файла, которую функция SplitString разделяет на столбцы. В данном csv файле в качестве разделителя столбцов используется знак ;

вставьте эту

if (arrStr[1]<>'buy') and (arrStr[1]<>'sell') then continue;

Какой размер базы данных?
есть ли какие либо скрипты, которые активно обращаются к базе данных?

также у вас есть возможность установить клиент-серверную базу данных MySQL, которая более подходит для многопользовательской работы, но для небольшого количества пользователей обычно достаточна и SQLite.

gupithebest
Это происходит т.к. в таблице orders нет дат, т.к. на форме frmAddOrder, компонент DateTimePicker1 не внесен в список сохраняемых компонентов в настройках кнопки "Добавить", т.о. когда вы добавляли заказы, дата к заказу не присваивалась.

также измените sql запрос на :

SELECT

count(orders.id)
,SUM(orders.device_count)

FROM orders

WHERE
orders.date >= {dtFrom} AND orders.date <= {dtTo};

I'll try to help you, but just need some time to test t.

Пожалуйста, пишите подробней, где нужен чекбокс? что значит убирает? удаляет?

создаем всплывающее меню для кнопки (для появления меню, нажмите правой кнопкой мыши на кнопке)

procedure Form1_OnShow (Sender: string; Action: string);
var
    PopupMenu: TPopupMenu;
    MyItem: TMenuItem;
begin
    PopupMenu := TPopupMenu.Create(Form1);

    MyItem := TMenuItem.Create (PopupMenu);
    MyItem.Caption := 'Item1';
    MyItem.OnClick := @MenuClick1;
    PopupMenu.Items.Add(MyItem);

    MyItem := TMenuItem.Create (PopupMenu);
    MyItem.Caption := 'Item2';
    MyItem.OnClick := @MenuClick2;
    PopupMenu.Items.Add(MyItem);

    Form1.Button1.PopupMenu := PopupMenu;
end;

procedure MenuClick1 (Sender: string);
begin
     ShowMessage('Hello from Item1');
end;

procedure MenuClick2 (Sender: string);
begin
     ShowMessage('Hello from Item2');
end;

begin
end.

также можете скачать проект с данным примером:

увы, пока нет такой возможности.

не совсем ясно, каким образом используется?

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

1. можно так

procedure MenuClick1 (Sender: string);
begin
        if Form1.Panel1.Visible then exit; // если панель видима,тогда выходим из процедуры
        Form1.Panel1.Visible:= True;
end;

2. К сожалению не знаю как это сделать, так как в файл отчета может иметь только фиксированное количество столбцов.

Это можно реализовать только скриптом.