4 Курс / переподы / анал / Практика / 311-і / Мамедов В.А / praktika 2 / Unit1

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    con1: TADOConnection;
    qry1: TADOQuery;
    spl1: TSplitter;
    pnl2: TPanel;
    dbgrd1: TDBGrid;
    mm1: TMainMenu;
    Vf1: TMenuItem;
    About1: TMenuItem;
    dbnvgr1: TDBNavigator;
    ds1: TDataSource;
    btn5: TBitBtn;
    N15001: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N15002: TMenuItem;
    N11: TMenuItem;
    N501: TMenuItem;
    N12: TMenuItem;
    procedure btn5Click(Sender: TObject);
    procedure N15001Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N15002Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N501Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2,Unit3;

{$R *.dfm}


procedure TForm1.btn5Click(Sender: TObject);
begin
qry1.Active:=false;
     qry1.SQL.Clear;
     qry1.SQL.Add('SELECT *');
     qry1.SQL.Add('FROM Сотрудники');
     qry1.Active:=true;
end;

procedure TForm1.N15001Click(Sender: TObject);
begin
     qry1.Active:=false;
     qry1.SQL.Clear;
     qry1.SQL.Add('SELECT фамилия,зарплата');
     qry1.SQL.Add('FROM Сотрудники');
     qry1.SQL.Add('WHERE зарплата>1500');
     qry1.Active:=true;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
     qry1.Active:=false;
     qry1.SQL.Clear;
     qry1.SQL.Add('SELECT фамилия,должность,ДатаРождения');
     qry1.SQL.Add('FROM Сотрудники');
     qry1.SQL.Add('WHERE ДатаРождения>#01/01/1992#');
     qry1.Active:=true;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
Close;
end;


procedure TForm1.N15002Click(Sender: TObject);
begin
     qry1.Active:=false;
     qry1.SQL.Clear;
     qry1.SQL.Add('SELECT фамилия,зарплата');
     qry1.SQL.Add('FROM Сотрудники');
     qry1.SQL.Add('WHERE зарплата<1500');
     qry1.Active:=true;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
     qry1.Active:=false;
     qry1.SQL.Clear;
     qry1.SQL.Add('UPDATE Сотрудники');
     qry1.SQL.Add('SET зарплата=зарплата+50');
     qry1.ExecSQL;
     qry1.SQL.Clear;
     qry1.SQL.Add('SELECT * FROM сотрудники ORDER BY фамилия;');
     qry1.Active:=true;
end;

procedure TForm1.N501Click(Sender: TObject);
begin
     qry1.Active:=false;
     qry1.SQL.Clear;
     qry1.SQL.Add('UPDATE Сотрудники');
     qry1.SQL.Add('SET зарплата=зарплата-50');
     qry1.ExecSQL;
     qry1.SQL.Clear;
     qry1.SQL.Add('SELECT * FROM сотрудники ORDER BY фамилия;');
     qry1.Active:=true;
end;


procedure TForm1.N12Click(Sender: TObject);
begin
     qry1.Active:=false;
     qry1.SQL.Clear;
     qry1.SQL.Add('SELECT фамилия,отчество');
     qry1.SQL.Add('FROM Сотрудники');
     qry1.SQL.Add('WHERE отчество="Олегович"');
     qry1.Active:=true;
end;

end.