carmelo

Delphi de MYSQL veri tabanına insert into ile kayıt eklemek
mysql veri tabanına INSERT INTO ILE yeni kayıt açmak

yazılım kuralına dikkat

procedure TKASA_FORM.YeniClick(Sender: TObject);
VAR HKHAKKQTRING;
begin
Q:="; KK:=";HK:='K'; HA:=";
HA:=HAREKET.Text;
KK:= KASA_MASTER.FIELDBYNAME('KASA_KODU').AsString;
KASA_HAREKET.Close;
KASA_HAREKET.SQL.CLEAR;
Q:=' INSERT INTO CARIHAR (BAKASA_KODUHKhartipHARADIACIKLAMA) VALUES('+'"'+BA.TEXT+'"'+''+'"'+KK+'"'+''+'"'+HK +'"'+''+'"'+HAREKET.TEXT+'"'+''+'"'+HAREKET.TE XT +'"'+''+'"'+HAREKET.TEXT+'")';
KASA_HAREKET.SQL.ADD(Q);
KASA_HAREKET.EXECSQL;

KASA_HAREKET.close;
KASA_HAREKET.sql.clear;
KASA_HAREKET.Sql.Add('select * from CARIHAR');
KASA_HAREKET.Sql.Add('order by SIRANO DESC');
KASA_HAREKET.open;
END;