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

курсовые,контрольные,дипломы,рефераты

Разработка базы данных — Программирование, Базы данных

Министерство образования

Российской Федерации

Хабаровский Государственный Технический Университет

Кафедра программного обеспечения вычислительной

техники и автоматизированных систем

пояснительная записка

к курсовой работе

ПО ДИСЦИПЛИНЕ «БАЗЫ ДАННЫХ»

Выполнил:

  студент гр. ПО-02

    Самойленко Павел

Проверил:

  к.т.н., доцент

     Саринков А. А.

Хабаровск 2002г.

Задание

Разработка клиент – серверного приложения.

Введение в технологию клиент-сервер

База данных представляет собой набор файлов на сетевом сервере. Характерная особенность архитектуры клиент-сервер является перенос вычислительной нагрузки на сервер БД(SQL сервер), а также максимальная разгрузка клиента от вычислительной работы и существенное укрепление данных. Взаимодействие сервера и клиента реализуется с помощью SQL запросов, которые формирует и отсылает серверу клиент. Сервер, приняв запрос, выполняет его и возвращает результат клиенту. В клиентском приложении в основном осуществляется интерпретация полученных от сервера данных, реализация пользовательского интерфейса, а также реализация части бизнес - правил.

Преимущества архитектуры клиент – сервер:

o   Большинство вычислительных процессов происходит на сервере, что снижает требования к вычислительной мощности клиента.

o   Снижается сетевой трафик, так как пересылаются не все данные, а только запрошенные.

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

o   Сервер реализует управление транзакциями и предотвращает  попытки одновременного изменения одних и тех же данных.

Сервер базы данных

При выборе сервера базы данных я остановился на промышленном сервере InterBase. InterBase – «родной» сервер для Delphi. Для доступа к нему не нужно устанавливать дополнительных драйверов. Все данные хранятся на сервере в файле baze.gdb.

Предметная область

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

Создание базы данных

Структура таблиц и связей между ними:


Рис. 1

Форматы полей в таблицах:

CREATE TABLE CHASTT (

  KOD INTEGER NOT NULL,

  VCH VARCHAR(20) NOT NULL

)

CREATE TABLE MODELL (

  KOD3 INTEGER NOT NULL,

  MODEL VARCHAR(160) NOT NULL,

  K2 INTEGER

)

CREATE TABLE NAIMM (

  KOD2 INTEGER NOT NULL,

  NAIM VARCHAR(160) NOT NULL,

  K1 INTEGER

)

CREATE TABLE RAZDELL (

  KOD1 INTEGER NOT NULL,

  RAZDEL VARCHAR(160) NOT NULL

)

CREATE TABLE SVODKA (

  KOD5 INTEGER NOT NULL,

  SERNO VARCHAR(20),

  K4 INTEGER NOT NULL,

  SER FLOAT,

  ZOL FLOAT,

  PT FLOAT,

  PG FLOAT,

  DVIP CHAR(4),

  DVVOD CHAR(4),

  DSPIS CHAR(4),

  SROK SMALLINT,

  KATEGOR SMALLINT,

  CENA FLOAT,

  PRIMECH CHAR(200),

  K3 INTEGER

)

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

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

CREATE TRIGGER NOVOE FOR RAZDELL BEFORE INSERT POSITION 0 AS

BEGIN

  new.kod1 = gen_id(gen1,1);

END

Удаленными процедурами не пользовался – хватило возможностей sql запросов для реализации всех потребностей.

Задал индексы по полям: Modell.model, naimm.naim, chastt.vch, razdell.razdel для увеличения скорости выполнения запросов.

Проектирование приложения в среде Delphi

Используемые средства

Приложение было написано в среде Delphi 7 на компьютере Athlon 1600+XP, что очень плохо, потому что приложение написано для компьютера, намного уступающего по мощности моему. Платформа БД – InterBase 6.0.

Формы


Первая форма типа DataModule – “DM”, на которой располагаются не визуальные компонента доступа к данным. Вид формы на этапе проектирования:

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

Назначение компонентов:

o   IBDataBase1 – создает соединение с БД InterBase. Есть свойство DataBaseName, которое указывает имя физической БД, с которой связан компонент. При связи с удаленной БД по протоколу TCP/IP имя записывается в формате <имя сервера>:<имя файла БД>; по протоколу NetBios – в формате \<имя сервера><имя файла БД>; по протоколу SPX – в формате <имя сервера>@<имя файла БД>. При запуске приложения расположение БД берется из файла del.ini:

  Inii := TIniFile.Create(getcurrentdir+'del.ini');

  try

   str:=Inii.ReadString( 'Baza', 'Put', '');

   ibdatabase1.databaseName:=str;

   IBDatabase1.Connected:=true;

   IBTransaction1.Active:=true;

   IBTable1.Active:=true;

   IBTable2.Active:=true;

   IBTable3.Active:=true;

   IBTable4.Active:=true;

   IBTable5.Active:=true;

   IBTable44.Active:=true;

Текст файла del.ini, если БД на локальном компьютере в папке D:interBase:

[Baza]

Put=D:interBasebase.gdb

Следущее использованное свойство – Params, которое содержит список параметров, которые передаются серверу в момент соединения:

USER_NAME=SYSDBA

PASSWORD=masterkey

lc_ctype=WIN1251

Тут задается имя пользователя и пароль – окно с запросом пароля при подключении не появляется.

o   IBTranzaction1 – транзакция

o   IBTable~ - аналог TTable. Отличается тем, что работает быстрее и грузит данные по надобности.

o   IBQyery~ - аналог TQuery.

o   OPDial – окно выбора файла – для загрузки запроса из файла.

