Проектирование программного обеспечения по учету товаров в "Мегаспорт" магазине
Описание программного, информационного обеспечения спортивного магазина "Мегаспорт". Пути совершенствования действующей системы обработки данных. Разработка программы по учету товаров. Экономическая эффективность внедрения проекта и промышленная экология.
Рубрика | Программирование, компьютеры и кибернетика |
Вид | дипломная работа |
Язык | русский |
Дата добавления | 24.03.2014 |
Размер файла | 2,4 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
DM.SaleTable.FieldByName('dolzhnost').AsString := DM.PeopleTable.FieldByName('dolzhnost').AsString;
DM.SaleTable.Post;
DM.PeopleTable.Filtered := false;
Close
end;
procedure TPeopleListForm.BitBtn2Click(Sender: TObject);
begin
Close
end;
end.
unit PeopleUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Mask, Buttons, ExtCtrls;
type
TPeopleForm = class(TForm)
Panel1: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
PeopleForm: TPeopleForm;
implementation
uses DMSport;
{$R *.dfm}
procedure TPeopleForm.BitBtn1Click(Sender: TObject);
begin
DM.PeopleTable.Post;
Close
end;
procedure TPeopleForm.BitBtn2Click(Sender: TObject);
begin
Close
end;
end.
unit PostavwikListUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;
type
TPostavwikListForm = class(TForm)
Panel1: TPanel;
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBGrid1: TDBGrid;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
PostavwikListForm: TPostavwikListForm;
implementation
uses DMSport;
{$R *.dfm}
procedure TPostavwikListForm.BitBtn1Click(Sender: TObject);
begin
DM.PrixodNaklTable.Edit;
DM.PrixodNaklTable.FieldByName('otkuda').AsString := DM.PostavwikTable.FieldByName('Postavwik').AsString;
DM.PrixodNaklTable.Post;
Close
end;
end.
unit PostavwikUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls, ExtCtrls;
type
TPostavwikForm = class(TForm)
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label5: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit4: TDBEdit;
Panel1: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
PostavwikForm: TPostavwikForm;
implementation
uses DMSport;
{$R *.dfm}
procedure TPostavwikForm.BitBtn1Click(Sender: TObject);
begin
DM.PostavwikTable.Post;
Close
end;
procedure TPostavwikForm.BitBtn2Click(Sender: TObject);
begin
Close
end;
end.
unit TovarListUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, Buttons, ExtCtrls;
type
TTovarListForm = class(TForm)
Panel1: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBGrid1: TDBGrid;
DBEdit1: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TovarListForm: TTovarListForm;
implementation
uses DMSport;
{$R *.dfm}
procedure TTovarListForm.BitBtn1Click(Sender: TObject);
var
k, sum: integer;
begin
if Label3.Caption ='1' then
begin
DM.Prixod2Table.Edit;
DM.Prixod2Table.FieldByName('key_nakl').AsInteger := DM.Prixod1Table.FieldByName('key_nakl').AsInteger;
DM.Prixod2Table.FieldByName('key_tovar').AsString := DM.TovarTable2.FieldByName('key_tovara').AsString;
DM.Prixod2Table.FieldByName('tovar').AsString := DM.TovarTable2.FieldByName('tovar').AsString;
DM.TovarTable.Filtered := false;
DM.TovarTable.Filter := 'key_tovara='''+ DM.Prixod2Table.FieldByName('key_tovar').AsString+'''';
DM.TovarTable.Filtered := true;
DM.Prixod2Table.FieldByName('Izmerenie').AsString := DM.TovarTable.FieldByName('Izmerenie').AsString;
DM.TovarTable.Filtered := false;
DM.Prixod2Table.FieldByName('prise').AsInteger := DM.TovarTable2.FieldByName('prise').AsInteger;
DM.Prixod2Table.Post;
DM.Prixod2Table.First;
k:=0;
sum:=0;
repeat
k := k+1;
sum := sum + DM.Prixod2Table.FieldByName('Сумма').AsInteger;
DM.Prixod2Table.Next
until DM.Prixod2Table.Eof;
DM.Prixod1Table.Edit;
DM.Prixod1Table.FieldByName('posicij').AsInteger := k;
DM.Prixod1Table.FieldByName('summa').AsInteger := sum;
if DM.Prixod1Table.Modified then DM.Prixod1Table.Post;
end
else
if Label3.Caption = '2' then
begin
DM.PrixodNakl2Table.Edit;
DM.PrixodNakl2Table.FieldByName('key_nakl').AsInteger := DM.PrixodNaklTable.FieldByName('key_nakl').AsInteger;
DM.PrixodNakl2Table.FieldByName('key_tovar').AsString := DM.TovarTable2.FieldByName('key_tovara').AsString;
DM.PrixodNakl2Table.FieldByName('tovar').AsString := DM.TovarTable2.FieldByName('tovar').AsString;
DM.TovarTable.Filtered := false;
DM.TovarTable.Filter := 'key_tovara='''+ DM.PrixodNakl2Table.FieldByName('key_tovar').AsString+'''';
DM.TovarTable.Filtered := true;
DM.PrixodNakl2Table.FieldByName('Izmerenie').AsString := DM.TovarTable.FieldByName('Izmerenie').AsString;
DM.TovarTable.Filtered := false;
DM.PrixodNakl2Table.FieldByName('prise').AsInteger := DM.TovarTable2.FieldByName('prise').AsInteger;
DM.PrixodNakl2Table.Post;
DM.PrixodNakl2Table.First;
k:=0;
sum:=0;
repeat
k := k+1;
sum := sum + DM.PrixodNakl2Table.FieldByName('Сумма').AsInteger;
DM.PrixodNakl2Table.Next
until DM.PrixodNakl2Table.Eof;
DM.PrixodNaklTable.Edit;
DM.PrixodNaklTable.FieldByName('posicij').AsInteger := k;
DM.PrixodNaklTable.FieldByName('summa').AsInteger := sum;
if DM.PrixodNaklTable.Modified then DM.PrixodNaklTable.Post;
end
else
if Label3.Caption ='3' then
begin
DM.Sale2Table.Edit;
DM.Sale2Table.FieldByName('key_chek').AsInteger := DM.SaleTable.FieldByName('key_chek').AsInteger;
DM.Sale2Table.FieldByName('key_tovar').AsString := DM.TovarTable2.FieldByName('key_tovara').AsString;
DM.Sale2Table.FieldByName('tovar').AsString := DM.TovarTable2.FieldByName('tovar').AsString;
DM.TovarTable.Filtered := false;
DM.TovarTable.Filter := 'key_tovara='''+ DM.Sale2Table.FieldByName('key_tovar').AsString+'''';
DM.TovarTable.Filtered := true;
DM.Sale2Table.FieldByName('Izmerenie').AsString := DM.TovarTable.FieldByName('Izmerenie').AsString;
DM.TovarTable.Filtered := false;
DM.Sale2Table.FieldByName('prise').AsInteger := DM.TovarTable2.FieldByName('prise').AsInteger;
DM.Sale2Table.Post;
DM.Sale2Table.First;
k:=0;
sum:=0;
repeat
k := k+1;
sum := sum + DM.Sale2Table.FieldByName('Сумма').AsInteger;
DM.Sale2Table.Next
until DM.Sale2Table.Eof;
DM.SaleTable.Edit;
DM.SaleTable.FieldByName('posicij').AsInteger := k;
DM.SaleTable.FieldByName('summa').AsInteger := sum;
if DM.SaleTable.Modified then DM.SaleTable.Post;
end;
close;
end;
end.
unit TovarUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls, ExtCtrls;
type
TTovarForm = class(TForm)
Panel1: TPanel;
BitBtn1: TBitBtn;
Panel2: TPanel;
BitBtn2: TBitBtn;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBEdit3: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBEdit4: TDBEdit;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TovarForm: TTovarForm;
implementation
uses DMSport;
{$R *.dfm}
procedure TTovarForm.BitBtn1Click(Sender: TObject);
begin
if DM.TovarTable.Modified then
DM.TovarTable.Post;
Close
end;
procedure TTovarForm.BitBtn2Click(Sender: TObject);
begin
Close
end;
end.
unit XranenieUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, Mask, DBCtrls;
type
TXranenieForm = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit1: TEdit;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
XranenieForm: TXranenieForm;
implementation
uses DMSport, MainUnit;
{$R *.dfm}
procedure TXranenieForm.BitBtn1Click(Sender: TObject);
var
flag: boolean;
begin
if Label1.Caption = '2' then
begin
DM.Xranenie2Table.Edit;
DM.Xranenie2Table.FieldByName('key_group').AsInteger := DM.GroupTovarTable.FieldByName('key_group').AsInteger;
DM.Xranenie2Table.Post;
DM.XranenieTable.Edit;
DM.XranenieTable.FieldByName('key_xranenie').AsInteger := DM.Xranenie1Table.FieldByName('key_xranenie').AsInteger;
DM.XranenieTable.FieldByName('key_filial').AsInteger := DM.Xranenie1Table.FieldByName('key_filial').AsInteger;
DM.XranenieTable.FieldByName('key_group').AsInteger := DM.GroupTovarTable.FieldByName('key_group').AsInteger;
DM.XranenieTable.FieldByName('key_tovar').AsString := DM.TovarTable2.FieldByName('key_tovara').AsString;
// DM.XranenieTable.FieldByName('count').AsInteger := StrToInt(Edit1.Text);
DM.XranenieTable.Post;
end
else
if Label1.Caption='1' then
begin
DM.XranenieTable.Insert;
// DM.XranenieTable.Edit;
DM.XranenieTable.FieldByName('key_xranenie').AsInteger := DM.Xranenie1Table.FieldByName('key_xranenie').AsInteger;
DM.XranenieTable.FieldByName('key_filial').AsInteger := DM.Xranenie1Table.FieldByName('key_filial').AsInteger;
DM.XranenieTable.FieldByName('key_group').AsInteger := DM.TovarTable2.FieldByName('key_group').AsInteger;
DM.XranenieTable.FieldByName('key_tovar').AsString := DM.TovarTable2.FieldByName('key_tovara').AsString;
DM.XranenieTable.FieldByName('count').AsInteger := StrToInt(Edit1.Text);
DM.XranenieTable.Post;
flag := false;
DM.Xranenie2Table.First;
repeat
if DM.Xranenie2Table.FieldByName('key_group').AsInteger = DM.GroupTovarTable.FieldByName('key_group').AsInteger then
flag := true;
DM.Xranenie2Table.Next
until DM.Xranenie2Table.Eof;
if not flag then
begin
DM.Xranenie2Table.Insert;
DM.Xranenie2Table.FieldByName('key_filial').AsInteger := DM.Xranenie1Table.FieldByName('key_filial').AsInteger;
DM.Xranenie2Table.FieldByName('key_group').AsInteger := DM.GroupTovarTable.FieldByName('key_group').AsInteger;
DM.Xranenie2Table.Post;
end;
end;
close;
end;
procedure TXranenieForm.BitBtn2Click(Sender: TObject);
begin
close
end;
end.
Размещено на Allbest.ru
Подобные документы
Системы управления базами данных. Разработка основной программы и вспомогательного программного обеспечения по учету товаров в коммерческой фирме по продаже аудиотехники. Комплекс программ и средств взаимодействия с электронной вычислительной машиной.
курсовая работа [11,4 K], добавлен 08.02.2012Описание и схема информационного взаимодействия элементов системы, выходная и входная информация. Технологические процесс функционирования системы в автоматизированном режиме. Разработка информационного обеспечения системы, алгоритмы программного модуля.
дипломная работа [1,0 M], добавлен 30.08.2010Разработка информационного и программного обеспечения предметной области, связанной с работой магазина по продаже сувениров. Построение функциональной и информационной модели. Управление базой данных с помощью системы приложения Microsoft SQL Server 6.0.
курсовая работа [2,7 M], добавлен 25.01.2010Проектирование программного модуля: сбор исходных материалов; описание входных и выходных данных; выбор программного обеспечения. Описание типов данных и реализация интерфейса программы. Тестирование программного модуля и разработка справочной системы.
курсовая работа [81,7 K], добавлен 18.08.2014Разработка программного обеспечения, предназначенного для автоматизации деятельности туристической фирмы. Анализ и проектирование базы данных предметной области. Создание концептуальной, логической и физической моделей данных и программы их обработки.
курсовая работа [816,5 K], добавлен 05.02.2018Проектирование и реализация комплекса задач автоматизации учета движения товаров на складе в ЗАО "ГРЕЦ" и технико-экономические расчеты. Обоснование выбора программно-технических средств, блок-схема алгоритма. Описание программного обеспечения системы.
дипломная работа [3,0 M], добавлен 05.12.2011Разработка информационного и программного обеспечения предметной области, связанной с учетом прихода и расхода канцелярских товаров. Инфологическая и датологическая модель данных. Разработка интерфейса и инструкции для администратора и пользователя.
курсовая работа [1,8 M], добавлен 14.02.2010Понятие и изучение структуры баз данных как системы логических информационных ресурсов. Элементы системы управления базой данных Microsoft Office Access: таблица, запрос, форма, отчет, макрос. Проектирование БД по учету товаров и услуг в салоне красоты.
курсовая работа [1,3 M], добавлен 22.11.2012Методика автоматизации учета товаров и денежных средств, получаемых от реализации товаров и услуг предприятием "Computer Master". Разработка концепции информационной системы, обоснование выбранного варианта. Выбор и подготовка программного обеспечения.
курсовая работа [656,1 K], добавлен 22.04.2010Проектирование логической модели системы: контекстная диаграмма и детализация процессов, реализация ссылочной целостности. Описание работоспособного программного обеспечения для проекта. SQL-определения запросов. Описание базы данных контрольного примера.
курсовая работа [91,4 K], добавлен 01.09.2010