Avoid empty data being recorded (Page 1 of 2)

Hello,

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

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

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?

Hi
your script works fine and thanks for your reply

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.Edit1.Text = '' then
    begin
        Cancel := True;
        ShowMessage('Fill in the Blanks.');
    end;
end;

but in my project apart form the save button, there is also a button defined as "New Record"
whenever I push the save button, the message ('Fill in the Blanks.') is shown and that's OK
But when I press the "New Record" button, this message is also shown. What should I do to get rid of seeing this message when I press the "New Record" button
thanks

Hi tcoton

I have checked my project but button "New Record" name is button2 and button "save" name is button1
the script says that only button 1 should show the message but both of the buttons show the message.

I have attached a simple version of the project which is somehow like my project. can you correct it?

thanks

thanks but you did not correct the bug, you just erased it.
The Whole idea was to correct the project without changing it because in form1 of my project there is a save button and without filling the text1 button you can't save it. but there is also a Table Grid in that form and TableGrid has a New Record Button which opens form2.
the error is:
only when you press Save Button the message "Fill in the blank" should appear but when you press the New Record Button the message still appears
I attach a simple version of my project. please do not delete the buttons, just correct the error of the "New Record Button"

Hi
I know what "New Record" means. there is a project in Database Application of this forum named "Student Performance Database" and I also attached it for you.
In the form "frmStudent" there is a save button and it also has a Table Grid and the Table Grid has an "Add" Button
could you please write an script that when you press the save button without filling "edLastname" , a message is shown that says "Fill in the last name".
Only when the save button is clicked, this message should be shown not when you press "Add" Button.
thanks

Hi
I did as you said but it got worse than before
when I leave "edLastName" Text Box blank, the message comes up and when I click Ok, the form "frmStudent" closes.
and also the first error still exists.
when I click on the "Add" button in the Table Grid in the  "frmStudent" , this message is also shown.
what is the reason?

thanks for your reply
Could you please elaborate on you another way of checking empty fields?
are there any other ways to do it?

Hi jean.brezhonek
Yes Very Strange
mine does not work correctly. I have downloaded your attachment and it also has the same problem. I'm working with 1.45 and 2.3 portable.
both of them are the same. In the form "frmstudent" when I press add the message"you have to fill the blanks" is shown and when I click on "OK" then the other form comes

If (form1.combobox1.dbitemid = -1) then
Begin
          ShowMessage('please fill required field');
          Cancel:= true;
End;
You can write it in different ways
Like combobox1.text = '' or combobox1.dbitemid < 1

Hello, good day to everyone

I am dealing with a DateTimePicker don't forget to select when saving
but there is no action, I think the script is wrong
Your support would be of great help in guiding me.

begin
if Analysis_Report.DateTimePicker2.Checked  then
begin
Cancel :=True;
ShowMessage('Message here');
end;

Thank you very much for your time and support.

Best regards