Реферат Проектування бази даних &Каталог запчастин автомобіля&

/p>

У ході виконаної курсової роботи були закріплені знання в області проектування і програмування реляційних баз даних.

Також були вивчені можливості середовища Borland Delphi для роботи з базами даних, встановлення зв'язку з ними, засоби управління даними через ці зв'язки, додавання, видалення, редагування записів, а також створення запитів.

Результатів курсової роботи є програма управління базою даних «каталог автозапчастин».

Список літератури

1. В. Фаронов «Система програмування Delphi» - СПб .: БХВ-Петербург, 2006.

. Т.С. Карпова. Бази даних: моделі, розробка, реалізація.- СПб .: «Пітер», 2002. - 266 с.

Додаток 1

Лістинг програми

Unit1;

interface

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, DBCtrls, StdCtrls, DB, Grids, DBGrids, ADODB, ExtCtrls, Menus;

=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TPanel ;: TADOQuery ;: TDBGrid ;: TDataSource ;: TButton ;: TButton ;: TButton ;: TEdit ;: TLabel ;: TDBLookupComboBox ;: TLabel ;: TDBLookupComboBox ;: TLabel ;: TADOConnection ;: TADOQuery ;: TDataSource ;: TDBGrid ;: TADOQuery ;: TDataSource ;: TDataSource ;: TADOQuery ;: TPanel ;: TPanel ;: TPanel;:TPanel ;: TEdit ;: TLabel ;: TDBLookupComboBox ;: TLabel ;: TLabel ;: TButton ;: TDataSource ;: TADOQuery ;: TDBGrid ;: TDataSource ;: TADOQuery ;: TLabel ;: TEdit ;: TLabel ;: TDBLookupComboBox ;: TDBLookupComboBox ;: TDBLookupComboBox ;: TLabel ;: TLabel ;: TLabel ;: TADOQuery ;: TDataSource ;: TButton ;: TDBGrid ;: TADOQuery ;: TDataSource ;: TDBLookupComboBox ;: TLabel ;: TDataSource ;: TADOQuery ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TDBGrid ;: TEdit ;: TButton ;: TButton ;: TMenuItem ;: TLabel ;: TLabel ;: TButton ;: TDBGrid ;: TEdit ;: TButton ;: TPanel ;: TDBGrid ;: TLabel ;: TButton ;: TEdit;:TButton;

Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Edit1Change (Sender: TObject); DBLookupComboBox1Click (Sender: TObject); DBLookupComboBox2Click (Sender: TObject); N3Click (Sender: TObject); N1Click (Sender: TObject); N4Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject); N5Click (Sender: TObject); N8Click (Sender: TObject); Button6Click (Sender: TObject); Button7Click (Sender: TObject); N6Click (Sender: TObject); Button8Click (Sender: TObject); Button9Click (Sender: TObject); N7Click (Sender: TObject); Button10Click (Sender: TObject); Button11Click ( Sender: TObject);

{Private declarations}

{Public declarations};

: TForm1;

{$ R * .dfm}

TForm1.Button1Click (Sender: TObject) ;. visible:=true; .visible:=false; .Text:= raquo ;;. KeyValue:=null; .KeyValue:=null;

//DBLookupComboBox3.KeyValue:=null;

. SQL.Clear; .SQL.Add ( SELECT фірма, страна_фірми ) ;. SQL.Add ( FROM фірма, країна where Фірма.странафірми=страна.код );.Active:=True ;;

TForm1.Button2Click (Sender: TObject) ;. visible:=true; .visible:=false; .Text:= raquo ;;. KeyValue:=null; .KeyValue:=null;

//DBLookupComboBox3.KeyValue:=null;

. SQL.Clear; .SQL.Add ( SELECT деталь, марка, вузол, Агрегат ) ;. SQL.Add ( FROM деталь, марка, вузол, Агрегат where деталь. марка_=марка.код and ) ;. SQL.Add ( деталь.узел_=узел.код and ) ;. SQL.Add ( деталь.агрегат_=агрегат.код ) ;. Active:=True ;;

TForm1.Button3Click (Sender: TObject) ;. visible:=true; .visible:=false; .Text:= raquo ;;. KeyValue:=null; .KeyValue:=null;

//DBLookupComboBox3.KeyValue:=null;

. SQL.Clear; .SQL.Add ( SELECT фірма, страна_фірми, деталь, марка, вузол, Агрегат ) ;. SQL.Add ( FROM фірма, країна, деталь, марка, вузол, Агрегат where деталь.марка_=марка.код and ) ;. SQL.Add ( деталь.узел_=узел.код and деталь.код_фірми=Фірма.код and ) ;. SQL.Add ( деталь.агрегат_=агрегат.код and Фірма.странафірми=страна.код ) ;. Active:=True ;;

TForm1.Edit1Change (Sender: TObject) ;. Visible:=true; .Visible:=false; .KeyValue:=null; .KeyValue:=null; Length (edit1.Text) gt; 0 then begin

. Filtered:=false ;;. Filtered:=false; .Filter:= ([деталь] LIKE + % + edit1.Text + laquo ;% + ) raquo ;;. Filtered:=true; .ADOQuery2.Refresh;

//ADOQuery4.Filtered:=false ;;; TForm1.DBLookupComboBox1Click (Sender: TObject) ;. visible:=true; .visible:=false;