error: Empty Sql Statement .Delphi 7 and interbase

  andyandy12 08:08 25 Jul 2018
Locked

[code] procedure TForm3.Edit3Change(Sender: TObject); begin

if (image1.Visible = true) and (image4.Visible=true) and (image7.Visible= true) and (image2.Visible = false) and (image5.Visible=false) and (image8.Visible= false) and (image3.Visible = false) and (image6.Visible=false) and (image9.Visible= false) and(edit3.Text='a') then begin image1.Visible := false; image4.Visible := false; image7.Visible := false; image2.Visible := false; image5.Visible := false; image8.Visible := false; image3.Visible := true; image6.Visible := true; image9.Visible := true; combobox1.ItemIndex:=1; edit3.Clear; end; if (image1.Visible = false) and (image4.Visible=false) and (image7.Visible= false) and (image2.Visible = false) and (image5.Visible=false) and (image8.Visible= false) and (image3.Visible = true) and (image6.Visible=true) and (image9.Visible= true) and(edit3.Text='a') then begin image1.Visible := false; image4.Visible := false; image7.Visible := false; image2.Visible := true; image5.Visible := true; image8.Visible := true; image3.Visible := false; image6.Visible := false; image9.Visible := false; edit3.Clear; end; if (image1.Visible = false) and (image4.Visible=false) and (image7.Visible= false) and (image2.Visible =true) and (image5.Visible=true) and (image8.Visible= true) and (image3.Visible = false) and (image6.Visible=false) and (image9.Visible= false) and(edit3.Text='a') then begin image1.Visible := true; image4.Visible := true; image7.Visible := true; image2.Visible := false; image5.Visible := false; image8.Visible := false; image3.Visible := false; image6.Visible := false; image9.Visible := false; edit3.Clear; end; if (image1.Visible = true) and (image4.Visible=true) and (image7.Visible= true) and (image2.Visible = false) and (image5.Visible=false) and (image8.Visible= false) and (image3.Visible = false) and (image6.Visible=false) and (image9.Visible= false) and(edit3.Text='e') then begin image1.Visible := false; image4.Visible := false; image7.Visible := false; image2.Visible := true; image5.Visible := true; image8.Visible := true; image3.Visible := false; image6.Visible := false; image9.Visible := false; edit3.Clear; end; if (image1.Visible = false) and (image4.Visible=false) and (image7.Visible= false) and (image2.Visible =true) and (image5.Visible=true) and (image8.Visible= true) and (image3.Visible = false) and (image6.Visible=false) and (image9.Visible= false) and(edit3.Text='e') then begin image1.Visible := false; image4.Visible := false; image7.Visible := false; image2.Visible := false; image5.Visible := false; image8.Visible := false; image3.Visible := true; image6.Visible := true; image9.Visible := true; edit3.Clear; end; if (image1.Visible = false) and (image4.Visible=false) and (image7.Visible= false) and (image2.Visible = false) and (image5.Visible=false) and (image8.Visible= false) and (image3.Visible = true) and (image6.Visible=true) and (image9.Visible= true) and(edit3.Text='e') then begin image1.Visible := true; image4.Visible := true; image7.Visible := true; image2.Visible := false; image5.Visible := false; image8.Visible := false; image3.Visible := false; image6.Visible := false; image9.Visible := false; edit3.Clear; end;

if (image1.Visible = true) and (image4.Visible = true) and (image7.Visible = true) and (image2.Visible = false) and (image5.Visible = false) and (image8.Visible = false) and (image3.Visible = false) and (image6.Visible = false) and (image9.Visible = false) then begin if edit3.Text='b' then begin with dm.qdata do begin Close; Sql.Clear; Sql.Add('Insert Into PEMESANAN(NOPEMESANAN,NAMAMENU,HARGAMENU)'+ 'Values(:np,:nm,:hm)'); Prepare; ParamByName('np').AsString := Trim(Edit2.Text); ParamByName('nm').AsString := Trim(Edit5.Text); ParamByName('hm').AsFloat := StrToFloat(edit9.Text); ExecSql; end; edit3.Clear; tampil; end; if edit3.Text='c' then begin with dm.qdata do begin Close; Sql.Clear; Sql.Add('Insert Into PEMESANAN(NOPEMESANAN,NAMAMENU,HARGAMENU)' + 'Values(:np,:nm,:hm)'); Prepare; ParamByName('np').AsString := Trim(Edit2.Text); ParamByName('nm').AsString := Trim(edit6.Text); ParamByName('hm').AsFloat := StrToFloat(edit10.Text); ExecSql; end; edit3.Clear; tampil; end; if edit3.Text = 'd' then begin with dm.qdata do begin Close; Sql.Clear; Sql.Add('Insert Into PEMESANAN(NOPE

This thread is now locked and can not be replied to.

Elsewhere on IDG sites

OnePlus 7T Pro review

The Best Free Fonts Every Designer Should Have 2019

MacBook Pro 13in (2019) review

Xiaomi Mi 10 : date de sortie, prix et autres rumeurs