1 Reply by Wayne

(2 replies, posted in General)

brian.zaballa wrote:
Wayne wrote:

Hi All,

I have a question about Windows 11, will our programs still work on windows 11?

Regards
Wayne

Using windows 11 now(dev-insider) and all is well.


Thank you @brian.zaballa.

Go to forum: General

2 Topic by Wayne

(2 replies, posted in General)

Hi All,

I have a question about Windows 11, will our programs still work on windows 11?

Regards
Wayne

Go to forum: General

3 Topic by Wayne

(0 replies, posted in General)

Hello all,

I need some help, I have a form with a search function to search a month 08 or 05 or 06 with all the other data, Now when I generate the report and it has more than 8 lines, I only get 8 lines. I never had this before on a different application I have the selected row and it only show the selected row I must add that this was working with SQLite,

The project is connection to a MySQL server online.

If someone can maybe tell me how to export only the data shown in the data grid after a search this will be really help full.

Regards

Go to forum: General

4 Reply by Wayne

(2 replies, posted in Script)

Hi,

Thank you very much ill give it a try.

Regards

Wayne

Go to forum: Script

5 Topic by Wayne

(2 replies, posted in Script)

Hi All,
please have a look at the following script, after the email is sent, I want that reminder to be deleted from the database. I just don't know how to type the script for that, 

procedure OnTimer;
var sMessage: string;
begin
     sMessage := SQLExecute('SELECT message FROM reminder WHERE strftime(''%d.%m.%Y %H:%M'', datetime) <= strftime(''%d.%m.%Y %H:%M'', ''now'', ''localtime'') ');
     if SendMail('smtp.mail.xxxx.your-server.de', 'notification@qualitymanagementsystems.eu', 'xxxxxxxx', 465, 'notification@qualitymanagementsystems.eu', 'wayne.hollowayr@gmail.com' , 'Subject', 'Message') then
            //else if  SQLExecute('SELECT message FROM reminder WHERE strftime(''%d.%m.%Y %H:%M'', datetime) < strftime(''%d.%m.%Y %H:%M'', ''now'', ''localtime'') ') then HERE SOME TYPE OF SCRIPT TO DELETE THE REMINDER IN THE DATABASE

          Begin
         // Form1.Button3.click;
          end;
end;

Go to forum: Script

6 Reply by Wayne

(2 replies, posted in General)

Hi Derek,

Could you pop me an email on wayne.holloway@icloud.com please.

Regards
Wayne

Go to forum: General

7 Topic by Wayne

(2 replies, posted in General)

Hi All,

I would really appreciate it if some one can reply my msg.
When I run the code all works well no errors but I don not get the pop up msg.

procedure frmCalibrations_OnShow (Sender: TObject; Action: string);
begin
     Timer := TTimer.Create(frmCalibrations);
     Timer.Interval := 60000;
     Timer.OnTimer := @OnTimer;
     OnTimer;
     Timer.Enabled := true;
end;

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


procedure OnTimer;

var
    sMessage: string = '';
begin
              sMessage := SQLExecute('SELECT message FROM tblReminder WHERE DATE_FORMAT(datetime, ''%Y-%m-%d %H:%i:%S'') = DATE_FORMAT(''%Y-%m-%d %H:%i:%S'', NOW()) ');
              if sMessage<>'' then
              begin
              ShowMessage(sMessage);
              end;
end;

Go to forum: General

8 Topic by Wayne

(0 replies, posted in General)

Hi All,

Could someone help me with the script for a expire date in a form or table?

what I want to do is 30 days before the saved date a reminder is emailed, that within 30days the component will expire.

e.g. the expire date is 30/02/2022 email reminder send automatically for 30days before the expiry date of 30/02/2022.

I would be really thankful if someone could help, please.

Regards
Wayne

Go to forum: General

9 Reply by Wayne

(4 replies, posted in General)

the script

Go to forum: General

10 Reply by Wayne

(4 replies, posted in General)

Hi Derek,

please find the second message that appears, pic "error2"

The strange thing is that when you remove the auto-connect to MySql then the error message also not there anymore.
I also attached the script maybe I am missing something. If not I'll send you my project.

Thank you for your assistance in advance.
Regards
Wayne

Go to forum: General

11 Topic by Wayne

(4 replies, posted in General)

Hi All,

I get this error msg how can I fix it? see added pic.

Regards
Wayne

Go to forum: General

12 Reply by Wayne

(9 replies, posted in Database applications)

I have figured it out had to change my style.

Go to forum: Database applications

13 Reply by Wayne

(9 replies, posted in Database applications)

Hi Brian,

I have tried it and with no success.

Could I ask you to send some screenshots of the steps, please?

Regards
Wayne

Go to forum: Database applications

14 Topic by Wayne

(0 replies, posted in General)

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
begin
if SendMail('smtp.mail', 'email@qxxxxxxxxx', 'password', 465, 'xxxxxxxxxxx', 'email@icloud.com; email@gmail.com', Form1.edTo.Text, 'Message') then
            ShowMessage('Message 2 of 2 sent');
end;


Good Day all,

How can I add more than one edit field in the subject line?
For example, Form1.edSub1.Text and form1.edSub2.text and form1.edSub3.text

I want to use more than one edit field in my subject line when the email is sent. I know how to do it in VB.net but not so sure here as I am new to pascal.

Go to forum: General