Базы данных

    procedure N218601Click(Sender: TObject);

    procedure N35000550001Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure i2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

implementation

 

uses Unit2, Connect, Zapros5;

 

{$R *.dfm}

procedure TForm3.SQL(query:string);

begin

ADODataSet1.Active:=False;

ADODataSet1.CommandText:=query;

ADODataSet1.Active:=True;

end;

 

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Application.Terminate;

end;

 

procedure TForm3.i1Click(Sender: TObject);

begin

SQL ('select FIO_rabotnika, kol_izhdevencov from Rabotnik, Podrazdeleniya'

+ ' where Podrazdeleniya.kod_podrazdeleniya=9 and Rabotnik.kol_izhdevencov>3');

 

end;

 

procedure TForm3.N218601Click(Sender: TObject);

begin

SQL( 'select Pensionnye_fondy.naimenovanie_pensionnogo_fonda, COUNT(Rabotnik.Fio_rabotnika) as ''Количество'' '

+ ' from Pensionnye_fondy, Rabotnik'

+ ' where Rabotnik.kod_pensionnogo_fonda=Pensionnye_fondy.kod_pensionnogo_fonda'

+ ' group by Pensionnye_fondy.naimenovanie_pensionnogo_fonda');

 

end;

 

procedure TForm3.N35000550001Click(Sender: TObject);

begin

SQL ('select FIO_rabotnika, data, (YEAR(GETDATE())-YEAR(data))[staj] '

+ ' from Rabotnik, Prikazy '

+ ' where Rabotnik.tab_nomer_rabotnika=Prikazy.tab_nomer_rabotnika and (YEAR(GETDATE())-YEAR(data)) between ''10'' and ''15'' ');

end;

 

procedure TForm3.N2Click(Sender: TObject);

begin

SQL ('select FIO_rabotnika, data, (YEAR(GETDATE())-YEAR(data))as ''Стаж'' '

+ ' from Rabotnik, Prikazy where Rabotnik.tab_nomer_rabotnika=Prikazy.tab_nomer_rabotnika');

end;

 

procedure TForm3.i2Click(Sender: TObject);

begin

SQL ('select nomer_prikaza, FIO_rabotnika from Prikazy, Rabotnik '

+ ' where Prikazy.tab_nomer_rabotnika=Rabotnik.tab_nomer_rabotnika and FIO_rabotnika like ''К%'' ');

end;

 

end.

unit Zapros5;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

 

type

  TForm4 = class(TForm)

    ComboBox1: TComboBox;

    Button1: TButton;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form4: TForm4;

 

implementation

 

uses Zapros;

 

{$R *.dfm}

 

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Application.Terminate;

end;

 

procedure TForm4.Button1Click(Sender: TObject);

var

s:string;

begin

   s:=(ComboBox1.Text);

Form3.SQL('select Kategoriya_doljnostei.Naimenovanie ''категория должности '', Podrazdeleniya.naimenovanie ''подразделения '',Rabotnik.FIO_rabotnika From Kategoriya_doljnostei,Podrazdeleniya,Rabotnik,Doljnosti'

+ ' where Podrazdeleniya.naimenovanie = '''+s+''' and Podrazdeleniya.Kod_podrazdeleniya=Rabotnik.Kod_podrazdeleniya '

+ ' and Rabotnik.kod_doljnosti=Doljnosti.Kod_Doljnosti and Doljnosti.Kod_Kategori_doljnosti=Kategoriya_doljnostei.Kod_Kategori_dolzhnosti' );

Form4.Hide;

end;

 

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Қосымша Б

 

Инфологиялық модель