При попытке сохранения записи в таблицу Svodka запускается процедура:

procedure TDM.IBTable1BeforePost(DataSet: TDataSet);

begin

  if ibtable1.fieldbyname('K4').AsString='' then begin

    MessageDlg('Введите номер воинской части',mterror,[mbok],0);

    ibtable1.fieldbyname('K4').FocusControl;

    abort;

  end;

  if ibtable1.fieldbyname('SerNo').AsString='' then begin

    MessageDlg('Введите серийный номер аппарата!', mterror, [mbok],0);

    ibtable1.fieldbyname('SerNo').FocusControl;

    abort;

  end;

  if ibtable1.fieldbyname('K3').AsString='' then begin

    MessageDlg('Введите модель аппарата!',mterror,[mbok],0);

    ibtable1.fieldbyname('K3').FocusControl;

    abort;

  end;

    if ibtable1.State=dsinsert then IBTable1. FieldByName('KOD5'). AsInteger:=-1; (*)

end;

Нужна для предотвращения занесения null в поля SerNo,K3,K4, по которым можно однозначно идентифицировать запись в наборе данных svodka (по ним можно построить ключ).

Еще один нюанс – если убрать строку (*), то при добавлении новой записи будет выдаваться ошибка, что не заполнено поле, на которое стоит ограничение not null. Эта ошибка возникает, потому что сервер interBase генерирует уникальное значение в поле “KOD5” после сохранения, а до сохранения он проверяет значение в поле “KOD5”, записи, полученной от клиентского приложения на пустое значение, то есть до генерации не доходит. Для того, чтобы этого избежать мы при добавлении новой записи заносим в поле “KOD5” любое числовое значение, которое все равно потом триггером поменяется на уникальное. Аналогичное действие мы проводим для всех таблиц.

FormMain и FormVvod2

FormMain – основная, родительская форма для всех остальных форм. Управление отображением дочерних окон внутри родительской осуществляется с помощью Api функции ShowWindow.

FormVvod2 – экранная форма с отображением параметров одного конкретно взятого прибора. Навигация идет по таблице Svodka, с которой связан компонент IBTable1 из формы DM. Воинская часть и модель отображаются с помощью связи компонента TLookupKomboBox из компонентов IBTable44 и IBTable5 соответственно.



Вид форм при работе программы:

FormVvod


Вид формы при работе программы:

В форме отображаются записи таблицы svodka, с которой связан компонент IBTable1. Добавил поля Lookup  в компонент IBTable и в таблице появились поля выбора воинской части и модели аппарата.

Vch

В форме – список всех воинских частей.

Вид:



Svazka


Вид формы:

С помощью галочки «Связанный набор» можно устанавливать или убирать связь между таблицами “Раздел”, “Наименование” и “Модель”. Тип связей: “Наименование” подчиненная для “Раздела”, а “Модель” – подчиненная для “Наименования”. Процедура клика на CheckBox:

procedure TSvazka.CheckClick(Sender: TObject);

begin

  if check.Checked then begin

    svazka.Caption:='Редактирование связанных таблиц: Раздел->Наименование->Модель';

    dm.IBTable3.active:=false;

    dm.IBTable4.active:=false;

    dm.IBTable3.IndexFieldNames:='K1';

    dm.IBTable3.MasterSource:=dm.DataSource2;

    dm.IBTable4.IndexFieldNames:='K2';

    dm.IBTable4.MasterSource:=dm.DataSource3;

    dm.IBTable3.active:=true;

    dm.IBTable4.active:=true;

  end

  else begin

    svazka.Caption:='Редактирование не связанных таблиц';

    dm.IBTable3.MasterSource:=nil;

    dm.IBTable3.IndexFieldNames:='NAIM';

    dm.IBTable4.MasterSource:=nil;

    dm.IBTable4.IndexFieldNames:='MODEL';

  end;

end;

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

Avt и Opr

О авторе и о программе.

ZaprVibr


Вид формы:

Форма нужна для выбора типа запроса(а по запросу формируем отчет).

Запросы

Поиск не списанного или списанного аппарата


Данные запросы почти полностью одинаковы, рассмотрим поиск не списанного аппарата.

Вид формы:

DbGrid связана с Zapr1 через DZapr.

Текст запроса:

select kod5,vch,model,serno,dvip,cena

from SVODKA,CHASTT,MODELL

where  K4 in

   (select KOD

    from CHASTT

    where UPPER(VCH) like upper(:pvch)

    )    and (UPPER(serno) like upper(:pserno)) 

               and (dspis is null)

                       and  K3 in

                       (select KOD3

                        from Modell

                        where UPPER(Model) like upper(:pmodel)

                        )

and svodka.k4=chastt.kod and svodka.k3=modell.kod3

order by vch

Тут используются вложенные запросы. Параметры берутся из полей edit. Для независимости от регистра используем процедуру UPPER. Процедура нажатия на кнопку «Выполнить»:

  with dm do begin

  Zapr1.Active:=false;

  if ch1.Checked then zapr1.ParamByName('pvch').Value:= '%'+edit1.Text+'%'

    else zapr1.ParamByName('pvch').Value:='%%';

  if ch2.Checked then zapr1.ParamByName('pserno').Value:= '%'+edit2.Text+'%'

    else zapr1.ParamByName('pserno').Value:='%%';

  if ch3.Checked then zapr1.ParamByName('pmodel').Value: ='%'+edit3.Text+'%'

    else zapr1.ParamByName('pmodel').Value:='%%';

  Zapr1.Active:=true;

  label2.Caption:=inttostr(zapr1.RecordCount);

  end;

