Блок 24. Вывод подменю с пунктами:

4.1.1. Просмотр

4.1.2. Печать

Блок 25. Проверка выбора пункта 4.1.1. Просмотр, если да вывод предварительного просмотра на экран, если нет - блок 26.

Блок 26. Проверка выбора пункта 4.1.2. Печать, если да переход на блок 27, если нет - блок 22.

Блок 27. Формирование отчета, на основании таблиц Товары и Поступление.

Блок 28. Группировка данных по коду контрагента. Вывод Ведомости поступления на печать, переход на блок 24.

Блок 29. Проверка выбора пункта 4.2. Ведомость по реализации, если да переход на блок 30, если нет - блок 35.

Блок 30. Вывод подменю с пунктами:

4.2.1. Просмотр

4.2.2. Печать

Блок 31. Проверка выбора пункта 4.2.1. Просмотр, если да переход на просмотр Ведомости реализации, если нет - блок 32.

Блок 32. Проверка выбора пункта 4.2.2. Печать, если да переход на блок 33, если нет - блок 22

Блок 33. Формирование отчета на основании таблиц: Товары и Реализация.

Блок 34. Группировка реализованных товаров, по коду покупателя. Вывод Ведомости реализации на печать, переход на блок 30.

Блок 35. Проверка выбора пункта 4.3. Оборотно-сальдовая ведомость, если да переход на блок 36, если нет - блок 41.

Блок 36. Вывод подменю с пунктами:

4.3.1. Просмотр

4.3.2. Печать

Блок 37. Проверка выбора пункта 4.3.1. Просмотр, просмотр Оборотно-сальдовой ведомости.

Блок 38. Проверка выбора пункта 4.3.2. Печать, если да переход на блок 39, если нет - блок 22.

Блок 39. Формирование отчета на основании таблиц: Товары, Поступление и Реализация.

Блок 40. Группировка запрашиваемых данных по коду покупателя. Вывод Оборотно-сальдовой ведомости на печать, переход на блок 36.

Блок 41. Проверка выбора пункта 4.4. Ведомость прибыли, если да переход на блок 36, если нет - блок 47.

Блок 42. Вывод подменю с пунктами:

4.4.1. Просмотр

4.4.2. Печать

Блок 43. Проверка выбора пункта 4.4.1., если да переход на просмотр Ведомости прибыли, если нет - переход на блок 44.

Блок 44. Проверка выбора пункта 4.4.2. Печать, если да переход на блок 45, если нет - блок 22.

Блок 45. Формирование отчета на основании таблиц: Товары и Реализация.

Блок 46. Расчет суммы прибыли, как по отдельному товару, так и общую сумму по всем видам товаров. Вывод Ведомости прибыли на печать, переход на блок 42.

Блок 47. Проверка выбора пункта 4.5. Ведомость остатков, если да переход на блок 48, если нет - блок 1.

Блок 48. Вывод подменю с пунктами:

4.5.1. Просмотр

4.5.2. Печать

Блок 49. Проверка выбора пункта Просмотр, если да переход на просмотр Ведомости остатков, если нет - блок 50.

Блок 50. Проверка выбора пункта 4.5.2. Печать, если да переход на блок 51, если нет - блок 22.

Блок 51. Формирование отчета на основании таблиц: Товары, Поступление, Реализация и Остатки.

Блок 52. Формирование конечных остатков. Вывод Ведомости остатков на печать, переход на блок 48.

Блок 53. Проверка выбора пункта 5. Информация о программе главного меню, если да переход на просмотр, если нет - блок 54.

Блок 54. Проверка выбора пункта 6. Помощь главного меню, если да переход на просмотр, если нет - блок 55.

Блок 55. Проверка выбора пункта 7. Выход главного меню, если да переход на блок 56, если нет - блок 1.

Блок 56. Завершение работы с программой.

3.3 Инструкция по работе с системой

Для того чтобы запустить приложение нажмите . В открывшемся главном меню, вы можете изменить фоновую картинку по собственному желанию, нажав



В открывшемся окне выберите ту картинку, которая вам наиболее понравилась.

Также вы можете просмотреть информацию о программе, и получить помощь по работе с ней, нажав соответствующие кнопки.



Если вы выбрали пункт меню «Ввод данных», то вам предоставляется возможность выбора таблицы, которую вы хотите заполнить, или изменить.

Если вы выбрали пункт «Справочники», то в открывшемся окне вы сможете выбрать необходимый вам справочник, нажав на нужную вкладку.

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

Если же вы хотите заполнить учетные таблицы, такие как Поступление или Реализация, вам необходимо нажать «Ввод данных» - «Учетные» - и необходимую таблицу. Принцип работы с ними аналогичен. Для примера рассмотрим учетную таблицу Реализация.

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

