Читайте данную работу прямо на сайте или скачайте
Разработка базы данных
|
Задание
Разработка клиент - серверного приложения.
Введение в технологию клиент-сервер
База данных представляет собой набор файлов на сетевом сервере. Характерная особенность архитектуры клиент-сервер является перенос вычислительной нагрузки на сервер БД(SQL сервер), а также максимальная разгрузка клиента от вычислительной работы и существенное укрепление данных. Взаимодействие сервера и клиента реализуется с помощью SQL запросов, которые формирует и отсылает серверу клиент. Сервер, приняв запрос, выполняет его и возвращает результат клиенту. В клиентском приложении в основном осуществляется интерпретация полученных от сервера данных, реализация пользовательского интерфейса, также реализация части бизнес - правил.
Преимущества архитектуры клиент - сервер:
o Большинство вычислительных процессов происходит на сервере, что снижает требования к вычислительной мощности клиента.
o Снижается сетевой трафик, так как пересылаются не все данные, только запрошенные.
o БД на сервере представляет единый файл, в котором содержатся таблицы, ограничения целостности и другие компоненты БД. Взломать, похитить или испортить такую БД значительно труднее; существенно величивается защищенность БД от ввода неправильных значений. Кроме того для каждого пользователя станавливаются свои уровни доступа.
o Сервер реализует правление транзакциями и предотвращаета попытки одновременного изменения одних и тех же данных.
Сервер базы данных
При выборе сервера базы данных я остановился на промышленном сервере InterBase. InterBase - лродной сервер для Delphi. Для доступа к нему не нужно станавливать дополнительных драйверов. Все данные хранятся на сервере в файле baze.gdb.
Предметная область
Программа предназначена для чета медицинских аппаратов, имеющихся в воинских частях. Основная задача - чет драгоценных металлов, содержащихся в этих аппаратах, возможность подсчета списанных, не списанных и общего числа аппаратов в отдельно взятой части и сумма драг. металлов, в них содержащихся.
Создание базы данных
Структура таблиц и связей между ними:
|
Форматы полей в таблицах:
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:\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 генерирует никальное значение в поле УKODФ после сохранения, до сохранения он проверяет значение в поле УKODФ, записи, полученной от клиентского приложения на пустое значение, то есть до генерации не доходит. Для того, чтобы этого избежать мы при добавлении новой записи заносим в поле УKODФ любое числовое значение, которое все равно потом триггером поменяется на уникальное. Аналогичное действие мы проводим для всех таблиц.
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 и выводит на экран форму УZФ с результатом:
В этой форме таблица связанна с 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.1234233858, что конечно же не наглядно и прибавляет программисту лишней головной боли. Тип varchar - доставляет пробелов до длины строки - опять неудобства - если максимальная длина строки - 120 символов, там допустим слово из 5 букв, то будет сохранено слово+115 пробелов перед ним, теперь смотрим в поле - видим пусто (если поле длиной меньше 120 символов). При попытке переформировать таблицу данные исчезают. Возможно это неудобство InterBase, но есть системы и лучше - MS SQLServer, Oracl. После соединения с сетевой базой данных работа с ней мало чем отличается от работы с локальной базой данных.
Я получил приложение, которое осуществляет все виды операций с даленной базой данных, такие, как вставка, даление, выборка данных. Подключение идет через стандартные сетевые протоколы к серверу баз данных InterBase. Если сравнивать локальные и сетевые базы данных, то, на мой взгляд, будущее за сетевыми базами данных, а локальные базы будут ходить в прошлое. Причина - широкое распространение локальных сетей и сети Internet. Проще подключиться к сети, сформировать запрос и тут же получить нужные данные, чем хранить все на своем компьютере. Как видно из моей работы, с помощью объектно-ориентированного программирования строить сложное приложение становится все проще и проще, растут мощности компьютеров, объемы ОЗУ и ПЗУ и приложения работают с базами данных все быстрее и быстрее.
Список используемой литературы:
1. Microsoftо Access 2, И.А. Харитонова, В.Д. Михеева, издательство БХВ - Петербург, 1
2. Базы данных: учебный курс, С.В. Глушаков, Д.В. Ломотько, Издательство АСТ, 2
3. Delphi 5 Руководство разработчика баз данных, В.В. Фаронов, П.В. Шумаков, издательство Нолидж, 2001
4. Работа с базами данных в Delphi, В.Э. Гофман, А.Д. Хомоненко, БХВ - Петербург, 2
5. Microsoft SQL Server 7 для профессионалов, Е. Мамаев, А. Вишневский, 2
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.