Проектирование приложения для автоматизации учёта товаров на складе торгового предприятия
25
СОДЕРЖАНИЕ
|
Введение …………………………………………………………….............................................
|
4
|
- Описание предметной области……………………………………………………………...
|
5
|
- Формализация предметной области…………………………………………………………
|
7
|
- Описание общей структуры информационной системы…………………………………...
|
9
|
- Описание интерфейса пользователя…………………………………………………………
|
12
|
- Описание методов работы в информационной системе……………………………………
|
14
|
|
Заключение…………………………………………………………...……………….………….
|
15
|
|
Список использованных источников…………………………………………………………....
|
16
|
|
Приложения………………………………………………………………………………………
|
17
|
ВВЕДЕНИЕ
В условиях относительной неопределенности в налоговой сфере предприятие может сильно пострадать или даже потерпеть крах, и всего лишь из-за небрежности в бухгалтерском учете. Примеров тому в России очень много, причем часто страдают предприятия, стремящиеся работать честно. Страдают из-за небрежного ведения внутренней бухгалтерии предприятия. Страдают также из-за незнания и соответственно невыполнения последних законов и распоряжений (а они принимаются сплошь и рядом). При ведении бухгалтерского учета вручную возможны и простейшие арифметические ошибки.
Чем же может помочь российскому бухгалтеру компьютер? Безусловно, компьютерная программа не заменит грамотного бухгалтера, но позволит сэкономить его время и силы за счет автоматизации рутинных операций, найти арифметические ошибки в учете и отчетности, оценить текущее финансовое положение предприятия и его перспективы.
- Описание предметной области
Ст. 14 Закон РБ О бухучете от 12 июля 2013 г. № 57-З
1. Организация должна составлять годовую отчетность, а в случаях, предусмотренных законодательством Республики Беларусь, – промежуточную (квартальную, месячную) отчетность.
2. Отчетным периодом для годовой отчетности является календарный год – с 1 января по 31 декабря, за исключением случаев создания, реорганизации или ликвидации организации.
Отчетным периодом для промежуточной отчетности является период с 1 января по отчетную дату периода, за который составляется промежуточная отчетность, за исключением случаев создания, реорганизации или ликвидации организации.
При создании организации первым отчетным периодом для годовой отчетности является период с даты ее государственной регистрации по 31 декабря, для промежуточной отчетности – с даты ее государственной регистрации по отчетную дату периода, за который составляется промежуточная отчетность.
3. Отчетность составляется в официальной денежной единице Республики Беларусь.
4. Показатели отчетности должны быть тождественны данным синтетического и аналитического учета.
5. Отчетность организации подписывается (утверждается) ее руководителем и (или) иными лицами (органами), уполномоченными на то законодательством Республики Беларусь или учредительными документами этой организации.
6. Содержащаяся в отчетности организации информация не является коммерческой тайной, за исключением случаев, предусмотренных законодательством Республики Беларусь.
7. Индивидуальная отчетность составляется в:
организации, не являющейся учредителем унитарных предприятий, основным хозяйственным обществом по отношению к дочерним хозяйственным обществам;
организации, являющейся учредителем унитарных предприятий, основным хозяйственным обществом по отношению к дочерним хозяйственным обществам, – без учета отчетности ее унитарных предприятий, дочерних хозяйственных обществ;
организации, входящей в состав участников хозяйственной группы и (или) холдинга, – без учета отчетности юридических лиц, с которыми организация объединена в хозяйственную группу и (или) холдинг.
Консолидированная отчетность составляется по группе организаций (хозяйственной группе, холдингу, хозяйственному обществу и его унитарным предприятиям, дочерним и зависимым хозяйственным обществам, унитарному предприятию и его дочерним унитарным предприятиям) как отчетность единой организации.
Порядок составления индивидуальной и консолидированной отчетности устанавливается Министерством финансов Республики Беларусь (для Национального банка Республики Беларусь, банков, банковских групп, банковских холдингов, за исключением индивидуальной отчетности головных организаций банковских холдингов, не являющихся банками, – Национальным банком Республики Беларусь).
8. Сводная отчетность составляется по группе организаций, подчиненных республиканскому органу государственного управления, или входящих в состав государственной организации, подчиненной Правительству Республики Беларусь, или входящих в состав государственного объединения, или по иной группе организаций, предусмотренной законодательством Республики Беларусь.
Порядок составления сводной отчетности устанавливается Министерством финансов Республики Беларусь.
9. Особенности составления и представления отчетности при реорганизации или ликвидации организации устанавливаются Министерством финансов Республики Беларусь (для банков – Национальным банком Республики Беларусь).
2.Формализация предметной области
Факт совершения хозяйственной операции подтверждается первичным учетным документом, имеющим юридическую силу, который составляется ответственным исполнителем совместно с другими участниками операции.
Первичные учетные документы принимаются к учету, если они составлены по типовым формам, утвержденным Министерством финансов Республики Беларусь (для Национального банка республики Беларусь, банков — Национальным банком Республики Беларусь), по формам, утвержденным республиканскими органами государственного управления, подчиненными Совету Министров Республики Беларусь, осуществляющими методологическое руководство бухгалтерским учетом и отчетностью организаций.
При отсутствии утвержденных, типовых форм или недостатке содержащейся в них информации организация принимает к учету самостоятельно разработанные и утвержденные первичные учетные документы, которые должны содержать следующие обязательные реквизиты:
• наименование, номер документа, дату и место его составления;
• содержание и основание совершения хозяйственной операции, ее измерение и оценку в натуральных, количественных и денежных показателях;
• должности лиц, ответственных за совершение хозяйственной операции и правильность ее оформления, их фамилии, инициалы и личные подписи.
В зависимости от характера хозяйственных операции и системы обработки данных в первичные учетные документы могут включаться дополнительные реквизиты.
Перечень лиц, имеющих право подписи первичных учетных документов, должен быть согласован с главным бухгалтером и утвержден руководителем организации.
Документы, которыми оформляются хозяйственные операции, связанные с поступлением или выплатой денежных средств, подписываются руководителем организации и главным бухгалтером или уполномоченными ими на то лицами.
Первичный учетный документ должен быть составлен в момент совершения операции, а если это не представляется возможным, — непосредственно после ее совершения.
Лица, составившие и подписавшие первичные учетные документы, обеспечивают своевременное и качественное оформление этих документов, передачу их в установленные сроки для отражения в бухгалтерском учете, а также достоверность содержащихся в них данных.
В первичных учетных документах стирание записей и неоговоренные исправления не допускаются. Неправильные записи в первичных учетных документах исправляются путем их зачеркивания и надписи правильных. Внесение исправлений в кассовые банковские документы не допускается.
Первичные учетные документы, составленные на иных языках (кроме русского и белорусского), должны иметь подстрочный перевод на русский или белорусский язык.
Первичные учетные документы могут составляться на бумажных и машинных носителях информации. Если первичные учетные документы составляются на машинных носителях информации, организация обязана изготавливать за свой счет копии таких документов на бумажных носителях для других участников хозяйственных операций, а также по требованию государственных органов, осуществляющих контроль в соответствии с законодательством Республики Беларусь, суда и прокуратуры.
Программы кодирования, идентификации и машинной обработки данных первичных учетных документов на машинных носителях информации должны храниться в организации в течение срока, установленного для хранения первичных учетных документов на бумажных носителях, и обладать системой защиты.
Первичные учетные документы могут быть изъяты органами, которым в порядке, установленном законодательством Республики Беларусь, предоставлены соответствующие полномочия.
Главный бухгалтер или другое должностное лицо организации вправе в присутствии представителя органа, проводящего изъятие первичных учетных документов, снять с этих документов копии, а также с документа, являющегося основанием для изъятия документов. Изъятие документов оформляется актом с указанием даты изъятия
На рисунке 2.1 показана информационная логическая модель разрабатываемого программного средства.
Рисунок 2.1 – Информационная логическая модель.
- Описание общей структуры информационной системы
Логическая структура реляционной базы данных является адекватным отображением полученной информационно-логической модели, не требующим дополнительных преобразований. Каждый информационный объект модели данных отображается соответствующей реляционной таблицей. Структура реляционной таблицы определяется реквизитным составом соответствующего информационного объекта, где каждый столбец (поле) соответствует одному из реквизитов объекта. Ключевые реквизиты объекта образуют уникальный ключ реляционной таблицы. Для каждого столбца задается формат и размер данных. Строки (записи) таблицы соответствуют экземплярам объекта и формируются при загрузке таблицы.
Связи между объектами модели данных реализуются одинаковыми реквизитами – ключами связи в соответствующих таблицах. При этом ключом связи всегда является уникальный ключ главной таблицы. Ключом связи в подчиненной таблице является либо некоторая часть уникального ключа в ней, либо поле, не входящее в состав первичного ключа. Ключ связи в подчиненной таблице называется внешним ключом.
В базах данных, может быть создана схема данных, наглядно отображающая логическую структуру базы данных. Определение одно-многозначных связей в этой схеме должно осуществляться в соответствии с построенной моделью данных. Внешний вид схемы данных практически совпадает с графическим представлением информационно-логической модели.
Логическая модель реляционной базы данных представлена в рисунке 3.1.
Рисунок 3.1 – Логическая модель базы данных
Структура таблицы «PrihodRashod» представлена в таблице 3.1.
Таблица 3.1 – Структура таблицы «PrihodRashod»
|
Название поля
|
Название поля в БД
|
Тип поля в БД
|
|
Код записи
|
Id_operacii
|
Integer, not null, identity(1,1), primary key
|
|
Код Операции
|
KodOperacii
|
Integer
|
|
Дата
|
Data
|
DateTime
|
|
Код поставщика
|
KodPostavs4ika
|
Integer
|
|
Код Склада
|
KodSklada
|
Integer
|
Структура таблицы «ostatok» представлена в таблице 3.2.
Таблица 3.2 – Структура таблицы «ostatok»
|
Название поля
|
Название поля в БД
|
Тип поля в БД
|
|
Код записи
|
KodTovara
|
Integer, not null, identity(1,1), primary key
|
|
Код склада
|
KodSklada
|
Integer
|
|
Дата
|
Data
|
DateTime
|
|
Остаток
|
Ostatok
|
Integer
|
|
Приход
|
pr
|
Integer
|
Структура таблицы «sotrudniki» представлена в таблице 3.3.
Таблица 3.3 – Структура таблицы «sotrudniki»
|
Название поля
|
Название поля в БД
|
Тип поля в БД
|
|
Код
|
KodSotrudnika
|
Integer, not null, identity(1,1), primary key
|
|
ФИО
|
fio
|
Varchar(255)
|
|
Должность
|
Dolznost
|
Varchar(255)
|
|
Телефон
|
telefon
|
Varchar(255)
|
Структура таблицы «sklad» представлена в таблице 3.4.
Таблица 3.4 – Структура таблицы «sklad»
|
Название поля
|
Название поля в БД
|
Тип поля в БД
|
|
Код
|
Kodsklada
|
Integer, not null, identity(1,1), primary key
|
|
Название склада
|
NazvanieSkalada
|
Varchar(255)
|
|
Код сотрудника
|
KodSotrudnica
|
Integer
|
Структура таблицы «tovar» представлена в таблице 3.5.
Таблица 3.5 – Структура таблицы «tovar»
|
Название поля
|
Название поля в БД
|
Тип поля в БД
|
|
Код
|
KodTovara
|
Integer, not null, identity(1,1), primary key
|
|
Название
|
nazvtovara
|
Varchar(255)
|
|
Цена
|
cena
|
Integer
|
Структура таблицы «operacii» представлена в таблице 3.6.
Таблица 3.6 – Структура таблицы «operacii»
|
Название поля
|
Название поля в БД
|
Тип поля в БД
|
|
Код
|
KodOperacii
|
Integer, not null, identity(1,1), primary key
|
|
Название
|
nazvanieoperacii
|
Varchar(255)
|
Структура таблицы «postavsciki» представлена в таблице 3.7.
Таблица 3.7 – Структура таблицы «postavsciki»
|
Название поля
|
Название поля в БД
|
Тип поля в БД
|
|
Код
|
Kodpostavcika
|
Integer, not null, identity(1,1), primary key
|
|
Название
|
nazvanie
|
Varchar(255)
|
- Описание интерфейса пользователя
Пользовательский интерфейс это среда, обеспечивающая взаимодействие пользователя и программного обеспечения. Пользовательский интерфейс – это то, с чем человек может работать непосредственно (т.е. интерфейс через экран, клавиатуру, мышь и т.д.).
Программа состоит из восьми независимых, но схожих форм.
При запуске приложения появляется главная форма «Приветствие» (рис 4.1), с которой осуществляется переход на остальные формы.
Рисунок 4.1 – Форма «Приветствие».
В программе присутствуют четыре справочника: поставщиков, сотрудников, товаров и складов. На рисунке 4.2 представлен справочник сотрудников. Остальные справочники выглядят
аналогично.
Рисунок 4.2 – Справочник поставщиков.
Операции прихода и выбытия товаров осуществляются на формах «Приход» и «Расход» соответственно. На рисунке 4.5 изображена форма «Приход».
Рисунок 4.5 – Приход товаров.
Пример оборотно-сальдовой ведомости по субконто представлен на рисунке 4.6.
Рисунок 4.6 – Оборотно-сальдовая ведомость по субконто
- Описание методов работы с информационной системой
После запуска приложения будет открыта главная форма – форма «Приветствие».
Отсюда, используя элементы главного меню, можно перемещаться на любую другую форму для выполнения интересующих операций.
Для работы со справочниками необходимо выбрать пункт меню «Справочники» и затем выбрать интересующий справочник. После этого откроется соответствующую форма. В верхней части формы находится таблица, в которой отображаются все содержащиеся на текущий момент записи. В нижней части расположена панель инструментов, с помощью которой можно осуществлять все типовые операции над справочником – добавлять, удалять, редактировать информацию. Все справочники имеют схожий и интерфейс и работа с ними осуществляется аналогично вышеописанной.
Для фиксирования прихода или выбытия товара необходимо на главной форме выбрать пункт меню «Операции» и затем выбрать нужную операцию – приход или расход соответственно. Открывшаяся форма визуально разделена на две части. В верхней части – «накладные» – находится таблица, отображающая все товарно-транспортные накладные выбранной операции. С помощью панели инструментов под этой таблицей осуществляется добавление, редактирование и удаление товарно-транспортных накладных. При выборе какой-то конкретной записи этой таблицы в нижней части – «Товарная часть» – отображается список товаров данной накладной с указанием количества и стоимости. Под этой таблицей так же находится панель инструментов, с помощью которой осуществляются типовые операции над товарной частью. В главном меню форм «Приход» и «Расход» имеется кнопка «Печать», с помощью которой можно распечатать выбранную товарно-транспортную накладную.
Чтобы сформировать оборотно-сальдовую ведомость по субконто необходимо на главной форме выбрать пункт меню «Отчёт». На открывшейся форме указать диапазон дат, за который необходима ведомость и нажать «Сформировать». Открывшийся отчёт можно распечатать, нажав соответствующую кнопку меню.
Для выхода из программы необходимо воспользоваться кнопкой «Выход» на главной форме.
ЗАКЛЮЧЕНИЕ
В ходе выполнения данного курсового проекта была проанализирована предметная область и разработано приложение, позволяющее автоматизировать учёт товаров на складе торгового предприятия.
Программа разработана на языке программирования Paskal в среде программирования Delphi 7, так как данная IDE обладает всеми необходимыми средствами доступа к базам данных (технология ADO).
Полученный программный продукт нуждается в расширении функциональных возможностей и исправлении недочётов интерфейса, однако уже на данном этапе он полностью работоспособен и может быть использован торговыми предприятиями для решения вопроса автоматизации учёта товаров.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
- Ашарчук, Л.М. – Информационные системы в управлении, 2009.
- Норенков, И.П. - Основы автоматизированного проектирования: Учеб. Для вузов. – М.: Изд-во МГТУ им. Н. Э. Баумана, 2000. – 360 с. ил.
- Астафьева, В.А., Ковальчук Е.В. – Технологии автоматизированной обработки, 2006.
- Прохорова, Т.В. – Автоматизация учета в системе «1С Предприятие 7.7» для Республики Беларусь, 2006.
ПРИЛОЖЕНИЕ А
(обязательное)
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RpRave, RpCon, RpConDS, RpDefine, RpBase, RpSystem, DB, ADODB,
Menus, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
ADOConnection1: TADOConnection;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N5: TMenuItem;
N4: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N6: TMenuItem;
img1: TImage;
N10: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure img1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit5, Unit4, Unit7, Unit9, Unit11;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
Form2.ShowModal;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form7.ShowModal;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form9.ShowModal;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
form11.ShowModal;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
Close;
end;
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RpRave, RpCon, RpConDS, RpDefine, RpBase, RpSystem, DB, ADODB,
Menus, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
ADOConnection1: TADOConnection;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N5: TMenuItem;
N4: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N6: TMenuItem;
img1: TImage;
N10: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure img1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit5, Unit4, Unit7, Unit9, Unit11;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
Form2.ShowModal;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form7.ShowModal;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form9.ShowModal;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
form11.ShowModal;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
Close;
end;
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, StdCtrls, Mask, DBCtrls, Grids, DBGrids, DB, ExtCtrls;
type
TForm11 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
ADOTable4: TADOTable;
DBEdit5: TDBEdit;
ADOTable5: TADOTable;
DataSource2: TDataSource;
DataSource3: TDataSource;
DataSource4: TDataSource;
DataSource5: TDataSource;
DataSource6: TDataSource;
DataSource7: TDataSource;
ADOQuery2: TADOQuery;
DataSource8: TDataSource;
ADOTable6: TADOTable;
ADOTable7: TADOTable;
DataSource9: TDataSource;
DataSource10: TDataSource;
ADOTable8: TADOTable;
ADOTable9: TADOTable;
DataSource11: TDataSource;
DataSource12: TDataSource;
ADOTable10: TADOTable;
DBGrid2: TDBGrid;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
ADOQuery1IdOperacii: TAutoIncField;
ADOQuery1KodOperacii: TIntegerField;
ADOQuery1Data: TDateTimeField;
ADOQuery1KodTovara: TIntegerField;
ADOQuery1Koli4estvo: TIntegerField;
ADOQuery1KodPostavs4ika: TIntegerField;
ADOQuery1KodSklada: TIntegerField;
Label18: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Button6: TButton;
Label19: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
Button1: TButton;
procedure Button6Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
uses unit1;
{$R *.dfm}
procedure TForm11.Button6Click(Sender: TObject);
begin
adoquery1.Filter:='KodTovara='+quotedstr(DBLookupComboBox1.ListSource.DataSet.fieldbyname('KodTovara').AsString);
adoquery1.Filtered:=true;
end;
procedure TForm11.Button1Click(Sender: TObject);
begin
adoquery2.Filter:='KodTovara='+quotedstr(DBLookupComboBox2.ListSource.DataSet.fieldbyname('KodTovara').AsString);
adoquery2.Filtered:=true;
end;
end.
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, QuickRpt, QRCtrls;
type
TForm12 = class(TForm)
QuickRep1: TQuickRep;
QRStringsBand1: TQRStringsBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRSubDetail1: TQRSubDetail;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form12: TForm12;
implementation
uses unit7;
{$R *.dfm}
end.
unit Unit13;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Mask, DBCtrls, Buttons,
ComCtrls;
type
TForm13 = class(TForm)
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBLookupComboBox1: TDBLookupComboBox;
DBEdit1: TDBEdit;
DBLookupComboBox2: TDBLookupComboBox;
BitBtn1: TBitBtn;
DBLookupComboBox3: TDBLookupComboBox;
DateTimePicker1: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form13: TForm13;
implementation
uses Unit1, Unit4, Unit3, Unit7;
{$R *.dfm}
procedure TForm13.BitBtn1Click(Sender: TObject);
begin
adotable1.FieldByName('Data').AsDateTime:=DateTimePicker1.Date;
adotable1.Post;
end;
procedure TForm13.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8:
else key:=chr(0);
end;
end;
end.
unit Unit14;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, QRCtrls, ExtCtrls;
type
TForm14 = class(TForm)
QuickRep1: TQuickRep;
QRStringsBand1: TQRStringsBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRSubDetail1: TQRSubDetail;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form14: TForm14;
implementation
uses unit9;
{$R *.dfm}
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;
type
TForm2 = class(TForm)
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOTable1KodSotrudnika: TAutoIncField;
ADOTable1FIO: TWideStringField;
ADOTable1Dolznostb: TWideStringField;
ADOTable1Telafon: TWideStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses unit1;
{$R *.dfm}
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons;
type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBNavigator1: TDBNavigator;
ADOTable1KodTovara: TAutoIncField;
ADOTable1NazvanieTovara: TWideStringField;
ADOTable1Cena: TBCDField;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses unit1, Unit13;
{$R *.dfm}
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
form13.ADOTable1.Append;
form13.ShowModal;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, DB, ADODB, ExtCtrls, Grids, DBGrids;
type
TForm4 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
DataSource2: TDataSource;
GroupBox1: TGroupBox;
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
DBText1: TDBText;
DBText4: TDBText;
DBText5: TDBText;
ADOTable1KodSklada: TAutoIncField;
ADOTable1NazvanieSklada: TWideStringField;
ADOTable1KodSotrudnika: TIntegerField;
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses unit1, Unit6, Unit13;
{$R *.dfm}
procedure TForm4.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if button=nbInsert then
form6.ShowModal;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids;
type
TForm5 = class(TForm)
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
ADOTable1KodPostavs4ika: TAutoIncField;
ADOTable1NazvaniePostavs4ika: TWideStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses unit1;
{$R *.dfm}
end.
Проектирование приложения для автоматизации учёта товаров на складе торгового предприятия