Приложение а (обязательное)

Исходный код программы

unit Unit1;

interface

uses

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

Dialogs, RzButton, StdCtrls, Mask, RzEdit, RzLabel, Grids, DBGrids,

RzDBGrid, DB, DBAccess, MyAccess, MemDS, ExtCtrls, RzPanel, RzDBNav;

type

TForm1 = class(TForm)

MyConnection1: TMyConnection;

MyQuery1: TMyQuery;

MyDataSource1: TMyDataSource;

RzDBGrid1: TRzDBGrid;

RzLabel1: TRzLabel;

RzLabel2: TRzLabel;

RzEdit1: TRzEdit;

RzEdit2: TRzEdit;

RzButton1: TRzButton;

RzButton2: TRzButton;

RzLabel3: TRzLabel;

RzEdit3: TRzEdit;

RzLabel4: TRzLabel;

RzEdit4: TRzEdit;

RzButton3: TRzButton;

RzButton4: TRzButton;

RzButton5: TRzButton;

RzButton6: TRzButton;

procedure RzButton1Click(Sender: TObject);

procedure RzButton2Click(Sender: TObject);

procedure RzButton3Click(Sender: TObject);

procedure RzButton4Click(Sender: TObject);

procedure RzButton5Click(Sender: TObject);

procedure RzButton6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RzButton1Click(Sender: TObject);

begin

MyQuery1.Active:=false;

MyQuery1.SQL.Clear;

MyQuery1.SQL.Add('SELECT * FROM vid_abonenta WHERE oplata = 1');

MyQuery1.Active:=true;

end;

procedure TForm1.RzButton2Click(Sender: TObject);

begin

MyQuery1.Active:=false;

MyQuery1.SQL.Clear;

MyQuery1.SQL.Add('SELECT * FROM vid_abonenta WHERE nomer_vjzjvaushego = '''+RzEdit4.Text+''' AND mesyac = '''+RzEdit2.Text+''' AND god = '''+RzEdit1.Text+''';');

MyQuery1.Active:=true;

end;

procedure TForm1.RzButton3Click(Sender: TObject);

begin

MyQuery1.Active:=false;

MyQuery1.SQL.Clear;

MyQuery1.SQL.Add('SELECT * FROM vid_abonenta WHERE mesyac = '''+RzEdit2.Text+''' AND god = '''+RzEdit1.Text+''';');

MyQuery1.Active:=true;

end;

procedure TForm1.RzButton4Click(Sender: TObject);

begin

MyQuery1.Active:=false;

MyQuery1.SQL.Clear;

MyQuery1.SQL.Add('SELECT * FROM vid_abonenta WHERE vid_tovarnoj_gruppj = ''2'' AND oplata = ''0'';');

MyQuery1.Active:=true;

end;

procedure TForm1.RzButton5Click(Sender: TObject);

begin

MyQuery1.Active:=false;

MyQuery1.SQL.Clear;

MyQuery1.SQL.Add('SELECT * FROM vid_abonenta WHERE vid_tovarnoj_gruppj = ''3'' AND oplata = ''0'';');

MyQuery1.Active:=true;

end;

procedure TForm1.RzButton6Click(Sender: TObject);

begin

MyQuery1.Active:=false;

MyQuery1.SQL.Clear;

MyQuery1.SQL.Add('SELECT * FROM vid_abonenta WHERE vid_tovarnoj_gruppj = ''1'' AND oplata = ''0'';');

MyQuery1.Active:=true;

end;

end.