126 Reply by identity

(8 replies, posted in Script)

thanks for your reply
But I have an older version of this program and I cant open your project.

I wonder whether the script you have written is supported in the earlier versions for example v.1.40?

would it be possible for you to give me an script which is supported in my version of this program?

thank you

Go to forum: Script

127 Reply by identity

(8 replies, posted in Script)

the attached project is not my real project but it is similar to my project

if you run the project you'll see that when you search in the form1, there are two collumns in the tablegrid that are exactly the same.

what i like to do is that:

when i insert 3 figures in the edit1 and edit2 and edit3 buttons, if all of the three figures are the same as previous entry, an alert message says that "you have recorded these numbers before"

thank you

Go to forum: Script

128 Topic by identity

(8 replies, posted in Script)

hi

I have a form with three textboxes
can these textboxes be related to each other  in order to avoid saving repeated data.

for example :
suppose that I fill textbox1 with the number 13 and textbox2 is filled with 14 and in textbox3 I write 15

what I want to know is that whether there is a scrip that when I write 13 - 14 and 15 in these textboxes an error massage comes up and avoid the repeated data to be saved?

thank you

Go to forum: Script

129 Topic by identity

(7 replies, posted in Script)

hi

Is it possible that before the program starts, an alert is shown and asks for the password?
what is the script?
thank you

Go to forum: Script

130 Reply by identity

(25 replies, posted in Script)

thank you so much

I added your script and it worked fine
but by default, there is another script named " the script says hello"
when I start the file an alert comes up and says  " the script says hello"
I tried to delete the script but when I delete the script, It shows an error

the scrip is like this:

var
  sHello: string;

procedure frmTerminal_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    if frmTerminal.Edit13.Text = '' then
    begin
        Cancel := True;
        MessageDlg('Message here', mtError, mbOk, 0); // Displays a red 'X', header is: Error;
    end;
end;

procedure HelloWorld (s: string);
begin
  ShowMessage(s);
end;

begin
  // just for example
  sHello := '';
  HelloWorld(sHello);
end.

how can I erase this script?

Go to forum: Script

131 Reply by identity

(25 replies, posted in Script)

hi Dmitry
I'm having the same problem as tcoton

you wrote this query for the answer to his question:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.Edit1.Text = '' then
    begin
        Cancel := True;
        ShowMessage('Your message here.');
    end;
end;

suppose that I have a table named "ABC" and in the ABC table I have a column named "XYZ"
please tell me where should I put your above query?
thanks

Go to forum: Script