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

Для формы, где находится главное меню, в событии 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 – имя формы для ввода пароля.

1.9. Редактирование внешнего вида формы

Редактирование внешнего вида формы. Можно осуществить следующие действия по редактированию формы:

в строке Caption задают подпись на русском языке;

в строке Bordericons для biMaximize выбирают False – это означает запрет на распахивание окна;

в строке Position задают способ выравнивания формы на экране (например, по центру – poDesktopCenter);

в строке Color выбирают цвет заливки формы;

вставка картинки на форму – вкладка Additional, кнопка Image, свойство Picture, кнопка Load, осуществляют выбор файла с картинкой.

Для вставленной картинки в панели свойств можно установить:

- в строке stretch значение True (установка размера картинки по размеру формы);

- в строке transparent значение True (установка прозрачного фона для картинки).

2. СОЗДАНИЕ ФОРМ ДЛЯ ВВОДА И РЕДАКТИРОВАНИЯ ДАННЫХ

2.1. Создание формы для работы с одной таблицей

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

Создать форму для работы с одной таблицей можно следующим образом.

1. Выбрать или создать новую форму (выбрать - кнопка View Form (2-я кнопка слева), создать - кнопка New Form на панели инструментов (4-я кнопка слева)).

2. На форме поставить из вкладки Data Access компонент DataSource. В модуле, соответствующем созданной форме (например, в модуле unit3), для доступа к модулю данных в разделе implementation выставить uses unit2. В свойстве DataSet компонента DataSource выбрать ADOTable для связи с конкретной таблицей.

3. Выбрать вкладку Data Controls. Щелкнуть по кнопке DBGrid и в форме. Данный компонент служит для отображения записей набора данных в табличной форме. Можно изменить размер формы, растащив границы. Для данного компонента в свойстве DataSource устанавливают значение DataSource1 (это имя присвоено по умолчанию), выбрав его из списка.

4. Сохранить форму и проект на диске в созданной вами папке APP (File, Save All).

5. Запустить программу (кнопка RUN на панели инструментов, или F9, или пункты меню RUN, RUN).

Работающая программа открывает непосредственный доступ к данным в выбранной таблице.

Пример формы для работы с одной таблицей представлен на рис. 2.1. Форма приведена в режиме редактирования.

Рис. 2.1. Форма в режиме редактирования для работы с одной таблицей