При нажатии на кнопку просто задаются параметры sql запросу. В SQL используется оператор Like – для поиска по части строки символы %, стоящие в начале и в конце параметра означают, что вместо них могут стоять любые другие.

Работает запрос так: ищутся такие записи в svodka, у которых K4 и K3 находятся из вложенных запросов как коды записей с частичным совпадением не ключевых полей с заданными параметрами “pvch” и “pmodel”, и серийный номер частично совпадает с “pserno”.

Аппарат является не списанным, если в поле “DSpis” (Дата списания) содержится значение null. Если нам надо найти списанный аппарат, то запрос будет почти такой же, только DSpis is not null. Поэтому поиск списанного аппарата я рассматривать не буду.

Отобранные записи сортируются по номеру воинской части (Order by vch).

Кнопка «Перейти» нужна для перехода в таблице IBTable1  к аппарату, который является текущим в таблице отобранных с помощью запроса аппаратов. Процедура нажатия на кнопку «Перейти»:

procedure TZ1.SpeedButton1Click(Sender: TObject);

begin

dm.IBTable1.Locate('KOD5',vararrayof([dm.zapr1.FieldByName('kod5').Value]),[]);

  ShowWindow(formvvod2.Handle, SW_SHOW);

  formvvod2.Show;

end;

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


Поиск аппарата по группам


После выбора данного вида поиска на экране появляется форма “Svazka”, дополненная несколькими элементами. Ее вид:

Добавились 3 CheckBox – для выбора по какому критерию мы будем отбирать аппараты. Одновременно больше одного критерия быть выбрано не может. Процедура нажатия на кнопку «Выполнить»:

procedure TSvazka.SpeedButton2Click(Sender: TObject);

begin

  with dm do begin

    Zapr3.Active:=false;

    zapr3.SQL.Clear;

    zapr3.SQL.Add('select *');

    zapr3.SQL.Add('from naimm,modell,chastt,svodka');

    if c3.Checked then begin

      zapr3.SQL.Add('where svodka.k3= '+dm.ibtable4.fieldbyname('KOD3').AsString);

      zapr3.SQL.Add('and modell.kod3= '+dm.ibtable4.fieldbyname('KOD3').AsString);

      zapr3.SQL.Add('and modell.k2=naimm.kod2');

      zapr3.SQL.Add('and svodka.k4=chastt.kod');

    end

    else if c2.Checked then begin

      zapr3.SQL.Add('where svodka.k3=modell.kod3');

      zapr3.SQL.Add('and naimm.kod2= '+dm.ibtable3.fieldbyname('KOD2').AsString);

      zapr3.SQL.Add('and modell.k2= '+dm.ibtable3.fieldbyname('KOD2').AsString);

      zapr3.SQL.Add('and svodka.k4=chastt.kod');

    end

    else if c1.Checked then begin

      zapr3.SQL.Add('where svodka.k3=modell.kod3');

      zapr3.SQL.Add('and modell.k2=naimm.kod2');

      zapr3.SQL.Add('and naimm.k1= '+dm.ibtable2.fieldbyname('KOD1').AsString);

      zapr3.SQL.Add('and svodka.k4=chastt.kod');

    end;

    zapr3.SQL.Add('and  svodka.k4=chastt.kod');

    zapr3.SQL.Add('order by vch');

    if c1.Checked or c2.Checked or c3.Checked then Zapr3.Active:=true

    else messagedlg('Надо выделить хоть одну категорию!',mtinformation,[mbok],0);

    z3.label2.Caption:=inttostr(zapr3.RecordCount);

  end;

    ShowWindow(z3.Handle, SW_SHOW);

    z3.Show;

end;

Процедура заполняет sql запрос компонента zapr3 и выводит на экран форму “Z3” с результатом:

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

Загрузка запроса из файла.

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

Пример:

Текст запроса в файле «Все из сводки.sql»:

select *

from svodka

/* грузит все из таблицы сводки */


Форма с результатами:

Список аппаратов в определенной части

Для этого запроса меня просили сделать отчет. Запрос показывает все аппараты в заданной воинской части со всеми их характеристиками.

Поиск идет по неполному совпадению (Like). Но если нужен отчет, то надо задать номер воинской части полностью (чтоб по нескольким воинским частям выборки не произошло).



Вид формы:

Текст sql запроса:

select vch,razdel,naim,model,serno,dspis,dvvod,cena,ser,zol,pt,pg,kod5

from chastt,razdell,naimm,modell,svodka

where

chastt.vch like :par   

and         svodka.k4=chastt.kod

and         svodka.k3=modell.kod3

and         naimm.kod2=modell.k2

and         razdell.kod1=naimm.k1

order by vch,razdel,naim,model,dspis

Этот запрос я сделал без подзапросов (не знаю что быстрее, наверное быстрее без подзапросов, зато с подзапросами нагляднее).

Формирование отчета.

В Delphi 7 отчеты делаются уже не с помощью компонентов QReport, а с помощью Rave Report. Вкладки QReport больше не существует. Так как система Delphi 7 вышла недавно, то пришлось разбираться по справке. В общем то принципы остались те же – разбитие документа на несколько полос и т. д. Для работы с отчетами на форме расположено два не визуальных компонента - RvProject1, с помощью которого идет связь с файлом проекта и RvDataSetConnection1 – связь с набором данных. Файл проекта строится с помощью утилиты Rave Designer. Отчет при проектировании выглядит так:


Я сформировал отчет, выровнял и сохранил как otch4.rav.


Вид отчета при работе приложения:

Отчет вызывается по нажатии на кнопку «Отчет» через метод execute компонента rvproject1.

Заключение