Если же вам нужно получить данные по какому-то определенному товару, контрагенту, покупателю, количеству или дате поступления/реализации, выберите пункт «Фильтрация данных».

Для отмены вам необходимо выбрать «Отменить» и нажать кнопку Выполнить. Аналогично для таблицы Реализация.

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

Кнопка «Формирование остатков» позволит вам обновить количество поступивших и реализованных товаров. Кнопка «Остаток» произведет подсчет текущего остатка по каждому виду товара. Кнопка «Следующий месяц» перебросить данные из остатка текущего в остаток начальный, и произведет перерасчет текущего остатка. Кнопка «Обнулить поля» позволяет приравнять все поля таблицы к нолю.

Вкладка «Отчеты» позволит вам получить 5 различных отчетов (ведомостей), таких как:

1) Ведомость по поступлению.

2) Ведомость по реализации

3) Оборотно-сальдовая ведомость

4) Ведомость остатков

5) Ведомость прибыли

Для удобства и сокращения время вы можете напечатать отчет без предварительного просмотра, просто выбрав подпункт «Печатать». Если же вам необходимо просмотреть отчет, то выберите подпункт «Просмотр», из которого вы так же при необходимости сможете распечатать выбранный документ.

Для завершения заботы с приложением нажмите кнопку Выход.

4. РАСЧЕТ ТРУДОЕМКОСТИ И СТОИМОСТИ ОБРАБОТКИ ИНФОРМАЦИИ

Трудоёмкость решения задачи на компьютере складывается из трех составляющих:

- трудоёмкость ввода оперативной информации в ПК.

- трудоёмкость непосредственной обработки данных компьютером.

- трудоёмкость печати выходных документов.

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

Vвв. = 2 симв/сек (где Vвв. - скорость ввода);

Для операции внутренняя работа используется норматив t, норматив вычисления работ для перевода символов в машинные операции.

t = 500 опер/симв;

Kконтроля = 2 - коэффициент контроля);

Kнеравномерности = 1.3 (- коэффициент неравномерности);

Vвнутр. раб. = 1000000 опер/сек (где Vвнутр. раб. - скорость внутренней работы ПК);

При выводе информации на печать используется скорость вывода, которая зависит от типа принтера. Скорость вывода используемого мной принтера:

Vвыв. = 12 лист/мин.

Определение объёма работы и трудоёмкости по операции технологического процесса.

Для определения объема работ по операции ввод, заполним таблицу:

№ п/п	Наименование документа	Количество	Всего вводимых символов
		Заполнений документа	Строк в документе	Документо-строк	Вводимых символов
1	2	3	4	5	6	7
1.	Приходный ордер	30	9	270	20	5400
2.	Товарно-транспортная накладная	30	15	450	20	9000
3.	Счет-фактура	20	10	200	15	3000
4.	Товарная накладная	30	10	300	30	9000
5.	Договор	30	20	600	20	12000
					ИТОГО	38400

Qвв. = 38400

Определяем трудоёмкость по операции ввода.

Зная объём работы и скорость ввода, определим трудоёмкость по операции ввод:

tвв. = Qвв. / Vвв. = 38400симв. / (2симв/сек * 3600сек/час) = 5,33н/час;

Определяем объём работы для обработки данных непосредственно в ПК.

Он определяется количеством всех обрабатываемых символов, которые были введены с клавиатуры и которые определяются путем умножения количества символов в записи на количество записей в файле.

Qвнутр. = (Qвв. + Qспр1 + Qспр2 + … + Qспрn) * t * Kконтр * Kнеравн;

Qспр = длина записи * количество записей;

Qвнутр. = (38400 + 2585) * 500 опер/симв * 2 * 1.3 = 53280500опер.

Определяем трудоемкость внутренних операций:

tвнутр. = Qвнутр. / Vвнутр. раб. =

= опер. 53280500/ (1000000опер/сек * 3600сек/час) = 0,01час;

Определяем объем работы по операции печать выходных документов.

Для определения объема работ по операции вывод, заполним таблицу:

№ п/п	Наименование документа	Количество печатных листов	Периодичность получения	Всего печатных листов
1	2	3	4	5
1.	Ведомость поступления	2	30	60
2.	Ведомость реализации	2	30	60
3.	Оборотная ведомость	2	3	6
4.	Ведомость прибыли	1	1	1
5.	Ведомость остатков	1	1	1
			ИТОГО	128

Qвыв. = 128листов

Определяем трудоёмкость по операции вывод:

