44420

База данных торговой сети

Дипломная

Информатика, кибернетика и программирование

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

Русский

2013-11-12

1.21 MB

13 чел.

Содержание

Введение………………………………………………………………………….3

Постановка задачи……………………………………..………………………..4  

Системное и техническое обеспечение……………………….......................... 5

Структура программного комплекса..…………………………………………7

Описание применения …………………………………………………………..8

Программа и методика испытаний……………………………………………11

Инструкция для пользователя…………………………………………………12

Руководство программиста…………………………………………………… 14

Заключение……………………………………………………………………..19

Список использованных источников…………………………………………20

Листинг ПО "База данных торговой сети":…………………………………..21

                                                                                      

Введение

Темой задания на учебную практику является "База данных торговой сети", предназначенная для учёта товаров в торговой сети магазинов и др.

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

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

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

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

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

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

                                Постановка задачи

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

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

Поскольку пользователи программы  могут не являться квалифицированными пользователями ЭВМ,  данная программа должна быть весьма понятна всем пользователям ПК.

Выбор языка программирования и среды разработки программы обусловлен исполнителем на выбор Delphi, либо Pascal.

Системное и техническое обеспечение

Для успешного функционирования и работы данной программы необходимо отметить ряд следующих требований предъявляемых к параметрам персонального компьютера:

Минимальные требования:

- процессор Intel Pentium II  или совместимый

- наличие монитора VGA с разрешением экрана 800x600

-  объём оперативной памяти 128 Мб

- мышь, клавиатура;

- операционная система Widows XP и выше.

      Рекомендуемые требования:

- процессор T4200 и выше;

- наличие монитора VGA с разрешением 1366x768;

- мышь, клавиатура;

- объём оперативной памяти  256 Мб;

- операционная система Widows XP и выше.

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

  1.  введение;
  2.  текст -  программы;
  3.  описание программы;
  4.  описание применения;
  5.  руководство программиста;
  6.  программа и методика испытаний;
  7.  пояснительная записка
  8.  титульный лист;

9. инструкция пользователя.

В качестве среды разработки используется версия Borland Delphi 7.0. Lite. Она позволяет использовать большие возможности, предоставляемые выбранной операционной системой в разработке интерфейса программы, удовлетворяющего требованиям и стандартам, предъявляемым к программе, работающей в среде Windows.  Данная среда разработки имеет в своем составе группу уже готовых компонентов, предоставляемых для использования их при разработке программы. При разработке программы следует опираться на следующие параметры: необходимый объем жесткого диска, рекомендуемое разрешение экрана и объем оперативной памяти.

Структура программного комплекса

Наименование программы: "База данных торговой сети"

Программу написал Сацута Андрей, учащийся группы П-3 в 2011 году.

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

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

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

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

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

Описание применения

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

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

Так как работа с программой подразумевает эксплуатацию ЭВМ, то необходимо соблюдать правила техники безопасности и охраны труда:

1) продолжительность непрерывной работы на ЭВМ не должна превышать для несовершеннолетних – 25 минут с 10 – минутным перерывом, для взрослых – 30 минут с 10 – перерывом;

2) общая продолжительность работы за компьютером не должна превышать в день для несовершеннолетних – не более 3-х часов, для взрослых – не более 4-х часов;

3) не допускать попадания внутрь компьютера металлических предметов, воды, насекомых и животных;

4) не допускать чрезмерного накопления пыли внутри компьютера, своевременно проводя работы  по техническому обслуживанию;

6) если компьютер не эксплуатируется длительное время, а также перед любыми работами по обслуживанию, необходимо вынимать вилку питания из электрической розетки;

7) нельзя ставить на блок компьютера тяжелые предметы;

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

  •  не снимать крышку корпуса компьютера при включенном электропитании;
    •  не работать с компьютером, если поврежден сетевой кабель.
      •  не касаться частями тела  питающих проводов;
      •  не работать на ЭВМ мокрыми руками;
      •  не работать на ЭВМ во время грозы;
      •  не пользоваться открытым огнем при работе на ЭВМ;
      •  вынимая вилку, необходимо  держаться за вилку, а не за кабель.
      •  не касаться вилки влажными руками;