Самый сложный этап – формирование таблиц, связей между ними, ссылочной целостности. Типы данных в InterBase какие-то «корявые». Float – точность 7 знаков. Если вносишь десятичную дробь, целая часть у которой равна нулю, то в дробной части гарантируется точность до 7 знаков после запятой. Например, если внести 0.123, а потом сохранить запись, то в этом поле будет число 0.1230000004233858, что конечно же не наглядно и прибавляет программисту лишней головной боли. Тип varchar – доставляет пробелов до длины строки – опять неудобства – если максимальная длина строки – 120 символов, а там допустим слово из 5 букв, то будет сохранено слово+115 пробелов перед ним, теперь смотрим в поле – видим пусто (если поле длиной меньше 120 символов). При попытке переформировать таблицу данные исчезают. Возможно это неудобство InterBase, но есть системы и лучше – MS SQLServer, Oracl. После соединения с сетевой базой данных работа с ней мало чем отличается от работы с локальной базой данных.

Я получил приложение, которое осуществляет все виды операций с удаленной базой данных, такие, как вставка, удаление, выборка данных. Подключение идет через стандартные сетевые протоколы к серверу баз данных InterBase. Если сравнивать локальные и сетевые базы данных, то, на мой взгляд, будущее за сетевыми базами данных, а локальные базы будут уходить в прошлое. Причина – широкое распространение локальных сетей и сети Internet. Проще подключиться к сети, сформировать запрос и тут же получить нужные данные, чем хранить все на своем компьютере. Как видно из моей работы, с помощью объектно-ориентированного программирования строить сложное приложение становится все проще и проще, растут мощности компьютеров, объемы ОЗУ и ПЗУ и приложения работают с базами данных все быстрее и быстрее.


Список используемой литературы:

1. «Microsoft® Access 2000», И.А. Харитонова, В.Д. Михеева, издательство «БХВ - Петербург», 1999

2. «Базы данных: Учебный курс», С.В. Глушаков, Д.В. Ломотько, ООО «Издательство АСТ», 2000

3. «Delphi 5 Руководство разработчика баз данных», В.В. Фаронов, П.В. Шумаков, издательство «Нолидж», 2001

4. «Работа с базами данных в Delphi», В.Э. Гофман, А.Д. Хомоненко, «БХВ - Петербург», 2000

5. «Microsoft SQL Server 7 для профессионалов», Е. Мамаев, А. Вишневский, 2000

6. Файлы справки по Delphi7.


Листинг программы

unit Unit1;



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TFormMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    procedure N10Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

uses Unit4, Unit2, Unit6, Unit5, Unit7, Unit13, Unit14;

{$R *.dfm}

procedure TFormMain.N10Click(Sender: TObject);
begin
  with svazka do begin
    Caption:='Редактирование связанных таблиц: Раздел->Наименование->Модель';
    C1.Visible:=false;       dbgrid1.ReadOnly:=false;
    C2.Visible:=false;       dbgrid2.ReadOnly:=false;
    C3.Visible:=false;       dbgrid3.ReadOnly:=false;
    SpeedButton2.Visible:=false;
  end;
  ShowWindow(Svazka.Handle, SW_SHOW);
  svazka.Show;
end;

procedure TFormMain.N7Click(Sender: TObject);
begin
  ShowWindow(formvvod.Handle, SW_SHOW);
  formvvod.Show;
end;

procedure TFormMain.N8Click(Sender: TObject);
begin
  ShowWindow(formvvod2.Handle, SW_SHOW);
  formvvod2.Show;
end;

procedure TFormMain.N9Click(Sender: TObject);
begin
  ShowWindow(vch.Handle, SW_SHOW);
  vch.Show;
end;

procedure TFormMain.N6Click(Sender: TObject);
begin
  close;
end;

procedure TFormMain.N3Click(Sender: TObject);
begin
  ShowWindow(zaprvibr.Handle, SW_SHOW);
  zaprvibr.Show;
end;

procedure TFormMain.N13Click(Sender: TObject);
begin
  ShowWindow(avtor.Handle, SW_SHOW);
  avtor.Show;
end;

procedure TFormMain.N12Click(Sender: TObject);
begin
  ShowWindow(Opr.Handle, SW_SHOW);
  Opr.Show;
end;

end.

unit Unit2;



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls;

type
  TFormVvod = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormVvod: TFormVvod;

implementation

uses Unit3, Unit4;

{$R *.dfm}

procedure TFormVvod.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShowWindow(Formvvod.Handle, SW_HIDE);
  action:=canone;
end;

end.

unit Unit3;



interface

uses
  SysUtils, Classes, DB, IBCustomDataSet, IBTable, IBDatabase, Qdialogs,
  IBQuery, Dialogs,inifiles;

