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

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

Объяснительная записка

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

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

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

Вишнякова А.А.


Управляющий проекта:

Тыбербай С.Г.

« »

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

Тыбербай С.Г.

« »

Г.

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

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

УТВЕРЖДЕНО

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

Программка

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

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

Объяснительная записка

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

Листов 25

2017 г.

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

Приложение А

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

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;

ВГПК.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.

Form 2

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

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;

ВГПК.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;

procedure N4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure btndobavitClick(Sender: TObject Информационно – поисковая система «Базы отдыха Беларуси»);

procedure btnizmenitClick(Sender: TObject);

procedure btnydaliClick(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure lbl2Click(Sender: TObject);

procedure btnnaidiClick(Sender: TObject);

procedure edt2Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses

Unit3;

{$R *.dfm}

procedure TForm2.N4Click(Sender: TObject);

begin

feditor.Show;

end;

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

procedure TForm Информационно – поисковая система «Базы отдыха Беларуси»2.N3Click(Sender: TObject);

begin

Form2.bookname.Append;

feditor.Show;

end;

procedure TForm2.btndobavitClick(Sender: TObject);

begin

Form2.bookname.Append;

feditor.Show;

end;

procedure TForm2.btnizmenitClick(Sender: TObject);

begin

feditor.Show;

end;

procedure TForm2.btnydaliClick(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm2.btn1Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm Информационно – поисковая система «Базы отдыха Беларуси»2.lbl2Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm2.btnnaidiClick(Sender: TObject);

begin

if not bookname.Locate('Город',edt1.Text,[loCaseInsensitive,loPartialKey])then

ShowMessage('Запись не найдена');

end;

procedure TForm2.edt2Change(Sender: TObject);

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

begin

if edt2.Text''then

begin

bookname.Filtered:=False;

bookname.Filter:='[Город]'+ #39 + '%'+ edt2.Text + '%'+ #39;

bookname.Filtered:=true;

end

else

bookname.Filtered:=False Информационно – поисковая система «Базы отдыха Беларуси»;

end;

end.

Form 3

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, DBCtrls, Mask;

type

Tfeditor = class(TForm)

grp1: TGroupBox;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

lbl5: TLabel;

lbl6: TLabel;

lbl7: TLabel;

dbedt1: TDBEdit;

dbedt2: TDBEdit;

dbedt3: TDBEdit;

dbedt4: TDBEdit;

dbedt5: TDBEdit;

dbmmo1: TDBMemo;

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

btnotmena: TButton;

btnsohr: TButton;

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

procedure btnotmenaClick(Sender: TObject);

procedure btnsohrClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

feditor: Tfeditor;

implementation

uses

Unit2;

{$R *.dfm}

procedure Tfeditor.btnotmenaClick(Sender: TObject);

begin

feditor.Close;

end;

procedure Tfeditor.btnsohrClick(Sender: TObject);

begin

if Form2.bookname.Modified then

Form2.bookname.Post;

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

end;

end.

Form 4

unit Unit4;

interface

uses

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

Dialogs, StdCtrls;

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

type

TForm4 = class(TForm)

lbl1: TLabel;

btn1: TButton;

btn2: TButton;

procedure btn2Click(Sender: TObject);

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses

Unit2;

{$R *.dfm}

procedure TForm Информационно – поисковая система «Базы отдыха Беларуси»4.btn2Click(Sender: TObject);

begin

Form4.Close;

end;

procedure TForm4.btn1Click(Sender: TObject);

begin

Form2.bookname.Delete;

Form4.Close;

end;

end.

Form 5

unit Unit5;

interface

uses

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

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

Dialogs, StdCtrls, DBCtrls, Mask, ExtCtrls;

type

TForm5 = class(TForm)

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

dbedt1: TDBEdit;

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

btn1: TButton;

dbimg1: TDBImage;

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses

Unit2;

{$R *.dfm}

procedure TForm5.btn1Click(Sender: TObject);

begin

Form5.Close;

end;

end.


informacionnij-byulleten-profsoyuza-2101-2010-g-stranica-9.html
informacionnij-byulleten-profsoyuza-4-23-1999-g-stranica-2.html
informacionnij-byulleten-profsoyuza-5-37-g-moskva-2001-g-stranica-2.html