Готовые задания присылать на электронную почту:
(gp.konnova@mail.ru ) либо ВКОНТАКТЕ
Тема: Интегрированная среда разработчика
1. Для выполнения практического задания необходимо повторить темы:
- требования к аппаратным средствам интегрированной среды разработчика;
- требования к программным средствам интегрированной среды разработчика;
- интерфейс среды разработчика.
2. Разработать проект, включающий в себя следующие модули:
- добавление записей;
- изменение записей;
- удаление записей;
-- поиск записей.
Маяковский и футуризм. Поэтическое
новаторство Маяковского
А) Разработка интерфейса пользователя:
- создать на рабочем столе папку для сохранения проекта;
- присвоить имя формы «Справочник»;
- поместить на форму MainMenu, панель;
- дважды кликнуть по MainMenu, появится окно Fotm. MainMenu. Чтобы создать меню, нужно в свойстве Caption написать «Запись» и «О программе». Под «Запись» - «Добавить», «Изменить», «Удалить».
Panel1, свойство Align – alTop, убрать из Caption название.
File – SaveProjectAs – указать папку для сохранения, которую вы для этого создали
Б) Разработка базы данных:
- создать в Microsoft ACCESS БД «Spravochnik», состоящую из одной таблицы, содержащую одну таблицу «Phone», в которой есть поля:
code | FIO | Numphone |
В) Формирование связи со средой программирования:
- установить ADOConnection (для осуществления непосредственного соединения с БД), DataSource, который будет осуществлять доступ, ADOQuery, в который будем писать запрос;
- кликнуть по ADOConnection, появится окно «Form1 ADOConnection1 Connection String»;
- в поле «UseConnectionString » должен быть установлен флажок. Нажать кнопку «Build». Появляется окно «Свойства канала передачи данных», необходимо выбрать Microsoftjet 4.0 OLEDBProvider, далее снова в окне «Свойства канала передачи данных» во вкладке «Соединение» выбрать или ввести имя БД, нажать кнопку «Проверить соединение», нажать «Ок», во всех открытых окнах нажать «Ок»;
- сделать активным DataSource1, установить в инспекторе объектов свойство «DataSet» - ADOQuery;
- сделать активным ADOQuery, установить в инспекторе объектов свойство «Connection»ADOConnection1;
- в свойстве «SQL», кликнув по точкам, в появившемся окне написать запрос Select * from phone order by code;
- сделать активным ADOConnection, установить в инспекторе объектов свойство «LoginPrompt»- false;
- поместить DBGrid, свойство Align – alClient;
- подключить DBGrid к БД, т.е. назначить ему DataSource - DataSource1;
- установить ADOQuery1 свойство Active true;
- появляются данные из БД, дважды кликнуть по окну БД, появляется окно EditingDBGrid1.Columns, нажать кнопку ADOAllFields, установить ширину поля в свойстве «width» и русские названия полей, если все нормально, то закрываем это окно;
- сохранить Save all, затем выполнить программу;
Г) Изменение и добавление записей:
- добавить еще одну формуFile–NewForm delphi, свойство Caption«Изменить», BorderStyle – bsDialog:
- для привязки форм File – UseUnit привязать Unit1 и Unit2 соответственно в появившемся окне: Unit1 к Unit2; Unit2 к Unit1;
- положить две кнопки «Сохранить» и «Отменить»;
- положить количество компонентов Label по количеству столбцов в таблице БД, положить столько же компонентов DBEdit, которые будут работать непосредственно с БД напротив каждого компонента Label;
- привязать DBEdit к БД, каждому из них назначив DataSource -Form1.DataSource1, DataField– соответственно каждому полю свое название;
- сохранить File – SaveAll;
- кнопке «Отменить» прописать в процедуру обработки Form2.Close;
-кнопке «Сохранить» прописать в процедуру обработки;
If Form1.ADOQuery1.Modified then Form1.ADOQuery1.Post;
Form2.Close;
- сохранитьFile – Save All;
-сделать активным MainMenu, выбрать пункт меню «Изменить»
прописать в процедуру обработки этого пункта
Form2.Show;
- выбрать пункт меню «Добавить», прописать в процедуру обработки этого пункта
Form1.ADOQuery1.Append;
Form2.Show;
- сохранитьFile – SaveAll;
Д) Удаление записей:
- для обработки пункта меню «Удалить» нужно добавить еще одну форму File–NewForm delphi с названием «Вопрос», со значением свойства BorderStyle – bsDialog;
- поместить на форму Label«Вы действительно хотите удалить эту запись?» и две кнопки «Да» и «Нет»;
- сохранитьFile – SaveAll;
- для привязки форм File – UseUnit привязать Unit3 кUnit1, а Unit1–к Unit3;
- кнопке «Нет» прописать в процедуру обработки Form3.Close;
- кнопке «Да» прописать в процедуру обработки
Form1.ADOQuery1.Delete;
Form3.Close;
- прописать в процедуру обработки пункта меню «Удалить»
Form3.Show;
Е) Поиск записей:
- на предыдущей форме Form1 на панели, которая находится между пунктами меню («Запись» и «О программе») и окном БД положить слева Label, справа -Edit. В Label записать «Поиск». Align для Label –alLeft для Edit – alClient. Убрать текст из Edit;
- в процедуре обработки Edit объявить две переменные, например help1и help2 строкового типа. Между begin и end поместить следующую небольшую программу:
help1:='%'+Form1.Edit1.Text+'%';
help2:=QuotedStr(help1);
with Form1.ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('select* from phone where fio like'+help2+' or numphone like'+help2+' order by code');
Open;
end;
Успехов при выполнении заданий!!!