كيف يمكنني إدخال المعلومات بإستعلام واحد؟

كود :

procedure TfrmAdd.btnAddClick(Sender: TObject);
var studentId,STUDENTNumber : integer;
    lessonName :string;

begin

          STUDENTNumber := ('Select STUDENTNumber from student where STUDENTNumber = StrToInt(:edit1.text)');
          if ((STUDENTNumber =null )then
            Begin
             Dmdata.qryadd.SQL.Text:='INSERT INTO Student (FName,LName,BDay,PBirth)'+
             'VALUES (:fname,:LName,:Bday,:PBirth)' ;
             Dmdata.qryadd.Params.ParamByName('FNAME').AsString:= edtFName.Text;
             Dmdata.qryadd.Params.ParamByName('LNAME').AsString:= edtLName.Text;
             Dmdata.qryadd.params.ParamByName('BDay').AsDate:= StrToDate(edtBDay.Text);
             Dmdata.qryadd.Params.ParamByName('PBirth').AsString:= edtPBirth.Text;
             studentId :=  (SELECT GEN_ID( GEN_studentID, 0 ) FROM RDB$DATABASE);
            End  ;

        lessonName := ('Select lessonName from lessons where lessonName = :combox.text');
          if ((lessonName =null )then
            Begin
             Dmdata.qryadd.SQL.Text:='Insert into lessons (lessonName) values (:lessonName)';
             Dmdata.qryadd.Params.ParamByName('lessonName').AsString:= ComboBox1.Text;
             LessonId :=  (SELECT GEN_ID( GEN_LESSONSID, 0 ) FROM RDB$DATABASE);
            end;

        Dmdata.qryadd.SQL.Text:='Insert into Studlessons (studentId,lessonId) values (:studentId,:lessonId)';
 

end;

كود :

STUDENTNumber := ('Select STUDENTNumber from student where STUDENTNumber = StrToInt(:edit1.text)');

 studentId :=  (SELECT GEN_ID( GEN_studentID, 0 ) FROM RDB$DATABASE);

 lessonName := ('Select lessonName from lessons where lessonName = :combox.text');

 LessonId :=  (SELECT GEN_ID( GEN_LESSONSID, 0 ) FROM RDB$DATABASE);

كود :

Function GetStudentNumber(StudentNumber: Integer): Integer;
Begin
   StudentNumberQuery.Active:= False;
   StudentNumberQuery.Params.ParamByName('StudentNumber').AsInteger:= StudentNumber;
 StudentNumberQuery.Active:= True;
 Result:= StudentNumberQuery.FieldByName(‘StudentNumber’).AsInteger;
End;

Function GetStudentId: Integer;
Begin
 StudentIdQuery.Active:= False;
 StudentIdQuery.Active:= True;
 Result:= StudentIdQuery.Fields[0].AsInteger;
End;

Function GetLessonName(LessonName: string): string;
Begin
   LessonNameQuery.Active:= False;
   LessonNameQuery.Params.ParamByName('LessonName').AsString:= LessonName;
 LessonNameQuery.Active:= True;
 Result:= LessonNameQuery.FieldByName(‘LessonName’).AsString;
End;

Function  GetLessonId: Integer;
Begin
 LessonIdQuery.Active:= False;
 LessonIdQuery.Active:= True;
 Result:= LessonIdQuery.Fields[0].AsInteger;
End;

كود :

STUDENTNumber := GetStudentNumber(StrToInt(edit1.text));

studentId :=  GetStudentId;

lessonName := GetLessonName(combox.text);

LessonId :=  GetLessonId;

كود :

create procedure aa(
v1 varchar(20),
V2 varchar(20),
d date)
returns(vv integer)
AS 
BEGIN 
  case when SELECT  1 FROM table1  where FName=:v1 and LName=:v2 and BDay=:d )) THEN
  result = 1 -- or true
  END
end

كود :

create procedure aa(
v1 varchar(20)
 V2 varchar(20),
d
date)
returns(vv integer)
begin

  if (exists(select fname,lfname,bday from STUDENT  where fname=:v1 and lfname=:v2 and bday=:d) )then 
  result = 1 -- or true
end
end