1 Reply by ms2014m

(3 replies, posted in Script)

sparrow wrote:

Hi

Printer.Count;
Printer.Printers.Strings[i];

Where "i" is the number of printers - 1.



Thank you for the response
I have tried a lot but to no avail
Is there any other way to reach the same result?
Even if only one printer appears

Go to forum: Script

2 Topic by ms2014m

(3 replies, posted in Script)

Welcome
Is it possible to help?
I want to display the printers connected to my computer in a combo box, so that when I connect 3 different printers, I select each one in its own combo box and associate each combo box with a print button so I don't need to select the printer every time. time.
While saving the choices in the database

Go to forum: Script

3 Topic by ms2014m

(0 replies, posted in General)

Everything works fine
But I have a question
Is there a way, Hana, to improve the format of the message instead of sending it as one section? That is, how can I make each sentence on a separate line and appear on top of each other?

Go to forum: General

4 Reply by ms2014m

(3 replies, posted in General)

Everything works fine
But I have a question
Is there a way, Hana, to improve the format of the message instead of sending it as one section? That is, how can I make each sentence on a separate line and appear on top of each other?

Go to forum: General

5 Reply by ms2014m

(3 replies, posted in General)

derek wrote:

Hi,
I don't use Whatsapp so I can't test it but perhaps try changing your code to this (see attached).
Hope it helps,
Derek.


Thank you very much, wonderful Derek

Go to forum: General

6 Topic by ms2014m

(3 replies, posted in General)

Hello my dear friends

I have a problem when adding a date in a WhatsApp message. The code does not work. I do not know where the problem comes from.

Go to forum: General

7 Reply by ms2014m

(2 replies, posted in General)

domebil wrote:

prova così e vedi se va bene!




Thank you very much everything works fine

Go to forum: General

8 Topic by ms2014m

(2 replies, posted in General)

Hi friends

I am making a project that consists of two models: the first is variable, meaning data is added to it, and the second is fixed, in which data is added once or changed at intervals.

The problem is when the print command is executed, data from the variable form appears and data from the fixed form does not appear

Go to forum: General

9 Reply by ms2014m

(4 replies, posted in General)

Thank you very much
Are there external programs that perform this process?
such as enigma,
Be free or at a reasonable price

Go to forum: General

10 Topic by ms2014m

(4 replies, posted in General)

Welcome, friends

After completing the project, how can I add an activation code to it and create an interface to generate codes?

To protect the program

Go to forum: General

11 Reply by ms2014m

(4 replies, posted in General)

jean.brezhonek wrote:

Hello

What do you mean by 'move old bases'?
Can you show us the error messages that appear?

JB



I mean I created a project and added data for a while
After a while, modifications and additions were made to the tables
When I transfer the SQLIT file to the modified program a message appears stating that the new fields do not exist

Go to forum: General

12 Topic by ms2014m

(4 replies, posted in General)

welcome everybody

I have a query
When I make a project and after a while I make updates to it, when I move the old database it does not work well and many errors appear because it does not contain the new additions.

Is there a way to update the old database to make it work properly while preserving the data?

Go to forum: General

13 Reply by ms2014m

(3 replies, posted in General)

brian.zaballa wrote:

Try replacing the backup.db with the date and time format

