Курсовая работа: Справочная система продавца–консультанта компьютерного салона

begin //вывод соответствующего сообщния

messagedlg('ПОЖАЛУЙСТО ЗАПОЛНИТЕ ВСЕ ПОЛЯ!!! ',mterror,[mbok],0);

end else

begin

for f:=1 to DM.Reg1.RecordCount do

begin

if (edit1.text<>DM.Reg1.FieldByName('Фамилия').AsString) or (edit2.text<>DM.Reg1.FieldByName('Имя').AsString) or (edit3.text<>DM.Reg1.FieldByName('Отчество').AsString) or (edit6.text<>DM.Reg1.FieldByName('Пароль').AsString) then

begin

DM.Reg1.Next;//Переход к следующеё строке

Label1.Visible:=False;//Скрытие надписи

Label6.Visible:=True;//Появление надписи

end

else

begin

reg.Hide;//Закрытиеформы reg

Prodat11.Show;//Открытиеформы Prodat11

end;

3. procedureTReg.Timer1Timer – процедура скрытия заставки

procedure TReg.Timer1Timer(Sender: TObject);

begin

Panel1.Visible:=False;//Скрытиепанели

Reg.Caption:='Регистрация';//Задание заголовка формы

Label1.Visible:=True;//Появление надписи

Label2.Visible:=True;//Появление надписи

Label3.Visible:=True;//Появление надписи

Label4.Visible:=True;//Появление надписи

Label5.Visible:=True;//Появлениенадписи

end;

4. procedureTReg.FormClose – процедура закрытия программы