Учет хранения и движения продукции фирмы (стр. 2 из 2)

Чтобы узнать о наличии данного продукта на складе, необходимо воспользоваться отчетом. Рядом с надписью «Поиск товара» нажмите на кнопку «ОК». Выскочит диалоговое окно, где нужно ввести название интересующего товара. После чего появится форма с отчетом о наличии товара на складе.

Для выхода из программы нажмите кнопку «Close».

Заключение

В ходе выполнения работы были закреплены знания по созданию и проектированию баз данных в среде BorlandDelphi 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