Лабораторная работа 3. Основные команды языка SQL и их реализация в Delphy / программа / Unit3

unit Unit3;

interface

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

type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
GroupBox1: TGroupBox;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
GroupBox2: TGroupBox;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Button19: TButton;
Button20: TButton;
Button21: TButton;
Button22: TButton;
Button23: TButton;
Button24: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure Button20Click(Sender: TObject);
procedure Button21Click(Sender: TObject);
procedure Button22Click(Sender: TObject);
procedure Button23Click(Sender: TObject);
procedure Button24Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT * FROM IKZAMEN');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button2Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('select NAIMENOVANIE_VYZA,KOD_SPECIALNOSTI,NOMER_PASPORTA,OCENKA,NOMER_PREDMETA,SR_OC from IKZAMEN');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button3Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT DISTINCT KOD_SPECIALNOSTI FROM IKZAMEN');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button4Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT * FROM IKZAMEN WHERE (KOD_SPECIALNOSTI = "56")');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button5Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT * FROM IKZAMEN WHERE (KOD_SPECIALNOSTI = "56") and (SR_OC = "65")');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button6Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT * FROM IKZAMEN WHERE NOMER_PREDMETA IN ("7","3")');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button7Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT * FROM IKZAMEN WHERE NOMER_PREDMETA BETWEEN "50" AND "100"');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button8Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT * FROM IKZAMEN WHERE NOMER_PREDMETA LIKE "%01"');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button9Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT * FROM IKZAMEN WHERE SR_OC IS NULL');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button10Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT * FROM IKZAMEN WHERE NOMER_PREDMETA NOT IN ("7","3")');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button11Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT * FROM IKZAMEN WHERE NOMER_PREDMETA NOT BETWEEN "50" AND "100"');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button12Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT * FROM IKZAMEN WHERE NOMER_PREDMETA NOT LIKE "%01"');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button13Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT * FROM IKZAMEN WHERE SR_OC IS NOT NULL');
DataModule2.SelectQuery.Active:=True;

end;
//********************
procedure TForm3.Button14Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT COUNT (DISTINCT NOMER_PREDMETA) FROM IKZAMEN');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button15Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT SUM (NOMER_PREDMETA) FROM IKZAMEN');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button16Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT AVG (NOMER_PREDMETA) FROM IKZAMEN');
DataModule2.SelectQuery.Active:=True;
end;

procedure TForm3.Button17Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT MAX (NOMER_PREDMETA) FROM IKZAMEN');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button18Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT MIN (NOMER_PREDMETA) FROM IKZAMEN');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button19Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT COUNT(*) FROM IKZAMEN');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button20Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT KOD_SPECIALNOSTI*10,KOD_SPECIALNOSTI,NAIMENOVANIE_VYZA,NOMER_PASPORTA,OCENKA,NOMER_PREDMETA,SR_OC FROM IKZAMEN');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button21Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT SUM (NOMER_PREDMETA*3) FROM IKZAMEN');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button22Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT KOD_SPECIALNOSTI, SUM (NOMER_PREDMETA) FROM IKZAMEN GROUP BY KOD_SPECIALNOSTI');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button23Click(Sender: TObject);
begin
DataModule2.SelectQuery.SQL.Clear;
DataModule2.SelectQuery.SQL.Add('SELECT KOD_SPECIALNOSTI, SUM (NOMER_PREDMETA) FROM IKZAMEN GROUP BY KOD_SPECIALNOSTI HAVING MAX (OCENKA) > 3');
DataModule2.SelectQuery.Active:=True;

end;

procedure TForm3.Button24Click(Sender: TObject);
begin
DataModule2.SelectQuery.Active:=False;
end;

end.