Delphi ile Adoquery’da veritabanına kayıt

Edit.text ler içerisine girilmiş olan verileri string tanımlayarak ve ADOQuery yardımıyla veritabanına kayıt işlemi…

Kayıtta sayısal alan boş ise kayıt yaparken hata veriyordu.
Aşağıdaki örnek te ISK alan için ilave kod ;
if Trim(Edit16.Text)=” then
begin
Edit16.Text:=’0′;
end;
koyduk düzeldi….
Bir Adet Name’sine FirmaKayitform adını verdiğimiz form ve bir adette DataModule açın biz name sine DataModule1 verdik.
Açılan FirmaKayitform üzerine yerleştirilen Edit.text ve ComboBox içerisine girilen bilgileri string olarak tanımladığımız değişken içerisine aktarıyoruz.
Yine DataModule1 içerisine 1 Adet ADOConnection1,ADOQuery ve DataSource ekliyoruz.
FirmaKayitform içerisinde tanımladığımız K string değişkenine aktardığımız verileri bu ADOQuery vasıtasıyla aşağıdaki şekilde veritabanımıza kayıt ediyoruz.

procedure TFirmaKayitform.BitBtn2Click(Sender: TObject);
var
K:string;
begin
if Edit1.Text<>” then
begin  //Edit1 boş değilse
if Edit18.Text<>” then
begin // Firkod boş değilse
DataModule1.ADOTable1.Open;// Daha önceden kayıt edilmişmi kontrol edelim…
if not DataModule1.ADOTable1.Locate(‘FIRKOD’,Edit18.Text,[]) then
begin  //Edit18 deki FIRKOD aynı değilse
if Trim(Edit16.Text)=” then
begin
Edit16.Text:=’0′;
end;
K:=’INSERT into FIRMA (FIRADI,UNVAN,YETKILI,ADRES1,ADRES2,TEL1,TEL2,TEL3,FAX,EMAIL,’;
K:=K+’WEB,VDAIRE,VNO,ISK,FGRUP,FIRKOD)Values(“‘;
K:=K+Trim(Edit1.Text)+'”,”‘;
K:=K+Edit2.Text+'”,”‘;
K:=K+Trim(Edit3.Text)+'”,”‘;
K:=K+Trim(Edit4.Text)+'”,”‘;
K:=K+Trim(Edit5.Text)+'”,”‘;
K:=K+Trim(Edit6.Text)+'”,”‘;
K:=K+Trim(Edit7.Text)+'”,”‘;
K:=K+Trim(Edit8.Text)+'”,”‘;
K:=K+Trim(Edit9.Text)+'”,”‘;
K:=K+Trim(Edit10.Text)+'”,”‘;
K:=K+Trim(Edit11.Text)+'”,”‘;
K:=K+Trim(Edit12.Text)+'”,”‘;
K:=K+Trim(Edit13.Text)+'”,’;
K:=K+(Edit16.Text)+’,”‘;
K:=K+ComboBox1.Text+'”,”‘;
K:=K+Trim(Edit18.Text)+'”)’;

DataModule1.ADOQuery1.SQL.Clear;
DataModule1.ADOQuery1.SQL.Add(K);
DataModule1.ADOQuery1.ExecSQL;

end// //Edit18 deki FIRKOD aynı değilse son   +
else
begin
ShowMessage(‘Bu Firma Kodu kayıtlı, lütfen başka bir kod giriniz’);
Edit18.SetFocus;
Exit;
end;
end   // Firkod boş değilse son +
else
begin
ShowMessage(‘Firma Kodu Boş Geçilemez’);
Edit18.SetFocus;
Exit;
end;
end  //Edit1 boş değilse son +
else
begin
ShowMessage(‘Firma İsmi Boş Olamaz’);
end;
end;

Bol kodlu günler….

TD Software

Reklamlar