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


 

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

60867. Україна – наш спільний дім. Моя Батьківщина 2.3 MB
  Україна золотий чарівний край наша рідна країна. Так сподобалася Богові та місцина що Він став часто сюди навідуватися зі словами: Рушаймо у край Кажуть що з того і пішла назва нашої держави Україна.
60869. Розвиток мовлення учнів допоміжної школи. В.Г. Петрова 219 KB
  Проблема мовлення - одна з найважливіших в загальній і спеціальній психології... Мовлення слугує основним засобом спілкування людей... Мовлення - необхідна основа людського мислення, його знаряддя.
60874. Язык разметки гипертекста HTML 50 KB
  Ожидаемые результаты: В конце урока ученики смогут: Дать определение таким понятиям: Гипертекст; WEBстраница WEBсайт; WEBдизайн; Язык разметки гипертекста HTML; Использовать команды языка HTML для форматирования текста; Ориентировочный план урока Актуализация опорных знаний Как вы можете определить понятие Интернет Что такое служба WWW Как называются документы которые мы можем просматривать в программебраузере Изложение нового материала. Систематизация понятий Гипертекст; WEBстраница WEBсайт;...