Лабораторная работа

Лабораторная работа №___

1. Создать папку MySource в папке C:\STUDENT\113xxx\ииииии (xxx – номер группы, ииииии – фамилия студента), чтобы хранить файлы проекта, которые вы создадите с этой прикладной программой.
2. Открыть новый проект.
   Всякий раз, когда Вы открываете новый проект, Delphi автоматически создает следующий два файла:
   UNIT1.PAS: исходный файл, связанный с основной формой проекта.
   PROJECT1.DPR: исходный файл, который следит за формами в вашем проекте.
3. Выбрать, File|Save All, чтобы сохранить ваши файлы проекта на диск.
   Когда Вы открываете новый проект, Delphi отображает графическое представление формы проекта, именованной Form1 по умолчанию. Заданная по умолчанию новая форма имеет кнопки Maximize и Minimize, кнопку Close, и меню Управления. Если Вы выполняете форму,  нажимая F9, то будете видеть что эти кнопки в работе. Чтобы вернуться к режиму разработки, закройте форму.
4. Установить для свойства Color формы  Form1 значение clAqua.
5. Добавить компонент Panel  к  вашей форме двойным щелчком  на этом компоненте на странице Standard палитры компонентов.
6. Установить для свойства Align  объекта Panel значение alBottom.
7. Увеличить размер окна прикладной программы,  перемещая ниже правый угол формы.
8. Увеличить размер панели, пока она не заполнит треть нижней части формы.
9. Разместить  со страницы Data Access объект Table на форме.
10. Установить значение свойства DatabaseName объекта Table1 равное  DBDEMOS.
11. Разместить на форму компонент DataSource со страницы Data Access палитры компонентов (Component palette).
12. Установить для его свойства DataSet значение Table1.
13. Разместить компонент DBGrid со страницы компонентов Data Controls на панели Panel1.
14. Установить для свойства Align значение alLeft, затем переместите правый край сетки, так чтобы заполнить  три четверти  панели.
15. Установить для свойства DataSource значение DataSource1.
16. Установить свойства объекта Table1 следующим образом:
    для  TableName значение BIOLIFE.DB,
    для  Active значение True.
17. Нажать F9, чтобы компилировать и выполнить проект.
18. Разместить на форме объект DBNavigator со страницы Data Controls палитры Component
19. Установить для свойства  DataSource значение DataSource1.
20. Установить для следующих свойств VisibleButtons значения false (двойным щелчком):
    nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh.
21. Разместить в верхней части формы другой объект Panel  со станицы Standard палитры Component. Delphi дает ему по умолчанию имя Panel2. Для удаления этого имени очистите значение соответствующего свойства Caption.
22. Установить для свойства Align  объекта Panel2 значение alTop. Затем перетащить нижний край этого объекта, чтобы он заполнил верхнюю часть формы.
23. Установить значение свойств цвета обеих панелей  clBlue.
24. Разместить объект DBImage в верхней части Panel2 со страницы Data Controls.
25. Установить для его свойства Align значение alRight. Расширьте его влево на половину области.
26. Установить следующие свойства DBImage:
    для DataSource – DataSource1,
    для DataField – Graphic.
27. Щелкнуть кнопку Run на панели SpeedBar для компиляции и выполнения программы.
28. Разместить на Panel2  объект DBMemo  со страницы Data Controls панели Component и расположить его так, чтобы он занимал левый верхний угол. Затем установить его следующие свойства:
    для DataSource – DataSource1,
    для  DataField  – Notes,
    для  ScrollBars – ssVertical.
29. Разместить на Panel2 под DBMemo объект DBText, чтобы он занимал оставшуюся часть области под  DBMemo, установить его следующие свойства:
    для  DataSource – DataSource1,
    для  DataField – Common_Name.
30. Изменить следующие параметры DBText:
    Font Style – Bold,
    Color – clSilver,
    Size – 12.
31. Разместить на Panel1 объект BitButton (BitBtn) со страницы Additional панели Component и установить для его свойства Kind значение bkClose. Изменить свойство Caption для BitButton на В&ыход.
32. Нажать F9, чтобы компилировать и выполнить проект.
33. Разместить на форме  объект SaveDialog рядом с объектом DataSource1 со страницы Dialogs палитры Component palette.
34. Разместить объект BitButton (BitBtn) со страницы Additional Component над кнопкой Выход, и установите его следующие свойства:
    для Caption – &Сохранить.
    для Glyph – FILESAVE.BMP.
35. Дважды щелкнуть по кнопке Сохранить для создания  программы обработчика событий.
36. Доофомить обработчик событий, чтобы он имел следующий вид

procedure TForm1.BitBtn2Click(Sender: TObject);

var

i: integer;

begin

SaveDialog1.Title :=Format(‘Save info for %s’, [DBText1.Field.AsString]);

if SaveDialog1.Execute then

begin

   with TStringList.Create do

   try

     Add(Format(‘Facts on the %s’, [DBText1.Field.AsString]));

     Add(#13#10);

     for i := 1 to DBGrid1.FieldCount-3 do

       Add(Format(‘%s : %s’,

         [DBGrid1.Fields[i].FieldName,

          DBGrid1.Fields[i].AsString]));

     Add(Format(‘%s’,[DBMemo1.Text]));

     SaveToFile(SaveDialog1.FileName);

   finally

     Free;

   end;

  end;

end;

37. Нажать F9, чтобы компилировать и выполнить проект.

38. Сохранить  проект используя File|Save All