66
DD
DE
DF
An
Отметка о заверении док-та 1
Логический
Bn
Отметка о заверении док-та 2
Логический
Cn
Отметка о заверении док-та 3
Логический
Dn
Отметка о заверении док-та 4
Логический
En
Отметка о заверении док-та 5
Логический
Fn
Отметка о заверении док-та 6
Логический
Таблица «Классификация договоров» содержит классификацию договоров
по определенным признакам, например «Приходный валютный», либо
«Расходный рублевый» и т.д. Ниже показана структура таблицы.
Таблица 2.8
Структура таблицы «Классификация договоров»
Название
Описание поля
Тип
Размер
ID_классификато
ра
Индивидуальный код
Integer(AI)
Длинное целое
Поле 1
Поле классификатора 1
Varchar
15
Поле 2
Поле классификатора 2
Varchar
15
Поле 3
Поле классификатора 3
Varchar
15
Поле 4
Поле классификатора 4
Varchar
15
Таблица «Организационно-правовые формы» содержит названия ОПФ,
такие как например «ОАО», «ООО», «Союз», «Ассоциация» и т.д.
Таблица 2.9
Структура таблицы «Организационно-правовые формы»
Название
Описание поля
Тип
Размер
ID
Индивидуальный код
Integer(AI)
Длинное целое
ОПФ
Организационно-правовая
форма
Varchar
15
Таблица 2.10
Структура таблицы «Статусы контрагентов»
67
Название
Описание поля
Тип
Размер
ID
Индивидуальный код
Integer(AI)
Длинное целое
Статус
контрагента
Статус контрагента
Varchar
15
Таблица 2.11
Структура таблицы «Условия оплаты»
Название
Описание поля
Тип
Размер
ID
Индивидуальный код
Integer(AI)
Длинное целое
Условия оплаты
Условия оплаты
Varchar
15
Таблица 2.12
Структура таблицы «Фирмы»
Название
Описание поля
Тип
Размер
ID
Индивидуальный код
Integer(AI)
Длинное целое
Наименование
Наименование фирмы
Varchar
50
Должность
руководителя
Должность руководителя
Varchar
50
ФИО
руководителя
Фамилия, имя, отчество
руководителя
Varchar
50
Город
Город
Varchar
15
Адрес
Адрес фирмы
Varchar
50
ИНН
Индивидуальный номер
налогоплательщика
Varchar
12
Расчетный счет
Расчетный счет предприятия
Varchar
20
Корр счет
Корреспондентский счет
Varchar
20
БИК
Банковский
идентификационный код
Varchar
9
68
2.3.3. Структурная схема пакета (дерево вызова программных
модулей)
Ниже показана схема взаимосвязи программных модулей и
информационных файлов.
Форма «Договоры»
Форма «Контрагенты»
Форма «Документы контрагентов»
Форма «Документы
контрагентов подчиненная»
Форма «Банки»
Форма «ОПФ»
Форма «Валюты»
Форма «Фирмы»
Процедура доступа к таблице
Таблица «Договоры»
Таблица «Контрагенты»
Таблица «Документы
контрагентов»
Таблица «Банки»
Таблица «ОПФ»
Таблица «Валюты»
Таблица «Фирмы»
Таблица «Классификация
договоров»
Таблица «Условия оплаты»
Таблица «Виды договоров»
69
Рисунок 2.6. Схема взаимосвязи программных модулей и
информационных файлов
2.3.4. Описание программных модулей
Приложение содержит несколько основных типов форм, а именно:
Форма справочника;
Форма документа.
Опишем каждую из данных форм.
Форма справочника предназначена для вывода и редактирования всех
записей из таблицы справочника в определенном визуальном компоненте.
Пример формы приведен на рисунке ниже.
Рисунок 2.7. Форма справочника сотрудников
1 – компонент типа DBGrid. Предназначен для вывода основной
информации из таблицы справочника на форму. В этом же компоненте можно
редактировать данные. Основным свойством компонента является свойство
DataSource, в котором указывается источник данных для компонента.
2 – компонент типа DBNavigator. Предназначен для взаимодействия с
записями таблицы (добавление, удаление, редактирование).
Основным свойством компонента является свойство DataSource, которое
указывает на источник данных для него.
2
1
3
70
3 – компонент типа PopuoMenu. Предназначена для вывода выпадающего
меню компонента DBGrid, в котором можно добавлять, удалять и редактировать
новые документы.
Форма документа содержит в себе различные компоненты, отображающие
содержимое текущей редактируемой записи в таблице.
Вид формы следующинй:
Рисунок 2.8. Вид формы документа
Компоненты формы следующие.
1 – компонент типа DBEdit. Позволяет выводить и редактировать
произвольные данные любого поля таблицы.
Основные свойства компонента следующие:
DataSource – указывает на источник данных для компонента.
DataField – указывает на поле данных, редактируемое в компоненте.
2 – компонент типа DBLookupComboBox. Данный компонент позволяет
заносить данные в поля таблицы на основании таблицы внешнего ключа. В
компоненте отображаются данные из таблицы внешнего ключа, а в базу данных
заносится ключевое значение.
Основные свойства компонента следующие:
DataSource – указывает на источник данных компонента.
DataField – указывает на редактируемое поле в таблице.
ListSource – указывает на источник данных списка значений.
2
1
3
4
71
ListField – указывает на поле таблицы, которое будет выводиться в виде
спика значений.
KeyField – указывает на ключевое поле, значение которого будет
заноситься в основную таблицу на основании выбранного в компоненте
значения.
3 – компонент DBCheckBox. Позволяет редактировать булевы значения в
выбранном поле выбранной таблицы.
4 – компонент Button. Служит для подтверждения или отмены изменений.
Защита клиентского приложения реализована с помощью сохранения
пароля пользователя системы в зашифрованном виде. Для этого предназначен
модуль UMd5.pas.
Приведем код формы авторизации с комментариями.
unit UAuthorise;
interface
//Объявление библиотек
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, UMd5,
UDataModule;
//Объявление элементов формы
type
TAuthorise = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
72
procedure BitBtn1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Authorise: TAuthorise;
flag:boolean;
user:integer;
role:integer;
implementation
{$R *.dfm}
//Непосредственно процедура авторизации
procedure TAuthorise.BitBtn1Click(Sender: TObject);
var pass:string;
begin
//Расшифровываем введенный пароль
{pass:=md5(Edit2.Text);
//Если логин не найден в БД
if Not(DataModule1.TSotrudniki.Locate('Логин', Edit1.Text, [])) then
begin
//Выводится сообщение об ошибке и происходит выход
ShowMessage('Такой логин не найден в базе данных!');
exit;
end;
//Если пароль не найден, выводится сообщение об ошибке
if pass<>DataModule1.TSotrudniki.FieldByName('Пароль').AsString then
73
begin
ShowMessage('Пароль неверный!');
exit;
end;
//В противном случае флаг входа становится «Истина»
flag:=True;
//Запоминаются данные сотрудника
user:=DataModule1.TSotrudniki.FieldByName('Номер_сотрудника').AsIntege
r;
role:=DataModule1.TSotrudniki.FieldByName('Номер_роли').AsInteger;}
flag:=true;
Authorise.Close;
end;
//Просто закрытие формы
procedure TAuthorise.BitBtn2Click(Sender: TObject);
begin
Application.Terminate;
end;
//При закрытии формы происходит завершение приложения если не
произведен вход
procedure TAuthorise.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Not(flag) then Application.Terminate;
end;
end.
74
2.4. Контрольный пример реализации проекта и его описание
Главная форма программы выглядит следующим образом:
Рисунок 2.9. Главная форма программы
Эта форма предназначена для перехода к основным справочникам и
документам программы.
Форма «Реестр» договоров является одной из основных форм в
программе. Она хранит информацию о договорах на предприятии и позволяет
сотрудникам предприятия обмениваться копиями этих документов в любом из
форматов.
Форма выглядит следующим образом:
75
Рисунок 2.10. Реестр договоров
Заполнение значений на форме производится непосредственно с
клавиатуры, либо выбором из выпадающего списка.
Для сохранения документа договора в базе данных необходимо нажать на
кнопку «Загрузить». На экран будет выведено диалоговое окно с просьбой
указать расположение документа. После указания документа он будет загружен
в БД и будет доступен сотрудников во всех филиалах предприятия.
Для открытия документа необходимо нажать на кнопку «Открыть» на
форме. Документ будет открыт, если для него в системе сопоставлено
соответствующее приложение.
Форма просмотра и редактирования контрагентов выглядит следующим
образом.