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

The best of Gamescom 2019

Best free Photoshop brushes 2019

Apple TV streaming service: what, where, when and how much

Les meilleurs smartphones incassables (2019)