Проектирование БД "Склад" в среде СУБД Access

DBComponents.ADOQuery_Priem.ExecSQL;

end;

DBComponents.ADOQuery_Prihod_Naklad.SQL.Text:='SELECT [Код накладной],Поставщики.[Название фирмы],Приход.[Код поставщика],Приход,[Дата прихода],Оплачено,[Дата оплаты],Внесено,Сумма FROM Приход,Поставщики WHERE Приход.[Код поставщика]=Поставщики.[Код поставщика]';

DBComponents.ADOQuery_Prihod_Naklad.Active:=True;

end;

end.



Список расходных накладных - «Rashod_naklad».

В данном меню, по аналогии с предыдущей формой, реализовано отображение списка расходных накладных и состав любой выбранной из них с возможностью проставления отметок об оплате и дате оплаты накладной, выполнена реализация печати выбранной накладной

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Unit2, ComCtrls, Unit12;

type

TRashod_naklad = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Edit1: TEdit;

Button2: TButton;

GroupBox2: TGroupBox;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

Button1: TButton;

Label2: TLabel;

Label3: TLabel;

Edit2: TEdit;

Edit3: TEdit;

Label4: TLabel;

Label5: TLabel;

GroupBox3: TGroupBox;

Button3: TButton;

CheckBox1: TCheckBox;

DateTimePicker1: TDateTimePicker;

Button4: TButton;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Rashod_naklad: TRashod_naklad;

kod_naklad,summ,vneseno,oplacheno:string;

implementation

{$R *.dfm}

procedure TRashod_naklad.Button1Click(Sender: TObject);

begin

close;

end;

procedure TRashod_naklad.FormCreate(Sender: TObject);

begin

DBComponents.ADOQuery_Rashod_Naklad.SQL.Text:='SELECT SUM(Сумма) FROM Расход WHERE Оплачено=True';

DBComponents.ADOQuery_Rashod_Naklad.Active:=True;

vneseno:=DBComponents.ADOQuery_Rashod_Naklad.Fields[0].AsString;

DBComponents.ADOQuery_Rashod_Naklad.SQL.Text:='SELECT SUM(Сумма) FROM Расход';

DBComponents.ADOQuery_Rashod_Naklad.Active:=True;

summ:=DBComponents.ADOQuery_Rashod_Naklad.Fields[0].AsString;

Edit2.Text:=vneseno;

Edit3.Text:=summ;

DBComponents.ADOQuery_Rashod_Naklad.SQL.Text:='SELECT [Код накладной],Покупатели.[Название фирмы],Расход.[Код покупателя],[Дата отпуска],Оплачено,[Дата оплаты],Сумма FROM Расход,Покупатели WHERE Расход.[Код покупателя]=Покупатели.[Код покупателя]';

DBComponents.ADOQuery_Rashod_Naklad.Active:=True;

kod_naklad:=DBGrid1.DataSource.DataSet.FieldValues['Код накладной'];

oplacheno:=DBGrid1.DataSource.DataSet.FieldValues['Оплачено'];

Edit1.Text:=kod_naklad;

CheckBox1.Checked:=StrToBool(oplacheno);

DBComponents.ADOQuery_Rashod_Details.SQL.Text:='SELECT Товары.Артикул,Товары.Название,[Подробности расхода].Количество,[Подробности расхода].[Стоимость единицы],[Подробности расхода].Стоимость FROM Товары,[Подробности расхода] WHERE [Код накладной]='+kod_naklad+' AND Товары.Артикул=[Подробности расхода].Артикул ORDER BY Товары.Артикул';

DBComponents.ADOQuery_Rashod_Details.Active:=True;

end;

procedure TRashod_naklad.DBGrid1CellClick(Column: TColumn);

begin

kod_naklad:=DBGrid1.DataSource.DataSet.FieldValues['Код накладной'];

oplacheno:=DBGrid1.DataSource.DataSet.FieldValues['Оплачено'];