tвыв. = Qвыв. / Vвыв. =

=128 / (10листов/мин * 60мин/час) = 0,21н/час;

Определение общей трудоёмкости:

tобщ. = tвв. + tвнутр. + tвыв. =

= 5,33 + 0,01 + 0,21час = 5,55н/час;

Определяем стоимость решения задачи на ПК:

C = P * tобщ. (где P - стоимость 1часа работы ПК ? 250руб/час)

C = 250руб/час * 5,55час = 1387,5руб.

ЗАКЛЮЧЕНИЕ

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

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

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

3. общий показатель надежности ИС - концентрирует в себе ряд важных характеристик: частоту возникновения сбоев в техническом обеспечении; степень адекватности математических моделей; верификационную чистоту программ; относительный уровень достоверности информации; интегрированный показатель надежности эргономического обеспечения ИС.

Приложение «Учет товаров» предоставляет возможность регистрировать поступление и реализацию товаров. Также оно позволяет автоматически высчитывать сумму поступивших и реализованных товаров, при введенном количестве и цене товара. При добавлении новых записей в учетные таблицы нет необходимости запоминать коды, все можно выбрать из раскрывающегося списка.

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

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

Работа с отчетами полностью автоматизирована, то есть пользователь освобождается от работы по их составлению. Так же в главном меню программы, пользователь, для экономии времени, может сразу вывести необходимый документ на печать, без его предварительного просмотра.

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

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

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

1. А.Я. Архангельский «Приёмы программирования в Delphi на основе VCL», изд. «БИНОМ», 2006г.

2. Хомоненко А.Д, Гофман Д.Э. «Delphi 6», изд. «БХВ-Петербург», 2002г.

3. Хомоненко А.Д, Гофман Д.Э. «Delphi быстрый старт», изд. «БХВ-Петербург», 2001г.

4. Л.А.Гагарина, Д.В.Киселев, Е.Л.Федотова «Разработка и эксплуатация автоматизированных информационных систем» Учебное пособие, под редакцией профессора Л.А.Гагариной. Москва, издательство «Форум. Инфра-М», 2007 год, 384 страницы. (Профессиональное образование).

5. А.А.Шкрыль «Разработка клиент-серверных приложений в Delphi», Санкт-Петербург, БХВ - Петербург, 2006 год, 480 страниц.

6. Н.П. Кондраков «Бухгалтерский учёт», изд. «ИНФРА», 2003г.

7. В.М. Богаченко, Н.А. Кириллова «Бухгалтерский учёт», изд. «Феникс», 2007г.

ПРИЛОЖЕНИЯ

unit Unit1;

interface

uses

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

Dialogs, Menus, jpeg, ExtCtrls, ExtDlgs;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

Image1: TImage;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

Image2: TImage;

Image3: TImage;

Image4: TImage;

OpenPictureDialog1: TOpenPictureDialog;

G1: TMenuItem;

N24: TMenuItem;

N25: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,

Unit11, Unit12, Unit13, Unit14;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form6.ShowModal;

end;

procedure TForm1.N23Click(Sender: TObject);

begin

Form7.ShowModal;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Form8.Query1.Active:=false;

Form8.Query1.Active:=true;

Form8.QuickRep1.Preview;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Form8.Query1.Active:=false;

Form8.Query1.Active:=true;

Form8.QuickRep1.Print;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

Form9.Query1.Active:=false;

Form9.Query1.Active:=true;

Form9.QuickRep1.Preview;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

Form9.Query1.Active:=false;

Form9.Query1.Active:=true;

Form9.QuickRep1.Print;

end;

procedure TForm1.N18Click(Sender: TObject);

begin

Form10.Query1.Active:=false;

Form10.Query1.Active:=true;

Form10.QuickRep1.Preview;

end;

procedure TForm1.N19Click(Sender: TObject);

begin

Form10.Query1.Active:=false;

Form10.Query1.Active:=true;

Form10.QuickRep1.Print;

end;

procedure TForm1.N21Click(Sender: TObject);

begin

Form11.Query1.Active:=false;

Form11.Query1.Active:=true;

Form11.QuickRep1.Preview;

end;

procedure TForm1.N22Click(Sender: TObject);

begin

Form11.Query1.Active:=false;

Form11.Query1.Active:=true;

Form11.QuickRep1.Print;

end;

procedure TForm1.Image4Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute

then Image1.Picture.LoadFromFile(openPictureDialog1.filename);

end;

procedure TForm1.N24Click(Sender: TObject);

begin

Form12.Query1.Active:=false;

Form12.Query1.Active:=true;

Form12.QuickRep1.Preview;

end;

