Футбольные команды и игроки

Автор работы: Пользователь скрыл имя, 08 Апреля 2013 в 10:01, реферат

Описание

Программа «Футбольные команды и игроки» разработана на языке высокого уровня Borland Delphi. В программе реализованы следующие компоненты:
• База данных, состоящая из 6 таблиц, из которых 4 справочника, одна операционная таблица и одна вспомогательная таблица;
• Пользовательский интерфейс работы с базой данных;
• Защита от ввода неверных данных.

Содержание

Введение
Постановка задачи
Таблицы БД и связи между ними
Описание внешнего вида пользовательского интерфейса
Описание алгоритма работы программы
Приложения
Текст проекта football.dpr
Текст модуля gl_form.pas
Текст модуля gl_per.pas
Текст модуля igroki.pas
Текст модуля komandi.pas
Текст модуля dob_klyb.pas
Текст модуля stadioni.pas
Текст модуля transfer.pas
Текст модуля ist_trans.pas

Скачать (185.07 Кб) Сколько стоит заказать работу?
Работа состоит из  1 файл

futbolnye_komandy_i_igroki.docx

— 206.65 Кб (Скачать документ)

      form9.komandi.Locate('nom_kom', a3 , [loCaseInsensitive,

    loPartialKey]);

      s2:=form9.komandi.fieldbyname('naim').AsString;

      form9.vspom.FieldByName('n_kl').AsString:=s2;

 

      form9.vspom.FieldByName('data').Value:=

        form9.perehodi.fieldbyname('dat_per').Value;

      form9.vspom.FieldByName('sym').Value:=

        form9.perehodi.fieldbyname('sym').Value; 

 

      form9.vspom.Append;

      form9.vspom.Refresh;

      form9.perehodi.Next;

    end;

end;

 

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);

begin

     action:=cafree;

     gp6:=1;

end;

 

procedure TForm9.Timer1Timer(Sender: TObject);

begin

  zap_vspom;

  timer1.Enabled:=false;

end;

 

procedure TForm9.Button1Click(Sender: TObject);

begin

  if edit1.text='' then exit;

  vspom.Filtered:=true;

  vspom.Filter:='famima='+''''+edit1.Text+'''';

end;

 

procedure TForm9.Button2Click(Sender: TObject);

begin

  vspom.Filtered:=false;

end;

 

procedure TForm9.Button4Click(Sender: TObject);

begin

  if edit2.text='' then exit;

  vspom.Filtered:=true;

  if radiobutton1.Checked=true then

  vspom.Filter:='s_kl='+''''+edit2.Text+'''';

  if radiobutton2.Checked=true then

  vspom.Filter:='n_kl='+''''+edit2.Text+'''';

end;

 

procedure TForm9.Button5Click(Sender: TObject);

var

  a,b:integer;

begin

  a:=spinedit1.Value;

  b:=spinedit2.Value;

  if (a>b) or (a=b) then begin

  showmessage('Фильтрация невозможна. Измените значение фильтрации!');

  exit; end;

    vspom.Filtered:=true;

    vspom.Filter:='sym>'+inttostr(a)+'and sym<'+inttostr(b);

end;

 

procedure TForm9.Button3Click(Sender: TObject);

begin

  vspom.IndexFieldNames:='sym';

end;

 

procedure TForm9.FormCreate(Sender: TObject);

begin

button3.Hide;

end;

end.

 


Информация о работе Футбольные команды и игроки