Задание 3

Задание 1

1. создайте новый проект
2. Создайте новый DataModule (file-new- DataModule)
3. на нем поместите компоненты ADOConnection1, ADOTable1, DataSource1
4. нажав два раза по компоненту ADOConnection1 выберите поставщика данных (microsoft jet 4.0 ole db provider), затем выберите базу данных (БД студент)
5. нажав на компонент ADOTable1, в панеле свойств, в свойстве connection выберите ADOConnection1, в свойстве tadlename- название одной из таблиц. в свойстве activ – выберите true
6. Нажав на компонент DataSource1, в панеле свойств, в свойстве dataSet выберите ADOTable1
7. на форме поместите компонент DBGrid1
8. во вкладке file выберите команду use unit, выделите все модули, нажмите ок
9. нажав на компонент DBGrid1, в свойстве DataSource выберите DataModule1. DataSource1
10. у вас должна отобразиться таблица!!!
11. Если не отображаются все поля, то необходимо правой кнопкой мыши нажав на компонент DBGrid1 выбрать команду ColumnsEditor –ADD ALL fields
12. выделить одно поле, в панеле свойств в свойстве width выберите необходимую ширину, и так далее со всеми полями
13. если ничего не получилось, обратитесь к преподавателю!!!

Задание 2

по примеру отобразите на второй форме еще одну таблицу

Задание 3

Создадим окно для входа для двух пользователей (администратора и пользователя). На форму помещаем компоненты:

2 edit, 2 label. 1button

для компонента button пропишем собятие:

var v, i, u, p: string;

begin

//Присваиваем логины и пароли

v: ='admin';

i: ='1234';

u: ='user';

p: ='0000';

//Проверяем введенные логины и пароли

if (Edit1.Text=v)and (Edit2.Text=i)

then

begin

//При совпадении переходим на соответствующую форму

form1.Visible: =true;

form2.Visible: =false;

end

else if (Edit1.Text=u)and(Edit2.Text=p)

then

begin

Form3.Visible: =true;

form2.Visible: =false;

end

//Ошибка при несовпадении

else MessageBox(handle, PChar('Логин или пароль введен неверно'), PChar('Ошибка'), MB_OK+MB_ICONSTOP);

//Очищаем edit'ы

Edit1.Clear;

Edit2.Clear;

end;