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

Oppo Reno 2 Z review: Hands-on

TikTok and how to use it for illustration success

macOS Catalina Review: New MacOS update turns your Mac into an entertainment hub

Les meilleures coques pour iPhone 11, 11 Pro et 11 Pro Max (2019)