Notes

unit Unit1;

interface

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

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
DataSource2: TDataSource;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button2: TButton;
DBGrid2: TDBGrid;
DataSource1: TDataSource;
ADOQuery2: TADOQuery;
DataSource3: TDataSource;
ADOQuery3: TADOQuery;
DBGrid3: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
DBNavigator1: TDBNavigator;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
GroupBox1: TGroupBox;
Edit6: TEdit;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='insert into kitap1(id,ad,soyad,kitap,sayfa) values('+#39+Edit1.Text+#39+','+#39+Edit2.Text+#39+','+#39+Edit3.Text+#39+','+#39+Edit4.Text+#39+','+#39+Edit5.Text+#39+')';
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:='insert into ders(d_id,d_adi) values('+#39+Edit1.Text+#39+','+#39+Edit2.Text+#39+','+#39+Edit3.Text+#39+','+#39+Edit4.Text+#39+','+#39+Edit5.Text+#39+')';
ADOQuery1.ExecSQL;
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select k.id,ad,soyad,kitap,sayfa,devam from kitap1 AS k INNER JOIN devam AS d on k.id=d.id ';
ADOQuery1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select numara,ad,soyad from ogrenci';
ADOQuery1.ExecSQL;
//DBGrid1.Visible:=True;
//DBGrid2.Visible:=False;
//DBGrid3.Visible:=False;
ADOQuery1.Open;

end;

procedure TForm1.Button3Click(Sender: TObject);
var bul :integer;
begin
with ADOQuery3 do
begin
Close;
bul:=162110058;
SQL.Text:='select a.numara,a.ad,a.soyad,b.dersid,d.durum '+
'from ogrenci a,ogrenciders b,ogrencinotu c,ogrencidevam d,ders e '+
'where a.numara=b.numara and a.numara=c.numara and a.numara=d.numara and e.dersid=b.dersid and e.dersid=c.dersid and e.dersid=d.dersid';

SQL.Add('and a.ad='+QuotedStr(Edit6.Text));
ShowMessage(SQL.Text);
Open;
end;
//DBGrid2.Visible:=True;
//DBGrid1.Visible:=False;
//DBGrid3.Visible:=False;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
with ADOQuery3 do
begin
Close;
//SQL.Text:='select d_id,d_adi from ders';
Open;
end;
//DBGrid3.Visible:=True;
//DBGrid2.Visible:=False;
//DBGrid1.Visible:=False;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ADOQuery1.Close;
//ADOQuery1.SQL.Text:= 'select ad,soyad,kitap,sayfa from kitap1 where id=3' ;
ADOQuery1.Open;

ADOQuery2.Close;
//ADOQuery2.SQL.Text:= 'select d_id,d_adi from kitap1,ders where id=3' ;
ADOQuery2.Open;

ADOQuery3.Close;
//ADOQuery3.SQL.Text:= 'select dev_id,devam from kitap1,devam where id=3' ;
ADOQuery3.ExecSQL;
ADOQuery3.Open;
end;




end.