procedure form2_Button8_OnClick (Sender: TObject; var Cancel: boolean);
begin
  if CopyFile('sqlite.db', 'Backup\'+FormatDateTime('mm_dd_yyyy_hh_nn_ss', now)+'.db') then showmessage('backup ok');
end;


Thank you
I used this in the past, but it created a lot of files and took up space on the hard drive
I want the name to be fixed, and when the button is pressed, it will replace the old file with the new file

Go to forum: General

14 Topic by ms2014m

(3 replies, posted in General)

Welcome

I used this code to make a backup copy, and I used the time and date to create a new file every time

Now I want to make the file with one name, and when I make a backup copy, it will replace the old file with the new file




procedure form2_Button8_OnClick (Sender: TObject; var Cancel: boolean);
begin
  if CopyFile('sqlite.db', 'Backup\backup.db') then showmessage('backup ok');
end;

Go to forum: General

15 Reply by ms2014m

(3 replies, posted in General)

pavlenko.vladimir.v wrote:
ms2014m wrote:

How can when I press the delete key it asks for the passcode to confirm the deletion?

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
 pass : string = '1234jkjh';
 inputPass : string;
begin
  InputQuery('Подтверждение удаления ','Для удаления записи введите пароль',inputPass);
  if (inputPass <> pass) then Cancel := True;
end;


Thank you very much
It works well, but when deleting the first time, it asks for the password, and when deleting the second time, I find the password registered automatically, and this is not good.
Is it possible to create a page where I can change the password and save it?

Go to forum: General

16 Topic by ms2014m

(3 replies, posted in General)

How can when I press the delete key it asks for the passcode to confirm the deletion?

Go to forum: General

17 Topic by ms2014m

(1 replies, posted in General)

Hello my friends
I have an idea and don't know how to implement it

Attached is a sample for a simple explanation.When you choose to hide all OK, it hides all data that contains OK in the order column

Go to forum: General

18 Reply by ms2014m

(3 replies, posted in General)

brian.zaballa wrote:

You can play with script. I'm just wondering to what scenario in real world will it be used.



thank you

But is there another way to get the same results, because this method does not work in my project

Go to forum: General

19 Topic by ms2014m

(3 replies, posted in General)

What is the method through which I can obtain this result?
Attached is an example of the program and its pictures inside

When you choose number 2 in Box 1, number 1 in Box 2 is automatically chosen

When you choose number 3 in Box 1, number 1 in Box 3 is automatically chosen

When choosing number 2 in box 3, a check box is selected   AND Show the message box
A warning is written inside it

Go to forum: General

20 Reply by ms2014m

(4 replies, posted in General)

derek wrote:

Hi,
If you want full control, you'd be better off writing your own 'deletion' pop-up (for example, use a panel with your own message, your own buttons etc) - see attached.
Derek.

\


Thank you very much everything works fine

Go to forum: General

21 Reply by ms2014m

(4 replies, posted in General)

derek wrote:

Hi,
Try it like this (see attached).
Or you can simply use

begin
  translate('Are_you_sure_you_want_to_delete_the_record','Delete Me?');
end.

However, the text associated with buttons such as 'yes', 'no', 'ok' etc are Windows generated and should appear as per your PC's language settings;   they cannot, as I understand it, be changed directly in MVD.
Derek.



The buttons for approval and cancellation (ok - cancel). Can I replace them with a symbol?

Go to forum: General

22 Topic by ms2014m

(4 replies, posted in General)

I want to modify the data deletion message and modify the OK and Cancel buttons

Go to forum: General

23 Topic by ms2014m

(1 replies, posted in General)

welcome everybody

Is there a way to connect the program to two or more computers in a local network, but the connection is via the IP number?

Go to forum: General

24 Reply by ms2014m

(11 replies, posted in General)

pavlenko.vladimir.v wrote:
ms2014m wrote:

Could you please add these codes in the attached project? I am trying to add them, but it does not work

procedure Form1_Button6_OnClick (Sender: TObject; var Cancel: boolean);
var
openDialog:TOpenDialog;
begin

  openDialog := TOpenDialog.Create(Form1);
  openDialog.Title := 'Выбор копии';
  openDialog.Options := ofHideReadOnly+ofEnableSizing;
  openDialog.Filter := 'файлы SQLite |*.db|';

  openDialog.InitialDir := ExtractFilePath(Application.ExeName)+'Backup';

  if openDialog.Execute then
  begin
    Form1.SQLConnection.Connected := False;
    if CopyFile(openDialog.fileName, 'sqlite.db') then
    begin
      Form1.TableGrid1.dbUpdate;
      showmessage('OK');
    end;
  end;
  openDialog.Free;
end;

procedure Form1_Button7_OnClick (Sender: TObject; var Cancel: boolean);
begin
  if CopyFile('sqlite.db', 'Backup\backup_'+FormatDateTime('yy.mm.dd_HH.MM.SS',Now) +'.db') then showmessage('OK');
end;



Thank you very much
Everything works fine now

Go to forum: General

25 Reply by ms2014m

(11 replies, posted in General)

pavlenko.vladimir.v wrote:
ms2014m wrote:

Can you help me do this through the attached program
I made a copy according to my calculations, and I want to know how to restore this copy to the program again by adding a restore button.

making a copy

CopyFile('sqlite.db', 'Backup\backup '+ FormatDateTime('dd-mm-yyyy', now)+'.db');

 
restore a copy

Form1.SQLConnection.Connected := False;
CopyFile(YOU_FILE, 'sqlite.db');

Thank you very much
Could you please add these codes in the attached project? I am trying to add them, but it does not work

Go to forum: General