type
  TDM = class(TDataModule)
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    IBTable1: TIBTable;
    IBTable2: TIBTable;
    IBTable3: TIBTable;
    IBTable4: TIBTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    IBTable5: TIBTable;
    DataSource5: TDataSource;
    IBTable1KOD5: TIntegerField;
    IBTable1SERNO: TIBStringField;
    IBTable1K4: TIntegerField;
    IBTable1SER: TFloatField;
    IBTable1ZOL: TFloatField;
    IBTable1PT: TFloatField;
    IBTable1PG: TFloatField;
    IBTable1DVIP: TIBStringField;
    IBTable1DVVOD: TIBStringField;
    IBTable1DSPIS: TIBStringField;
    IBTable1SROK: TSmallintField;
    IBTable1KATEGOR: TSmallintField;
    IBTable1CENA: TFloatField;
    IBTable1PRIMECH: TIBStringField;
    IBTable1K3: TIntegerField;
    IBTable44: TIBTable;
    DataSource44: TDataSource;
    IBTable1Look4: TStringField;
    IBTable1Look3: TStringField;
    Zapr1: TIBQuery;
    DZapr: TDataSource;
    Zapr1VCH: TIBStringField;
    Zapr1MODEL: TIBStringField;
    Zapr1SERNO: TIBStringField;
    Zapr1DVIP: TIBStringField;
    Zapr1CENA: TFloatField;
    Zapr1KOD5: TIntegerField;
    Zapr2: TIBQuery;
    IBStringField1: TIBStringField;
    IBStringField2: TIBStringField;
    IBStringField3: TIBStringField;
    IBStringField4: TIBStringField;
    FloatField1: TFloatField;
    IntegerField1: TIntegerField;
    Zapr2DSPIS: TIBStringField;
    Zapr2PRIMECH: TIBStringField;
    DZapr2: TDataSource;
    Zapr3: TIBQuery;
    DZapr3: TDataSource;
    Zapr3NAIM: TIBStringField;
    Zapr3MODEL: TIBStringField;
    Zapr3VCH: TIBStringField;
    Zapr3SERNO: TIBStringField;
    Zapr3DSPIS: TIBStringField;
    Zapr3CENA: TFloatField;
    Zapr3KOD5: TIntegerField;
    Zapr4: TIBQuery;
    DZapr4: TDataSource;
    Zapr4VCH: TIBStringField;
    Zapr4RAZDEL: TIBStringField;
    Zapr4NAIM: TIBStringField;
    Zapr4MODEL: TIBStringField;
    Zapr4SERNO: TIBStringField;
    Zapr4DSPIS: TIBStringField;
    Zapr4DVVOD: TIBStringField;
    Zapr4CENA: TFloatField;
    Zapr4SER: TFloatField;
    Zapr4ZOL: TFloatField;
    Zapr4PT: TFloatField;
    Zapr4PG: TFloatField;
    Zapr5: TIBQuery;
    DZapr5: TDataSource;
    OpDial: TOpenDialog;
    Zapr4KOD5: TIntegerField;
    procedure IBTable2BeforePost(DataSet: TDataSet);
    procedure IBTable3BeforePost(DataSet: TDataSet);
    procedure IBTable4BeforePost(DataSet: TDataSet);
    procedure IBTable2AfterPost(DataSet: TDataSet);
    procedure IBTable3AfterPost(DataSet: TDataSet);
    procedure IBTable4AfterPost(DataSet: TDataSet);
    procedure IBTable5BeforePost(DataSet: TDataSet);
    procedure IBTable5AfterPost(DataSet: TDataSet);
    procedure IBTable1BeforePost(DataSet: TDataSet);
    procedure IBTable1AfterPost(DataSet: TDataSet);
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;
implementation

uses Unit4;

{$R *.dfm}

procedure TDM.IBTable2BeforePost(DataSet: TDataSet);
begin
  if ibtable2.State=dsinsert then IBTable2.FieldByName('KOD1').AsInteger:=-1;
end;

procedure TDM.IBTable3BeforePost(DataSet: TDataSet);
var str:ansistring;
begin
  if ibtable2.State=dsinsert then begin   // если у нас верхняя таблица в режиме вставки
    str:=ibtable3.fieldbyname('NAIM').AsString;
    ibtable3.Cancel;
    ibtable2.Post;
    ibtable3.Append;
    ibtable3.fieldbyname('NAIM').AsString:=str;
  end;
  if ibtable3.State=dsinsert then IBTable3.FieldByName('KOD2').AsInteger:=-1;
end;

procedure TDM.IBTable4BeforePost(DataSet: TDataSet);
var str:ansistring;
begin
  if ibtable3.State=dsinsert then begin   // если у нас верхняя таблица в режиме вставки
    str:=ibtable4.fieldbyname('MODEL').AsString;
    ibtable4.Cancel;
    ibtable3.Post;
    ibtable4.Append;
    ibtable4.fieldbyname('MODEL').AsString:=str;
  end;
    if ibtable4.State=dsinsert then IBTable4.FieldByName('KOD3').AsInteger:=-1;
end;

procedure TDM.IBTable2AfterPost(DataSet: TDataSet);
begin
  ibtable2.Close;    ibtable2.open;     ibtable2.Last;
end;

procedure TDM.IBTable3AfterPost(DataSet: TDataSet);
begin
  ibtable3.Close;     ibtable3.open;        ibtable3.Last;
end;

procedure TDM.IBTable4AfterPost(DataSet: TDataSet);
begin
  ibtable4.Close;     ibtable4.open;      ibtable4.Last;
end;

procedure TDM.IBTable5BeforePost(DataSet: TDataSet);
begin
  if ibtable5.State=dsinsert then IBTable5.FieldByName('KOD').AsInteger:=-1;
end;

procedure TDM.IBTable5AfterPost(DataSet: TDataSet);
begin
  ibtable5.Close;    ibtable5.open;       ibtable5.Last;
end;

procedure TDM.IBTable1BeforePost(DataSet: TDataSet);
begin
  if ibtable1.fieldbyname('K4').AsString='' then begin
    MessageDlg('Введите номер воинской части',mterror,[mbok],0);
    ibtable1.fieldbyname('K4').FocusControl;
    abort;
  end;
  if ibtable1.fieldbyname('SerNo').AsString='' then begin
    MessageDlg('Введите серийный номер аппарата!',mterror,[mbok],0);
    ibtable1.fieldbyname('SerNo').FocusControl;
    abort;
  end;
  if ibtable1.fieldbyname('K3').AsString='' then begin
    MessageDlg('Введите модель аппарата!',mterror,[mbok],0);
    ibtable1.fieldbyname('K3').FocusControl;
    abort;
  end;
    if ibtable1.State=dsinsert then IBTable1.FieldByName('KOD5').AsInteger:=-1;