procedure TForm1.N25Click(Sender: TObject);

begin

Form12.Query1.Active:=false;

Form12.Query1.Active:=true;

Form12.QuickRep1.Print;

end;

procedure TForm1.Image2Click(Sender: TObject);

begin

Form13.Memo1.Lines.LoadFromFile('О программе.txt');

Form13.ShowModal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm1.Image3Click(Sender: TObject);

begin

Form14.ShowModal;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, DB, DBTables, Buttons,

ExtCtrls;

type

TForm2 = class(TForm)

Label1: TLabel;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

Table1: TTable;

Table2: TTable;

Table3: TTable;

Table4: TTable;

BitBtn1: TBitBtn;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

DBGrid1: TDBGrid;

CheckBox1: TCheckBox;

Edit1: TEdit;

TabSheet2: TTabSheet;

DBGrid2: TDBGrid;

CheckBox2: TCheckBox;

Edit2: TEdit;

TabSheet3: TTabSheet;

DBGrid3: TDBGrid;

CheckBox3: TCheckBox;

Edit3: TEdit;

TabSheet4: TTabSheet;

DBGrid4: TDBGrid;

CheckBox4: TCheckBox;

Edit4: TEdit;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image7: TImage;

Image8: TImage;

Image9: TImage;

Image11: TImage;

Image12: TImage;

Image13: TImage;

Image14: TImage;

Image15: TImage;

Image16: TImage;

Image17: TImage;

Image19: TImage;

Image20: TImage;

Image21: TImage;

Image22: TImage;

Image23: TImage;

Image24: TImage;

Image25: TImage;

Image27: TImage;

Image28: TImage;

Image29: TImage;

Image30: TImage;

Image31: TImage;

Image32: TImage;

Image33: TImage;

Image34: TImage;

Image35: TImage;

Image36: TImage;

Image1: TImage;

Image2: TImage;

Image10: TImage;

Image18: TImage;

Image26: TImage;

procedure BitBtn1Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

procedure Image10Click(Sender: TObject);

procedure Image18Click(Sender: TObject);

procedure Image26Click(Sender: TObject);

procedure Image34Click(Sender: TObject);

procedure Image14Click(Sender: TObject);

procedure Image31Click(Sender: TObject);

procedure Image15Click(Sender: TObject);

procedure Image22Click(Sender: TObject);

procedure Image30Click(Sender: TObject);

procedure Image23Click(Sender: TObject);

procedure Image16Click(Sender: TObject);

procedure Image24Click(Sender: TObject);

procedure Image32Click(Sender: TObject);

procedure Image17Click(Sender: TObject);

procedure Image25Click(Sender: TObject);

procedure Image33Click(Sender: TObject);

procedure Image35Click(Sender: TObject);

procedure Image36Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image13Click(Sender: TObject);

procedure Image12Click(Sender: TObject);

procedure Image11Click(Sender: TObject);

procedure Image19Click(Sender: TObject);

procedure Image20Click(Sender: TObject);

procedure Image21Click(Sender: TObject);

procedure Image27Click(Sender: TObject);

procedure Image28Click(Sender: TObject);

procedure Image29Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Form2.Close;

end;

procedure TForm2.Image2Click(Sender: TObject);

begin

Table1.First;

end;

procedure TForm2.Image3Click(Sender: TObject);

begin

Table1.Prior;

end;

procedure TForm2.Image4Click(Sender: TObject);

begin

Table1.Next;

end;

procedure TForm2.Image5Click(Sender: TObject);

begin

Table1.Post;

end;

procedure TForm2.Image6Click(Sender: TObject);

begin

Table1.Append;

end;

procedure TForm2.Image7Click(Sender: TObject);

begin

Table1.Delete;

end;

procedure TForm2.Image8Click(Sender: TObject);

begin

Table1.Refresh;

end;

procedure TForm2.Image9Click(Sender: TObject);

begin

Table1.Post;

end;

procedure TForm2.Image34Click(Sender: TObject);

begin

If CheckBox1.Checked then Table1.Locate('Kod_tov',Edit1.Text,[]);

end;

procedure TForm2.Image14Click(Sender: TObject);

begin

Table2.Append;

end;

procedure TForm2.Image31Click(Sender: TObject);

begin

Table4.Delete;

end;

procedure TForm2.Image15Click(Sender: TObject);

begin

Table2.Delete;

end;

procedure TForm2.Image22Click(Sender: TObject);

begin

Table3.Append;

end;

procedure TForm2.Image30Click(Sender: TObject);

begin

Table4.Append;

end;

procedure TForm2.Image23Click(Sender: TObject);

begin

Table3.Delete;

end;