Немедленно отключите компьютер от электрической сети, если:

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

Предосторожности при использовании компакт - дисков:

  •  не наклеивать этикетки на диски, это может привести к дисбалансу  диска и его разрушению;
    •  при загрузке или извлечении компакт - диска пользоваться только специальной клавишей на передней панели дисковода.

Требования, предъявляемые к организации и оборудованию автоматизированных рабочих мест:

1) компьютер предназначен для эксплуатации в закрытых отапливаемых помещениях с низкой запыленностью;

2)  планировка рабочего места должна удовлетворять требованиям удобства выполнения работ, экономии энергии и времени.

3)  при небольшом количестве рабочих мест, предпочтение следует отдавать расстановке ЭВМ у стены, противоположной оконным проемам;

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

4) для обеспечения нормальных условий труда санитарные нормы СанПин 9-131 РБ 2000 устанавливают на 1 работающего, объем производственного помещения не менее 20 м3; площадь помещения, выгороженного стенами или глухими перегородками не менее 4,5 м2;

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

       6) в помещении температура воздуха должна составлять 19 - 210С, относительная влажность воздуха 55-56%, скорость движения воздуха не более 0,2 м/с;

7) необходимо изолировать компьютер от непосредственного воздействия сильных электромагнитных полей и электрических шумов;

      8) рекомендуется использование люминесцентных светильников дневного света;

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

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

Программа и методика испытаний

Объектом испытаний является  программное обеспечение торговой сети магазинов.

Данная программа предназначена для всех типов пользователей ПК.        

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

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

Программа должна работать без сбоев в соответствии с заданным алгоритмом и адекватно реагировать на действия пользователя.

       К испытаниям была предоставлена следующая документация: 

  1.  введение;
  2.  текст - программы;
  3.  описание программы;
  4.  описание применения;
  5.  руководство программиста;
  6.  программа и методика испытаний;
  7.  пояснительная записка;
  8.  титульный лист;
  9.  инструкция пользователя.

Программная документация должна в полной мере соответствовать требованиям стандартов.

Для начала работы необходимо запустить файл  «BazaTorgSeti.exe», который находится в каталоге с программой. На экране появится главное окно программы.

Инструкция для пользователя

  Эта программа не представит большого труда в использовании, но всё же, предлагаю маленькое руководство для пользователей:

  1.  Запустить файл «BazaTorgSeti».exe из папки с программой;

  1.  Выбрать один из пунктов программы:

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

 

Руководство программиста

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

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

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

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

В связи с вышеописанными качествами для написания программы была выбрана среда разработки Delphi.Копирование можно произвести из окна проводника операционной  системы или окна «Мой компьютер», а также с помощью любого файлового менеджера. После завершения копирования папки «Курсовая» необходимо открыть ее и запустить файл «BazaTorgSeti».exe, после чего откроется окно программы.

Для редактирования кода программы права администратора не нужны.

Описание процедур в программе «База данных торговой сети»:

 unit Unit1; -«Главное окно».:

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.show;

end;-Переход к таблице бытовой техники.

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.show;

end;-Переход к таблице продуктов.

procedure TForm1.Button3Click(Sender: TObject);

begin

form4.show;

end;-Переход к таблице сторйматериалов.

procedure TForm1.Button4Click(Sender: TObject);

begin

form5.show;

end;-Переход к таблице Цифровой и аудиотехники.

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

close

end;-Выход из программы.

procedure TForm1.N2Click(Sender: TObject);

begin

Form1.Show;

close

end;-Выход из программы с помощью MainMenu

procedure TForm1.N1Click(Sender: TObject);

begin

Form10.show;

end; -Открывает вкладку «О создателе».

procedure TForm1.N3Click(Sender: TObject);

begin

Application.HelpCommand(11,0);

end;-Открывает справку.

unit Unit2;-Таблица «Бытовая техника»:

procedure TForm2.Button1Click(Sender: TObject);

begin

Form6.show;

ADOTable1.Insert;

end;-Добавление данных в таблицу.

