Защита пункта меню паролем

Создание базы данных, таблиц и схемы данных в Access 2007

После запуска Access в окне Приступая к работе с Microsoft Office Access выбирают значок Новая база данных. В панели справа в поле Имя файла задают имя файла и выбирают место его сохранения, затем щелкают по кнопке Создать.

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

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

На панели Создание находятся кнопки для создания и редактирования основных объектов базы данных: таблиц, форм, запросов, отчетов, макросов, модулей и т.д..

Для описания структуры таблицы поступают следующим образом:

выбирают вкладку Создание, щелкают по кнопке Конструктор таблиц на панели инструментов;

открывается окно, аналогичное окну в Access 2003;

вносят имя, тип, размер и другие характеристики каждого поля; задают ключевое поле, закрывают окно конструктора и задают имя таблицы.

Для создания схемы данных выбирают вкладку Работа с базами данных и щелкают по кнопке Схема данных.

Дальнейшие действия по созданию схемы данных осуществляют аналогично Access 2003.

1.6. Создание модуля данных

Осуществить запуск Delphi стандартным образом: Пуск, Программы, Borland Delphi 7, Delphi 7.

Откроется окно приложения, в котором автоматически будет создана первая форма Form1.

Затем необходимо создать модуль данных в проекте для реализации доступа к базе данных: File, New, Data Module. Можно в свойстве Name задать для модуля данных имя DM.

На модуль данных надо поставить из вкладки ADO следующие компоненты: ADOConnection1, столько компонентов ADOTable, сколько будет использоваться таблиц.

Выделить компонент ADOConnection1. В свойстве Connection String щелкнуть по кнопке …. В открывшемся диалоговом окне выполнить следующие настройки:

- щелкнуть по кнопке Build (рис. 1.6), выбрать в списке MS Jet 4.0 OLE DB Provider, кнопка Далее;

- в окне «Выберите или введите имя базы данных» выбрать файл с базой данных, кнопка ОК, кнопка ОК.

Рис.1.6. Окно настройки связи

В свойствах компонента ADOConnection также можно установить значение свойства LoginPrompt = false (чтобы при установке связи с базой данных не спрашивался логин/пароль, если он имеется) и значение свойства Connected = true (чтобы связь с базой была установлена сразу).

Затем настраивают компонент ADOTable. В его свойстве Connection прописывают название компонента ADOConnection (если он единственный, то это будет ADOConnection1), а в свойстве TableName указывают имя нужной таблицы из базы данных. Также следует установить свойство Active = true, чтобы таблица была доступной для работы.

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

Необходимо выделить (щелкнуть) модуль данных. Во вкладке Events выбрать событие onCreate и создать следующую процедуру:

var

path:string;

begin

ADOConnection1.Close;

path:= ExtractFilePath(Application.ExeName)+'Stud.mdb';

AdoConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Path+';Persist Security Info=False';

ADOConnection1.open;

ADOTable1.Active:= true;

ADOTable2.Active:= true;

end;

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

Если модуль данных был создан вторым, то ему соответствует модуль unit2. В тексте данного модуля в разделе uses должно быть написано Forms.

В дальнейшем на формах проекта, где будут размещены формы для ввода и редактирования данных, для связи с таблицами базы данных необходимо поставить компонент DataSource1. Для данного компонента настраивают следующие свойства:

- в модуле, соответствующем созданной форме (например, в модуле unit3), для доступа к модулю данных в разделе implementation выставляют uses unit2;

- в свойстве DataSet выбирают компонент ADOTable для связи с конкретной таблицей.

Рекомендуется в конце работы по созданию проекта (приложения) в модуле данных для компонента ADOConnection1 в свойстве Connected выставить false, свойство ConnectionString очистить. Сохранить и запустить проект. Это делается для того, чтобы в процессе запуска приложения происходило автоматическое определение места нахождения базы данных и программно заполнялась строка ConnectionString.

При доработке приложения необходимо каждый раз перед дальнейшей разработкой повторять настройку свойств ConnectionString и Connected для компонента ADOConnection1.

