Проектирование программного обеспечения по учету товаров в "Мегаспорт" магазине
Описание программного, информационного обеспечения спортивного магазина "Мегаспорт". Пути совершенствования действующей системы обработки данных. Разработка программы по учету товаров. Экономическая эффективность внедрения проекта и промышленная экология.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 24.03.2014 |
| Размер файла | 2,4 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
В автоматизированных информационных системах отражение предметной области представлено моделями данных нескольких уровней, одной из которых является инфологическая модель. В ней отображается какая-то часть реального мира, называемая предметной областью. Для того чтобы описать исследуемую предметную область используют искусственные формализованные языковые средства. В связи с этим под инфологической моделью понимают описание предметной области, выполнение с использованием специальных языковых средств, не зависящих от используемых в дальнейшем программных средств.
Даталогическое проектирование заключается в проектировании логической структуры БД. Таким образом, главное отличие даталогической модели от инфологической состоит в том, что инфологическая модель хранит в себе всю информацию о предметной области, необходимую и достаточную для проектирования БД, но она не привязана к определенной СУБД.
Технологический процесс работы системы начинается с загрузки ОС. После загрузки ОС необходимо запустить непосредственно программу АИС
учета и реализации продукции, которая прежде чем загрузить главное меню, проводит авторизацию доступа методом ввода пароля.
При выборе ЭВМ необходимо руководствоваться рядом характеристик. К таким характеристикам относятся надежность, стоимостные затраты, производительность, простота использования и др. От значения указанных параметров зависит возможность работы с требуемыми программными средствами, а следовательно, и успех создания системы.
Для решения задачи «Реализация товаров» было выбрано приложение Windows Microsoft Access. Microsoft Access предлагает максимальную свободу в задании типа данных (текст, числовые данные, даты, время, денежные значения, рисунок, звук, документы, электронные таблицы).
Дипломная работа показывает возможности применения Иноформационной системы на Торговом предприятии, которые направлены на сбор, хранение, обработку и распространение между потенциальными пользователями информации о функционировании ТП, как-то: предоставление руководителю отчета о деятельности Торгового Предприятия, о процессе реализации продукции, процессе расчета с поставщиками, регистрации и анализе документации, донесении до работников фирмы информации о результатах деятельности ТП и т.д.
В дипломной работе подчеркивается, что применение предприятием специализированной СУБД, рассчитанной на управление заранее определенной структурой информации, позволяет значительно улучшить организационные процессы в работе управленческого персонала, своевременно и эффективно принимать решения администрацией, улучшить качество ведения отчетности и документооборота.
Задачами дипломной работы являлись:
ь критическое изучение состояния действующих информационных систем;
ь постановка комплексов задач для проведения внедрения информационной системы Торговое предприятие;
ь теоретическое обоснование и целесообразность выполнения и внедрения проектных работ;
ь экономический анализ собранного и обработанного фактического материала;
ь разработка конкретных и обоснованных рекомендаций и предложений по совершенствованию работы Торгового предприятия;
В результате предпроектных исследований была разработана не слишком дорогая и довольно простая в работе программа даже для не очень опытного и подготовленного пользователя. Разработанная информационная система Торгового предприятия обеспечивает:
ь оперативный сбор, качественную и надежную обработку информации, начиная с производственных подразделений и заканчивая администрацией предприятия;
ь обеспечение целостности и сохранности информации;
ь интеграцию информации, в зависимости от уровня функций и принимаемых решений, тем или иным должностным лицом или службой;
ь обработку информации в реальном масштабе времени;
ь обеспечение защиты информации от несанкционированного доступа;
В результате написания дипломной работы я закрепила и расширила теоретические и практические знания по специальности, научилась применять эти знания при решении конкретных информационных и экономических задач; овладела методикой исследования при решении экономических проблем и вопросов.
Список использованных источников
1. Андрейченко А.В., Андрейченко О.Н. «Интеллектуальные ИС». Учебник. М.: Финансовая и статистика, 2004
2. Ахаян Р.,Горев А., Макашарипов С. «Эффективная работа с СУБД», Санкт-Петербург, 2004
3. Барановская Т.П. и др. «Архитектура компьютерных систем и сетей». Учеб. Пособие.- М.: Финансы и статистика, 2003
4. Болдырев Ю.Н. Покупатель и магазин. - М., 2005
5. Громов Г.Р. Очерки информационной технологии. - М.: ИнфоАрт, 2006.
6. Кравченко Л.И. Анализ хозяйственной деятельности в торговле. Учебник. Мн.: Высшая школа, 2007.
7. Крейнина М.Н. «Финансовое состояние предприятия. Методы оценки». - М.: ИКЦ «Дис», 2007.
8. Карминский A.M., Нестеров П.В. «Информатизация бизнеса». М.: Финансы и статистика, 2002
9. Мельников В.В. «Безопасность информации в автоматизированных системах».- М.: Финансы и статистика, 2003
10. Мартин Дж., Вычислительные сети и распределенная обработка данных - М.: Финансы и статистика. 2005
11. Назаров С.В. «Пакеты программ офисного назначения» Учеб. Пособие. -- М: Финансы и статистика, 2005
12. Назаров С.В. «Администрирование локальных сетей Windows NT/2000/NET» Учеб. Пособие - 2-е изд., перераб. И доп. - М.: Финансы и статистика, 2003
13. проф. Омарова Ш.Е., преп. Муканова Ж.А., преп. Исбек А.Д. УМК для студента.: «Системы баз данных».
11. Памбухчиянц О.В. Организация, технология и проектирование торговых предприятий. - М., ИВЦ «Маркетинг», 1998.
12. Памбухчиянц О.В. Технология розничной торговли: Учебник. - М.: ИД «Дашков и К», 2007.
13. Примерное правило работы предприятий розничной торговли. Комитет РК по торговле 17.03.94. г., № 1-314/32-9
14. Прохоров В.И. Справочник контроллера-кассира. - М.: Высшая школа, 2002.
15. Раицкий К.А. Экономика предприятия. - М.: ИВЦ «Маркетинг», 2000.
16. Саймон А.Р. «Стратегические технологии БД» Пер. с англ. - М.: Финансы и статистика, 2006
17. Торговое дело: экономика и организация: Учебник / Под общ. ред. проф. Л. А. Брагина и проф. Т.П. Данько. -М.: ИНФРА-М, 2007.
18. Флинт Д. Локальные сети ЭВМ: архитектура, принципы построения, реализация: Пер. с англ. - М.: Финансы и статистика,
Приложение
unit MainUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, jpeg, ExtCtrls, ComCtrls, ImgList, ToolWin, Grids,
DBGrids, StdCtrls, Mask, DBCtrls, DateUtils, Buttons, ComObj;
type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
Image1: TImage;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ImageList1: TImageList;
DBGrid1: TDBGrid;
TabSheet2: TTabSheet;
CoolBar2: TCoolBar;
ToolBar2: TToolBar;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
ToolButton14: TToolButton;
ToolButton15: TToolButton;
ToolButton16: TToolButton;
DBGrid2: TDBGrid;
N4: TMenuItem;
N5: TMenuItem;
TabSheet3: TTabSheet;
CoolBar3: TCoolBar;
ToolBar3: TToolBar;
ToolButton17: TToolButton;
ToolButton18: TToolButton;
ToolButton19: TToolButton;
ToolButton20: TToolButton;
ToolButton21: TToolButton;
ToolButton22: TToolButton;
ToolButton23: TToolButton;
ToolButton24: TToolButton;
DBGrid3: TDBGrid;
ToolButton25: TToolButton;
ToolButton26: TToolButton;
ToolButton27: TToolButton;
ToolButton28: TToolButton;
ToolButton29: TToolButton;
ToolButton30: TToolButton;
TabSheet4: TTabSheet;
DBGrid4: TDBGrid;
DBGrid5: TDBGrid;
DBGrid6: TDBGrid;
CoolBar4: TCoolBar;
ToolBar4: TToolBar;
ToolButton31: TToolButton;
ToolButton32: TToolButton;
ToolButton33: TToolButton;
ToolButton34: TToolButton;
ToolButton35: TToolButton;
ToolButton36: TToolButton;
ToolButton37: TToolButton;
ToolButton38: TToolButton;
ToolButton39: TToolButton;
ToolButton40: TToolButton;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
TabSheet6: TTabSheet;
Label4: TLabel;
Label3: TLabel;
DateTimePicker1: TDateTimePicker;
Label2: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label1: TLabel;
Panel2: TPanel;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label5: TLabel;
Label6: TLabel;
Panel3: TPanel;
DBGrid7: TDBGrid;
Panel4: TPanel;
CoolBar6: TCoolBar;
ToolBar6: TToolBar;
ToolButton51: TToolButton;
ToolButton52: TToolButton;
ToolButton53: TToolButton;
ToolButton54: TToolButton;
ToolButton55: TToolButton;
ToolButton56: TToolButton;
ToolButton57: TToolButton;
ToolButton58: TToolButton;
ToolButton59: TToolButton;
ToolButton60: TToolButton;
Panel5: TPanel;
CoolBar7: TCoolBar;
ToolBar7: TToolBar;
ToolButton61: TToolButton;
ToolButton62: TToolButton;
ToolButton63: TToolButton;
ToolButton64: TToolButton;
ToolButton65: TToolButton;
ToolButton66: TToolButton;
ToolButton67: TToolButton;
ToolButton68: TToolButton;
ToolButton69: TToolButton;
ToolButton70: TToolButton;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
Button1: TButton;
Button2: TButton;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
TabSheet5: TTabSheet;
Panel1: TPanel;
Label7: TLabel;
Label8: TLabel;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
CoolBar5: TCoolBar;
ToolBar5: TToolBar;
ToolButton41: TToolButton;
ToolButton42: TToolButton;
ToolButton43: TToolButton;
ToolButton44: TToolButton;
ToolButton45: TToolButton;
ToolButton46: TToolButton;
ToolButton47: TToolButton;
ToolButton48: TToolButton;
ToolButton49: TToolButton;
ToolButton50: TToolButton;
Panel6: TPanel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DateTimePicker2: TDateTimePicker;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
Button3: TButton;
Button4: TButton;
Panel7: TPanel;
DBGrid8: TDBGrid;
Panel8: TPanel;
CoolBar8: TCoolBar;
ToolBar8: TToolBar;
ToolButton71: TToolButton;
ToolButton72: TToolButton;
ToolButton73: TToolButton;
ToolButton74: TToolButton;
ToolButton75: TToolButton;
ToolButton76: TToolButton;
ToolButton77: TToolButton;
ToolButton78: TToolButton;
ToolButton79: TToolButton;
ToolButton80: TToolButton;
N9: TMenuItem;
TabSheet7: TTabSheet;
CoolBar9: TCoolBar;
ToolBar9: TToolBar;
ToolButton81: TToolButton;
ToolButton82: TToolButton;
ToolButton83: TToolButton;
ToolButton84: TToolButton;
ToolButton85: TToolButton;
ToolButton86: TToolButton;
ToolButton87: TToolButton;
ToolButton88: TToolButton;
ToolButton89: TToolButton;
ToolButton90: TToolButton;
DBGrid9: TDBGrid;
N10: TMenuItem;
TabSheet8: TTabSheet;
CoolBar10: TCoolBar;
ToolBar10: TToolBar;
ToolButton6: TToolButton;
ToolButton91: TToolButton;
ToolButton92: TToolButton;
ToolButton93: TToolButton;
ToolButton94: TToolButton;
ToolButton95: TToolButton;
ToolButton96: TToolButton;
ToolButton97: TToolButton;
ToolButton98: TToolButton;
ToolButton99: TToolButton;
DBGrid10: TDBGrid;
N11: TMenuItem;
TabSheet9: TTabSheet;
CoolBar11: TCoolBar;
ToolBar11: TToolBar;
ToolButton100: TToolButton;
ToolButton101: TToolButton;
ToolButton102: TToolButton;
ToolButton103: TToolButton;
ToolButton104: TToolButton;
ToolButton105: TToolButton;
ToolButton106: TToolButton;
ToolButton107: TToolButton;
ToolButton108: TToolButton;
ToolButton109: TToolButton;
Panel9: TPanel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DateTimePicker3: TDateTimePicker;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
Button5: TButton;
Button6: TButton;
Panel10: TPanel;
Label17: TLabel;
Label18: TLabel;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
Panel11: TPanel;
DBGrid11: TDBGrid;
Panel12: TPanel;
CoolBar12: TCoolBar;
ToolBar12: TToolBar;
ToolButton110: TToolButton;
ToolButton111: TToolButton;
ToolButton112: TToolButton;
ToolButton113: TToolButton;
ToolButton114: TToolButton;
ToolButton115: TToolButton;
ToolButton116: TToolButton;
ToolButton117: TToolButton;
ToolButton118: TToolButton;
ToolButton119: TToolButton;
N12: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ToolButton12Click(Sender: TObject);
procedure ToolButton14Click(Sender: TObject);
procedure ToolButton15Click(Sender: TObject);
procedure ToolButton16Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure ToolButton17Click(Sender: TObject);
procedure ToolButton18Click(Sender: TObject);
procedure ToolButton19Click(Sender: TObject);
procedure ToolButton20Click(Sender: TObject);
procedure ToolButton28Click(Sender: TObject);
procedure ToolButton30Click(Sender: TObject);
procedure ToolButton25Click(Sender: TObject);
procedure ToolButton24Click(Sender: TObject);
procedure ToolButton23Click(Sender: TObject);
procedure ToolButton22Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure ToolButton37Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure DateTimePicker1CloseUp(Sender: TObject);
procedure ToolButton56Click(Sender: TObject);
procedure ToolButton57Click(Sender: TObject);
procedure ToolButton58Click(Sender: TObject);
procedure ToolButton60Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure ToolButton66Click(Sender: TObject);
procedure ToolButton67Click(Sender: TObject);
procedure ToolButton68Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure ToolButton36Click(Sender: TObject);
procedure DBGrid4CellClick(Column: TColumn);
procedure DBGrid5CellClick(Column: TColumn);
procedure ToolButton53Click(Sender: TObject);
procedure ToolButton51Click(Sender: TObject);
procedure ToolButton52Click(Sender: TObject);
procedure ToolButton54Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure ToolButton81Click(Sender: TObject);
procedure ToolButton82Click(Sender: TObject);
procedure ToolButton83Click(Sender: TObject);
procedure ToolButton84Click(Sender: TObject);
procedure ToolButton86Click(Sender: TObject);
procedure ToolButton87Click(Sender: TObject);
procedure ToolButton88Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure ToolButton90Click(Sender: TObject);
procedure DateTimePicker2CloseUp(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure ToolButton71Click(Sender: TObject);
procedure ToolButton72Click(Sender: TObject);
procedure ToolButton73Click(Sender: TObject);
procedure ToolButton74Click(Sender: TObject);
procedure ToolButton76Click(Sender: TObject);
procedure ToolButton77Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure ToolButton38Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton91Click(Sender: TObject);
procedure ToolButton92Click(Sender: TObject);
procedure ToolButton93Click(Sender: TObject);
procedure ToolButton95Click(Sender: TObject);
procedure ToolButton96Click(Sender: TObject);
procedure ToolButton97Click(Sender: TObject);
procedure ToolButton99Click(Sender: TObject);
procedure ToolButton110Click(Sender: TObject);
procedure ToolButton101Click(Sender: TObject);
procedure ToolButton102Click(Sender: TObject);
procedure ToolButton103Click(Sender: TObject);
procedure ToolButton105Click(Sender: TObject);
procedure ToolButton106Click(Sender: TObject);
procedure ToolButton107Click(Sender: TObject);
procedure ToolButton109Click(Sender: TObject);
procedure ToolButton100Click(Sender: TObject);
procedure ToolButton111Click(Sender: TObject);
procedure ToolButton112Click(Sender: TObject);
procedure ToolButton113Click(Sender: TObject);
procedure ToolButton115Click(Sender: TObject);
procedure ToolButton116Click(Sender: TObject);
procedure ToolButton117Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure DateTimePicker3CloseUp(Sender: TObject);
procedure N12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
uses DMSport, TovarUnit, FilialUnit, XranenieUnit, FilialListUnit,
TovarListUnit, PostavwikUnit, PostavwikListUnit, PeopleUnit,
PeopleListUnit;
{$R *.dfm}
procedure TMainForm.FormCreate(Sender: TObject);
begin
PageControl1.Visible := false;
Image1.Width := MainForm.Width
end;
procedure TMainForm.ToolButton1Click(Sender: TObject);
begin
DM.GroupTovarTable.First
end;
procedure TMainForm.ToolButton2Click(Sender: TObject);
begin
DM.GroupTovarTable.Prior
end;
procedure TMainForm.ToolButton3Click(Sender: TObject);
begin
DM.GroupTovarTable.Next
end;
procedure TMainForm.ToolButton4Click(Sender: TObject);
begin
DM.GroupTovarTable.Last
end;
procedure TMainForm.ToolButton8Click(Sender: TObject);
begin
DM.GroupTovarTable.Delete
end;
procedure TMainForm.ToolButton7Click(Sender: TObject);
begin
DM.GroupTovarTable.Insert;
end;
procedure TMainForm.N2Click(Sender: TObject);
begin
PageControl1.Visible := true;
PageControl1.Pages[0].Visible := true;
PageControl1.Pages[0].TabVisible := true;
PageControl1.ActivePageIndex := 0;
end;
procedure TMainForm.ToolButton9Click(Sender: TObject);
begin
DM.TovarTable.First
end;
procedure TMainForm.ToolButton10Click(Sender: TObject);
begin
DM.TovarTable.Prior
end;
procedure TMainForm.ToolButton11Click(Sender: TObject);
begin
DM.TovarTable.Next
end;
procedure TMainForm.ToolButton12Click(Sender: TObject);
begin
DM.TovarTable.Last
end;
procedure TMainForm.ToolButton14Click(Sender: TObject);
begin
TovarForm.Caption
TovarForm.Show
end;
procedure TMainForm.ToolButton15Click(Sender: TObject);
begin
DM.TovarTable.Insert;
TovarForm.Caption
TovarForm.Show
end;
procedure TMainForm.ToolButton16Click(Sender: TObject);
begin
DM.TovarTable.Delete
end;
procedure TMainForm.N3Click(Sender: TObject);
begin
PageControl1.Visible := true;
PageControl1.Pages[1].Visible := true;
PageControl1.Pages[1].TabVisible := true;
PageControl1.ActivePageIndex := 1;
end;
procedure TMainForm.ToolButton17Click(Sender: TObject);
begin
DM.FilialTable.First
end;
procedure TMainForm.ToolButton18Click(Sender: TObject);
begin
DM.FilialTable.Prior
end;
procedure TMainForm.ToolButton19Click(Sender: TObject);
begin
DM.FilialTable.Next
end;
procedure TMainForm.ToolButton20Click(Sender: TObject);
begin
DM.FilialTable.Last
end;
procedure TMainForm.ToolButton28Click(Sender: TObject);
begin
PageControl1.Pages[0].Visible := false;
PageControl1.Pages[0].TabVisible := false;
end;
procedure TMainForm.ToolButton30Click(Sender: TObject);
begin
PageControl1.Pages[1].Visible := false;
PageControl1.Pages[1].TabVisible := false;
end;
procedure TMainForm.ToolButton25Click(Sender: TObject);
begin
PageControl1.Pages[2].Visible := false;
PageControl1.Pages[2].TabVisible := false;
end;
procedure TMainForm.ToolButton24Click(Sender: TObject);
begin
if Application.MessageBox(PChar
DM.FilialTable.Delete
end;
procedure TMainForm.ToolButton23Click(Sender: TObject);
begin
DM.FilialTable.Insert;
FilialForm.Show
end;
procedure TMainForm.ToolButton22Click(Sender: TObject);
begin
FilialForm.Show
end;
procedure TMainForm.N4Click(Sender: TObject);
begin
PageControl1.Visible := true;
PageControl1.Pages[7].Visible := true;
PageControl1.Pages[7].TabVisible := true;
PageControl1.ActivePageIndex := 7;
end;
procedure TMainForm.ToolButton37Click(Sender: TObject);
begin
XranenieForm.Label1.Caption := '1';
DM.Xranenie2Table.Insert;
DM.Xranenie3Table.Insert;
XranenieForm.Edit1.Text := '';
XranenieForm.Show;
end;
procedure TMainForm.N7Click(Sender: TObject);
begin
DM.Xranenie2Table.Filtered := false;
DM.Xranenie2Table.Filter := 'key_filial='''+ IntToStr(DM.Xranenie1Table.FieldByName('key_filial').AsInteger)+'''';
DM.Xranenie2Table.Filtered := true;
DM.XranenieTable.Filtered := false;
DM.XranenieTable.Filter := 'key_filial='''+ IntToStr(DM.Xranenie2Table.FieldByName('key_filial').AsInteger)+'''' +
' and key_group='''+ IntToStr(DM.Xranenie2Table.FieldByName('key_group').AsInteger)+'''';
DM.XranenieTable.Filtered := true;
PageControl1.Visible := true;
PageControl1.Pages[3].Visible := true;
PageControl1.Pages[3].TabVisible := true;
PageControl1.ActivePageIndex := 3;
end;
procedure TMainForm.DateTimePicker1CloseUp(Sender: TObject);
begin
DM.Prixod1Table.Edit;
DM.Prixod1Table.FieldByName('date').AsVariant := DateTimePicker1.Date;
DM.Prixod1Table.Post
end;
procedure TMainForm.ToolButton56Click(Sender: TObject);
begin
DM.Prixod1Table.Edit
end;
procedure TMainForm.ToolButton57Click(Sender: TObject);
begin
DM.Prixod1Table.Insert;
end;
procedure TMainForm.ToolButton58Click(Sender: TObject);
begin
begin
DM.Prixod1Table.Delete;
DM.Prixod2Table.Filtered := false;
DM.Prixod2Table.Filter := 'key_nakl='''+ IntToStr(DM.Prixod1Table.FieldByName('key_nakl').AsInteger)+'''';
DM.Prixod2Table.Filtered := true;
DM.Prixod2Table.First;
while not DM.Prixod2Table.Eof do
begin
DM.Prixod2Table.Delete
end;
DM.Prixod2Table.Filtered := false;
end
end;
procedure TMainForm.ToolButton60Click(Sender: TObject);
begin
PageControl1.Pages[4].Visible := false;
PageControl1.Pages[4].TabVisible := false;
end;
procedure TMainForm.N5Click(Sender: TObject);
begin
PageControl1.Visible := true;
PageControl1.Pages[2].Visible := true;
PageControl1.Pages[2].TabVisible := true;
PageControl1.ActivePageIndex := 2;
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
FilialListForm.Label1.Caption := '1';
FilialListForm.Show;
end;
procedure TMainForm.Button2Click(Sender: TObject);
begin
FilialListForm.Label1.Caption := '2';
FilialListForm.Show;
end;
procedure TMainForm.N8Click(Sender: TObject);
begin
DateTimePicker1.Date := Today();
PageControl1.Visible := true;
PageControl1.Pages[4].Visible := true;
PageControl1.Pages[4].TabVisible := true;
PageControl1.ActivePageIndex := 4;
end;
procedure TMainForm.ToolButton66Click(Sender: TObject);
begin
TovarListForm.Label2.Caption := DM.Prixod1Table.FieldByName('key_nakl').AsString;
TovarListForm.DBEdit1.Visible := true;
TovarListForm.DBEdit2.Visible := false;
TovarListForm.DBEdit3.Visible := false;
TovarListForm.Label3.Caption := '1';
TovarListForm.Show
end;
procedure TMainForm.ToolButton67Click(Sender: TObject);
begin
DM.Prixod2Table.Insert;
TovarListForm.DBEdit1.Visible := true;
TovarListForm.DBEdit2.Visible := false;
TovarListForm.DBEdit3.Visible := false;
TovarListForm.Label3.Caption := '1';
TovarListForm.Show
end;
procedure TMainForm.ToolButton68Click(Sender: TObject);
begin
DM.Prixod2Table.Delete
end;
procedure TMainForm.BitBtn1Click(Sender: TObject);
var
n,m,j:integer;
k,s,s2 : string;
begin
DM.FilialTable.Filtered := false;
DM.FilialTable.Filter := 'Filial='''+DM.Prixod1Table.FieldByName('otkuda').AsString +'''';
DM.FilialTable.Filtered := true;
n := DM.FilialTable.FieldByName('key_filial').AsInteger;
DM.FilialTable.Filtered := false;
DM.FilialTable.Filter := 'Filial='''+DM.Prixod1Table.FieldByName('kuda').AsString +'''';
DM.FilialTable.Filtered := true;
m := DM.FilialTable.FieldByName('key_filial').AsInteger;
DM.Prixod2Table.First;
repeat
k := DM.Prixod2Table.FieldByName('key_tovar').AsString;
s := 'key_filial='''+IntToStr(n) +'''';
s2 := s + ' and key_tovar='''+ k +'''';
DM.XranenieTable.Filtered := false;
DM.XranenieTable.Filter := s2;
DM.XranenieTable.Filtered := true;
DM.XranenieTable.Edit;
DM.XranenieTable.FieldByName('count').AsInteger := DM.XranenieTable.FieldByName('count').AsInteger - DM.Prixod2Table.FieldByName('count').AsInteger;
DM.XranenieTable.Post;
DM.Prixod2Table.Next;
until DM.Prixod2Table.Eof;
DM.Prixod2Table.First;
repeat
DM.XranenieTable.Filtered := false;
DM.XranenieTable.Filter := 'key_filial='''+IntToStr(m) +''''+
' and key_tovar='''+DM.Prixod2Table.FieldByName('key_tovar').AsString +'''';
DM.XranenieTable.Filtered := true;
if not DM.XranenieTable.Eof then
begin
DM.XranenieTable.Edit;
DM.XranenieTable.FieldByName('count').AsInteger := DM.XranenieTable.FieldByName('count').AsInteger + DM.Prixod2Table.FieldByName('count').AsInteger;
DM.XranenieTable.Post;
end
else
begin
DM.XranenieTable.Filtered := false;
DM.TovarTable.Filtered := false;
DM.TovarTable.Filter := 'key_tovara='''+ DM.Prixod2Table.FieldByName('key_tovar').AsString +'''';
DM.TovarTable.Filtered := true;
n := DM.TovarTable.FieldByName('key_group').AsInteger;
DM.TovarTable.Filtered := false;
DM.Xranenie1Table.Filtered := false;
DM.Xranenie1Table.Filter := 'key_filial'''+IntToStr(m) +'''';
{ DM.Xranenie1Table.Filtered := true;
j := DM.Xranenie1Table.FieldByName('key_xranenie').AsInteger;
} DM.XranenieTable.Insert;
// DM.XranenieTable.FieldByName('key_xranenie').AsInteger := j;
DM.XranenieTable.FieldByName('key_filial').AsInteger := m;
DM.XranenieTable.FieldByName('key_tovar').AsString := DM.Prixod2Table.FieldByName('key_tovar').AsString;
DM.XranenieTable.FieldByName('key_group').AsInteger := n;
DM.XranenieTable.FieldByName('count').AsInteger := DM.Prixod2Table.FieldByName('count').AsInteger;
DM.XranenieTable.Post;
DM.Xranenie2Table.Filtered := false;
DM.Xranenie2Table.Filter := 'key_group='''+IntToStr(n) + '''';
DM.Xranenie2Table.Filtered := true;
if DM.Xranenie2Table.Eof then
begin
DM.Xranenie2Table.Insert;
DM.Xranenie2Table.FieldByName('key_filial').AsInteger := m;
DM.Xranenie2Table.FieldByName('key_group').AsInteger := n;
DM.Xranenie2Table.Post;
end
end;
DM.Prixod2Table.Next
until DM.Prixod2Table.Eof;
n := 0;
m := 0;
DM.Prixod2Table.First;
repeat
n := n + 1;
m := m + DM.Prixod2Table.FieldByName('Сумма').AsInteger;
DM.Prixod2Table.Next
until DM.Prixod2Table.Eof;
DM.Prixod1Table.Edit;
DM.Prixod1Table.FieldByName('posicij').AsInteger := n;
DM.Prixod1Table.FieldByName('summa').AsInteger := m;
DM.Prixod1Table.Post;
DM.FilialTable.Filtered := false;
DM.XranenieTable.Filtered := false;
end;
procedure TMainForm.ToolButton36Click(Sender: TObject);
begin
XranenieForm.Label1.Caption := '2';
XranenieForm.Show;
end;
procedure TMainForm.DBGrid4CellClick(Column: TColumn);
begin
DM.Xranenie2Table.Filtered := false;
DM.Xranenie2Table.Filter := 'key_filial='''+ IntToStr(DM.Xranenie1Table.FieldByName('key_filial').AsInteger)+'''';
DM.Xranenie2Table.Filtered := true;
DM.XranenieTable.Filtered := false;
DM.XranenieTable.Filter := 'key_filial='''+ IntToStr(DM.Xranenie2Table.FieldByName('key_filial').AsInteger)+'''' +
' and key_group='''+ IntToStr(DM.Xranenie2Table.FieldByName('key_group').AsInteger)+'''';
DM.XranenieTable.Filtered := true;
end;
procedure TMainForm.DBGrid5CellClick(Column: TColumn);
begin
DM.XranenieTable.Filtered := false;
DM.XranenieTable.Filter := 'key_filial='''+ IntToStr(DM.Xranenie2Table.FieldByName('key_filial').AsInteger)+'''' +
' and key_group='''+ IntToStr(DM.Xranenie2Table.FieldByName('key_group').AsInteger)+'''';
DM.XranenieTable.Filtered := true;
end;
procedure TMainForm.ToolButton53Click(Sender: TObject);
begin
DM.Prixod1Table.Next
end;
procedure TMainForm.ToolButton51Click(Sender: TObject);
begin
DM.Prixod1Table.First
end;
procedure TMainForm.ToolButton52Click(Sender: TObject);
begin
DM.Prixod1Table.Prior
end;
procedure TMainForm.ToolButton54Click(Sender: TObject);
begin
DM.Prixod1Table.Last
end;
procedure TMainForm.BitBtn2Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
k,i: integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Application.EnableEvents := false;
XLApp.Workbooks[1].WorkSheets[1].Name
Sheet:=XLApp.Workbooks[1].WorkSheets['Накладная'];
Sheet.Cells[1,3]:=
Sheet.Cells[3,3]:=' № '+ IntToStr(DM.Prixod1Table.FieldByName('key_nakl').AsInteger);
Sheet.Cells[4,1]:=' от '+ DateToStr(DM.Prixod1Table.FieldByName('date').AsDateTime);
Sheet.Cells[6,1]:=' ' + DM.Prixod1Table.FieldByName('otkuda').AsString;
Sheet.Cells[7,1]:= ' + DM.Prixod1Table.FieldByName('kuda').AsString;
Sheet.Cells[9,1]:='№';
Sheet.Cells[9,2]:=
Sheet.Cells[9,3]:=
Sheet.Cells[9,4]:=
Sheet.Cells[9,5]:=
Sheet.Cells[9,6]:=
Sheet.Cells[9,7]:=
DM.Prixod2Table.First;
k := 10;
i:=1;
repeat
Sheet.Cells[k,1]:= IntToStr(i);
Sheet.Cells[k,2]:=DM.Prixod2Table.FieldByName('key_tovar').AsString;
Sheet.Cells[k,3]:=DM.Prixod2Table.FieldByName('tovar').AsString;
Sheet.Cells[k,4]:=DM.Prixod2Table.FieldByName('prise').AsInteger;
Sheet.Cells[k,5]:=DM.Prixod2Table.FieldByName('count').AsInteger;
Sheet.Cells[k,6]:=DM.Prixod2Table.FieldByName('Izmerenie').AsString;
Sheet.Cells[k,7]:=DM.Prixod2Table.FieldByName('Сумма').AsInteger;
DM.Prixod2Table.next;
k := k+1;
i := i+1
until DM.Prixod2Table.eof;
Sheet.Cells[k+1,1] := ' + IntToStr(DM.Prixod1Table.FieldByName('posicij').AsInteger);
Sheet.Cells[k+2,1] := ' + IntToStr(DM.Prixod1Table.FieldByName('summa').AsInteger);
Sheet.Cells[k+4,1] :=
Sheet.Cells[k+4,4] :=
end;
procedure TMainForm.ToolButton81Click(Sender: TObject);
begin
DM.PostavwikTable.First
end;
procedure TMainForm.ToolButton82Click(Sender: TObject);
begin
DM.PostavwikTable.Prior
end;
procedure TMainForm.ToolButton83Click(Sender: TObject);
begin
DM.PostavwikTable.Next
end;
procedure TMainForm.ToolButton84Click(Sender: TObject);
begin
DM.PostavwikTable.Last
end;
procedure TMainForm.ToolButton86Click(Sender: TObject);
begin
PostavwikForm.Caption
PostavwikForm.Show
end;
procedure TMainForm.ToolButton87Click(Sender: TObject);
begin
PostavwikForm.Caption :=
DM.PostavwikTable.Insert;
PostavwikForm.Show
end;
procedure TMainForm.ToolButton88Click(Sender: TObject);
begin
if Application.MessageBox(PChar
'Внимание!!!',MB_OKCANCEL)=id_OK then
DM.PostavwikTable.Delete
end;
procedure TMainForm.N9Click(Sender: TObject);
begin
PageControl1.Visible := true;
PageControl1.Pages[6].Visible := true;
PageControl1.Pages[6].TabVisible := true;
PageControl1.ActivePageIndex := 6;
end;
procedure TMainForm.ToolButton90Click(Sender: TObject);
begin
PageControl1.Pages[6].Visible := false;
PageControl1.Pages[6].TabVisible := false;
end;
procedure TMainForm.DateTimePicker2CloseUp(Sender: TObject);
begin
DM.PrixodNaklTable.Edit;
DM.PrixodNaklTable.FieldByName('date').AsVariant := DateTimePicker1.Date;
DM.PrixodNaklTable.Post
end;
procedure TMainForm.Button3Click(Sender: TObject);
begin
PostavwikListForm.Show;
end;
procedure TMainForm.Button4Click(Sender: TObject);
begin
FilialListForm.Label1.Caption := '3';
FilialListForm.Show;
end;
procedure TMainForm.N10Click(Sender: TObject);
begin
DateTimePicker2.Date := Today();
PageControl1.Visible := true;
PageControl1.Pages[5].Visible := true;
PageControl1.Pages[5].TabVisible := true;
PageControl1.ActivePageIndex := 5;
end;
procedure TMainForm.ToolButton71Click(Sender: TObject);
begin
DM.PrixodNaklTable.First
end;
procedure TMainForm.ToolButton72Click(Sender: TObject);
begin
DM.PrixodNaklTable.Prior
end;
procedure TMainForm.ToolButton73Click(Sender: TObject);
begin
DM.PrixodNaklTable.Next
end;
procedure TMainForm.ToolButton74Click(Sender: TObject);
begin
DM.PrixodNaklTable.Last
end;
procedure TMainForm.ToolButton76Click(Sender: TObject);
begin
TovarListForm.Caption :=
TovarListForm.Label2.Caption := DM.SaleTable.FieldByName('key_chek').AsString;
TovarListForm.DBEdit2.Visible := true;
TovarListForm.DBEdit1.Visible := false;
TovarListForm.DBEdit3.Visible := false;
TovarListForm.Label3.Caption := '2';
TovarListForm.Show
end;
procedure TMainForm.ToolButton77Click(Sender: TObject);
begin
DM.PrixodNakl2Table.Insert;
TovarListForm.Caption
TovarListForm.DBEdit2.Visible := true;
TovarListForm.DBEdit1.Visible := false;
TovarListForm.DBEdit3.Visible := false;
TovarListForm.Label3.Caption := '2';
TovarListForm.Show
end;
procedure TMainForm.BitBtn3Click(Sender: TObject);
var
n,m,j:integer;
k,s,s2 : string;
begin
DM.FilialTable.Filtered := false;
DM.FilialTable.Filter := 'Filial='''+DM.PrixodNaklTable.FieldByName('kuda').AsString +'''';
DM.FilialTable.Filtered := true;
m := DM.FilialTable.FieldByName('key_filial').AsInteger;
DM.PrixodNakl2Table.First;
repeat
DM.XranenieTable.Filtered := false;
DM.XranenieTable.Filter := 'key_filial='''+IntToStr(m) +''''+
' and key_tovar='''+DM.PrixodNakl2Table.FieldByName('key_tovar').AsString +'''';
DM.XranenieTable.Filtered := true;
if not DM.XranenieTable.Eof then
begin
DM.XranenieTable.Edit;
DM.XranenieTable.FieldByName('count').AsInteger := DM.XranenieTable.FieldByName('count').AsInteger + DM.PrixodNakl2Table.FieldByName('count').AsInteger;
DM.XranenieTable.Post;
end
else
begin
DM.XranenieTable.Filtered := false;
DM.TovarTable.Filtered := false;
DM.TovarTable.Filter := 'key_tovara='''+ DM.PrixodNakl2Table.FieldByName('key_tovar').AsString +'''';
DM.TovarTable.Filtered := true;
n := DM.TovarTable.FieldByName('key_group').AsInteger;
DM.TovarTable.Filtered := false;
DM.Xranenie1Table.Filtered := false;
DM.Xranenie1Table.Filter := 'key_filial'''+IntToStr(m) +'''';
{ DM.Xranenie1Table.Filtered := true;
j := DM.Xranenie1Table.FieldByName('key_xranenie').AsInteger;
} DM.XranenieTable.Insert;
// DM.XranenieTable.FieldByName('key_xranenie').AsInteger := j;
DM.XranenieTable.FieldByName('key_filial').AsInteger := m;
DM.XranenieTable.FieldByName('key_tovar').AsString := DM.PrixodNakl2Table.FieldByName('key_tovar').AsString;
DM.XranenieTable.FieldByName('key_group').AsInteger := n;
DM.XranenieTable.FieldByName('count').AsInteger := DM.PrixodNakl2Table.FieldByName('count').AsInteger;
DM.XranenieTable.Post;
DM.Xranenie2Table.Filtered := false;
DM.Xranenie2Table.Filter := 'key_group='''+IntToStr(n) + '''';
DM.Xranenie2Table.Filtered := true;
if DM.Xranenie2Table.Eof then
begin
DM.Xranenie2Table.Insert;
DM.Xranenie2Table.FieldByName('key_filial').AsInteger := m;
DM.Xranenie2Table.FieldByName('key_group').AsInteger := n;
DM.Xranenie2Table.Post;
end
end;
DM.PrixodNakl2Table.Next
until DM.PrixodNakl2Table.Eof;
n := 0;
m := 0;
DM.PrixodNakl2Table.First;
repeat
n := n + 1;
m := m + DM.PrixodNakl2Table.FieldByName('Сумма').AsInteger;
DM.PrixodNakl2Table.Next
until DM.PrixodNakl2Table.Eof;
DM.PrixodNaklTable.Edit;
DM.PrixodNaklTable.FieldByName('posicij').AsInteger := n;
DM.PrixodNaklTable.FieldByName('summa').AsInteger := m;
DM.PrixodNaklTable.Post;
DM.FilialTable.Filtered := false;
DM.XranenieTable.Filtered := false;
end;
procedure TMainForm.BitBtn4Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
k,i: integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Application.EnableEvents := false;
XLApp.Workbooks[1].WorkSheets[1].Name
Sheet:=XLApp.Workbooks[1].WorkSheets
Sheet.Cells[1,3]:=
Sheet.Cells[3,3]:= № '+ IntToStr(DM.PrixodNaklTable.FieldByName('key_nakl').AsInteger);
Sheet.Cells[4,1]:=' от '+ DateToStr(DM.PrixodNaklTable.FieldByName('date').AsDateTime);
Sheet.Cells[6,1]:= ' + DM.PrixodNaklTable.FieldByName('otkuda').AsString;
Sheet.Cells[7,1]:= ' + DM.PrixodNaklTable.FieldByName('kuda').AsString;
Sheet.Cells[9,1]:='№';
Sheet.Cells[9,2]:=
Sheet.Cells[9,3]
Sheet.Cells[9,4]:
Sheet.Cells[9,5]:
Sheet.Cells[9,6]:;
Sheet.Cells[9,7]:
DM.PrixodNakl2Table.First;
k := 10;
i:=1;
repeat
Sheet.Cells[k,1]:= IntToStr(i);
Sheet.Cells[k,2]:=DM.PrixodNakl2Table.FieldByName('key_tovar').AsString;
Sheet.Cells[k,3]:=DM.PrixodNakl2Table.FieldByName('tovar').AsString;
Sheet.Cells[k,4]:=DM.PrixodNakl2Table.FieldByName('prise').AsInteger;
Sheet.Cells[k,5]:=DM.PrixodNakl2Table.FieldByName('count').AsInteger;
Sheet.Cells[k,6]:=DM.PrixodNakl2Table.FieldByName('Izmerenie').AsString;
Sheet.Cells[k,7]:=DM.PrixodNakl2Table.FieldByName('Сумма').AsInteger;
DM.PrixodNakl2Table.next;
k := k+1;
i := i+1
until DM.PrixodNakl2Table.eof;
Sheet.Cells[k+1,1] := 'Количество позиций: ' + IntToStr(DM.PrixodNaklTable.FieldByName('posicij').AsInteger);
Sheet.Cells[k+2,1] := 'Итого(Сумма): ' + IntToStr(DM.PrixodNaklTable.FieldByName('summa').AsInteger);
Sheet.Cells[k+4,1] := 'Отпустил';
Sheet.Cells[k+4,4] := 'Получил'
end;
procedure TMainForm.ToolButton38Click(Sender: TObject);
begin
if Application.MessageBox(PChar('Вы действительно желаете удалить данную запись?'),
'Внимание!!!',MB_OKCANCEL)=id_OK then
DM.XranenieTable.Delete
end;
procedure TMainForm.ToolButton6Click(Sender: TObject);
begin
DM.PeopleTable.First
end;
procedure TMainForm.ToolButton91Click(Sender: TObject);
begin
DM.PeopleTable.Prior
end;
procedure TMainForm.ToolButton92Click(Sender: TObject);
begin
DM.PeopleTable.Next
end;
procedure TMainForm.ToolButton93Click(Sender: TObject);
begin
DM.PeopleTable.Last
end;
procedure TMainForm.ToolButton95Click(Sender: TObject);
begin
PeopleForm.Caption := 'Редактирование сотрудника';
PeopleForm.Show
end;
procedure TMainForm.ToolButton96Click(Sender: TObject);
begin
PeopleForm.Caption := 'Редактирование сотрудника';
DM.PeopleTable.Insert;
PeopleForm.Show
end;
procedure TMainForm.ToolButton97Click(Sender: TObject);
begin
if Application.MessageBox(PChar('Вы действительно желаете удалить данную запись?'),
'Внимание!!!',MB_OKCANCEL)=id_OK then
DM.PeopleTable.Delete
end;
procedure TMainForm.ToolButton99Click(Sender: TObject);
begin
PageControl1.Pages[7].Visible := false;
PageControl1.Pages[7].TabVisible := false;
end;
procedure TMainForm.ToolButton110Click(Sender: TObject);
begin
DM.Sale2Table.First
end;
procedure TMainForm.ToolButton101Click(Sender: TObject);
begin
DM.SaleTable.Prior
end;
procedure TMainForm.ToolButton102Click(Sender: TObject);
begin
DM.SaleTable.Next
end;
procedure TMainForm.ToolButton103Click(Sender: TObject);
begin
DM.SaleTable.Last
end;
procedure TMainForm.ToolButton105Click(Sender: TObject);
begin
DM.SaleTable.Edit
end;
procedure TMainForm.ToolButton106Click(Sender: TObject);
begin
DM.SaleTable.Insert
end;
procedure TMainForm.ToolButton107Click(Sender: TObject);
begin
if Application.MessageBox(PChar('Вы действительно желаете удалить данную запись?'),
'Внимание!!!',MB_OKCANCEL)=id_OK then
begin
DM.SaleTable.Delete;
DM.Sale2Table.Filtered := false;
DM.Sale2Table.Filter := 'key_chek='''+ IntToStr(DM.SaleTable.FieldByName('key_chek').AsInteger)+'''';
DM.Sale2Table.Filtered := true;
DM.Sale2Table.First;
while not DM.Sale2Table.Eof do
begin
DM.Sale2Table.Delete
end;
DM.Sale2Table.Filtered := false;
end
end;
procedure TMainForm.ToolButton109Click(Sender: TObject);
begin
PageControl1.Pages[8].Visible := false;
PageControl1.Pages[8].TabVisible := false;
end;
procedure TMainForm.ToolButton100Click(Sender: TObject);
begin
DM.SaleTable.First
end;
procedure TMainForm.ToolButton111Click(Sender: TObject);
begin
DM.Sale2Table.Prior
end;
procedure TMainForm.ToolButton112Click(Sender: TObject);
begin
DM.Sale2Table.Next
end;
procedure TMainForm.ToolButton113Click(Sender: TObject);
begin
DM.Sale2Table.Last
end;
procedure TMainForm.ToolButton115Click(Sender: TObject);
begin
TovarListForm.Caption := 'Редактирование списка товаров';
TovarListForm.Label2.Caption := DM.SaleTable.FieldByName('key_chek').AsString;
TovarListForm.DBEdit2.Visible := false;
TovarListForm.DBEdit1.Visible := false;
TovarListForm.DBEdit3.Visible := true;
TovarListForm.Label3.Caption := '3';
TovarListForm.Show
end;
procedure TMainForm.ToolButton116Click(Sender: TObject);
begin
DM.Sale2Table.Insert;
TovarListForm.Caption := 'Добавление списка товаров';
TovarListForm.Label2.Caption := DM.SaleTable.FieldByName('key_chek').AsString;
TovarListForm.DBEdit2.Visible := false;
TovarListForm.DBEdit1.Visible := false;
TovarListForm.DBEdit3.Visible := true;
TovarListForm.Label3.Caption := '3';
TovarListForm.Show
end;
procedure TMainForm.ToolButton117Click(Sender: TObject);
begin
if Application.MessageBox(PChar('Вы действительно желаете удалить данную запись?'),
'Внимание!!!',MB_OKCANCEL)=id_OK then
DM.Sale2Table.Delete
end;
procedure TMainForm.BitBtn5Click(Sender: TObject);
var
n,m,j:integer;
k,s,s2 : string;
begin
DM.FilialTable.Filtered := false;
DM.FilialTable.Filter := 'Filial='''+DM.SaleTable.FieldByName('otkuda').AsString +'''';
DM.FilialTable.Filtered := true;
n := DM.FilialTable.FieldByName('key_filial').AsInteger;
DM.FilialTable.Filtered := false;
DM.Sale2Table.First;
repeat
k := DM.Sale2Table.FieldByName('key_tovar').AsString;
s := 'key_filial='''+IntToStr(n) +'''';
s2 := s + ' and key_tovar='''+ k +'''';
DM.XranenieTable.Filtered := false;
DM.XranenieTable.Filter := s2;
DM.XranenieTable.Filtered := true;
DM.XranenieTable.Edit;
DM.XranenieTable.FieldByName('count').AsInteger := DM.XranenieTable.FieldByName('count').AsInteger - DM.Sale2Table.FieldByName('count').AsInteger;
DM.XranenieTable.Post;
DM.Sale2Table.Next;
until DM.Sale2Table.Eof;
n := 0;
m := 0;
DM.Sale2Table.First;
repeat
n := n + 1;
m := m + DM.Sale2Table.FieldByName('Сумма').AsInteger;
DM.Sale2Table.Next
until DM.Sale2Table.Eof;
DM.SaleTable.Edit;
DM.SaleTable.FieldByName('posicij').AsInteger := n;
DM.SaleTable.FieldByName('summa').AsInteger := m;
DM.SaleTable.Post;
DM.FilialTable.Filtered := false;
DM.XranenieTable.Filtered := false;
end;
procedure TMainForm.N11Click(Sender: TObject);
begin
DateTimePicker3.Date := Today();
PageControl1.Visible := true;
PageControl1.Pages[8].Visible := true;
PageControl1.Pages[8].TabVisible := true;
PageControl1.ActivePageIndex := 8;
end;
procedure TMainForm.Button6Click(Sender: TObject);
begin
FilialListForm.Label1.Caption := '4';
FilialListForm.Show;
end;
procedure TMainForm.Button5Click(Sender: TObject);
begin
DM.PeopleTable.Filtered := false;
DM.PeopleTable.Filter := 'key_filial='''+ IntToStr(DM.SaleTable.FieldByName('otkuda').AsInteger) +'''';
DM.PeopleTable.Filtered := true;
PeopleListForm.Show
end;
procedure TMainForm.BitBtn6Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
k,i: integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Application.EnableEvents := false;
XLApp.Workbooks[1].WorkSheets[1].Name:='Чек';
Sheet:=XLApp.Workbooks[1].WorkSheets['Чек'];
Sheet.Cells[1,3]:='Сеть магазинов "Мегаспорт"';
Sheet.Cells[3,3]:='Чек № '+ IntToStr(DM.SaleTable.FieldByName('key_chek').AsInteger);
Sheet.Cells[4,1]:=' от '+ DateToStr(DM.SaleTable.FieldByName('date').AsDateTime);
Sheet.Cells[6,1]:='Филиал: ' + DM.SaleTable.FieldByName('otkuda').AsString;
Sheet.Cells[7,1]:= DM.SaleTable.FieldByName('dolzhnost').AsString + ': '+ DM.SaleTable.FieldByName('ФИО_сотрудника').AsString;
Sheet.Cells[9,1]:='№';
Sheet.Cells[9,2]:='Артикул товара';
Sheet.Cells[9,3]:='Наименование товара';
Sheet.Cells[9,4]:='Цена';
Sheet.Cells[9,5]:='Количество';
Sheet.Cells[9,6]:='Единица измерения';
Sheet.Cells[9,7]:='Сумма';
DM.Sale2Table.First;
k := 10;
i:=1;
repeat
Sheet.Cells[k,1]:= IntToStr(i);
Sheet.Cells[k,2]:=DM.Sale2Table.FieldByName('key_tovar').AsString;
Sheet.Cells[k,3]:=DM.Sale2Table.FieldByName('tovar').AsString;
Sheet.Cells[k,4]:=DM.Sale2Table.FieldByName('prise').AsInteger;
Sheet.Cells[k,5]:=DM.Sale2Table.FieldByName('count').AsInteger;
Sheet.Cells[k,6]:=DM.Sale2Table.FieldByName('Izmerenie').AsString;
Sheet.Cells[k,7]:=DM.Sale2Table.FieldByName('Сумма').AsInteger;
DM.Sale2Table.next;
k := k+1;
i := i+1
until DM.Sale2Table.eof;
Sheet.Cells[k+1,1] := 'Количество позиций: ' + IntToStr(DM.SaleTable.FieldByName('posicij').AsInteger);
Sheet.Cells[k+2,1] := 'Итого(Сумма): ' + IntToStr(DM.SaleTable.FieldByName('summa').AsInteger);
Sheet.Cells[k+4,1] := 'Отпустил';
Sheet.Cells[k+4,4] := 'Получил'
end;
procedure TMainForm.DateTimePicker3CloseUp(Sender: TObject);
begin
DM.SaleTable.Edit;
DM.SaleTable.FieldByName('date').AsVariant := DateTimePicker3.Date;
DM.SaleTable.Post
end;
procedure TMainForm.N12Click(Sender: TObject);
begin
Close
end;
end.
unit DMSport;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
ADOConnection1: TADOConnection;
GroupTovarTable: TADOTable;
TovarTable: TADOTable;
GroupTovarSource: TDataSource;
TovarSource: TDataSource;
GroupTovarTablekey_group: TAutoIncField;
GroupTovarTablegroup: TWideStringField;
TovarTablekey_tovara: TWideStringField;
TovarTabletovar: TWideStringField;
TovarTablekey_group: TIntegerField;
TovarTableprise: TBCDField;
TovarTableField: TStringField;
FilialTable: TADOTable;
FilialSource: TDataSource;
FilialTablekey_filial: TAutoIncField;
FilialTableFilial: TWideStringField;
FilialTableAdres: TWideStringField;
FilialTablePhone: TWideStringField;
Xranenie1Table: TADOTable;
Xranenie1Source: TDataSource;
Xranenie1Tablekey_xranenie: TAutoIncField;
Xranenie1Tablekey_filial: TIntegerField;
Xranenie1TableField: TStringField;
Xranenie3Table: TADOTable;
Xranenie3Source: TDataSource;
Xranenie2Table: TADOTable;
Xranenie2Source: TDataSource;
Xranenie2Tablekey_group: TIntegerField;
Xranenie2TableField: TStringField;
Xranenie3Tablekey_tovar: TWideStringField;
Xranenie3Tablecount: TIntegerField;
Xranenie2Tablekey_filial: TIntegerField;
Xranenie3Tablekey_group: TIntegerField;
TovarSource2: TDataSource;
TovarTable2: TADOTable;
WideStringField1: TWideStringField;
WideStringField2: TWideStringField;
IntegerField1: TIntegerField;
BCDField1: TBCDField;
Xranenie3TableField: TStringField;
Prixod1Table: TADOTable;
Prixod2Table: TADOTable;
Prixod1Tablekey_nakl: TAutoIncField;
Prixod1Tabledate: TDateTimeField;
Prixod1Tableposicij: TIntegerField;
Prixod1Tablesumma: TIntegerField;
Prixod2Tablecount: TIntegerField;
Prixod1Source: TDataSource;
Prixod2Source: TDataSource;
Prixod2Tableprise: TIntegerField;
Prixod2TableField2: TIntegerField;
TovarTableIzmerenie: TWideStringField;
Prixod2TableIzmerenie: TWideStringField;
Prixod1Tableotkuda: TWideStringField;
Prixod1Tablekuda: TWideStringField;
Prixod2Tablekey_nakl: TIntegerField;
Prixod2Tabletovar: TWideStringField;
Prixod2Tablekey_tovar: TWideStringField;
XranenieTable: TADOTable;
XranenieSource: TDataSource;
XranenieTablekey_xranenie: TIntegerField;
XranenieTablekey_filial: TIntegerField;
XranenieTablekey_group: TIntegerField;
XranenieTablekey_tovar: TWideStringField;
XranenieTablecount: TIntegerField;
XranenieTableField: TStringField;
PostavwikTable: TADOTable;
PostavwikSource: TDataSource;
PostavwikTablekey_postavwik: TAutoIncField;
PostavwikTablePostavwik: TWideStringField;
PostavwikTableAdres: TWideStringField;
PostavwikTablePhone: TWideStringField;
PrixodNaklTable: TADOTable;
AutoIncField1: TAutoIncField;
DateTimeField1: TDateTimeField;
WideStringField3: TWideStringField;
WideStringField4: TWideStringField;
IntegerField2: TIntegerField;
IntegerField3: TIntegerField;
PrixodNakl2Source: TDataSource;
PrixodNaklSource: TDataSource;
PrixodNakl2Table: TADOTable;
PrixodNakl2Tablekey_nakl: TIntegerField;
PrixodNakl2Tablekey_tovar: TWideStringField;
PrixodNakl2Tabletovar: TWideStringField;
PrixodNakl2Tableprise: TIntegerField;
PrixodNakl2TableIzmerenie: TWideStringField;
PrixodNakl2Tablecount: TIntegerField;
PrixodNakl2TableField: TIntegerField;
PeopleTable: TADOTable;
PeopleSource: TDataSource;
PeopleTablekey_people: TAutoIncField;
PeopleTableFIO_people: TWideStringField;
PeopleTabledolzhnost: TWideStringField;
PeopleTableAdres: TWideStringField;
PeopleTablePhone: TWideStringField;
PeopleTablekey_filial: TIntegerField;
PeopleTableField: TStringField;
SaleTable: TADOTable;
Sale2Table: TADOTable;
SaleSource: TDataSource;
Sale2Source: TDataSource;
SaleTablekey_chek: TAutoIncField;
SaleTabledate: TDateTimeField;
SaleTablekey_people: TIntegerField;
SaleTabledolzhnost: TWideStringField;
SaleTableposicij: TIntegerField;
SaleTablesumma: TIntegerField;
Sale2Tablekey_chek: TIntegerField;
Sale2Tablekey_tovar: TWideStringField;
Sale2Tabletovar: TWideStringField;
Sale2Tableprise: TIntegerField;
Sale2TableIzmerenie: TWideStringField;
Sale2Tablecount: TIntegerField;
SaleTable_: TStringField;
SaleTableotkuda: TIntegerField;
SaleTableField: TStringField;
Sale2TableField: TIntegerField;
procedure Prixod2TableCalcFields(DataSet: TDataSet);
procedure PrixodNakl2TableCalcFields(DataSet: TDataSet);
procedure Sale2TableCalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
{$R *.dfm}
procedure TDM.Prixod2TableCalcFields(DataSet: TDataSet);
begin
Prixod2TableField2.Value := Prixod2Tableprise.AsInteger * Prixod2Tablecount.AsInteger
end;
procedure TDM.PrixodNakl2TableCalcFields(DataSet: TDataSet);
begin
PrixodNakl2TableField.Value := PrixodNakl2Tableprise.AsInteger * PrixodNakl2Tablecount.AsInteger
end;
procedure TDM.Sale2TableCalcFields(DataSet: TDataSet);
begin
Sale2TableField.Value := Sale2Tableprise.AsInteger * Sale2Tablecount.AsInteger
end;
end.
unit FilialListUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;
type
TFilialListForm = class(TForm)
Panel1: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBGrid1: TDBGrid;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FilialListForm: TFilialListForm;
implementation
uses DMSport;
{$R *.dfm}
procedure TFilialListForm.BitBtn1Click(Sender: TObject);
begin
if Label1.Caption = '1' then
begin
DM.Prixod1Table.Edit;
DM.Prixod1Table.FieldByName('otkuda').AsString := DM.FilialTable.FieldByName('Filial').AsString;
DM.Prixod1Table.Post;
end
else
if Label1.Caption='2' then
begin
DM.Prixod1Table.Edit;
DM.Prixod1Table.FieldByName('kuda').AsString := DM.FilialTable.FieldByName('Filial').AsString;
DM.Prixod1Table.Post;
end
else
if Label1.Caption = '3' then
begin
DM.PrixodNaklTable.Edit;
DM.PrixodNaklTable.FieldByName('kuda').AsString := DM.FilialTable.FieldByName('Filial').AsString;
DM.PrixodNaklTable.Post;
end
else
if Label1.Caption = '4' then
begin
DM.SaleTable.Edit;
DM.SaleTable.FieldByName('otkuda').AsInteger := DM.FilialTable.FieldByName('key_filial').AsInteger;
DM.SaleTable.Post;
end;
Close
end;
procedure TFilialListForm.BitBtn2Click(Sender: TObject);
begin
close
end;
end.
unit FilialUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls;
type
TFilialForm = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label4: TLabel;
DBEdit3: TDBEdit;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FilialForm: TFilialForm;
implementation
uses DMSport;
{$R *.dfm}
procedure TFilialForm.BitBtn1Click(Sender: TObject);
begin
if DM.FilialTable.Modified then
DM.FilialTable.Post;
DM.Xranenie1Table.Insert;
DM.Xranenie1Table.FieldByName('key_filial').AsInteger := DM.FilialTable.FieldByName('key_filial').AsInteger;
if DM.Xranenie1Table.Modified then
DM.Xranenie1Table.Post;
Close
end;
procedure TFilialForm.BitBtn2Click(Sender: TObject);
begin
Close
end;
end.
unit PeopleListUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;
type
TPeopleListForm = class(TForm)
Panel1: TPanel;
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBGrid1: TDBGrid;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
PeopleListForm: TPeopleListForm;
implementation
uses DMSport;
{$R *.dfm}
procedure TPeopleListForm.BitBtn1Click(Sender: TObject);
begin
DM.SaleTable.Edit;
DM.SaleTable.FieldByName('key_people').AsInteger := DM.PeopleTable.FieldByName('key_people').AsInteger;
Подобные документы
Системы управления базами данных. Разработка основной программы и вспомогательного программного обеспечения по учету товаров в коммерческой фирме по продаже аудиотехники. Комплекс программ и средств взаимодействия с электронной вычислительной машиной.
курсовая работа [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