procedure TForm2.Button2Click(Sender: TObject);

begin

AdoTable1.Delete;

end;-Удаление данных из таблицы.

procedure TForm2.Button3Click(Sender: TObject);

begin

Form6.Show;

end;-Изменение данных в таблице.

procedure TForm2.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Nazvanie',edit1.Text,[Lopartialkey]);

end;-Поиск в таблице.

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

rvproject1.Execute;

end;-Печать данных в таблице.

unit Unit3;-Таблица «Продукты».:

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Form8.show;

ADOTable1.Insert;

end;-Ввод данных в таблицу.

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

Form8.Show;

end;-Изменение данных в таблице.

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Delete;

end;-Удаление данных в таблице.

procedure TForm3.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Nazvanie',edit1.Text,[Lopartialkey]);

end;-Поиск в таблице(по названию)

procedure TForm3.BitBtn4Click(Sender: TObject);

begin

rvproject1.execute;-Печать данных в таблице.

end;

unit Unit4;-Таблица «Стройматериалы»:

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Form7.show;

ADOTable1.insert;

end;-Добавление данных в таблицу.

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

Form7.Show;

end;-Изменение данных в таблице.

procedure TForm4.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Delete;

end;-Удаление данных в таблице.

procedure TForm4.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Nazvanie',edit1.Text,[Lopartialkey]);

end;-Поиск в таблице(по названию).

procedure TForm4.Button1Click(Sender: TObject);

begin

rvproject1.Execute;

end;-Печать данных таблицы.

unit Unit5;-Таблица «Цифровая и аудиотухника»:

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Form9.show;

ADOTable1.Insert;

end;-Добавление данных в таблицу

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

Form9.Show;

end;--Изменение данных в таблице

procedure TForm5.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Delete;

end;-Удаление данных в таблице

procedure TForm5.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Naimenovanie',edit1.Text,[Lopartialkey]);

end;-Поиск данных в таблице (по найменованию)

procedure TForm5.Button1Click(Sender: TObject);

begin

rvproject1.Execute;

end;-Печать данных в таблице.

unit Unit6;-Редактирование данных таблицы «Бытовая техника»:

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

Form2.ADOTable1.Post;

close;

end;-Сохранение данных

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

Form6.Show;

close

end;-Отмена

unit Unit7;-Редактирование таблицы «Стройматериалы»:

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

Form4.ADOTable1.Post;

close

end;-Сохранение введенных данных

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

Form7.Show;

close

end;-Отмена

unit Unit8;-Редактирование таблицы «Продукты»:

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

Form3.ADOTable1.Post;

close

end;-Сохранение данных

procedure TForm8.BitBtn2Click(Sender: TObject);

begin

Form8.Show;-Отмена

close

end;

unit Unit9;-Редактирование таблицы «Цифровая и аудиотехника»:

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

Form5.ADOTable1.Post;

close

end;-Сохранение данных

procedure TForm9.BitBtn2Click(Sender: TObject);

begin

Form9.Show;

close

end;-Отмена


                                                     
Заключение

Задание состояло в разработке программного средства «База данных торговой сети».

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


Список использованных источников

  1.  ГОСТ 19.101 – 77 ЕСПД. Виды программ и программных продуктов
  2.  ГОСТ 19.105 – 78 ЕСПД. Общие требования к программным документам
  3.  ГОСТ 2.105 -95 Общие  требования к текстовым документам
  4.  ГОСТ 19.502 – 79 ЕСПД. Описание применения. Требования к содержанию и оформлению.
  5.  Культин Н.Б. Программирование в Turbo Pascal и Delphi.—

    СПб.: BHV — Санкт-Петербург, 1998.

  1.  ГОСТ 19.404 – 79 ЕСПД. Пояснительная записка. Требования к содержанию и        оформлению.

Санитарные правила и нормы СанПин 9-131 РБ 2000

Листинг ПО "База данных торговой сети":

unit Unit1;

interface

uses

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

 Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons, XPMan, Menus;

