Приложение а Листинги

Unit1

unit Unit1;

interface

uses

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

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,

DBClient,MyWord, jpeg;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Table1: TTable;

Query1: TQuery;

DataSource1: TDataSource;

Button1: TButton;

RadioGroup1: TRadioGroup;

Button2: TButton;

Button3: TButton;

Timer1: TTimer;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Edit1: TEdit;

Button8: TButton;

Button9: TButton;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

Table1.Filtered:=not(RadioGroup1.ItemIndex=3);

case RadioGroup1.ItemIndex of

0:begin

with query1 do begin

close;

SQL.Clear;

SQL.Add('SELECT ID,FIO,Vozrast,Start,Finish');

SQL.Add('FROM ":papa:baza1.db"');

SQL.Add('WHERE Vozrast<18');

SQL.Add('ORDER by Finish');

open;

if RecordCount<>0

then DataSource1.DataSet:=Query1

else ShowMessage('В БД нет записей, удовлетворяющих'+#13+'критерию запроса.');

end;

end;

1:begin

with query1 do begin

close;

SQL.Clear;

SQL.Add('SELECT ID,FIO,Vozrast,Start,Finish');

SQL.Add('FROM ":papa:baza1.db"');

SQL.Add('WHERE Vozrast>=18 and Vozrast<30');

SQL.Add('ORDER by Finish');

open;

if RecordCount<>0

then DataSource1.DataSet:=Query1

else ShowMessage('В БД нет записей, удовлетворяющих'+#13+'критерию запроса.');

end;

end;

2:begin

with query1 do begin

close;

SQL.Clear;

SQL.Add('SELECT ID,FIO,Vozrast,Start,Finish');

SQL.Add('FROM ":papa:baza1.db"');

SQL.Add('WHERE Vozrast>30');

SQL.Add('ORDER by Finish');

open;

if RecordCount<>0

then DataSource1.DataSet:=Query1

else ShowMessage('В БД нет записей, удовлетворяющих'+#13+'критерию запроса.');

end;

end;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var buf:string[30];

begin

buf:=InputBox('Выборка информации из БД',

'Введите фамилию,имя и щелкните ОК','');

if buf = '' then exit;

with query1 do begin

close;

sql.Clear;

sql.Add('select *');

sql.Add('from ":papa:baza1.db"');

sql.Add('where');

sql.Add('(FIO="' + buf +'")');

open;

if recordcount<>0 then

datasource1.DataSet:=query1 else

ShowMessage(''В БД нет записей, удовлетворяющих'+#13+'критерию запроса.'.');

end;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

PasswordDlg.showmodal;

end;

procedure TForm1.Button3Click(Sender: TObject);

var table:integer;

begin

if CreateWord then begin

VisibleWord(false);

AddDoc;

Table1.DisableControls;

WordTableAddFromDBGrid(DBGrid1,true,table);

VisibleWord(true);

Table1.EnableControls;

end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.Caption := 'ТАБЛИЦА РЕЗУЛЬТАТОВ СОРЕВНОВАНИЙ ПО ЛЫЖНОМУ ЗАБЕГУ';

if Label1.Visible then

Label1.Visible:=False

else

Label1.Visible:=True;

randomize;

Label1.Font.Color := clBlue;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form3.QuickRep1.Preview;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Form3.QuickRep1.Print;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Form4.QuickRep1.Preview;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

if edit1.Text <> ''

then

begin

with form1.Query1 do begin

Close;

SQL.Clear;

SQL.Add('SELECT ID,FIO,Vozrast,Start,Finish');

SQL.Add('FROM ":papa:baza1.db"');

SQL.Add('WHERE');

SQL.Add('(ID= "'+ edit1.Text + '")');

Open;

end;

if Query1.RecordCount <> 0 then

DataSource1.DataSet:=Query1

else begin

ShowMessage(''В БД нет записей, удовлетворяющих'+#13+'критерию запроса.'');

DataSource1.DataSet:=Table1;

end;

end;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

begin

with query1 do begin

close;

SQL.Clear;

SQL.Add('SELECT ID,FIO,Vozrast,Start,Finish');

SQL.Add('FROM ":papa:baza1.db"');

SQL.Add('ORDER by ID');

open;

if RecordCount<>0

then DataSource1.DataSet:=Query1

else ShowMessage(''В БД нет записей, удовлетворяющих'+#13+'критерию запроса.'');

end;

end;

end;

end.

Unit3

unit Unit3;

interface

uses

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

Dialogs, QRCtrls, DB, DBTables, QuickRpt, ExtCtrls;

type

TForm3 = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRBand2: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRSysData1: TQRSysData;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses unit1;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);

begin

QRDBText1.DataSet:=Form1.Table1;

QRDBText2.DataSet:=Form1.Table1;

QRDBText3.DataSet:=Form1.Table1;

QRDBText4.DataSet:=Form1.Table1;

QRDBText5.DataSet:=Form1.Table1;

QRDBText1.DataField:='ID';

QRDBText2.DataField:='FIO';

QRDBText3.DataField:='Vozrast';

QRDBText4.DataField:='Start';

QRDBText5.DataField:='Finish';

end;

end.

Unit4

unit Unit4;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type

TForm4 = class(TForm)

QuickRep1: TQuickRep;

QRLabel1: TQRLabel;

QRBand1: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRBand2: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRSysData1: TQRSysData;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses unit1;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);

begin

QRDBText1.DataSet:=Form1.Query1;

QRDBText2.DataSet:=Form1.Query1;

QRDBText3.DataSet:=Form1.Query1;

QRDBText4.DataSet:=Form1.Query1;

QRDBText5.DataSet:=Form1.Query1;

QRDBText1.DataField:='ID';

QRDBText2.DataField:='FIO';

QRDBText3.DataField:='Vozrast';

QRDBText4.DataField:='Start';

QRDBText5.DataField:='Finish';

end;

end.