Edit1.Text:=kod_naklad;

CheckBox1.Checked:=StrToBool(oplacheno);

DBComponents.ADOQuery_Rashod_Details.SQL.Text:='SELECT Товары.Артикул,Товары.Название,[Подробности расхода].Количество,[Подробности расхода].[Стоимость единицы],[Подробности расхода].Стоимость FROM Товары,[Подробности расхода] WHERE [Код накладной]='+kod_naklad+' AND Товары.Артикул=[Подробности расхода].Артикул ORDER BY Товары.Артикул';

DBComponents.ADOQuery_Rashod_Details.Active:=True;

end;

procedure TRashod_naklad.Button2Click(Sender: TObject);

begin

kod_naklad:=Edit1.Text;

DBGrid1.DataSource.DataSet.RecNo:=StrToInt(kod_naklad);

DBComponents.ADOQuery_Rashod_Details.SQL.Text:='SELECT Товары.Артикул,Товары.Название,[Подробности расхода].Количество,[Подробности расхода].[Стоимость единицы],[Подробности расхода].Стоимость FROM Товары,[Подробности расхода] WHERE [Код накладной]='+kod_naklad+' AND Товары.Артикул=[Подробности расхода].Артикул ORDER BY Товары.Артикул';

DBComponents.ADOQuery_Rashod_Details.Active:=True;

end;

procedure TRashod_naklad.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

begin

DBGrid1CellClick(nil);

end;

procedure TRashod_naklad.Button3Click(Sender: TObject);

begin

if CheckBox1.Checked=True

then

begin

DBComponents.ADOQuery_Priem.SQL.Text:='UPDATE Расход SET Оплачено=True,[Дата оплаты]="'+DateToStr(DateTimePicker1.Date)+'" WHERE [Код накладной]='+kod_naklad+'';

DBComponents.ADOQuery_Priem.ExecSQL;

end

else

begin

DBComponents.ADOQuery_Priem.SQL.Text:='UPDATE Расход SET Оплачено=False WHERE [Код накладной]='+kod_naklad+'';

DBComponents.ADOQuery_Priem.ExecSQL;

end;

DBComponents.ADOQuery_Rashod_Naklad.SQL.Text:='SELECT [Код накладной],Покупатели.[Название фирмы],Расход.[Код покупателя],[Дата отпуска],Оплачено,[Дата оплаты],Сумма FROM Расход,Покупатели WHERE Расход.[Код покупателя]=Покупатели.[Код покупателя]';

DBComponents.ADOQuery_Rashod_Naklad.Active:=True;

end;

procedure TRashod_naklad.Button4Click(Sender: TObject);

begin

DBComponents.ADOQuery_Print_2.SQL.Text:='SELECT Расход.[Код покупателя],[Название фирмы],Фамилия,Имя,Отчество,Телефон,Адрес,[Банк покупателя],[Расчётный счёт] FROM Расход,Покупатели WHERE Расход.[Код накладной]='+kod_naklad+' AND Расход.[Код покупателя]=Покупатели.[Код покупателя]';

DBComponents.ADOQuery_Print_2.Active:=True;

DBComponents.ADOQuery_Print_1.SQL.Text:='SELECT [Код накладной],Товары.Артикул,Название,[Подробности расхода].Количество,[Стоимость единицы],Стоимость FROM [Подробности расхода],Товары WHERE [Код накладной]='+kod_naklad+' AND Товары.Артикул=[Подробности расхода].Артикул';

DBComponents.ADOQuery_Print_1.Active:=True;

Rashod_Print.QuickRep1.Preview;

end;

procedure TRashod_naklad.Button5Click(Sender: TObject);

begin

WinExec('EXPLORER /e, '+'"Накладные\"', SW_SHOW);

end;

end.

Поставщики - «Postavshiki».

Список поставщиков с возможностью добавления и редактирования записей.

unit Unit8;

interface

uses

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

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

type

TPostavshiki = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Postavshiki: TPostavshiki;

