Data base :
Kod: Tümünü seç
/* Table: MUSTERILER, Owner: SYSDBA */
CREATE TABLE "MUSTERILER"
(
"TCNO" VARCHAR(11) CHARACTER SET WIN1254 NOT NULL,
"ADISOYADI" VARCHAR(30) CHARACTER SET WIN1254 NOT NULL,
"TELEFON" VARCHAR(15) CHARACTER SET WIN1254,
"ADRES" VARCHAR(50) CHARACTER SET WIN1254,
"KIMDEN" VARCHAR(15) CHARACTER SET WIN1254,
UNIQUE ("TCNO"),
CONSTRAINT "MUSTERILER_PK" PRIMARY KEY ("TCNO", "ADISOYADI")
);
/* Table: POLICELER, Owner: SYSDBA */
CREATE TABLE "POLICELER"
(
"TCNO" VARCHAR(11) CHARACTER SET WIN1254,
"POLICENO" VARCHAR(15) CHARACTER SET WIN1254 NOT NULL,
"POLICETURU" VARCHAR(10) CHARACTER SET WIN1254,
"ARACPLAKA" VARCHAR(10) CHARACTER SET WIN1254 NOT NULL,
"BASLAMATARIHI" DATE,
"BITISTARIHI" DATE,
"DEKONT" VARCHAR(15) CHARACTER SET WIN1254,
CONSTRAINT "POLICELER_PK" PRIMARY KEY ("POLICENO", "ARACPLAKA")
);
ALTER TABLE "POLICELER" ADD CONSTRAINT "MUSTERILER_FK" FOREIGN KEY ("TCNO") REFERENCES MUSTERILER ("TCNO") ON DELETE CASCADE;
Kod: Tümünü seç
type
TForm1 = class(TForm)
tblMaster: TIBTable;
IBDatabase1: TIBDatabase;
IBTransaction1: TIBTransaction;
tblDetail: TIBTable;
dtsMaster: TDataSource;
dtsDetail: TDataSource;
dbgMaster: TDBGrid;
dbgDetail: TDBGrid;
btnNew: TButton;
btnDelete: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure btnNewClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnNewClick(Sender: TObject);
begin
if not tblMaster.Locate('TCNO',trim(Edit1.Text),[loPartialKey,loCaseInsensitive]) then
begin
tblMaster.Append;
tblMaster.FieldByName('TCNO').AsString:= Edit1.Text;
tblMaster.FieldByName('ADISOYADI').AsString:= Edit2.Text;
try
tblMaster.Post;
IBTransaction1.CommitRetaining;
except
IBTransaction1.RollbackRetaining;
end;
end;
end;
procedure TForm1.btnDeleteClick(Sender: TObject);
begin
try
tblMaster.Delete;
IBTransaction1.CommitRetaining;
except
IBTransaction1.RollbackRetaining;
end;
end;
end.