1.7. Создание меню приложения

Создание меню приложения осуществляют следующим образом.

1. Обычно главное меню располагается на первой форме. Необходимо перейти на первую форму.

2. На панели компонентов необходимо выбрать вкладку Standard, компонент Mainmenu и поместить его на форму.

3. На компоненте Mainmenu вызывают контекстное меню и выбирают пункт Menu Designer…. Открывается диалоговое окно, в котором формируют элементы меню. Для текущего элемента меню необходимо задать подпись.

4. На панели Object (Инспектора объектов) в поле Caption набирают название текущего пункта меню (например, Редактирование) и нажимают клавишу Enter.

5. Выделяют новый пункт меню (пустой), появившийся справа, и повторяют действия п. 4.

6. Для создания меню второго уровня выделяют щелчком пункт меню первого уровня и нажимают на клавиатуре стрелку вниз. В поле Caption вносят название пункта и нажимают клавишу Enter. Эти действия повторяют для каждого пункта меню второго уровня (рис.1.7).

7. После создания меню закрывают окно Menu Designer и сохраняют форму. Для сохранения выбирают пункты меню File, Save All, выбирают папку, где должны сохраняться модули.

Рис. 1.7. Форма, содержащая меню

Привязка пункта меню к форме. Пункты меню должны быть привязаны к вызову определенных форм.

Привязка пункта «Выход» к соответствующему действию:

в режиме редактирования осуществить двойной щелчок по пункту «Выход»;

в открывшейся процедуре набрать

Form1.Close;

сохранить произведенные действия.

Привязка пункта меню к вызову соответствующей формы:

создать новую форму (кнопка NewForm, 4-я слева на панели инструментов);

на панели Инспектора объектов в поле Name можно ввести более информационное имя (например, Form2_Knigi) и нажать Enter;

вызвать список модулей кнопкой ViewUnit (1-я слева) и выбрать в списке unit1, в тексте процедуры найти слово implementation, для доступа к модулю unit2 ниже этого слова набрать uses unit2;

переключиться на главную форму;

дважды щелкнуть по привязываемому пункту меню и в открывшейся процедуре ввести: имя формы. ShowModal; (например: Form2.ShowModal;);

Проверить вызов формы при выборе пункта меню (кнопка Запуск на панели инструментов или F9).

Выход из режима запуска – закрыть окно первой формы.

Для формы, где находится главное меню, в событии OnCreate можно сделать неактивными (недоступными) пункты меню следующим образом:

MainMenu1.Items.Items[1].Enabled:=False;

Так как пункты меню нумеруются с нуля, то данный оператор делает недоступным второй пункт меню.

Ввод пароля для доступа к пунктам меню можно реализовать через форму следующего вида (рис. 1.8).

Рис. 1.8. Окно ввода пароля

В разделе var модуля формы Пароль описывают переменную login:

login:boolean;

В разделе implementation модуля формы Пароль записывают

uses Unit1;

На событие OnActive формы Пароль создают процедуру следующего вида:

login:=false;

Edit1.Text:='';

На событие OnClose формы Пароль создают процедуру следующего вида, которая блокирует второй пункт меню, если пароль неверен:

if login=false then

Form1.N2.Enabled:=false

Else Form1.N2.Enabled:=true;

На кнопке ОК формы Пароль создают процедуру следующего вида (если пароль правильный, то второй пункт меню доступен; если пароль неверный, то второй пункт меню недоступен):

if Edit1.Text='2011' then

begin

login:=true;

Form1.MainMenu1.Items.Items[1].Enabled:=true;

Form_Pass.Close;

end

else

begin

Form1.MainMenu1.Items.Items[1].Enabled:=false;

ShowMessage('Неверный пароль');

end;

На кнопке Отмена формы Пароль создают процедуру следующего вида:

login:=false;

Form_Pass.Close;

В данных примерах Form1 – это имя формы, где находится меню; Form_Pass – имя формы для ввода пароля.

Дата добавления: 2015-05-09