procedure TForm2.Image16Click(Sender: TObject);

begin

Table2.Refresh;

end;

procedure TForm2.Image24Click(Sender: TObject);

begin

Table3.Refresh;

end;

procedure TForm2.Image32Click(Sender: TObject);

begin

Table4.Refresh;

end;

procedure TForm2.Image17Click(Sender: TObject);

begin

Table2.Post;

end;

procedure TForm2.Image25Click(Sender: TObject);

begin

Table3.Post;

end;

procedure TForm2.Image33Click(Sender: TObject);

begin

Table4.Post;

end;

procedure TForm2.Image35Click(Sender: TObject);

begin

If CheckBox2.Checked then Table2.Locate('Kod_kontr',Edit2.Text,[]);

end;

procedure TForm2.Image36Click(Sender: TObject);

begin

If CheckBox3.Checked then Table3.Locate('Kod_poc',Edit3.Text,[]);

end;

procedure TForm2.Image1Click(Sender: TObject);

begin

If CheckBox4.Checked then Table4.Locate('Kod_skl',Edit4.Text,[]);

end;

procedure TForm2.Image10Click(Sender: TObject);

begin

Table2.First;

end;

procedure TForm2.Image13Click(Sender: TObject);

begin

Table2.Last;

end;

procedure TForm2.Image12Click(Sender: TObject);

begin

Table2.Next;

end;

procedure TForm2.Image11Click(Sender: TObject);

begin

Table2.Prior;

end;

procedure TForm2.Image18Click(Sender: TObject);

begin

Table3.First;

end;

procedure TForm2.Image19Click(Sender: TObject);

begin

Table3.Prior;

end;

procedure TForm2.Image20Click(Sender: TObject);

begin

Table3.Next;

end;

procedure TForm2.Image21Click(Sender: TObject);

begin

Table3.Last;

end;

procedure TForm2.Image26Click(Sender: TObject);

begin

Table4.First;

end;

procedure TForm2.Image27Click(Sender: TObject);

begin

Table4.Prior;

end;

procedure TForm2.Image28Click(Sender: TObject);

begin

Table4.Next;

end;

procedure TForm2.Image29Click(Sender: TObject);

begin

Table4.Last;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ComCtrls, DBCtrls, Mask,

ExtCtrls, Buttons;

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

Table1: TTable;

DataSource1: TDataSource;

Label1: TLabel;

Panel1: TPanel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

DBLookupComboBox3: TDBLookupComboBox;

DateTimePicker1: TDateTimePicker;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

BitBtn1: TBitBtn;

Image10: TImage;

Image9: TImage;

Image8: TImage;

Image7: TImage;

procedure Button5Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

procedure Image10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit2, Unit8, Unit7;

{$R *.dfm}

procedure TForm3.Button5Click(Sender: TObject);

begin

Form3.Close;

end;

procedure TForm3.Image1Click(Sender: TObject);

begin

Form8.Query1.Active:=false;

Form8.Query1.Active:=true;

Form8.QuickRep1.Preview;

end;

procedure TForm3.Image2Click(Sender: TObject);

begin

Form8.Query1.Active:=false;

Form8.Query1.Active:=true;

Form8.QuickRep1.Print;

end;

procedure TForm3.Image3Click(Sender: TObject);

begin

Table1.Append;

end;

procedure TForm3.Image4Click(Sender: TObject);

begin

Table1.Delete;

Form7.Query1.Active:=False;

Form7.Query1.Active:=True;

end;

procedure TForm3.Image5Click(Sender: TObject);

Var i,s:integer;

begin

s:=Table1.RecordCount;

Table1.First;

For i:=1 to s do

begin

Table1.Edit;

Table1.FieldByName('Summa').value:=Table1.FieldByName('Kol_vo').value*Table1.FieldByName('Cena').value;

Table1.Post;

Table1.Next;

end;

Table1.Refresh;

Form7.Query1.Active:=False;

Form7.Query1.Active:=True;

end;

procedure TForm3.Image6Click(Sender: TObject);

begin

Table1.Edit;

Table1.FieldByName('Data').value:=DateTimePicker1.Date;

Table1.Post;

Form7.Query1.Active:=False;

Form7.Query1.Active:=True;

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Form3.Close;

end;

procedure TForm3.Image7Click(Sender: TObject);

begin

Table1.First;

end;

procedure TForm3.Image8Click(Sender: TObject);

begin

Table1.Prior;

end;

procedure TForm3.Image9Click(Sender: TObject);

begin

Table1.Next;

end;

procedure TForm3.Image10Click(Sender: TObject);

begin

Table1.Last;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, DB, DBTables, ComCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids,