end;

procedure TDM.IBTable1AfterPost(DataSet: TDataSet);
begin
  ibtable1.Close;    ibtable1.open;       ibtable1.Last;
end;

procedure TDM.DataModuleCreate(Sender: TObject);
var
  Inii: TIniFile;
  str:ansistring;
begin
  Inii := TIniFile.Create(getcurrentdir+'del.ini');
  try
   str:=Inii.ReadString( 'Baza', 'Put', '');
   ibdatabase1.databaseName:=str;
   IBDatabase1.Connected:=true;
   IBTransaction1.Active:=true;
   IBTable1.Active:=true;
   IBTable2.Active:=true;
   IBTable3.Active:=true;
   IBTable4.Active:=true;
   IBTable5.Active:=true;
   IBTable44.Active:=true;
  finally
    inii.Free;
  end;
end;

end.

unit Unit4;


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, Buttons;

type
  TSvazka = class(TForm)
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBNavigator1: TDBNavigator;
    DBNavigator2: TDBNavigator;
    DBNavigator3: TDBNavigator;
    Check: TCheckBox;
    C1: TCheckBox;
    C2: TCheckBox;
    C3: TCheckBox;
    SpeedButton2: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckClick(Sender: TObject);
    procedure C3Click(Sender: TObject);
    procedure C2Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Svazka: TSvazka;

implementation

uses Unit3, Unit10;

{$R *.dfm}

procedure TSvazka.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShowWindow(Svazka.Handle, SW_HIDE);
  action:=canone;
  dm.IBTable44.Close;     dm.IBTable44.Open;
end;

procedure TSvazka.CheckClick(Sender: TObject);
begin
  if check.Checked then begin
    svazka.Caption:='Редактирование связанных таблиц: Раздел->Наименование->Модель';
    dm.IBTable3.active:=false;
    dm.IBTable4.active:=false;
    dm.IBTable3.IndexFieldNames:='K1';
    dm.IBTable3.MasterSource:=dm.DataSource2;
    dm.IBTable4.IndexFieldNames:='K2';
    dm.IBTable4.MasterSource:=dm.DataSource3;
    dm.IBTable3.active:=true;
    dm.IBTable4.active:=true;
  end
  else begin
    svazka.Caption:='Редактирование не связанных таблиц';
    dm.IBTable3.MasterSource:=nil;
    dm.IBTable3.IndexFieldNames:='NAIM';
    dm.IBTable4.MasterSource:=nil;
    dm.IBTable4.IndexFieldNames:='MODEL';
  end;
end;

procedure TSvazka.C3Click(Sender: TObject);
begin
if c3.Checked then begin
  c2.Checked:=false;
  c1.Checked:=false;
end;
end;

procedure TSvazka.C2Click(Sender: TObject);
begin
if c2.Checked then begin
  c3.Checked:=false;
  c1.Checked:=false;
end;
end;

procedure TSvazka.C1Click(Sender: TObject);
begin
if c1.Checked then begin
  c2.Checked:=false;
  c3.Checked:=false;
end;
end;

procedure TSvazka.SpeedButton2Click(Sender: TObject);
begin
  with dm do begin
    Zapr3.Active:=false;
    zapr3.SQL.Clear;
{
select *
from naimm,modell,chastt,svodka
where     svodka.k3=modell.kod3
and         modell.k2=naimm.kod2
and         naimm.k1=24
and         svodka.k4=chastt.kod
order by vch
}
    zapr3.SQL.Add('select *');
    zapr3.SQL.Add('from naimm,modell,chastt,svodka');
    if c3.Checked then begin
{where     svodka.k3=41
and         modell.kod3=41
and         modell.k2=naimm.kod2
and         svodka.k4=chastt.kod}
      zapr3.SQL.Add('where svodka.k3='+dm.ibtable4.fieldbyname('KOD3').AsString);
      zapr3.SQL.Add('and modell.kod3='+dm.ibtable4.fieldbyname('KOD3').AsString);
      zapr3.SQL.Add('and modell.k2=naimm.kod2');
      zapr3.SQL.Add('and svodka.k4=chastt.kod');
    end
    else if c2.Checked then begin
      zapr3.SQL.Add('where svodka.k3=modell.kod3');
      zapr3.SQL.Add('and naimm.kod2='+dm.ibtable3.fieldbyname('KOD2').AsString);
      zapr3.SQL.Add('and modell.k2='+dm.ibtable3.fieldbyname('KOD2').AsString);
      zapr3.SQL.Add('and svodka.k4=chastt.kod');
    end
    else if c1.Checked then begin
      zapr3.SQL.Add('where svodka.k3=modell.kod3');
      zapr3.SQL.Add('and modell.k2=naimm.kod2');
      zapr3.SQL.Add('and naimm.k1='+dm.ibtable2.fieldbyname('KOD1').AsString);
      zapr3.SQL.Add('and svodka.k4=chastt.kod');
    end;
    zapr3.SQL.Add('and  svodka.k4=chastt.kod');
    zapr3.SQL.Add('order by vch');
    if c1.Checked or c2.Checked or c3.Checked then Zapr3.Active:=true
    else messagedlg('Надо выделить хоть одну категорию!',mtinformation,[mbok],0);
    z3.label2.Caption:=inttostr(zapr3.RecordCount);
  end;
    ShowWindow(z3.Handle, SW_SHOW);
    z3.Show;
end;

end.

unit Unit5;



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids;

type
  TVch = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Vch: TVch;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TVch.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShowWindow(vch.Handle, SW_HIDE);
  action:=canone;