implementation

{$R *.dfm}

procedure TPostavshiki.FormCreate(Sender: TObject);

begin

DBComponents.ADOQuery_Postavshiki.SQL.Text:='SELECT * FROM Поставщики ORDER BY [Код поставщика]';

DBComponents.ADOQuery_Postavshiki.Active:=True;

end;

procedure TPostavshiki.Button1Click(Sender: TObject);

begin

close;

end;

end.

Покупатели - «Pokupateli».

Список покупателей с возможностью добавления и редактирования записей.

unit Unit9;

interface

uses

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

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

type

TPokupateli = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Pokupateli: TPokupateli;

implementation

{$R *.dfm}

procedure TPokupateli.FormCreate(Sender: TObject);

begin

DBComponents.ADOQuery_Pokupateli.SQL.Text:='SELECT * FROM Покупатели ORDER BY [Код покупателя]';

DBComponents.ADOQuery_Pokupateli.Active:=True;

end;

procedure TPokupateli.Button1Click(Sender: TObject);

begin

close;

end;

end.

Товарооборот - «Tovarooborot».

Предоставление статистической информации в соответствии с таблицей 2 из задания.

unit Unit10;

interface

uses

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

Dialogs, Unit2, StdCtrls, Grids, DBGrids;

type

TTovarooborot = class(TForm)

DBGrid1: TDBGrid;

Button1: TButton;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Tovarooborot: TTovarooborot;

implementation

{$R *.dfm}

procedure TTovarooborot.FormCreate(Sender: TObject);

var

ost,pri,ras,stoim,i:integer;

begin

DBComponents.ADOQuery_Tovarooborot.SQL.Text:='SELECT Товары.Артикул,Название,[Цена покупки],[Цена продажи],[Остаток на 1 число],[Остаток на 1 число]*[Цена покупки] AS [Стоимость остатка],Sum([Подробности прихода].Количество) AS [Количество прихода],';

DBComponents.ADOQuery_Tovarooborot.SQL.Add(' [Количество прихода]*[Цена покупки] AS [Стоимость прихода],Sum([Подробности расхода].Количество) AS [Количество расхода],[Количество расхода]*[Цена покупки] AS [Стоимость расхода],Товары.Количество,Товары.Количество*[Цена покупки] AS Стоимость');

DBComponents.ADOQuery_Tovarooborot.SQL.Add(' FROM (Товары LEFT OUTER JOIN [Подробности расхода] ON Товары.Артикул=[Подробности расхода].Артикул) LEFT OUTER JOIN [Подробности прихода] ON Товары.Артикул=[Подробности прихода].Артикул');

DBComponents.ADOQuery_Tovarooborot.SQL.Add(' GROUP BY Товары.Артикул,Название,[Цена покупки],[Цена продажи],Товары.Количество,[Остаток на 1 число]');

DBComponents.ADOQuery_Tovarooborot.Active:=True;

ost:=0;

pri:=0;

ras:=0;

stoim:=0;

i:=DBComponents.ADOQuery_Tovarooborot.RecNo;

DBComponents.ADOQuery_Tovarooborot.First;

while not(DBComponents.ADOQuery_Tovarooborot.Eof) do

begin

ost:=ost+DBComponents.ADOQuery_Tovarooborot.FieldByName('Стоимость остатка').AsInteger;

pri:=pri+DBComponents.ADOQuery_Tovarooborot.FieldByName('Стоимость прихода').AsInteger;

ras:=ras+DBComponents.ADOQuery_Tovarooborot.FieldByName('Стоимость расхода').AsInteger;

stoim:=stoim+DBComponents.ADOQuery_Tovarooborot.FieldByName('Стоимость').AsInteger;

DBComponents.ADOQuery_Tovarooborot.Next;

end;

DBComponents.ADOQuery_Tovarooborot.RecNo:=i;

Edit1.Text:=IntToStr(ost);

Edit2.Text:=IntToStr(pri);

Edit3.Text:=IntToStr(ras);

