Veri Tabanına Kontrollü Kayıt Yaptırma

[izmaimen]

Sayın Muharrem ARMAN
Bayramın 1.günü olmasına rağmen benim sorunum ile uğraşarak cevap yayınladığınız için için çok teşekkürler.
1. Örnek olarak verdiğniz kodları ben maalesef çalıştıramadım. Bu konularda çok bilgi eksikliğim olduğu kesin.
2. Ben burada ilk olarak, en baştaki konuya değinmek istiyorum. Sakın yanlış anlaşılmasın, niyetim ukalalık etmek değil.
Sadece benim gibi az bilenlerle deneyimlerimi burada paylaşmak istiyorum:
"fdqSoyad.SQL.Add('INSERT INTO kisiler VALUES(Karataş;01;02;03;04;05;06;07;08;09;10;11;12;13;14)');"
komutunda "kisiler" (DB adı)'ndan sonra VALUES'dan önce herhangi bir bilgi (Alan Adları) girilmediğinde yapılan işlem,
burada adı geçen DB dosyasına VALUES(...) içinde verilen değerlerin, verildikleri sırada, DB dosyasında yer alan alanlara
(yine DB içindeki alan sıralam sına göre) yerleştirilmesidir (yani "Field1 = Karataş, Field2 = 01,...). Ama bu sıralamalara dikkat
edilmediği takdairde çok farklı ve yanlış kayıtlar yapılması da kaçınılmazdır. (Yani sizin öneriniz doğrultusunda hareket edilmesi en doğrusudur).
3. Dün öğlene kadar sizin vermiş olduğunuz örnek dosya ile uğraştım. Daha sonra akrabalarımı ziyarete gittik.
Gece saat 23:30'da tekrar bilgisayar başına oturup birkaç deneme ile aşağıdaki kod ile muradıma ulaştım:

unit Unit4;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, FireDAC.Stan.Intf,
FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf,
FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys,
FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client;
type
TForm4 = class(TForm)
Button1: TButton;
dsKisi: TDataSource;
fdcKisi: TFDConnection;
fdqKisi: TFDQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

// YENİ KİŞİ KAYDI
procedure TForm4.Button1Click(Sender: TObject);
var satyaz, satyazc: String;
i, kytsay: Integer;
begin
fdcKisi.DriverName:= 'SQLite';
fdcKisi.Params.Add('Database= C:\PWP 2018\Data\PWPData.db');
fdcKisi.Connected := true;
try
fdqKisi.Close;
satyaz := '';
fdcKisi.DriverName:= 'SQLite';
fdqKisi.Connection:= fdcKisi;
fdqKisi.SQL.Text := 'SELECT * FROM kisiler';
fdqKisi.Open;
fdqKisi.SQL.Clear;
fdqKisi.SQL.Add ('SELECT * FROM kisiler ORDER BY SOYADI, KISI_ADI_1, KISI_ADI_2');
fdqKisi.Active := true;
fdqKisi.First;
kytsay:= fdqKisi.RecordCount;
ShowMessage('Dosyada Kayıtlı Kişi Sayısı: '+IntToStr(kytsay));
fdqKisi.SQL.Clear;
fdqKisi.Active;
fdqKisi.SQL.Add('INSERT INTO kisiler(SOYADI, KISI_ADI_1, KISI_ADI_2, KISI_KODU) VALUES
(''ATATÜRK'', ''Mustafa'', ''Kemal'',''A0001'')' );
fdqKisi.ExecSQL;
finally
end;
end;
end.
4. Program çalıştı, ve ilgili alanlara verilen bilgileri girebildim. Buraya da yine basit bir örnek olarak
kayıtlara geçmesi için kopyaladım.
5. Göstermiş olduğunuz ilgiye ve yaptığınız önerilere minnettarım. Aynen kopyalamamış olsam bile,
yaklaşık 2 haftalık çabamın neticesini aldığım için çok rahatladım.
6. Programımı geliştirdikçe daha çok yardımlarınıza ihtiyacım olacağı kesin. Herşey için çok
teşekkürler.
Sağlıklı ve mutlu nice bayramlar ve yıllar dilerim.
Saygılarımla.

A. İhsan MENLİKLİ