ExtCtrls, Buttons;

type

TForm4 = class(TForm)

Label1: TLabel;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1: TTable;

Panel1: TPanel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

DBLookupComboBox3: TDBLookupComboBox;

DateTimePicker1: TDateTimePicker;

Label15: TLabel;

Label16: TLabel;

Label14: TLabel;

Label13: TLabel;

Label12: TLabel;

Label11: TLabel;

Label10: TLabel;

Image1: TImage;

Image2: TImage;

Label9: TLabel;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

BitBtn1: TBitBtn;

Image7: TImage;

Image8: TImage;

Image9: TImage;

Image10: TImage;

DBEdit4: TDBEdit;

procedure Button5Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

procedure Image10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit2, Unit9, Unit7;

{$R *.dfm}

procedure TForm4.Button5Click(Sender: TObject);

begin

Form4.Close;

end;

procedure TForm4.Image1Click(Sender: TObject);

begin

Form9.Query1.Active:=false;

Form9.Query1.Active:=true;

Form9.QuickRep1.Preview;

end;

procedure TForm4.Image2Click(Sender: TObject);

begin

Form9.Query1.Active:=false;

Form9.Query1.Active:=true;

Form9.QuickRep1.Print;

end;

procedure TForm4.Image3Click(Sender: TObject);

begin

Table1.Append;

end;

procedure TForm4.Image4Click(Sender: TObject);

begin

Table1.Delete;

Form7.Query2.Active:=False;

Form7.Query2.Active:=True;

end;

procedure TForm4.Image5Click(Sender: TObject);

Var i,s:integer;

begin

s:=Table1.RecordCount;

Table1.First;

For i:=1 to s do

begin

Table1.Edit;

Table1.FieldByName('Summa_NDS').value:=((Table1.FieldByName('Kol_vo').value*Table1.FieldByName('Cena').value)*Table1.FieldByName('NDS').value/100);

Table1.FieldByName('Summa').value:=(Table1.FieldByName('Kol_vo').value*Table1.FieldByName('Cena').value)+Table1.FieldByName('Summa_NDS').value;

Table1.Post;

Table1.Next;

end;

Table1.Refresh;

Form7.Query2.Active:=False;

Form7.Query2.Active:=True;

end;

procedure TForm4.Image6Click(Sender: TObject);

begin

Table1.Edit;

Table1.FieldByName('Data').value:=DateTimePicker1.Date;

Table1.Post;

Form7.Query2.Active:=False;

Form7.Query2.Active:=True;

end;

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Form4.Close;

end;

procedure TForm4.Image7Click(Sender: TObject);

begin

Table1.First;

end;

procedure TForm4.Image8Click(Sender: TObject);

begin

Table1.Prior;

end;

procedure TForm4.Image9Click(Sender: TObject);

begin

Table1.Next;

end;

procedure TForm4.Image10Click(Sender: TObject);

begin

Table1.Last;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ComCtrls, DBCtrls,

Buttons;

type

TForm5 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Label1: TLabel;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Table1: TTable;

Table2: TTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

RadioButton7: TRadioButton;

RadioButton8: TRadioButton;

RadioButton9: TRadioButton;

RadioButton10: TRadioButton;

Button2: TButton;

Button3: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

DateTimePicker1: TDateTimePicker;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

DBLookupComboBox3: TDBLookupComboBox;

DBLookupComboBox4: TDBLookupComboBox;

DateTimePicker2: TDateTimePicker;

DateTimePicker3: TDateTimePicker;

DateTimePicker4: TDateTimePicker;

BitBtn1: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

Form5.Close;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

Table1.Filtered:=true;

If Radiobutton1.Checked then Table1.Filter:='Kod_tov='+DBLookupComboBox1.Text;

If Radiobutton2.Checked then Table1.Filter:='Kod_kontr='+DBLookupComboBox2.Text;

If RadioButton3.Checked then

Table1.Filter:='Data>'+''''+datetostr(DateTimePicker1.Date)+''''+'and Data<'+''''+datetostr(DateTimePicker2.Date)+'''';

If RadioButton4.Checked then Table1.Filter:='Kol_vo>'+Edit1.Text+'And Kol_vo<'+Edit2.Text;

If RadioButton5.Checked then Table1.Filtered:=False;

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

Table2.Filtered:=true;

If Radiobutton8.Checked then Table2.Filter:='Kod_tov='+DBLookupComboBox3.Text;

If Radiobutton7.Checked then Table2.Filter:='Kod_poc='+DBLookupComboBox4.Text;

If RadioButton10.Checked then

