Разработка базы данных
|
Разработка клиент – серверного приложения.
Введение в технологию клиент-сервер
База данных представляет собой набор файлов на сетевом сервере. Характерная особенность архитектуры клиент-сервер является перенос вычислительной нагрузки на сервер БД(SQL сервер), а также максимальная разгрузка клиента от вычислительной работы и существенное укрепление данных. Взаимодействие сервера и клиента реализуется с помощью SQL запросов, которые формирует и отсылает серверу клиент. Сервер, приняв запрос, выполняет его и возвращает результат клиенту. В клиентском приложении в основном осуществляется интерпретация полученных от сервера данных, реализация пользовательского интерфейса, а также реализация части бизнес - правил.
Преимущества архитектуры клиент – сервер:
o Большинство вычислительных процессов происходит на сервере, что снижает требования к вычислительной мощности клиента.
o Снижается сетевой трафик, так как пересылаются не все данные, а только запрошенные.
o БД на сервере представляет единый файл, в котором содержатся таблицы, ограничения целостности и другие компоненты БД. Взломать, похитить или испортить такую БД значительно труднее; существенно увеличивается защищенность БД от ввода неправильных значений. Кроме того для каждого пользователя устанавливаются свои уровни доступа.
o Сервер реализует управление транзакциями и предотвращает попытки одновременного изменения одних и тех же данных.
Сервер базы данных
При выборе сервера базы
данных я остановился на промышленном сервере InterBase. InterBase – «родной» сервер для
Предметная область
Программа предназначена для учета медицинских аппаратов, имеющихся в воинских частях. Основная задача - учет драгоценных металлов, содержащихся в этих аппаратах, возможность подсчета списанных, не списанных и общего числа аппаратов в отдельно взятой части и сумма драг. металлов, в них содержащихся.
Создание базы данных
Структура таблиц и связей между ними:
|
Форматы полей в таблицах:
CREATE TABLE CHASTT (
KOD INTEGER NOT NULL,
VCH VARCHAR(20) NOT NULL
)
CREATE TABLE MODELL (
KOD3 INTEGER NOT NULL,
MODEL VARCHAR(160) NOT NULL,
)
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.
Формы
Для доступа к данным я использовал компоненты со вкладки 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:\interBase\base.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:='
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.