2.1 Разработка форм

Любая программа в DELPHI состоит из файла проекта (файл с расширением DPR) и одного или нескольких модулей (файлы с расширением PAS). Каждый из таких файлов описывает программную единицу Object Pascal.

Файл проекта представляет собой программу, написанную на языке Object Pascal и предназначенную для обработки компилятором. Эта программа автоматически создается DELPHI и содержит лишь несколько строк. (View/ProjectSource).

Данный проект так же состоит из файла проекта Delphi, программного кода, и редактируемых форм.

В состав АИС, так же входят шаблоны выходных документов в текстовом редакторе и электронной таблице.

При запуске программы автоматически загружается форма «Главная форма» представленная на рисунке 2.1.

Рисунок 2.1 Разработка главной формы АИС «Контингент»

На форме размещен компонент как TMainMenu

Для управления формой использован TMainMenu. Ниже приведены некоторые свойства данного компонента.

Компонент TMainMenu

object N1: TMenuItem

Caption = Файл

object N2: TMenuItem

Caption = Выход

end

object N3: TMenuItem

Caption =Базы данных

object N4: TMenuItem

Caption = Добавить

OnClick = N4Click

end

object N6: TMenuItem

Caption = Редактировать

end

end

object N7: TMenuItem

Caption = Удалить

object N8: TMenuItem

Caption = Приказы

OnClick = N8Click

end

object N9: TMenuItem

Caption = О переводе

OnClick = N9Click

end

object N10: TMenuItem

Caption = О зачислении

OnClick = N10Click

end

object N11: TMenuItem

Caption = Об отчислении

OnClick = N11Click

end

end

object N9 TMenuItem

Caption = Вывод данных

object N12: TMenuItem

Caption = Списки

OnClick = N12Click

end

object N13: TMenuItem

Caption = Формы

object N14: TMenuItem

Caption = Справки

OnClick = N14Click

end

end

end

Форма для настройки базы данных представлено на рисунке 2.2.

Рисунок 2.2 Вид формы «Настройки»

По выбору серверной или локальной базы данных осуществляется соединение соответствующей базой данных(рис 2.3).

Рис. 2.3 Окно настройки локальной базы данных

Рис. 2.4 Окно настройки серверной базы данных

Использованы компоненты

object RadioButton1: TRadioButton

Left = 15

Top = 35

Width = 221

Height = 17

Caption =Базы данных SQL server'

TabOrder = 1

OnClick = RadioButton1Click

end

object RadioButton2: TRadioButton

Left = 15

Top = 70

Width = 216

Height = 17

Caption = Локальная база данных MS Access'

TabOrder = 3

OnClick = RadioButton2Click

end

Процедуры назначены на кнопки TBitBtn1, TBitBtn2.

Подтверждение настройки происходит нажатием на кнопку BitBtn5.

Процедура настройки базы данных, назначенная на кнопку BitBtn5 приведена ниже.

procedure TForm2.BitBtn5Click(Sender: TObject);

var

setting:TiniFile;

begin

Setting:=TiniFile.Create('C:\Program Files\Mep\Setting.ini');

If radioButton1.Checked = true then

begin

try

Form2.Server_Base_connect;

Setting.WriteString('Connect','base','1');

except

ShowMessage('Ошибка подключения к базе данных.');

end;

end;

if RadioButton2.Checked = true then

begin

try

Form2.Local_Base_connect;

Setting.WriteString('Connect','base','0');

except

ShowMessage('Ошибка подключения к базе данных.');

end;

end;

setting.Free;

form2.Close;

end;

Для ввода данных, и их отображения в рамках работы разработана форма на рисунке 2.5.

Рис. 2.5 Окно формы ввода данных

Форма разработана исходя из соображений удобства ввода данных, наглядности отображения информации, защиты от некорректных действий пользователя.

В данной форме представлены множество полей ввода класса DBEdit и управляющие кнопки класса BitBtn и SpeedButton с изоброжением пиктограмм.

На форме находятся компоненты связывания с базой данных. Как заметно, использована технология ADO, для связи таблиц базы данных.

Механизм АDO реализован на основе интерфейсов OLE DB и СОМ, приложению для доступа к данным не требуется дополнительных библиотек, кроме инсталлированного ADO.

Компонент TADOConnection обеспечивает соединение с источниками данных через провайдеры OLE DB. OLE DB позволяет реализовать доступ как к SQL-серверам с применением языка SQL. В базовую модель OLE DB входят объекты DataSource, Session, Rowset.

