error: Empty Sql Statement .Delphi 7 and interbase

  andyandy12 08:08 25 Jul 2018

[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

What is Markdown?

Markdown lets you add more formatting to your post. Simply type in your post and it will display as written.

If you wish to add bold or italic characters, add a hyperlink to another website, a heading or a horizontal line, simply use the relevent icons above the text input field.

A preview of your post will appear in the grey box below. If you make a change and you're not happy, simply press the back arrow icon to undo.

Post a Reply

4500

Elsewhere on IDG sites

Huawei Mate 20 Pro review: In-depth hands-on

Project Gemini is Adobe's Procreate rival – a new drawing and painting app for the iPad

iPhone XR release date, price & specs

OnePlus 6T : date de sortie, prix et autres rumeurs