Edit4.Text:=IntToStr(stoim);

end;

procedure TTovarooborot.Button1Click(Sender: TObject);

begin

close;

end;

end.

Финансы - «Finansy».

Представление информации о задолженностях по поставщикам и покупателям.

unit Unit11;

interface

uses

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

Dialogs, Unit2, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids, ComCtrls;

type

TFinansy = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

DBGrid1: TDBGrid;

Button1: TButton;

DBNavigator1: TDBNavigator;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

DBNavigator2: TDBNavigator;

DBNavigator3: TDBNavigator;

Label1: TLabel;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure DBGrid2CellClick(Column: TColumn);

procedure DBNavigator2Click(Sender: TObject; Button: TNavigateBtn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Finansy: TFinansy;

kod_pokup:string;

dolg,i:integer;

implementation

{$R *.dfm}

procedure TFinansy.Button1Click(Sender: TObject);

begin

close;

end;

procedure TFinansy.FormCreate(Sender: TObject);

begin

dolg:=0;

DBComponents.ADOQuery_Finansy_Post.SQL.Text:='SELECT Приход.[Код поставщика],[Название фирмы],[Банк поставщика],[Расчётный счёт],SUM(Сумма-Внесено) AS Задолженность';

DBComponents.ADOQuery_Finansy_Post.SQL.Add(' FROM Приход,Поставщики WHERE Внесено<Сумма AND Приход.[Код поставщика]=Поставщики.[Код поставщика] GROUP BY Приход.[Код поставщика], [Название фирмы],[Банк поставщика],[Расчётный счёт]');

DBComponents.ADOQuery_Finansy_Post.Active:=True;

DBComponents.ADOQuery_Finansy_Pokup_1.SQL.Text:='SELECT Расход.[Код покупателя],[Название фирмы],[Банк покупателя],[Расчётный счёт] FROM Расход,Покупатели WHERE Расход.[Код покупателя]=Покупатели.[Код покупателя] AND Оплачено=False';

DBComponents.ADOQuery_Finansy_Pokup_1.SQL.Add(' GROUP BY Расход.[Код покупателя],[Название фирмы],[Банк покупателя],[Расчётный счёт]');

DBComponents.ADOQuery_Finansy_Pokup_1.Active:=True;

kod_pokup:=DBGrid2.DataSource.DataSet.FieldValues['Код покупателя'];

DBComponents.ADOQuery_Finansy_Pokup_2.SQL.Text:='SELECT [Код накладной],[Дата отпуска],Сумма FROM Расход WHERE Расход.[Код покупателя]='+kod_pokup+' AND Оплачено=False';

DBComponents.ADOQuery_Finansy_Pokup_2.Active:=True;

i:=DBComponents.ADOQuery_Finansy_Pokup_2.RecNo;

DBComponents.ADOQuery_Finansy_Pokup_2.First;

while not(DBComponents.ADOQuery_Finansy_Pokup_2.Eof) do

begin

dolg:=dolg+DBComponents.ADOQuery_Finansy_Pokup_2.FieldByName('Сумма').AsInteger;

DBComponents.ADOQuery_Finansy_Pokup_2.Next;

end;

DBComponents.ADOQuery_Finansy_Pokup_2.RecNo:=i;

Edit1.Text:=IntToStr(dolg);

end;

procedure TFinansy.DBGrid2CellClick(Column: TColumn);

begin

dolg:=0;

kod_pokup:=DBGrid2.DataSource.DataSet.FieldValues['Код покупателя'];

DBComponents.ADOQuery_Finansy_Pokup_2.SQL.Text:='SELECT [Код накладной],[Дата отпуска],Сумма FROM Расход WHERE Расход.[Код покупателя]='+kod_pokup+' AND Оплачено=False';

DBComponents.ADOQuery_Finansy_Pokup_2.Active:=True;

i:=DBComponents.ADOQuery_Finansy_Pokup_2.RecNo;

DBComponents.ADOQuery_Finansy_Pokup_2.First;

while not(DBComponents.ADOQuery_Finansy_Pokup_2.Eof) do

begin

dolg:=dolg+DBComponents.ADOQuery_Finansy_Pokup_2.FieldByName('Сумма').AsInteger;

DBComponents.ADOQuery_Finansy_Pokup_2.Next;

end;

DBComponents.ADOQuery_Finansy_Pokup_2.RecNo:=i;

Edit1.Text:=IntToStr(dolg);

end;

procedure TFinansy.DBNavigator2Click(Sender: TObject;

Button: TNavigateBtn);

begin

DBGrid2CellClick(nil);

end;

end.

Отчётная форма - «Rashod_Print».

С помощью этой формы реализована отчётность программы по расходным наклажным и возможность печати.

unit Unit12;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls, Unit2;

type

TRashod_Print = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRSysData2: TQRSysData;

QRBand2: TQRBand;

QRLabel6: TQRLabel;

QRExpr1: TQRExpr;

QRBand3: TQRBand;

DataR: TQRDBText;

Adress: TQRDBText;

Telephone: TQRDBText;

Familiya: TQRDBText;

Name: TQRDBText;

QRBand4: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRBand5: TQRBand;

QRImage1: TQRImage;

QRLabel1: TQRLabel;

QRBand6: TQRBand;

QRSysData1: TQRSysData;

QRLabel7: TQRLabel;

QRLabel8: TQRLabel;

QRLabel9: TQRLabel;

QRDBText1: TQRDBText;

QRLabel10: TQRLabel;

QRExpr2: TQRExpr;

QRLabel12: TQRLabel;

QRLabel13: TQRLabel;

QRLabel14: TQRLabel;

QRDBText2: TQRDBText;

QRLabel11: TQRLabel;

QRLabel15: TQRLabel;

QRDBText3: TQRDBText;

QRLabel16: TQRLabel;

QRDBText4: TQRDBText;

QRLabel17: TQRLabel;

QRDBText5: TQRDBText;

QRLabel18: TQRLabel;

QRDBText6: TQRDBText;

QRDBText7: TQRDBText;

QRLabel19: TQRLabel;

QRLabel20: TQRLabel;

QRDBText8: TQRDBText;

QRDBText9: TQRDBText;

QRLabel21: TQRLabel;

QRLabel22: TQRLabel;

QRDBText10: TQRDBText;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Rashod_Print: TRashod_Print;

implementation

{$R *.dfm}

end.

Заключение

В ходе выполнения курсовой работы была разработана программа для склада, обладающая следующим функционалом:

1) просмотр, добавление, удаление и редактирование данных;

2) приём товара, отпуск товара;

3) печать накладных;

4) подведение статистики;

5) автоматическое удаление устаревших записей;

В заключение можно сказать, что созданная программа - проста и удобна в использовании, так как все необходимые записи из базы визуализированы с помощью таблиц. Данная конструкция экономит большое количество времени и трудозатрат на обработку требуемой информации. Построенная программа имеет интуитивно понятный интерфейс и будет доступна для любого человека, обладающего минимальными навыками пользования компьютером. Следовательно, потенциал данной программы довольно велик.

В будущем, функциональность программы можно расширить за счет добавления новых функций и более глубокой оптимизации интерфейса.

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

1. Кренке, В. Д. «Теория и практика построения баз данных», Питер, 2005

2. А. Я. Архангельский «Программирование в Delphi 2005 и 2006», Издательство «БИНОМ», 2006

3. Боровский, А.Н. «Программирование в Delphi» А.Н. Боровский. - СПб.: БХВ-Петербург. - 2005.

4. Симонович, С.В. Информатика. Базовый курс./ С.В.Симонович/ 2-е издание, под ред. С. В. Симоновича. - СПб.: Питер. - 2005.

5. http://www.realcoding.net

6. http://www.delphisources.ru

Размещено на Allbest.ru

...