Висновки

Виконавши практичну роботу,я придбала навички роботи в об’єктноорієнтованому програмуванні.Тобто з середовищем програмування Delphi. Також ознайомилася з багатьма компонентами та функціями за допомогою яких я створила програму,що працює із створеною базою даних : «Мої улюблені музичні групи».У кожного з компонентів середовища є деякі властиві йому функції,які надають програмісту створювати cвої програми простіше та швидше.Функції завдяки яким є можливість насолоджуватись улюбленою піснею під час роботи програми,виконуючи різні підрахунки.

Інші функції, як SaveToFile,LoadFromFile,SetFocus,StrToFloat та FloatToStr забезпечують нам можливості як зберегти в файл,відобразити вміст файлу в компонент,перемістити курсор в певний компонент,перевести рядкову величину в числову,числову величину в рядкову.

Також підвела підсумки, що Delphi є гнучкою та об’єктно-орієнтованою мовою пограмування,і добре підходить як для початківця так і для досвідченого програміста.Широкий набір форм,обробників процедур,модульність,функцій дозволяє швидко та якісно створювати пограмний продукт.

Моєю базою даних може користуватися як спеціаліст у сфері програмування так і звичайний користувач.

Література

1.Бакнелл Джулиан М.Фундаментальные алгоритмы и структуры данных в Delphi: Пер.с англ./Джулиан М. Бакнелл.- СПб:ООО «ДиаСофтЮП»,2003.-560с.

2. Грибачев К. Г. Delphi и Model Driven Architecture. Разработка приложений баз данных. – СПб.. Питер, 2004. – 348 с. ил.

3. Дарахвелидае П. Г., Марков Е. П. Программирование в Delphi 7. – СПб. : БХВ- Петербург, 2003. – 784 с : ил.

4. Стивенс Р. Delphi . Готовые алгоритмы: Пер. С англ. – м.:ДМК Пресс, 2001.

– 384 с : ил. (Серия «Для программистов»).

5. Фленов М. Е. Delphi 2005. Секреты програмирования (+ СD). – СПб.. Питер, 2006. – 266 с: ил.

Додаток а Лістинг модуля Unit1

unit Unit1;

interface

uses

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

Dialogs, Menus, jpeg, ExtCtrls, Grids, DBGrids, StdCtrls, Buttons,

DBCtrls, DB, DBTables, RpCon, RpConDS, RpDefine, RpRave;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

Panel1: TPanel;

Splitter1: TSplitter;

DBNavigator1: TDBNavigator;

Table1: TTable;

DataSource1: TDataSource;

Query1: TQuery;

Panel2: TPanel;

DBGrid1: TDBGrid;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N10001: TMenuItem;

N51: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

pop1: TMenuItem;

N12: TMenuItem;

l1: TMenuItem;

BitBtn1: TBitBtn;

Button1: TButton;

RvProject1: TRvProject;

RvDataSetConnection1: TRvDataSetConnection;

Button3: TButton;

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N10001Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure pop1Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure l1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N51Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

Form1.show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

AboutBox.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

var nazvanie: string [30];

begin

nazvanie:=inputbox ('Поиск информации в БД',

'укажите группу и нажмите ОК', '');

if nazvanie<> ''

then begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Fam');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Nazvanie = "+nazvanie"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End; end;

procedure TForm1.N10001Click(Sender: TObject);

begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Nazvanie,Albom');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Tiraz > "1000"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End;

procedure TForm1.N6Click(Sender: TObject);

var nazvanie: string [30];

begin

nazvanie:=inputbox ('Поиск информации в БД',

'укажите группу и нажмите ОК', '');

if nazvanie<> ''

then begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Stil');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Nazvanie = "+nazvanie"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End; end;

procedure TForm1.N7Click(Sender: TObject);

begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Fam,Semeynoe');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Sozdanie= "1994"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End;

procedure TForm1.N8Click(Sender: TObject);

var nazvanie: string [30];

begin

nazvanie:=inputbox ('Поиск информации в БД',

'укажите группу и нажмите ОК', '');

if nazvanie<> ''

then begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Albom,Tiraz');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Nazvanie = "+nazvanie"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End; end;

procedure TForm1.N9Click(Sender: TObject);

begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Fam,Nazvanie');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Semeynoe= "не женат"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End;

procedure TForm1.N10Click(Sender: TObject);

var albom: string [30];

begin

albom:=inputbox ('Поиск информации в БД',

'укажите альбом и нажмите ОК', '');

if albom<> ''

then begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Nazvanie,Sozdanie,Stil');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Albom = "+albom"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End; end;

procedure TForm1.N11Click(Sender: TObject);

var data: string [30];

begin

data:=inputbox ('Поиск информации в БД',

'укажите дату и нажмите ОК', '');

if data<> ''

then begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Nazvanie,Stil,Albom');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Data = "+data"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End; end;

procedure TForm1.pop1Click(Sender: TObject);

begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Nazvanie,Sozdanie');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Stil= "pop"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End;

procedure TForm1.N12Click(Sender: TObject);

var fam: string [30];

begin

fam:=inputbox ('Поиск информации в БД',

'укажите фамилию и нажмите ОК', '');

if fam<> ''

then begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Nazvanie,Stil,Sozdanie');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Fam = "+fam"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End; end;

procedure TForm1.l1Click(Sender: TObject);

begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Nazvanie,Sozdanie,Stil,Fam');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Nazvanie like "%l"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End;

procedure TForm1.Button1Click(Sender: TObject);

var

Q: TQuery;

begin

Q := TQuery.Create(Application) ;

try

Q.DatabaseName := 'практика';

with Q.SQL do begin

Add('Create Table Funcionarios');

Add('( Sozdanie,');

Add(' Nazvanie(30),');

Add(' Primary Key ( Sozdanie ) )');

end;

Q.ExecSQL;

finally

Q.Free;

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

rvProject1.Execute;

end;

procedure TForm1.N51Click(Sender: TObject);

begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Nazvanie,Stil,Albom');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Data > "2006"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;End;End;end.