Программный продукт «Базы отдыха Беларуси». Назначение и область применения. Технические характеристики. Описание, страница 3

Пояснительная записка

                     ВГПК.2- 400101.К11.024-ПЗ

                                                                                    Исполнитель:                                                                                                                  

                                                              Учащаяся группы 11 – ПЗз18 

                                                                                     А.А.  

 

                                                                       Руководитель проекта:

                                                                                      С.Г.

                                       

                                «      »                                                

                                                                                Нормоконтролер:

                                                                                        С.Г.

                                                                                 «       »                                             

2017  г.

Министерство   образования  Республики   Беларусь                                                         УО  «Витебский государственный политехнический колледж учреждения  образования    Витебский государственный технологический университет»                                                                                                                

Специальность 2 - 400101

УТВЕРЖДЕНО

ВГПК.2-400101.К11.024-ПЗ

ПРОГРАММА

   Информационно – поисковая система «Базы отдыха Беларуси»

                            Курсовой проект                                                                                           по   дисциплине: Основы  алгоритмизации  и   программирования

Пояснительная записка

                        ВГПК.2- 400101.К11.024-ПЗ

Листов 25

2017 г.

13

ВГПК.400101.К11.024-ПЗ

Приложение   А

Текст  программы

1.Form1

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type

TForm1 = class(TForm)

img1: TImage;

pb1: TProgressBar;

tmr1: TTimer;

btn1: TButton;

procedure btn1Click(Sender: TObject);

procedure tmr1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

begin

tmr1.Enabled:=True;

end;

14

ВГПК.400101.К11.024-ПЗ

procedure TForm1.tmr1Timer(Sender: TObject);

begin

pb1.Position:=pb1.Position+1;

if pb1.Position=pb1.Max then

begin

tmr1.Enabled:=False;

form2.show;

end;

end;

end.

2. Form  2

unit Unit2;

interface

uses

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

Dialogs, DBCtrls, DB, ADODB, ExtCtrls, Grids, DBGrids, StdCtrls, Menus, Unit4, Unit5;

type

TForm2 = class(TForm)

pnl1: TPanel;

pnl2: TPanel;

btnizmenit: TButton;

btndobavit: TButton;

lbl1: TLabel;

edt1: TEdit;

btnnaidi: TButton;

bvl1: TBevel;

bvl2: TBevel;

lbl2: TLabel;

dbgrd1: TDBGrid;

img1: TImage;

con1: TADOConnection;

bookname: TADOTable;

ds1: TDataSource;

dbnvgr1: TDBNavigator;

booknameDSDesigner: TWideStringField;

booknameDSDesigner2: TWideStringField;

15

ВГПК.400101.К11.024-ПЗ

booknameDSDesigner3: TWideStringField;

booknameEmail: TWideStringField;

booknameDSDesigner4: TWideStringField;

booknameDSDesigner5: TWideStringField;

booknameDSDesigner6: TMemoField;

booknameDSDesigner7: TMemoField;

booknameDSDesigner8: TMemoField;

booknameDSDesigner9: TBlobField;

booknameDSDesigner10: TIntegerField;

btn1: TButton;

edt2: TEdit;