type

 TForm1 = class(TForm)

   Image1: TImage;

   Button1: TButton;

   Button2: TButton;

   Button3: TButton;

   Button4: TButton;

   XPManifest1: TXPManifest;

   BitBtn1: TBitBtn;

   MainMenu1: TMainMenu;

   N1: TMenuItem;

   N2: TMenuItem;

   GroupBox1: TGroupBox;

   N3: TMenuItem;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

   procedure BitBtn1Click(Sender: TObject);-

   procedure N2Click(Sender: TObject);

   procedure N1Click(Sender: TObject);

   procedure N3Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit10;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form5.show;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

close

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form1.Show;

close

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Form10.show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Application.HelpCommand(11,0);

end;

end.

unit Unit2;

interface

uses

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

 Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, jpeg, ExtCtrls, RpCon,

 RpConDS, RpDefine, RpRave, Buttons;

type

 TForm2 = class(TForm)

   ADOConnection1: TADOConnection;

   Button1: TButton;

   Button2: TButton;

   Button3: TButton;

   Edit1: TEdit;

   GroupBox1: TGroupBox;

   GroupBox2: TGroupBox;

   Image1: TImage;

   ADOTable1: TADOTable;

   DataSource1: TDataSource;

   DBGrid1: TDBGrid;

   BitBtn1: TBitBtn;

   RvProject1: TRvProject;

   RvDataSetConnection1: TRvDataSetConnection;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

   procedure Edit1Change(Sender: TObject);

   procedure BitBtn1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form2: TForm2;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form6.show;

ADOTable1.Insert;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

AdoTable1.Delete;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm2.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Nazvanie',edit1.Text,[Lopartialkey]);

end;

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

rvproject1.Execute;

end;

end.

unit Unit3;

interface

uses

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

 Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls,

 RpCon, RpConDS, RpDefine, RpRave;

type

 TForm3 = class(TForm)

   ADOConnection1: TADOConnection;

   BitBtn1: TBitBtn;

   BitBtn2: TBitBtn;

   BitBtn3: TBitBtn;

   GroupBox1: TGroupBox;

   Edit1: TEdit;

   GroupBox2: TGroupBox;

   Image1: TImage;

   ADOTable1: TADOTable;

   DataSource1: TDataSource;

   DBGrid1: TDBGrid;

   BitBtn4: TBitBtn;

   RvProject1: TRvProject;

   RvDataSetConnection1: TRvDataSetConnection;

   procedure BitBtn1Click(Sender: TObject);

   procedure BitBtn2Click(Sender: TObject);

   procedure BitBtn3Click(Sender: TObject);

   procedure Edit1Change(Sender: TObject);

   procedure BitBtn4Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form3: TForm3;

implementation

uses Unit8;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Form8.show;

ADOTable1.Insert;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

Form8.Show;

end;

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

procedure TForm3.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Nazvanie',edit1.Text,[Lopartialkey]);

end;

procedure TForm3.BitBtn4Click(Sender: TObject);

begin

rvproject1.execute;

end;

end.

unit Unit4;

interface

uses

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

 Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls,

 RpDefine, RpRave, RpCon, RpConDS;

type

 TForm4 = class(TForm)

   ADOConnection1: TADOConnection;

   BitBtn1: TBitBtn;

   BitBtn2: TBitBtn;

   BitBtn3: TBitBtn;

   Image1: TImage;

   GroupBox1: TGroupBox;

   Edit1: TEdit;

   GroupBox2: TGroupBox;

   DataSource1: TDataSource;

   ADOTable1: TADOTable;

   DBGrid1: TDBGrid;

   RvProject1: TRvProject;

   Button1: TButton;

   RvDataSetConnection1: TRvDataSetConnection;

   procedure BitBtn1Click(Sender: TObject);

   procedure BitBtn2Click(Sender: TObject);

   procedure BitBtn3Click(Sender: TObject);

   procedure Edit1Change(Sender: TObject);

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form4: TForm4;

implementation

uses Unit7;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Form7.show;

ADOTable1.insert;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

Form7.Show;

end;

procedure TForm4.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

procedure TForm4.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Nazvanie',edit1.Text,[Lopartialkey]);

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

rvproject1.Execute;

end;

end.

unit Unit5;

interface