Table1.Filter:='Data>'+''''+datetostr(DateTimePicker3.Date)+''''+'and Data<'+''''+datetostr(DateTimePicker4.Date)+'''';

If RadioButton6.Checked then Table2.Filter:='Kol_vo>'+Edit3.Text+'And Kol_vo<'+Edit4.Text;

If RadioButton9.Checked then Table2.Filtered:=False;

end;

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Form5.Close;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ExtCtrls, Buttons;

type

TForm6 = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

Query1: TQuery;

DataSource1: TDataSource;

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

Label2: TLabel;

BitBtn1: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

Query1.Close;

with Query1 do begin parambyname('param').Value:=Edit1.Text;

open;

end;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

Form6.Close;

end;

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

Form6.Close;

end;

end.

unit Unit7;

interface

uses

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

Dialogs, QuickRpt, QRCtrls, DB, DBTables, ExtCtrls, StdCtrls, Grids,

DBGrids, ComCtrls, Buttons;

type

TForm7 = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Label1: TLabel;

Button2: TButton;

Button3: TButton;

Table1: TTable;

BitBtn1: TBitBtn;

Button1: TButton;

Query1: TQuery;

Query2: TQuery;

Image10: TImage;

Image9: TImage;

Image8: TImage;

Image7: TImage;

Button4: TButton;

Button5: TButton;

Image2: TImage;

Image1: TImage;

procedure Button3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

procedure Image10Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit3, Unit11;

{$R *.dfm}

procedure TForm7.Button3Click(Sender: TObject);

var s,i:integer;

begin

s:=Table1.RecordCount;

Table1.First;

For i:=1 to s do

begin

Table1.Edit;

Table1.FieldByName('Ost_nac').Value:=0;

Table1.FieldByName('Ost_tec').Value:=0;

Table1.FieldByName('Kol_vo_prih').Value:=0;

Table1.FieldByName('Kol_vo_rash').Value:=0;

Table1.Next;

end;

end;

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

Close;

end;

procedure TForm7.Button1Click(Sender: TObject);

var s,i,b,n,m:integer;

begin

Query1.First;

Query2.First;

Table1.First;

s:=Query1.RecordCount;

n:=Query2.RecordCount;

For i:=1 to s do

For m:=1 to n do

begin

Table1.Edit;

b:=Table1.FieldByName('Kod_tov').Value;

If Query1.Locate('Kod_tov',b,[]) and

Query2.Locate('Kod_tov',b,[])

then begin

Table1.FieldByName('Kol_vo_prih').Value:=Query1.FieldByName('Sum OF Kol_vo').Value;

Table1.FieldByName('Kol_vo_rash').Value:=Query2.FieldByName('Sum OF Kol_vo').Value;

end;

Table1.Next;

Query1.Next;

Query2.Next;

end;

Table1.Refresh;

end;

procedure TForm7.Button2Click(Sender: TObject);

Var n,i,s:integer;

begin

s:=Table1.RecordCount;

Table1.First;

For i:=1 to s do

begin

Table1.Edit;

Table1.FieldByName('Ost_nac').Value:=

Table1.FieldByName('Ost_tec').Value;

n:=Table1.FieldByName('Ost_nac').Value+

Table1.FieldByName('Kol_vo_prih').Value-

Table1.FieldByName('Kol_vo_rash').Value;

Table1.FieldByName('Ost_tec').Value:=n;

Table1.Post;

Table1.Next;

end;

end;

procedure TForm7.Image7Click(Sender: TObject);

begin

Table1.First;

end;

procedure TForm7.Image8Click(Sender: TObject);

begin

TAble1.Prior;

end;

procedure TForm7.Image9Click(Sender: TObject);

begin

Table1.Next;

end;

procedure TForm7.Image10Click(Sender: TObject);

begin

Table1.Last;

end;

procedure TForm7.Button4Click(Sender: TObject);

Var n,i,s:integer;

begin

s:=Table1.RecordCount;

Table1.First;

For i:=1 to s do

begin

Table1.Edit;

n:=Table1.FieldByName('Ost_nac').Value+

Table1.FieldByName('Kol_vo_prih').Value-

Table1.FieldByName('Kol_vo_rash').Value;

Table1.FieldByName('Ost_tec').Value:=n;

Table1.Post;

Table1.Next;

end;

end;

procedure TForm7.Button5Click(Sender: TObject);

begin

Table1.Delete;

end;

procedure TForm7.Image2Click(Sender: TObject);

begin

Form11.QuickRep1.Print;

end;

procedure TForm7.Image1Click(Sender: TObject);

begin

Form11.QuickRep1.Preview;

end;

end.

unit Unit8;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls, DB, DBTables;

type

TForm8 = class(TForm)

