5,801 Reply by DriveSoft

(2 replies, posted in Script)

Hello,


Yes.

var
   Timer1: TTimer;
   Timer2: TTimer;

procedure Form1_OnShow (Sender: string; Action: string);
begin
     Timer1 := TTimer.Create (nil);
     Timer1.OnTimer := @OnTimer1;
     Timer1.Interval := 1000;
     Timer1.Enabled := True;

     Timer2 := TTimer.Create (nil);
     Timer2.OnTimer := @OnTimer2;
     Timer2.Interval := 1000;
     Timer2.Enabled := True;

end;

procedure OnTimer1;
begin
     
end;

procedure OnTimer2;
begin
     
end;

procedure Form1_OnClose (Sender: string; Action: string);
begin
     Timer1.Free;
     Timer2.Free;
end;

Go to forum: Script

5,802 Reply by DriveSoft

(2 replies, posted in General)

Thank you for the bug report, I'll check it.

Go to forum: General

5,803 Reply by DriveSoft

(2 replies, posted in General)

Hello,


Unfortunately I can't find your e-mail, please resend me this email to drive.soft.mail@gmail.com


Happy new year! )

Go to forum: General

5,804 Reply by DriveSoft

(3 replies, posted in Russian)

Отправьте пожалуйста ваш проект на support@drive-software.com, со ссылкой на эту тему.
т.к. мне необходимо видеть структуру вашей БД, чтобы дать совет, как это реализовать.

Go to forum: Russian

5,805 Reply by DriveSoft

(9 replies, posted in FAQ)

Yes, you can use button to connect to database.


To disconnect:

Form1.MySQLConnection.Disconnect;

Go to forum: FAQ

5,806 Reply by DriveSoft

(3 replies, posted in Russian)

К сожалению не понял сути вопроса, опишите пожалуйста подробней.

Go to forum: Russian

5,807 Reply by DriveSoft

(3 replies, posted in Script)

Hello,


Try this code:

procedure main_btemailfo_OnAfterClick (Sender: string);
var
    sFile: string;
    sEmail: string;
    sID: string;
begin
    main.btemailfo.Enabled := False;
    main.btemailfo.Caption := 'Please wait...';
    sid := main.Tabela_Main.sqlValue;    
    semail := SQLexecute ('SELECT clientes.email FROM clientes where id='+sid);
    
    sFile := main.frxPDFExport1.FileName;

    if FileExists(sFile) then
        if SendMail('smtp.portugalmail.pt', 'xxxxxxxxxxxx@portugalmail.pt', 'xxxxxxxxxx1', 465 , 'xxxxxxxxx@portugalmail.pt', semail, 'subject', 'your text', sFile) then
            ShowMessage('Message sent');

    main.btemailfo.Enabled := true;
    main.btemailfo.Caption := 'Email ';


end;

Go to forum: Script

5,808 Reply by DriveSoft

(9 replies, posted in Russian)

Igor
Отправьте пожалуйста ваш проект на support@drive-software.com
посмотрю в чем дело.

Go to forum: Russian

5,809 Reply by DriveSoft

(4 replies, posted in Script)

RaiseException() function will not help.


Happy new year you too smile

Go to forum: Script

5,810 Reply by DriveSoft

(9 replies, posted in FAQ)

Unfortunately in the current version you can't switching between SQLite and MySQL using script.

Go to forum: FAQ

5,811 Reply by DriveSoft

(9 replies, posted in Russian)

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


1. При переводе проекта с SQLite на MySQL (или обратно), в случае использования вами SQL запросов, могут возникнуть данные ошибки, т.к. данные СУБД иногда имеют различный синтаксис при использовании SQL функций.


Попробуйте заменить

group_concat(FIO, char(13))

на

CONCAT_WS(char(13), `FIO`)