end;

end.

unit Unit6;



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, StdCtrls, ExtCtrls, Mask;

type
  TFormVvod2 = class(TForm)
    Label1: TLabel;
    DBNavigator1: TDBNavigator;
    DBLookupComboBox1: TDBLookupComboBox;
    Label2: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    Bevel1: TBevel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBComboBox1: TDBComboBox;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormVvod2: TFormVvod2;

implementation

uses Unit3;

{$R *.dfm}

procedure TFormVvod2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShowWindow(Formvvod2.Handle, SW_HIDE);
  action:=canone;
end;

end.

unit Unit7;



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TZaprVibr = class(TForm)
    RG: TRadioGroup;
    SpeedButton1: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZaprVibr: TZaprVibr;

implementation

uses Unit8, Unit9, Unit4, Unit11, Unit12;

{$R *.dfm}

procedure TZaprVibr.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShowWindow(Handle, SW_HIDE);
  action:=canone;
end;

procedure TZaprVibr.SpeedButton1Click(Sender: TObject);
begin
case rg.ItemIndex of
  0:begin
    ShowWindow(z1.Handle, SW_SHOW);
    z1.Show;
  end;
  1:begin
    ShowWindow(z2.Handle, SW_SHOW);
    z2.Show;
  end;
  2:begin
  svazka.Caption:='Поиск записей по разделу, наименованию или разделу';
    with svazka do begin
      C1.Visible:=true;       dbgrid1.ReadOnly:=true;
      C2.Visible:=true;       dbgrid2.ReadOnly:=true;
      C3.Visible:=true;       dbgrid3.ReadOnly:=true;
      SpeedButton2.Visible:=true;
    end;
    ShowWindow(Svazka.Handle, SW_SHOW);
    svazka.Show;
  end;
  3:begin
    ShowWindow(z4.Handle, SW_SHOW);
    z4.Show;
  end;
  4:begin
    ShowWindow(z5.Handle, SW_SHOW);
    z5.Show;
  end;
end;
close;
end;

end.

unit Unit8;



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, Buttons, StdCtrls;

type
  TZ1 = class(TForm)
    SpeedButton2: TSpeedButton;
    DBGrid1: TDBGrid;
    Ch1: TCheckBox;
    Ch2: TCheckBox;
    Ch3: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure SpeedButton2Click(Sender: TObject);
    procedure Ch1Click(Sender: TObject);
    procedure Ch2Click(Sender: TObject);
    procedure Ch3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Z1: TZ1;

implementation

uses Unit3, Unit6;

{$R *.dfm}

procedure TZ1.SpeedButton2Click(Sender: TObject);
begin
  with dm do begin
  Zapr1.Active:=false;
  if ch1.Checked then zapr1.ParamByName('pvch').Value:='%'+edit1.Text+'%'
    else zapr1.ParamByName('pvch').Value:='%%';
  if ch2.Checked then zapr1.ParamByName('pserno').Value:='%'+edit2.Text+'%'
    else zapr1.ParamByName('pserno').Value:='%%';
  if ch3.Checked then zapr1.ParamByName('pmodel').Value:='%'+edit3.Text+'%'
    else zapr1.ParamByName('pmodel').Value:='%%';
  Zapr1.Active:=true;
  label2.Caption:=inttostr(zapr1.RecordCount);
  end;
end;

procedure TZ1.Ch1Click(Sender: TObject);
begin
  edit1.Enabled:=ch1.Checked;
end;

procedure TZ1.Ch2Click(Sender: TObject);
begin
  edit2.Enabled:=ch2.Checked;
end;

procedure TZ1.Ch3Click(Sender: TObject);
begin
  edit3.Enabled:=ch3.Checked;
end;

procedure TZ1.SpeedButton1Click(Sender: TObject);
begin
  dm.IBTable1.Locate('KOD5',vararrayof([dm.zapr1.FieldByName('kod5').Value]),[]);
  ShowWindow(formvvod2.Handle, SW_SHOW);
  formvvod2.Show;
end;

procedure TZ1.DBGrid1DblClick(Sender: TObject);
begin
  speedbutton1.Click;
end;

procedure TZ1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.Zapr1.Active:=false;
  ShowWindow(Handle, SW_HIDE);
  action:=canone;
end;

end.

unit Unit9;



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Buttons;

type
  TZ2 = class(TForm)
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    Ch1: TCheckBox;
    Ch2: TCheckBox;
    Ch3: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure SpeedButton2Click(Sender: TObject);
    procedure Ch1Click(Sender: TObject);
    procedure Ch2Click(Sender: TObject);
    procedure Ch3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Z2: TZ2;

implementation

uses Unit3, Unit6;

{$R *.dfm}

procedure TZ2.SpeedButton2Click(Sender: TObject);
begin
  with dm do begin
  Zapr2.Active:=false;
  if ch1.Checked then zapr2.ParamByName('pvch').Value:='%'+edit1.Text+'%'
    else zapr2.ParamByName('pvch').Value:='%%';
  if ch2.Checked then zapr2.ParamByName('pserno').Value:='%'+edit2.Text+'%'
    else zapr2.ParamByName('pserno').Value:='%%';
  if ch3.Checked then zapr2.ParamByName('pmodel').Value:='%'+edit3.Text+'%'
    else zapr2.ParamByName('pmodel').Value:='%%';
  Zapr2.Active:=true;
  label2.Caption:=inttostr(zapr2.RecordCount);
  end;
end;

procedure TZ2.Ch1Click(Sender: TObject);
begin
  edit1.Enabled:=ch1.Checked;
end;

