Kod: Tümünü seç
MyQuery1.Close;
MyQuery1.SQL.Clear ;
MyQuery1.SQL.Add ( ' UPDATE personel SET kredi=''kredi'' '''+edit1.text+''''+' where kredi=''-5''') ;
MyQuery1.execsql;
yada böyle yazıyorum.
Kod: Tümünü seç
MyQuery1.close;
MyQuery1.sql.Clear;
MyQuery1.sql.Add('SELECT personel, personel -2 FROM kredi');
MyQuery1.open;
edit1.text:=inttostr(MyQuery1.FieldByName('personel').AsInteger);
bide böyle yazıyorum.
Kod: Tümünü seç
procedure TForm1.Button3Click(Sender: TObject);
var
s,s1,s2:Real;
begin
s1:=StrToFloat(Edit3.Text);
s2:=MyQuery1.SQL.Add('select * from personel where kredi=');
s:=s1-s2;
Label2.Caption:='=' + FloatToStr(s);
end;