5,276

(12 replies, posted in Russian)

memult wrote:

Отправил проект Вас на почту.

В скрипте ничего подозрительного не нашел.


А на сколько медленно все работает?
И зависит ли скорость работы от количества подключенных пользователей?

5,277

(12 replies, posted in Russian)

memult wrote:

Я Вас понял. Проект подключен к MySQL,к которой нет доступа из вне (из интернета), только локально.Сможете ли Вы как то оценить проект, без доступа к базе?

Если есть что то явное, то смогу.

В версии 1.44 нет данной процедуры у грида

Form1.TableGrid2.dbSQLExecute;

5,279

(12 replies, posted in Russian)

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


1. К сожалению я не являюсь специалистом по администрированию СУБД MySQL, для этого есть специализированная литература.


На всякий случай я проверил работу программы с MySQL создав 1000 записей, чтобы исключить какие либо ошибки со стороны MVD, проверить работу данной СУБД с большим количеством пользователей к сожалению у меня нет возможности.


Возможно в вашем проекте присутствует скрипт, который нагружает MySQL сервер постоянными запросами?
Можете прислать ваш проект на support@drive-software.com для проверки.


2. Как я сказал, не являюсь специалистом по MySQL, но т.к. данная СУБД является одной из самой популярной в мире, вы легко найдете всю необходимую информацию в поисковиках, например по запросу:

MySQL автоматическое создание резервных копий

5,280

(131 replies, posted in Russian)

Роман wrote:

УРА РАБОТАЕТ!!!
Есть маленький вопросик:
существует  Form1.ComboBox1.Style := csDropDown;
как скриптом сказать: если курсор попал в ComboBox1, тогда список у ComboBox1 автоматически раскрылся...

                                                           С Уважением и Благодарностью Роман!!!

Можно так

procedure Form1_cbGroups_OnEnter (Sender: string);
begin
    Form1.cbGroups.DroppedDown := true;
end;

Но это будет нормально работать если фокус ввода попал в ComboBox с помощью клавиши Tab, если кликнуть мышкой, то скрипт раскроет ComboBox, но клик мыши его закроет.

5,281

(13 replies, posted in Russian)

Vitaly
Вычисляемые поля вы можете добавлять в отчет точно также как и обычные поля, пожалуйста приложите ваш тестовый проект, постараюсь помочь.

Please show me your script, how to you assign data to variable sDateStr

5,283

(30 replies, posted in Russian)

Raspr
Условие должно выглядеть так

if ValidDate(frmFind.TableGrid1.Cells[6,i]) then
   if StrToDate(frmFind.TableGrid1.Cells[6,i]) < Now+30 then ...

5,284

(131 replies, posted in Russian)

Роман
Да, можно сделать проверку.

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.TableGrid1.RowCount = 0 then Cancel := True;
end;
Sergis wrote:

Раз уж картинки хранятся в базе, то зачем они на диске? Добавьте пожалуйста кнопку получения картинок в базу непосредственно с веб-камеры. Это было бы бесценно при складском учете или инвентаризации.

И кому-то может пригодится поддержка штрих-кодов.

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


Работа с веб камерой планируется, спасибо.

5,286

(131 replies, posted in Russian)

Роман wrote:

Доброго времени суток!
Подскажите как удалить выделенную строчку  в TableGrid скриптом или SQL запросом....
УМЫСЕЛ??????????????????????????????????????????????????????????????
избежать системного сообщения "Запись для удаления не выбрана"
если в TableGrid строчка не выделенная или вообще в TableGrid записей НЕТ...

                                                                  С Уважением и Благодарностью Роман!!!

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


К сожалению не совсем понял суть проблемы, если строка в гриде выделена, то никакого сообщения не будет, опишите пожалуйста ситуацию подробней.

5,287

(4 replies, posted in Russian)

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


Увы, это стандартный Windows компонент, у него нет такой возможности.

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


Можете посмотреть данный пример
http://myvisualdatabase.com/forum/misc. … download=1


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


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

Пример,

главная таблица