uses

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

 Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls,

 RpCon, RpConDS, RpDefine, RpRave;

type

 TForm5 = class(TForm)

   ADOConnection1: TADOConnection;

   BitBtn1: TBitBtn;

   BitBtn2: TBitBtn;

   BitBtn3: TBitBtn;

   Image1: TImage;

   GroupBox1: TGroupBox;

   Edit1: TEdit;

   GroupBox2: TGroupBox;

   ADOTable1: TADOTable;

   DataSource1: TDataSource;

   DBGrid1: TDBGrid;

   Button1: TButton;

   RvProject1: TRvProject;

   RvDataSetConnection1: TRvDataSetConnection;

   procedure BitBtn1Click(Sender: TObject);

   procedure BitBtn2Click(Sender: TObject);

   procedure BitBtn3Click(Sender: TObject);

   procedure Edit1Change(Sender: TObject);

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form5: TForm5;

implementation

uses Unit9;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Form9.show;

ADOTable1.Insert;

end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

Form9.Show;

end;

procedure TForm5.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

procedure TForm5.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Naimenovanie',edit1.Text,[Lopartialkey]);

end;

procedure TForm5.Button1Click(Sender: TObject);

begin

rvproject1.Execute;

end;

end.

unit Unit6;

interface

uses

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

 Dialogs, StdCtrls, Buttons, Mask, DBCtrls, jpeg, ExtCtrls;

type

 TForm6 = class(TForm)

   BitBtn1: TBitBtn;

   BitBtn2: TBitBtn;

   DBEdit1: TDBEdit;

   DBEdit2: TDBEdit;

   DBEdit3: TDBEdit;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   GroupBox1: TGroupBox;

   Image1: TImage;

   procedure BitBtn1Click(Sender: TObject);

   procedure BitBtn2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form6: TForm6;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

Form2.ADOTable1.Post;

close;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

Form6.Show;

close

end;

end.

unit Unit7;

interface

uses

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

 Dialogs, StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, jpeg;

type

 TForm7 = class(TForm)

   BitBtn1: TBitBtn;

   BitBtn2: TBitBtn;

   DBEdit1: TDBEdit;

   DBEdit2: TDBEdit;

   DBEdit3: TDBEdit;

   DBEdit4: TDBEdit;

   GroupBox1: TGroupBox;

   Image1: TImage;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   procedure BitBtn1Click(Sender: TObject);

   procedure BitBtn2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form7: TForm7;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

Form4.ADOTable1.Post;

close

end;

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

Form7.Show;

close

end;

end.

unit Unit8;

interface

uses

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

 Dialogs, StdCtrls, Buttons, Mask, DBCtrls, jpeg, ExtCtrls;

type

 TForm8 = class(TForm)

   DBEdit1: TDBEdit;

   DBEdit2: TDBEdit;

   DBEdit3: TDBEdit;

   DBEdit4: TDBEdit;

   DBEdit5: TDBEdit;

   BitBtn1: TBitBtn;

   BitBtn2: TBitBtn;

   GroupBox1: TGroupBox;

   Image1: TImage;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   Label5: TLabel;

   procedure BitBtn1Click(Sender: TObject);

   procedure BitBtn2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form8: TForm8;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

Form3.ADOTable1.Post;

close

end;

procedure TForm8.BitBtn2Click(Sender: TObject);

begin

Form8.Show;

close

end;

end.

unit Unit9;

interface

uses

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

 Dialogs, StdCtrls, Buttons, Mask, DBCtrls, jpeg, ExtCtrls;

type

 TForm9 = class(TForm)

   DBEdit2: TDBEdit;

   DBEdit3: TDBEdit;

   DBEdit4: TDBEdit;

   BitBtn1: TBitBtn;

   BitBtn2: TBitBtn;

   GroupBox1: TGroupBox;

   Image1: TImage;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   procedure BitBtn1Click(Sender: TObject);

   procedure BitBtn2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form9: TForm9;

implementation

uses Unit5;

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

Form5.ADOTable1.Post;

close

end;

procedure TForm9.BitBtn2Click(Sender: TObject);

begin

Form9.Show;

