49347 (609065), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

Заключение

В ходе выполнения работы были закреплены знания по созданию и проектированию баз данных в среде Borland Delphi 7, а также приобретены практические навыки в создании программных приложений на данном языке программирования.

Результатом проделанной работы является база данных «Baza» выполняющая все необходимые задачи данного курсового проекта.

Список используемой литературы

1. В.В. Фараонов Delphi. Программирование на языке высокого уровня. – СПб: Питер, 2004.

2. ERwin — современное средство проектирования баз данных - http://www.interface.ru

3. Горев А., Ахаян Р., Макашарипов С. Эффективная работа с СУБД. –СПб.: Питер, 1997.

4. Шкрыль А.А. Разработка клиент-серверных приложений в Delphi. – СПб.: БХВ-Петербург, 2006.

Приложение 1

unit Glavnaya;

interface

uses

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

Dialogs, Buttons, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

BitBtn1: TBitBtn;

Image1: TImage;

Image2: TImage;

Image3: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Product, Vibor_tabl;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form4.show;

end;

end.

unit Product;

interface

uses

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

Dialogs, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, ExtCtrls, DB,

DBTables;

type

TForm2 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses DM1, Zapros_tovar;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form3.Query1.Close;

Form3.Query1.Params[0].AsString:=InputBox('Zapros', 'Введите название товара','0');

Form3.Query1.Open;

Form3.Show;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

RvProject1.Execute

end;

end.

unit Vibor_tabl;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

type

TForm4 = class(TForm)

Button1: TButton;

Button2: TButton;

BitBtn1: TBitBtn;

Image1: TImage;

Image2: TImage;

Image3: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Product, Distributions;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form5.show;

end;

end.

unit Zapros_tovar;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons;

type

TForm3 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

DBGrid1: TDBGrid;

Query1: TQuery;

DataSource1: TDataSource;

BitBtn1: TBitBtn;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

end.

unit Distributions;

interface

uses

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

Dialogs, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, ExtCtrls;

type

TForm5 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

end.

unit DM1;

interface

uses

SysUtils, Classes, DB, DBTables, RpCon, RpConDS, RpConBDE, RpBase,

RpSystem, RpDefine, RpRave;

type

TD1 = class(TDataModule)

Database1: TDatabase;

Product: TTable;

Sclad: TTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

ProductPKod: TAutoIncField;

ProductPNaimenovanie: TStringField;

ProductPObem: TStringField;

ProductPCena: TCurrencyField;

ScladSKod: TIntegerField;

ScladSNaimenovanie: TStringField;

ScladSDataPolych: TDateField;

ScladSGoden_do: TDateField;

ScladSKolichestvo: TSmallintField;

ScladSCena: TCurrencyField;

ScladSSymma: TCurrencyField;

RvProject1: TRvProject;

RvSystem1: TRvSystem;

RvTableConnection1: TRvTableConnection;

private

Private declarations }

public

{ Public declarations }

end;

var

D1: TD1;

implementation

{$R *.dfm}

end.

unit DM2;

interface

uses

SysUtils, Classes, DB, DBTables;

type

TD2 = class(TDataModule)

Database1: TDatabase;

Distributions: TTable;

Tovar_dvijenie: TTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

DistributionsDID: TAutoIncField;

DistributionsDFamiliya: TStringField;

DistributionsDImya: TStringField;

DistributionsDOtchestvo: TStringField;

DistributionsDDataRojd: TDateField;

DistributionsDStrana: TStringField;

DistributionsDIndex: TStringField;

DistributionsDGorod: TStringField;

DistributionsDAdres: TStringField;

DistributionsDDomTel: TStringField;

DistributionsDRabTel: TStringField;

DistributionsDEmail: TStringField;

DistributionsDDataDog: TDateField;

Tovar_dvijenieKod: TIntegerField;

Tovar_dvijenieTKod: TIntegerField;

Tovar_dvijenieTID: TIntegerField;

Tovar_dvijenieTDataOtgr: TDateField;

Tovar_dvijenieTNaimeovanie: TStringField;

Tovar_dvijenieTKolichestvo: TSmallintField;

Tovar_dvijenieTCena: TCurrencyField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

D2: TD2;

implementation

{$R *.dfm}

end.

Приложение 2

Характеристики

Список файлов курсовой работы