id | наименование        | цвет      | объем |  и т.д.
1  | предмет 1.2         | 1            | 2,5      | и т.д.
2  | предмет 34          | 2            | 2,5      | и т.д.
3  | предмет 76          | 1            | 2,5      | и т.д.
4  | предмет 23          | 3            | 2,5      | и т.д.
5  | предмет 45          | 2            | 2,5      | и т.д.

словарная таблица цветов

1  | желтый
2  | белый
3  | красный

затем подобные таблицы экспортировать в CSV файлы, которые можете импортировать в SQLite БД используя программу SQLite Studio

denisvt68 wrote:

Не думали о создании плагина под Wordpress? По моим наблюдениям там приличные базы  в большом дефиците. В основном очень убогие решения.  Если бы такая штука у Вас появилась, я бы точно присоединился.

Пожалуйста, расскажите по подробней, о какой функциональности плагина идет речь?  Спасибо.

5,290

(30 replies, posted in Russian)

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

request.user_r IS NULL

5,291

(8 replies, posted in Russian)

Роман wrote:

Вопросик для кучности...
если ComboBox длиннинький, есть скрипт который отобразит
значение в нем по середине???

К сожалению у компонента нет такой возможности.

5,292

(8 replies, posted in Russian)

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


Сделайте такой запрос

newstorage.ComboBox1.dbSQLExecute ('SELECT Product.id, Product.barcode || '' > '' || Product.name FROM Product WHERE Product.name LIKE "%' + newstorage.Edit1.Text + '%"');

Возможно вам будет полезен и данный пример
http://myvisualdatabase.com/forum/misc. … download=1

5,293

(131 replies, posted in Russian)

Роман
Немного поправил скрипт
http://myvisualdatabase.com/forum/misc. … download=1

Xexrby Tdutybq wrote:

а есть вариант создания временых таблиц?

Увы, не знаю, в вашем случае нужно создать вложенные запросы, типа

SELECT AVG(field) FROM 
  (SELECT AVG(field2) FROM 
     (SELECT AVG(field3) FROM tablename))
wertyby wrote:

Может чего то не знаю по кнопке поиск, но поиском по гриду у меня с помощью фильтра удалось сделать некоторый запрос, который с помощью кнопки сделать не получилось. (Выборка значений при нескольких условиях, понимаю что можно все решить наверное и sql запросами, но сложные мне пока даются плохо). Например с помощью sql запросы как я понимаю нельзя осуществлять поиск используя элементы едит и комбобокс?

Не совсем понял.


В SQL запросе вы можете использовать любые компоненты, которые служат для ввода данных, более подробно можно прочитать в документации
http://myvisualdatabase.com/help_ru/com … n_sql.html

5,296

(5 replies, posted in Script)

rjkantor
Try this procedure:

Procedure ConcatenateFiles(const InFileNames: array of string; const OutFileName: string);
var
  i: Integer;
  InStream, OutStream: TStringList;
begin

  OutStream:= TStringList.Create;
  try
    for i := 0 to length(InFileNames)-1 do
    begin
      InStream := TStringList.Create;
      InStream.LoadFromFile(InFileNames[i]);
      try
        OutStream.Text := OutStream.Text + InStream.Text;
      finally
        InStream.Free;
      end;
    end;
    OutStream.SaveToFile(OutFileName);
  finally
    OutStream.Free;
  end;

end;

5,297

(1 replies, posted in Russian)

Вы используете поля текстового типа (size_min, size_max), необходимо использовать тип поля Целое число либо Вещественное число

5,298

(1 replies, posted in General)

Yes, this is by design, a TableGrid have invisible column.


If you use button with action "SQL Query", you can create an event OnAfterClick, where you will remove the last column with id then call SaveToTextFile procedure, example:

procedure Form1_Button1_OnAfterClick (Sender: string);
begin
    Form1.TableGrid1.Columns[Form1.TableGrid1.Columns.Count-1].Free; // destroy the latest invisible column
    Form1.TableGrid1.SaveToTextFile('d:\1.csv'); // export
end;

5,299

(3 replies, posted in General)

Hello,


1. It's planned to add new  icons. In the current version you can't to have customs icons.


2. Unfortunately no, you must have filed id as primary key.

5,300

(4 replies, posted in Russian)

Отправьте пожалуйста на support@drive-software.com со ссылкой на данный топик.