close

end;

end.

unit Unit10;

interface

uses

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

 Dialogs, jpeg, ExtCtrls;

type

 TForm10 = class(TForm)

   Image1: TImage;

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form10: TForm10;

implementation

{$R *.dfm}

end.

PAGE   \* MERGEFORMAT3


 

А также другие работы, которые могут Вас заинтересовать

82163. Разработка отладчика для программ на языке haXe и целевой платформы Adobe Flash 9 2 MB
  По указанным причинам, стало удобно и выгодно создавать web-приложения, направленные на предоставление пользователю функций, которые могут не зависеть от операционной системы. В качестве примера можно привести редактирование текстовых документов, обработку фотографий, показ презентаций...
82164. Государственная социальная политика и социальное развитие Кубы в 1970-х – 2000-х годах 997 KB
  В нашей стране Куба всегда вызывала большой интерес так как с этой страной ее на протяжении многих десятилетий связывали крепкие дружественные связи. Приступая к построению нового общества Республика Куба располагала весьма ограниченными материальными возможностями для одновременного решения...
82165. ВЛИЯНИЕ РАЗЛИЧНЫХ ТИПОВ СОКРАТИЧЕСКОГО ДИАЛОГА НА ГЕНЕЗ ПРЕДСТАВЛЕНИЙ ДЕТЕЙ СТАРШЕГО ДОШКОЛЬНОГО ВОЗРАСТА О ДРУЖБЕ 268 KB
  В нашем беспокойном веке, который очень схож со временем Сократа по своему пристрастию к слову и властью его над людьми, а также полифоничностью самой эпохи, необходимо искать разумные способы употребления слова, уходить от монологического понимания риторики и искать диалогического общения...
82166. Совершенствование организации быстрого питания в условиях развивающегося рынка на примере трактира «Сани» 1022.5 KB
  В состав компании «Даско» помимо шести ресторанов различного формата ( от предприятия на фуд-корте торгового центра до элитного заведения, любимого представителями финансовых верхов республики и культурной богемой) входит дистрибьюторская компания, занимающаяся оптовыми поставками алкогольной продукции
82167. Нейросетевые технологии распознавания пиксельных изображений 578.33 KB
  Автоматическое (машинное) распознавание, описание, классификация и группирование образов – важные задачи в большом количестве инженерных и научных областей, таких как биология, физиология, медицина, маркетинг, компьютерное зрение, искусственный интеллект. Введем понятие образа.
82168. Отчет по работе участковой медицинской сестры МУЗ «Сарапульской детской городской больницы» 448 KB
  На территории обслуживания СДГБ проживает 11347 детей. Находиться 19 дошкольных учреждений; 14 школ в том числе: санаторная школа интернат для детей с бронхолегочными заболеваниями школа для слабослышащих детей специализированный детский сад для детей с заболеваниями глаз а так же Сарапульский детский...
82169. PR-ПОТЕНЦИАЛ ЛИТЕРАТУРНОГО ПРОЕКТА ДЖ.РОУЛИНГ «ГАРРИ ПОТТЕР» 601.5 KB
  На сегодня Гарри Поттер давно вышел за рамки литературы. Гарри Поттер – это целый культурный феномен и крупный элемент национального бренда Великобритании. Художественная литература как вид искусства являет собой целую коммуникативную площадку, и как такая коммуникативная площадка она обладает определенным PR-потенциалом.
82170. Использование информационных технологий в развитии самостоятельного туризма в России 2.19 MB
  Согласно Хартии туризма государствам следует: содействовать доступу туристов к общественному достоянию посещаемых мест применяя положения документов по упрощению формальностей выпущенных Организацией Объединённых Наций Международной организации гражданской авиации Международной морской...
82171. Особенности художественного мира Олега Митяева как барда и носителя городской культуры (опыт лингвокультурологического описания) 380 KB
  Актуальность темы определила цель работы, которая заключается в следующем: рассмотреть характер реализации фактов русской культуры в авторской песне и выявить черты ее языкового воплощения. Для достижения цели работы поставлены следующие задачи: во-первых, проследить этапы развития русской авторской песни...