procedure TZ2.Ch2Click(Sender: TObject);
begin
  edit2.Enabled:=ch2.Checked;
end;

procedure TZ2.Ch3Click(Sender: TObject);
begin
  edit3.Enabled:=ch3.Checked;
end;

procedure TZ2.SpeedButton1Click(Sender: TObject);
begin
  dm.IBTable1.Locate('KOD5',vararrayof([dm.zapr1.FieldByName('kod5').Value]),[]);
  ShowWindow(formvvod2.Handle, SW_SHOW);
  formvvod2.Show;
end;

procedure TZ2.DBGrid1DblClick(Sender: TObject);
begin
  speedbutton1.Click;
end;

procedure TZ2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.Zapr2.Active:=false;
  ShowWindow(Handle, SW_HIDE);
  action:=canone;
end;

end.

unit Unit10;



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons;

type
  TZ3 = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Z3: TZ3;

implementation

uses Unit3, Unit6;

{$R *.dfm}

procedure TZ3.SpeedButton1Click(Sender: TObject);
begin
  dm.IBTable1.Locate('KOD5',vararrayof([dm.zapr3.FieldByName('kod5').Value]),[]);
  ShowWindow(formvvod2.Handle, SW_SHOW);
  formvvod2.Show;
end;

procedure TZ3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.Zapr3.Active:=false;
  ShowWindow(Handle, SW_HIDE);
  action:=canone;
end;

procedure TZ3.DBGrid1DblClick(Sender: TObject);
begin
  speedbutton1.Click;
end;

end.

unit Unit11;



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, RpRave, RpDefine, RpCon,
  RpConDS;

type
  TZ4 = class(TForm)
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SpeedButton3: TSpeedButton;
    RvDataSetConnection1: TRvDataSetConnection;
    RvProject1: TRvProject;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Z4: TZ4;

implementation

uses Unit3, Unit6;

{$R *.dfm}

procedure TZ4.SpeedButton2Click(Sender: TObject);
begin
  with dm do begin
  Zapr4.Active:=false;
  zapr4.ParamByName('par').Value:='%'+edit1.text+'%';
  Zapr4.Active:=true;
  label2.Caption:=inttostr(zapr4.RecordCount);
  end;
end;

procedure TZ4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.Zapr4.Active:=false;
  ShowWindow(Handle, SW_HIDE);
  action:=canone;
end;

procedure TZ4.SpeedButton1Click(Sender: TObject);
begin
  dm.IBTable1.Locate('KOD5',vararrayof([dm.zapr4.FieldByName('kod5').Value]),[]);
  ShowWindow(formvvod2.Handle, SW_SHOW);
  formvvod2.Show;
end;

procedure TZ4.DBGrid1DblClick(Sender: TObject);
begin
  speedbutton1.Click;
end;

procedure TZ4.SpeedButton3Click(Sender: TObject);
begin
  rvproject1.Execute;
end;

end.

unit Unit12;



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, Grids, DBGrids, StdCtrls;

type
  TZ5 = class(TForm)
    SpeedButton2: TSpeedButton;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Z5: TZ5;

implementation

uses Unit3;

{$R *.dfm}

procedure TZ5.SpeedButton2Click(Sender: TObject);
var fil:ansistring;
begin
  with dm do begin
    zapr5.SQL.Clear;
    Zapr5.Active:=false;
    opdial.execute;
    fil:=opdial.filename;
    zapr5.SQL.LoadFromFile(fil);
    try Zapr5.Active:=true;
    except begin
    messagedlg('Ошибка в формате sql запроса',mterror,[mbok],0);
    end;
    end;
    label2.Caption:=inttostr(zapr5.RecordCount);
  end;
end;

procedure TZ5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.Zapr5.Active:=false;
  ShowWindow(Handle, SW_HIDE);
  action:=canone;
end;

end.

unit Unit13;



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TAvtor = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Image1: TImage;
    Label6: TLabel;
    procedure FormClick(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Avtor: TAvtor;

implementation

{$R *.dfm}

procedure TAvtor.FormClick(Sender: TObject);
begin
  close;
end;

procedure TAvtor.Image1Click(Sender: TObject);
begin
  close;
end;

procedure TAvtor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShowWindow(Handle, SW_HIDE);
  action:=canone;
end;

end.

unit Unit14;



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  ToPr = class(TForm)
    Memo1: TMemo;
    procedure Memo1Click(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  oPr: ToPr;

implementation

{$R *.dfm}

procedure ToPr.Memo1Click(Sender: TObject);
begin
  close;
end;

procedure ToPr.FormClick(Sender: TObject);
begin
  close;
end;

procedure ToPr.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShowWindow(Handle, SW_HIDE);
  action:=canone;
end;

end.

Министерство образования Российской Федерации Хабаровский Государственный Технический Университет Кафедра программного обеспечения вычислительной техники и автоматизированных систем

 

 

 

Внимание! Представленная Курсовая находится в открытом доступе в сети Интернет, и уже неоднократно сдавалась, возможно, даже в твоем учебном заведении.
Советуем не рисковать. Узнай, сколько стоит абсолютно уникальная Курсовая по твоей теме:

Новости образования и науки

Заказать уникальную работу

Похожие работы:

Создание игры
Трансформация XML документов
1С : Торговля + склад
Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология
Транспортная задача
Разработка программы расчета определенного интеграла по формуле Буля по схеме двойного пересчета с заданной точностью
Информационные системы и технологии
Интеграция Word с приложениями и объектами
Создание экспертных систем в среде EXSYS
База данных - Бактериологическая испытательная лаборатория Боханского района

Свои сданные студенческие работы

присылайте нам на e-mail

Client@Stud-Baza.ru