Компоненты множества данных Table, Query хранят информацию о полях своей таблицы в виде массива компонентов полей.

Компонент Table обеспечивает доступ к таблицам базы данных, создавая набор данных, структура полей которого повторяет таблицу БД. Набором данных называют записи одной или нескольких таблиц, переданные в приложение в результате активизации компонента доступа к данным.

Объект DataSource (источник данных) предназначен для соединения с источником данных и создания одного или нескольких сеансов. Этот объект управляет соединением, использует информацию о полномочиях и аутентификации пользователя.

Объект Session (сеанс) управляет взаимодействием с источником данных - выполняет запросы и создает результирующие наборы, позволяет возвращать метаданные. В сеансе может создаваться одна или несколько команд.

Объект Rowset (результирующий набор) представляет собой данные, извлекаемые в результате выполнения команды или создаваемые в сеансе.

С каждым компонентом доступа к данным должен быть связан как минимум один компонент DataSource. С одним компонентом DataSource может быть связано несколько визуальных компонентов.

Абстрактный класс TField предоставляет доступ к полям таблицы, обладает мощными потомками, которые применяются автоматически или задаются в Редакторе полей Fields Editor. Потомки класса TField отличаются от базового класса и друг от друга особенностями, связанными с обработкой данных различных типов.

В модуль данных (или в форму) добавляется компонент источника данных (TDataSourse), являющийся связующим звеном между набором данных и элементами управления, отображающими данные. Свойство DataSet компонента типа TDataSourse указывает набор данных, формируемый компонентами таких классов, как TTable или TQuery.

В форму добавлены элементы управления для работы с данными, такие как TDBGrid, TDBEdit, TDBLookUpComboBox и т.п. Они связываются с источником данных через свойство DataSource.

Для работы с базой данных используются различные невидимые компоненты - соединения, запросы, таблицы, процедуры, наборы данных, источники данных.

Ниже представлено (Рис.2.6)окно DataModul, с размещенными на ней компонентами ADO. Предком всех классов наборов данных является класс TDataSet.

Рис.2.6 Окно DataModul

Ниже приведены свойства некоторых из них:

object ADOConnection1: TADOConnection

Connected = True

ConnectionString =

'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\ME' + 'P\DataBase.mdb;Persist Security Info=False'

LoginPrompt = False

Mode = cmShareDenyNone

Provider = 'Microsoft.Jet.OLEDB.4.0'

End

object ADOQuery1: TADOQuery

Connection = ADOConnection1

Parameters = <>

End

Следующая представленная форма (Рис.2.7) так же связана с базой данных.

Рис.2.7 Форма для специальности

Форма состоит из двух вкладки и уже знакомыми компонентами БД.

Данная форма предназначена для ввода новой специальности и редактирования имеющихся специальностей.

Как было описано в предметной области, АИС позволяет получить некоторые выходные документы.

Шаблоны приказов на отчисление, зачисление и перевод, так же справка с места учебы заготовлены в Worde.

Списки групп выходит на основе шаблона в Excele.

На рисунке 2.8 представлена сама форма ввода данных для формирования справки с места учебы. Вводимые данные используются в шаблонах.

Рис.2.8 Форма формирования справки

Ниже приведен фрагмент процедуры открытия документа Word.

worddocument:=MyDir+'\Shablon\Spravka_Obuch.doc';

try

wordapp := createoleobject('word.application');

except

showmessage('Ошибка запуска Microsoft Office Word!');

end;

В программе предусмотрена возможность формирования собственного запроса, отличных от заготовленных шаблонов(Рис.2.9).

В форме установлены два компенента: Memo- для составления запроса и DBGrid - для отображения результата запроса. Полученный результат можно экспортировать в Excel. В каждой форме данной программы есть возможность вернутся на главную форму с помощью кнопки «НАЗАД»-Рис.2.9.

Рис.2.9 Форма формирования запроса

Ниже приведен фрагмент процедуры выполнения запроса

DataModule3.AdoQuery1.Active:=False;

DataModule3.AdoQuery1.SQL.Clear;

DataModule3.AdoQuery1.SQL.Add(Memo1.Text);

DataModule3.AdoQuery1.Active:=True;

В данном параграфе работы, были описаны основные компоненты, использованные в разработке форм системы и их свойства. Приведены фрагменты основных процедур.

2.2 Описание методов