2. Ошибка говорит о том, что SQL запрос вернул пустое значение и оно не может быть конвертировано в число, попробуйте заменить

      idUser:= SQLExecute('SELECT id FROM UserCO WHERE (FIO_Login = ''' + frmLogin.ComboBox1.Text + ''');');
      idOtdel := SQLExecute ('SELECT id_StrukturnOtdelCO FROM UserCO WHERE id='+IntToStr(idUser));

на

      idUser:= SQLExecute('SELECT IFNULL(id, -1) FROM UserCO WHERE (FIO_Login = ''' + frmLogin.ComboBox1.Text + ''');');
      idOtdel := SQLExecute ('SELECT IFNULL(id_StrukturnOtdelCO, -1) FROM UserCO WHERE id='+IntToStr(idUser));

Go to forum: Russian

5,812 Reply by DriveSoft

(24 replies, posted in Russian)

pha1984
Данное поведение формы было всегда, в т.ч. и в версии 2.2
Форма License является главной в проекте, поэтому она обязательно должна появиться на экране, иначе бы событие OnShow для данной формы не сработало бы, и вы не смогли бы вызвать форму Form1


Чтобы избавиться от этого, необходимо форму Form1 сделать главной и использовать событие OnShow данной формы чтобы вызвать на экран форму License



По поводу ошибки DBimage2, спасибо, исправил, скачайте пожалуйста снова бета версию
http://myvisualdatabase.com/forum/viewtopic.php?id=1935

Go to forum: Russian

5,813 Reply by DriveSoft

(3 replies, posted in Script)

v_pozidis wrote:

when I press the delete button I get this error message.
What's wrong ?

Please attach your project, I'll check it.

Go to forum: Script

5,814 Reply by DriveSoft

(4 replies, posted in Script)

Hello,


It's not possible in the current version.

Go to forum: Script

5,815 Reply by DriveSoft

(9 replies, posted in Russian)

byhost wrote:

Подскажите как правильно её оформить

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


Т.е. в таблице БД "Form" достаточна полей date и id_kategory
в таблицу БД "kategory" внесете необходимые названия статей доходов и расходов (Продажа, Покупка, Аренда...)


таким образом достаточна будет только одной формы для добавления нового расхода/прихода, на которой будет только дата, сумма и выбранная категория из ComboBox



в крайнем случае можно сделать и с вашей структурой бд, чтобы подсчитать прибыль, можете попробовать такой SQL запрос для кнопки Button2 на форме "Отчет"

SELECT

TOTAL(form.prodaga)
 -
(
TOTAL(form.pokupka)+
TOTAL(form.arenda)+
TOTAL(form.svet)+
TOTAL(form.bratva)+
TOTAL(form.patent)+
TOTAL(form.nalog)
)

FROM form

WHERE

form.date >= {DateTimePicker1} AND form.date <= {DateTimePicker2};

Go to forum: Russian

5,816 Reply by DriveSoft

(24 replies, posted in Russian)

pha1984 wrote:

откуда скачать?

http://myvisualdatabase.com/forum/viewtopic.php?id=1935

Go to forum: Russian

5,817 Reply by DriveSoft

(3 replies, posted in Script)

Hello,


You can attach other sqlite database file:

SQLExecute('ATTACH DATABASE ''testDB.db'' as ''TEST''');

using:

SELECT TEST.person.firstname, TEST.person.lastname FROM TEST.person

Go to forum: Script

5,818 Reply by DriveSoft

(24 replies, posted in Russian)

Ошибка связана с багом у компонента PageControl, при запуске программы вы видите содержимое второй вкладки, хотя у компонента PageControl активна первая вкладка.


Скачайте пожалуйста последнюю бета версию 2.3, ошибка была исправлена.

Go to forum: Russian

5,819 Reply by DriveSoft

(24 replies, posted in Russian)

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

Go to forum: Russian

5,820 Reply by DriveSoft

(5 replies, posted in General)

Hello,


Simply remove the file sqlite.db from project's folder.

Go to forum: General

5,821 Reply by DriveSoft

(15 replies, posted in General)

Please list functionality which is necessary for your Warehouse management.

Go to forum: General

5,822 Reply by DriveSoft

(11 replies, posted in Script)

VascoMorais
Not sure what exactly you trying to do, you can attach your project (zip file without exe and dll) with description and I'll try to help you.


You can press button from script in the following way: 

Form1.Button1.Click;



Script is pascal language (not SQL), so you can use any book about Pascal language.

Go to forum: Script

5,823 Reply by DriveSoft

(5 replies, posted in General)

smoustafa


Script from jean.brezhonek have to work, just download example "Test_Label2.zip" for test.

Go to forum: General

5,824 Reply by DriveSoft

(1 replies, posted in Script)

Hello,


Change color for TabSheet is not supported, in the latest version this properties was removed.

Go to forum: Script

5,825 Reply by DriveSoft

(1 replies, posted in General)

Hello,


example:

procedure Form1_ComboBox1_OnCloseUp (Sender: string);
begin
    Form1.Edit1.Text := Form1.ComboBox1.Text;
end;

Go to forum: General