Mega Code Archive
Ado ile insert ve update
<![CDATA[
//Kendi hazırladığım programın kaydet butonunu sizle paylaşmak istedim...
//Bazı yerleri kendinize uyarlamanız gerekecek...
//sercom-bilgisayar@hotmail.com
procedure TCariKart.ToolButton1Click(Sender: TObject);
begin
If kodu.Text = '' Then Begin
MessageDlg('Müşteri kodunu boş geçemezsiniz...', mtInformation, [mbOk], 0);
kodu.SetFocus;
Exit;
End;
If unvani.Text = '' Then Begin
MessageDlg('Müşteri ünvanını boş geçemezsiniz...', mtInformation, [mbOk], 0);
unvani.SetFocus;
Exit;
End;
AdoQuery1.SQL.Text := 'SELECT kodu FROM carikart WHERE kodu='''+Trim(kodu.Text)+'''';
AdoQuery1.Open;
kayittarihi.Date := Date;
If AdoQuery1.RecordCount = 0 Then Begin
AdoQuery1.SQL.Text := 'INSERT INTO carikart (kodu,unvani,statusu,eiskodu,adres1,adres2,semt,ilce,il,ulke,postakodu,telefonno1,telefonno2,faxno,ozelkod,' +
'vergino,vergidairesi,vdkodu,kdvno,dovizturu,indirimorani,odemetipi,' +
'cekriskcarpani,senetriskcarpani,kapananrisk,risklimiti,riskkontrolu,detaylibilgi,kayittarihi) VALUES (' +
''''+Trim(kodu.Text)+''','''+Trim(unvani.Text)+''','''+Trim(statusu.Text)+''','''+Trim(eiskodu.Text)+''','''+Trim(adres1.Text)+''','''+Trim(adres2.Text)+''','''+Trim(semt.Text)+''',' +
''''+Trim(ilce.Text)+''','''+Trim(il.Text)+''','''+Trim(ulke.Text)+''','''+Trim(postakodu.Text)+''','''+Trim(telefonno1.Text)+''','''+Trim(telefonno2.Text)+''','''+Trim(faxno.Text)+''','''+Trim(ozelkod.Text)+''',' +
''''+Trim(vergino.Text)+''','''+Trim(vergidairesi.Text)+''','''+Trim(vdkodu.Text)+''','''+Trim(kdvno.Text)+''','''+Trim(dovizturu.Text)+''','''+Trim(indirimorani.Text)+''','''+Trim(odemetipi.Text)+''',' +
''''+Trim(cekriskcarpani.Text)+''','''+Trim(senetriskcarpani.Text)+''','''+Trim(kapananrisk.Text)+''','''+Trim(risklimiti.Text)+''','''+Trim(riskkontrolu.Text)+''','''+Trim(detaylibilgi.Text)+''',' +
''''+FormatDateTime(TarihFormati,kayittarihi.Date)+''')';
AdoQuery1.ExecSQL;
AdoQuery1.Close;
End Else Begin
AdoQuery1.SQL.Text := 'UPDATE carikart SET unvani='''+Trim(unvani.Text)+''',statusu='''+Trim(statusu.Text)+''',eiskodu='''+Trim(eiskodu.Text)+''',adres1='''+Trim(adres1.Text)+''',adres2='''+Trim(adres2.Text)+''',semt='''+Trim(semt.Text)+''',' +
'ilce='''+Trim(ilce.Text)+''',il='''+Trim(il.Text)+''',ulke='''+Trim(ulke.Text)+''',postakodu='''+Trim(postakodu.Text)+''',telefonno1='''+Trim(telefonno1.Text)+''',telefonno2='''+Trim(telefonno2.Text)+''',' +
'faxno='''+Trim(faxno.Text)+''',ozelkod='''+Trim(ozelkod.Text)+''',vergino='''+Trim(vergino.Text)+''',vergidairesi='''+Trim(vergidairesi.Text)+''',vdkodu='''+Trim(vdkodu.Text)+''',kdvno='''+Trim(kdvno.Text)+''',' +
'dovizturu='''+Trim(dovizturu.Text)+''',indirimorani='''+Trim(indirimorani.Text)+''',odemetipi='''+Trim(odemetipi.Text)+''',cekriskcarpani='''+Trim(cekriskcarpani.Text)+''',' +
'senetriskcarpani='''+Trim(senetriskcarpani.Text)+''',kapananrisk='''+Trim(kapananrisk.Text)+''',risklimiti='''+Trim(risklimiti.Text)+''',riskkontrolu='''+Trim(riskkontrolu.Text)+''',' +
'detaylibilgi='''+Trim(detaylibilgi.Text)+''' WHERE kodu='''+Trim(kodu.Text)+'''';
AdoQuery1.ExecSQL;
AdoQuery1.Close;
End;
CariBulmaFormu.ADOQuery1.Close;
CariBulmaFormu.ADOQuery1.Open;
CariBulmaFormu.ADOQuery1.First;
Close;
end;
]]>