Basit Bir Rehber Yapalım

Merhaba Arkadaşlar yeni yazımla karşınızdayım.
Bu kez delphi ve sql server ı kullanarak basit bir telefon rehberi yapıyoruz.
SQL server 2012 ve delphi 2010 kullanıyorum.
Tüm anlatımlar video da var kodlarıda burda paylaşıyorum. Kaynak dosyaları koymuyorum. Çünkü sizde kurulu olmalı sql server ve o tablolar olmalı. Olmadğından dolayı hata alırsınız diye koymuyorum. Ama kodları ekliyorum




unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, ADODB;

type
  TForm1 = class(TForm)
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    adi: TEdit;
    soyadi: TEdit;
    ev: TEdit;
    cep: TEdit;
    adres: TEdit;
    aktif: TComboBox;
    meslek: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    GroupBox1: TGroupBox;
    adara: TEdit;
    soyadara: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure adaraKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure soyadaraKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.adaraKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
with ADOQuery1 do
begin
close;
///+#39--> tırnak işareti olarak kullanılır
///+#37--> % işaretidir
sql.Text:='select * from numaralar where adi like '+#39+#37+adara.text+#37+#39;
open;



end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
aktiflik:integer;
begin

if aktif.ItemIndex=1 then
aktiflik:=0
else
aktiflik:=1;

with ADOQuery1 do
begin
close;
sql.Text:='insert into numaralar (adi,soyadi,cep,meslek,ev,aktif,adres) values (:a,:b,:c,:d,:e,:h,:k)';
Parameters.ParamByName('a').Value:=adi.Text;
Parameters.ParamByName('b').Value:=soyadi.Text;
Parameters.ParamByName('c').Value:=cep.Text;
Parameters.ParamByName('d').Value:=meslek.Text;
Parameters.ParamByName('e').Value:=ev.Text;
Parameters.ParamByName('k').Value:=adres.Text;
Parameters.ParamByName('h').Value:=aktiflik;
ExecSQL;
close;
sql.Text:='select * from numaralar';
open;
form1.Caption:=adi.Text+' '+soyadi.Text+ ' --- adli kişinin kaydi alındı';
adi.Text:='';
soyadi.Text:='';

end;
end;





procedure TForm1.soyadaraKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
with ADOQuery1 do
begin
close;
///+#39--> tırnak işareti olarak kullanılır
///+#37--> % işaretidir
sql.Text:='select * from numaralar where soyadi like '+#39+soyadara.text+#37+#39;
open;

end;
end;

end.