Қалыпқа келесі компоненттерді қойып, сәйкес қасиеттерін көрсетеміз:

TDataSource1: DataSet= TQuery1;

TQuery1: DataBaseName=student; Sql-String=Select * from student;

DataBase1: DataBaseName=student; LoginPrompt=false;

Бұл компоненттерді қойған кезде автоматты түрде Tsession компоненті құрылады, онымен жұмыс істеу үшін Delphi-де  Sessionайнымалысы анықталған, оның атауы SessionName=Default деп беріледі.

Қалыпқа Button1 қойып, соны шерткенде қолданушы мен парольді өзі анықтауы керек болса, мына оқиғаға Button1.Click код жазамыз:

DataBase1.Params.Values[‘Password’]:=’555’;

DataBase1.Params.Values[‘UserName’]:=’student’;

Query1.Active:=True;

Button1.Enabled:=False;

Бұл әдіс базаның қорғанысын төмендетеді, сондықтан қорғау үшін ену кезінде қолданушы мен парольды сұрау диалогын ұйымдастырған дұрыс.

Жаңа қалып құрып, атауын Flogin деп атап, мына қасиеттерін көрсетеміз:

biSystemMenu=false;

biMinimize=false;

biMaximize:=false;

BorderStyle=bsDialog;

Caption=

Position=poScreenCenter;

Ол үшін мына компоненттерді қоямыз:

1. Label1 —  Caption=Қолданушы атауы

2. Label2 — Caption=Пароль

3. TEdit1 —  Name=ebUserName; text – бос тұрады

4. TEdit2 — Name=ebPassword; text – бос тұрады; PasswordChar=*

5. Button1:

Name=btnCancel

Caption – Бас тарту

ModalResult =mrCancel

6. Button2:

Name=btnOK

Caption - ОК

ModalResult =mrOK

Flogin қалыбының FormShow оқиғасына мына кодты жазамыз:

ebPassword.text:=’’;

Button1 –ге жазылған программаға өзгеріс енгіземіз:

If Flogin.ShowModal=mrOK then

begin

DataBase1.Params.Values[‘Password’]:=Trim(Flogin.ebPassword.Text);

DataBase1.Params.Values[‘UserName’]:= Trim(Flogin.ebUserName.Text);

TRY

Query1.Active:=True;

Button1.Enabled:=False;

Except

ShowMessage(‘МҚ-на ену қате орындалды’);

End;

End;