Разработка приложения "клиент-сервер" в Delphi

Размещено на http://www.allbest.ru/

КОНТРОЛЬНАЯ РАБОТА

Разработка приложения «клиент-сервер» в Delphi

Обзор компонент

Для работы с ADO на вкладке компонентов ADO есть шесть компонентов: TADOConnection, TADOCommand, TADODataSet, TADOTable, TADOQuery, TADOStoredProc.

Рис. 1. Палитра компонент ADO

TADOConnection используется для указания базы данных и работы транзакциями.

TADOTable - таблица доступная через ADO.

TADOQuery - запрос к базе данных. Это может быть как запрос, в результате которого возвращаются данные и базы (например, SELECT), так и запрос, не возвращающий данных (например, INSERT).

TADOStoredProc - вызов хранимой процедуры.

TADOCommand и TADODataSet являются наиболее общими компонентами для работы с ADO, но и наиболее сложными в работе. Оба компонента позволяют выполнять команды на языке провайдера данных (так в ADO называется драйвер базы данных).

Разница между ними в том, что команда, исполняемая через TADODataSet, должна возвращать набор данных и этот компонент позволяет работать с ними средствами Delphi (например, привязать компонент типа TDataSource). А компонент TADOCommand позволяет исполнять команды не возвращающие набор данных, но не имеет штатных средств Delphi для последующего использования возвращенного набора данных.

Очевидно, что все компоненты должны связываться с базой данных. Делается это двумя способами либо через компонент TADOConnection либо прямым указанием базы данных в остальных компонентах. К TADOConnection остальные компоненты привязываются с помощью свойства Connection, к базе данных напрямую через свойство ConnectionString.

программирование база данные алгоритм

Таблица 1. Основные компоненты вкладки ADO

Название	Основные свойства	Комментарии
TADOConnection Отвечает за связь с БД	ConnectionString	Содержит настройки для соединения с БД.
	LoginPromt	используется для указания того, нужно ли выводить диалоговое окно, предназначенное для ввода идентификатора пользователя и пароля при соединении с базой данных;
	Connected	указывает активность соединения: True означает соединение открыто, False-закрыто;
	Основные методы	Комментарии
	BeginTrans	используется для запуска новой транзакции и возвращает уровень вложенных транзакций;
	Close	закрывает открытое в текущий момент соединение
	CommitTrans	записывает в базу данных все изменения, произведенные текущей транзакцией, и завершает ее
	Execute	используется для выполнения запросов или хранимых процедур. Исполняемый оператор передается данному методу через параметр;
	Open	открывает соединение с источником данных, заданным в ConnnectionString
	RollbackTrans	отменяет все изменения, произведенные со времени последнего вызова метода BeginTrans, и завершает транзакцию без сохранения изменений.
	Основные свойства	Комментарии
TADOQuery Предназначен для работы с запросами	Connection	Cодержит имя компонента ADOConnection
	SQL	Запрос
TADOStoredProc Предназначен для работы с хранимыми процедурами	Connection	Cодержит имя компонента ADOConnection
	StoredProcName	Содержит имя хранимой процедуры

Алгоритм работы

1. Создаем новый DataModule, Выбираем пункт меню File\New\DataModule. Называем его DM.

Кидаем на DM компоненты ADOConnection, ADOQuery и три штуки ADOStoredProcedure. Как это выглядит смотри на рис.2

Рис.2 Вид DM

2. Настроить свойства компонентов

ADOConnection - смотри методичку.

ADOQuery 1 переименовываем в QVrash и в свойстве SQL пишем запрос:

Select * from Vrash

Свойство Connection - ADOConnectionl.

Создать статические поля для QVrash.

Для компонента ADOStoredProcl устанавливаем следующие свойства

* Name - ASPInsVrash

* Connection - ADOConnection 1

* ProcedureName - MainInsert; 1

Если щелкнешь на свойстве Parameters, то увидишь те параметры, которые мы будем передавать в процедуру.

Для компонента ADOStoredProc2 устанавливаем следующие свойства

* Name - ASPEdVrash

* Connection - ADOConnectionl

* ProcedureName - MainEdit; 1

Для компонента ADOStoredProc3 устанавливаем следующие свойства

* Name - ASPDelVrash

* Connection - ADOConnectionl

* ProcedureName - MainDelete; 1

На форму 1 разместить компоненты DBGrid, два Button, DataSource, MainMenu