Query1: TQuery;

QuickRep1: TQuickRep;

DetailBand1: TQRBand;

PageFooterBand1: TQRBand;

PageHeaderBand1: TQRBand;

SummaryBand1: TQRBand;

TitleBand1: TQRBand;

QRGroup1: TQRGroup;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRLabel8: TQRLabel;

QRLabel9: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRDBText7: TQRDBText;

QRDBText8: TQRDBText;

QRLabel10: TQRLabel;

QRExpr1: TQRExpr;

QRLabel11: TQRLabel;

QRExpr2: TQRExpr;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

end.

unit Unit9;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls, DB, DBTables;

type

TForm9 = class(TForm)

Query1: TQuery;

QuickRep1: TQuickRep;

DetailBand1: TQRBand;

PageFooterBand1: TQRBand;

PageHeaderBand1: TQRBand;

SummaryBand1: TQRBand;

TitleBand1: TQRBand;

QRGroup1: TQRGroup;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRLabel8: TQRLabel;

QRLabel9: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRDBText7: TQRDBText;

QRDBText8: TQRDBText;

QRLabel10: TQRLabel;

QRExpr1: TQRExpr;

QRLabel11: TQRLabel;

QRExpr2: TQRExpr;

QRLabel12: TQRLabel;

QRDBText9: TQRDBText;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

{$R *.dfm}

end.

unit Unit10;

interface

uses

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

Dialogs, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables;

type

TForm10 = class(TForm)

Query1: TQuery;

QuickRep1: TQuickRep;

DetailBand1: TQRBand;

PageHeaderBand1: TQRBand;

SummaryBand1: TQRBand;

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRLabel8: TQRLabel;

QRLabel9: TQRLabel;

QRLabel10: TQRLabel;

QRLabel11: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRExpr1: TQRExpr;

QRExpr2: TQRExpr;

QRExpr3: TQRExpr;

QRExpr4: TQRExpr;

QRLabel12: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

{$R *.dfm}

end.

unit Unit11;

interface

uses

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

Dialogs, DB, DBTables, ExtCtrls, QuickRpt, QRCtrls;

type

TForm11 = class(TForm)

QuickRep1: TQuickRep;

Query1: TQuery;

DetailBand1: TQRBand;

TitleBand1: TQRBand;

PageHeaderBand1: TQRBand;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

{$R *.dfm}

end.

unit Unit12;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, DB, DBTables, ExtCtrls;

type

TForm12 = class(TForm)

QuickRep1: TQuickRep;

Query1: TQuery;

DetailBand1: TQRBand;

PageHeaderBand1: TQRBand;

TitleBand1: TQRBand;

SummaryBand1: TQRBand;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRLabel8: TQRLabel;

QRLabel9: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRExpr1: TQRExpr;

QRExpr2: TQRExpr;

QRLabel10: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

{$R *.dfm}

end.

unit Unit13;

interface

uses

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

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

type

TForm13 = class(TForm)

Memo1: TMemo;

Label1: TLabel;

Image1: TImage;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

implementation

{$R *.dfm}

procedure TForm13.BitBtn1Click(Sender: TObject);

begin

Form13.Close;

end;

end.

unit Unit14;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type

TForm14 = class(TForm)

Panel1: TPanel;

Image1: TImage;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Memo1: TMemo;

Label1: TLabel;

Image2: TImage;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

procedure Label1Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label8Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

procedure Label4Click(Sender: TObject);

procedure Label5Click(Sender: TObject);

procedure Label6Click(Sender: TObject);

procedure Label7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

implementation

{$R *.dfm}

procedure TForm14.Label1Click(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('Общие сведения.txt');

end;

procedure TForm14.Image1Click(Sender: TObject);

begin

PageControl1.Visible:=False;

Panel1.Width:=222;

form14.Width:=230;

Image1.Visible:=false;

Image2.Visible:=true;

end;

procedure TForm14.Image2Click(Sender: TObject);

begin

PageControl1.Visible:=True;

Panel1.Width:=409;

form14.Width:=419;

Image1.Visible:=true;

Image2.Visible:=false;

end;

procedure TForm14.Label2Click(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('Заполнение справочников.txt');

end;

procedure TForm14.Label8Click(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('Описание меню.txt');

end;

procedure TForm14.Label3Click(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('Поступление.txt');

end;

procedure TForm14.Label4Click(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('Реализация.txt');

end;

procedure TForm14.Label5Click(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('Фильтрация.txt');

end;

procedure TForm14.Label6Click(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('Остатки.txt');

end;

procedure TForm14.Label7Click(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('Отчеты.txt');

end;

end.

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