1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:

procedure TRechnungsverkaufa09Form.artuebernehmen_buttonClick(Sender: TObject);
var
  ArtNrStr, ArtPreisStr,Merk:string;
begin
  if renr_edit.text='' then
  begin
    Fehlermeldung('Keine Rechnung ausgewählt, der dieser Artikel zugeordnet werden koennte');
    anz_spinedit.value:=1;
    artikelcombobox.itemindex:=-1;
    exit;
  end;
  if artikelcombobox.text='' then
  begin fehlermeldung('Kein Artikel ausgewählt'); exit; end;

  //ArtNr ermitteln
  with artikelcombobox do artnrstr:=copy(text,1,pos(':',text)-1);

  if artikelcombobox.enabled
  then
  begin
    with arbeitmysqlquery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM reeinzelheiten');
    Open;
    First;
--------------------------------------------------------------------------------------------
  while not EoF do
  begin
  //Hier musste noch eine Bedingung hin, dass er nicht in ALLEN Rechnungen nach dem Artikel sucht,
  //sondern nur in der Angezeigten, und, dass man die Anzahl ändern kann.
    if  (FieldByName('artnr').AsString=ArtNrStr) and (FieldByName('renr').AsString=renr_edit.text) then
    begin
      if anz_spinedit.Text<>artnrstr  then
      begin
      //Anzahl ändern funktioniert nicht???->Fehler? ->in MyAdmin funktioniert es
    showmessage('SQL-Befehl funktioniert nicht.');

    merk:='UPDATE reeinzelheiten SET '
    +'ArtAnz='+IntToStr(anz_spinedit.value)
    +' WHERE (ReNr='+ReNr_Edit.text+') AND (ArtNr='+ArtNrStr+')';
---------------------------------------------------------------------------------------------------------
  with arbeitmysqlquery do
  begin
    close;
    SQL.clear;
    SQL.add(merk);
    execsql;
  end;         ;
      end
      else
      fehlermeldung('Dieser Artikel kommt schon in der Rechung vor, bitte dort ändern!');
      exit;
    end;
      next;
    end;
  end;

    with arbeitmysqlquery do
  begin
    close;
    SQL.clear;
    SQL.add('SELECT * FROM artikel WHERE artnr="'+ArtNrStr+'"');
    Open;
    artpreisstr:=fieldbyname('artpreis').AsString;
    close;
    sql.clear;
    sql.add('INSERT INTO einzelhandel.reeinzelheiten (reeinzaenderung, artnr, artanz, artpreis, renr) VALUES('
    +'"",'
    +'"'+ArtNrStr+'",'
    +'"'+IntToStr(anz_spinedit.Value)+'",'
    +'"'+ArtPreisStr+'",'
    +'"'+ReNr_Edit.text+'")');
    ExecSQL;
  end;
  end
  else
  begin
    merk:='UPDATE reeinzelheiten SET'
    +' ArtAnz="'+IntToStr(anz_spinedit.value)+'" '
    +' WHERE (ReNr="'+ReNr_Edit.text+'") AND (ArtNr="'+ArtNrStr+'")';
  with arbeitmysqlquery do
  begin
    close;
    SQL.clear;
    SQL.add(merk);
    execsql;
  end;
  artikelcombobox.enabled:=true;
  end;
  artikelbearbeitung(true);
  ArtikelzurRechnungenAnzeigen;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TRechnungsverkaufa09Form.artdel_buttonClick(Sender: TObject);
var
  merk:string;
  renrstr,artnrstr:string;
begin
  //Nummern bestimmen
  renrstr:=renr_edit.text;

  with artikelcombobox do artnrstr:=copy(text,1,pos(':',text)-1);

  //SQL-Befehl zusammenbauen

  //Wo ist hier der falsche Syntax???

   merk:='DELETE FROM reeinzelheiten WHERE (renr='+renrstr+') AND (artnr='+artnrstr+')';

  with arbeitmysqlquery do begin
    sql.clear;
    sql.add(merk);
    execsql;
    SHOWMESSAGE('SQL-Befehl funktioniert nicht.');
  end;
end;					

1:
2:

 ...
 merk:='DELETE FROM reeinzelheiten WHERE renr= ''' +renrstr+ ''' AND artnr='''+artnrstr+'''' ';					

1:
2:

 sql.clear;
    sql.add(merk);					

1:

    sql.Text := merk;					

1:
2:
3:
4:

   merk:='DELETE FROM reeinzelheiten WHERE renr=:renr AND artnr=:artnr;';
   ...
   sql.ParamByName('renr').Value := renrstr;
   ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Var Nummer   : String;
    MySQL    : String;
...
Nummer:=IntToStr(34);

MySQL    :='Select * from '+Tabellenname';
MySQL    :=MySQL    +' Where (EintragNr='''+Nummer+''')';
MyQuery.SQL.Clear;
MyQuery.SQL.Add(MySQL);
MyQuery.Open;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

Var Nummer   : Integer;
    MySQL    : String;
...
Nummer:=34;
MySQL    :='Select * from '+Tabellenname';
MySQL    :=MySQL+' Where (EintragNr='''+IntToStr(Nummer)+''')';
MyQuery.SQL.Clear;
MyQuery.SQL.Add(MySQL);
MyQuery.Open;					

1:
2:

 ...
 merk:='DELETE FROM reeinzelheiten WHERE (renr= "' +renrstr+ '") AND (artnr="'+artnrstr+'") ';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

If Query.RecordCount>0 then
begin 
  Query.edit;
  Query['erstens']:=irgendwas;
  ....
  UpdateSQL.Apply(UkModify);
end else   
begin
  Query.Append;
  Query['Index']:=34; // eindeutiger Index !!
  Query['erstens']:=irgendwas;
  ....
  UpdateSQL.Apply(UkInsert);
end;					

1:

If Query.RecordCount>0 then UpdateSQL.Apply(UkDelete);					

1:

MySQL    :='Select * from '+Tabellenname';					

1:
2:
3:

   QUERY1.SQL.Text := 'SELECT * FROM bla WHERE feld = ''' + 'irgendwas' + '''';
   QUERY2.SQL.Text := 'SELECT * FROM bla WHERE feld = "' + 'irgendwas' + '"';
   ShowMessage(Query1.SQL.Text + #13#10 + Query2.SQL.Text);