Рис3. Форма 1

Кнопки переименовать в соответствии с рисунком

Для кнопки Обновить код

DM.QVrash.Close; //обновить н/д

DM.QVrash.Open;

Создаём меню

Рис. 3. Меню «Правка»

Создаём форму для добавления/редактирования: Компоненты EDIT

Программный код для пункта меню на форме 1 - ДОБАВЛЕНИЕ

Form3.Edit1.text:='';

Form3.Edit2.text:='';

Form3.Edit3.text:='';

Form3.Edit4.text:='';

Form3.showmodal;

Программный код для кнопки на форме 3 - ВСТАВКА

Begin

If (Edit1.text='') or (Edit2.Text='')or (Edit3.Text='') or (Edit4.Text='') then

begin

showmessage('Заполнены не все поля');

exit;

End;

Try

DM.ADOConnection1.BeginTrans;

with DM.ASPInsVrash do

Begin

Parameters.ParamByName('@ ID_Physician').Value:=StrToInt(Edit1.text);

Parameters.ParamByName('@ YYYY`).Value:=Edit2.Text;

Parameters.ParamByName('@YYYY ' ).Value:=Edit3.Text;

Parameters.ParamByName('@YYYY ').Value:=Edit4.text;

End;

DM. ASPInsVrash.ExecProc;

DM.ADOConnection1.CommitTrans;

Form3.Close;

Except

DM.ADOConnection1.RollbackTrans;

ShowMessage('Невозможно выполнить. Повторите.');

End;

DM. QVrash.Close;

DM. QVrash.Open;

End;

Размещено на http://www.allbest.ru/

Программный код для пункта меню на форме 1 - РЕДАКТИРОВАНИЕ

Begin //Редактирование

n:=DM. QVrash.XXXXX.Value;

DM. QVrash.Close;

DM. QVrash.Open;

DM. QVrash.Locate(XXXX,n,[]);

Form3.Label6.Caption:=IntToStr(DM.QVrash.XXXXXvalue);

Try

Form3.Edit1.text:=inttostr(DM.QVrashYYYYYY.Value);

Form3.Edit2.text:=inttostr(DM.QVrashYYYYY.Value);

Form3.Edit3.text:=floattostr(DM.QVrashYYYYY.Value);

Form3.Edit4.text:=DateToStr(DM.QVrash.YYYY.Value);

Form3.Showmodal;

Finally

DM. QVrash.Close;

DM. QVrash.Open;

End;

End;

Программный код для кнопки на форме 3 - РЕДАКТИРОВАНИЕ

Begin

If (Edit1.text='') or (Edit2.Text='')or (Edit3.Text='') or (Edit4.Text='') then

Begin

ShowMessage('Заполнены не все поля');

exit;

End;

Try

DM.ADOConnection1.BeginTrans;

with DM.ASPEdVrash do

Begin

Parameters.ParamByName('@XXXX).Value:= DM.a QVrash.XXXXX.value;

Parameters.ParamByName('@YYYY).Value:=Edit1.text;

Parameters.ParamByName('@YYYYY).Value:=Edit2.Text;

Parameters.ParamByName('@YYYY').Value:=Edit3.Text;

Parameters.ParamByName('@YYYY).Value:=StrToDate(Edit4.text);

End;

DM.ASPEd.ExecProc;

DM.ADOConnection1.CommitTrans;

Form3.Close;

Except

DM.ADOConnection1.RollbackTrans;

ShowMessage('Невозможно выполнить. Повторите.');

End;

DM. QVrash.Close;

DM. QVrash.Open

End;

Программный код для пункта меню на форме 1 - УДАЛЕНИЕ

Begin // Удаление

if MessageDlg('Вы уверены что хотите удалить запись?', mtConfirmation,[mbYes,mbNo],0)=mrYes then

Begin

DM.ASPDel.Parameters.ParamByName('@XXXX).Value:=DM.ADOQuery1XXXXX.Value;

Try

DM.ADOConnection1.BeginTrans;

DM.ASPDelVrash.ExecProc;

DM.ADOConnection1.CommitTrans;

Except

ShowMessage('Удаление не прошло!'+#13+'Запись заблокирована,либо уже удалена!');

DM.ADOConnection1.RollbackTrans;

Exit;

End;

End;

DM. QVrash.Close;

DM. QVrash.Open;

End;

Размещено на Allbest.ru