Запрос по возрастной категории и определение чемпиона выбранной категории (выбор возрастной категории предоставлен на компоненте RadioGroup1).
Рис.5-Выбор возрастной категории
Например, при выборе категории «до 18 лет» в основной таблице произведтся поиск участников, чей возраст не достиг восемнадцати лет, также будет определен чемпион в данной категории путем сортировки по времени:
Рис.6-Выбор возрастной категории до 18 лет
Рис.7-Результат запроса
Как видно чемпион в данной категории является Сатиев Самир с минимальным временем финиша.
Запрос по оставшимся двум категориям выполняется аналогично.
Запрос по фамилии и имени участника лыжного забега.
При нажатии кнопки «Информация об участнике», расположенной на главной форме, перед пользователем появляется вспомогательное диалоговое окно(выборка информации из БД):
Рис.8- Выборка информации из БД
После ввода фамилии и имени интересующего вас участника лыжного забега:
Рис.9- Ввод фамилии и имени
в главной таблице появляется информации об этом участнике:
Рис.10- Результат запроса
Запрос по ID
На главной форме расположен компонент edit1, после введения ID участника необходимо нажать на кнопку «ОК» после чего выполнится запрос на поиск по введенному ID, пользователь получит информацию об участнике лыжного забега под этим номером:
Рис.11- Результат запроса
Отчет таблицы результатов
Рис.12-Вывод всех записей в отчет
Отчет запроса
Рис.13-Вывод запроса в отчет
В качестве примера вывода запроса в отчет был взят запрос по выбору возрастной категории «до 18 лет».
Для создания отчетов был использован генератор отчетов QuickReport. Было создано два вида отчета : один для основной информации, то есть для вывода на печать всего списка имеющихся данных, а второй ,для печати отчетов по запросу, того, что искал пользователь
В данной программе пользователю предоставляется возможность вывести любой отчет на печать по нажатию кнопок:
Рис.14-Отправка отчета на печать
Заключение
В данной курсовой работе была разработана электронная модель таблицы результатов соревнований по лыжному забегу, которая позволяет не только редактировать, добавлять, удалять содержащиеся в ней данные, но и производить поиск по различным критериям, то есть реализованы запросы по возрасту, по определению чемпиона выбранной возрастной категории , по ID участника и по фамилии-имени. Так как данная модель была реализована с помощью применения базы данных, то пользователь имеет возможность редактировать и добавлять данные как в базе, данные из которой затем импортируются в Delphi, так и в самой модели (для это были использованы соответствующие связи)
Также была предусмотрена возможность просмотра отчета по всей таблице результатов и по запросам, и, соответственно, возможность вывода на печать всего отчета. Для защиты базы был предусмотрен запрос пароля.
При выполнении курсовой работы были изучены технологии связывания Paradox со средой программирования Delphi, приемы создания различных меню для проекта, построение простейших SQL-запросов и построение отчетов при использовании компонента QuickReport.
Приложение А
Листинги
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.
Список литературы:
1. Желонкин А. В. Основы программирования в интегрированной среде DELPHI. Практикум. – М.: БИНОМ, 2006.
2. Жуков А. Изучаем Delphi. – М. : Питер, 2002.
3. Фленов М. Библия Delphi.- СПб.: БХВ – Петербург, 2008.
4. Культин Н. С++ Builder в задачах и примерах.- СПб.: БХВ-Петербург, 2005.
5. Культин Н. Б. Основы программирования в Delphi 7, БХВ-Петербург, Санкт-Петербург 2003
6. Шпак Ю. А. Delphi 7 на примерах, Издательство Юниор, Киев 2003