. . , ( ) ( ).
:
. ;
. ;
;
, ;
, .
: , , , .
. FST_MAILLOGIN. .
.
- 4. - 5.
.4 -
.5 -
.
(.4) . .
.6
:
{ }
procedure TSecurityForm.BitBtn_okClick(Sender: TObject);
begin
//
if not pFIBDataSet.Locate('NAME_USER;password_USER',
VarArrayOf([LabeledEdit_Nick.Text,
LabeledEdit_pass.Text]),
[loCaseInsensitive]) then exit;
DM_Main.NickID:=
pFIBDataSet.FieldByName('ID_User').AsInteger;
DM_Main.NickName:= LabeledEdit_Nick.Text;
|
|
SecurityForm.ModalResult:= mrOK;
end;
. :
if (SecurityForm.ShowModal = mrOK) then
begin
// ,
MForm.Caption:= '...::: '+CPROG_NAME+'::: ' +
DM_Main.PutBase + '::: ' + DM_Main.NickName + '
:::...';
MForm.N1_Abit.Visible:= true;
end
else //
MForm.N1_Abit.Visible:= false;
MForm.N4_Post.Visible:= MForm.N1_Abit.Visible;
(.5) . : -> -> ; -> -> ; -> -> ; ->.
.7
. .
.8
vSource, ID :
{ }
procedure TFSetSoure.aOKExecute(Sender: TObject);
begin
if cxLookupComboBox_user.EditingValue <> Null then
DM_Main.vSource:= cxLookupComboBox_user.EditingValue
:
{ }
procedure TMForm.N3Click(Sender: TObject);
begin
//
if DM_Main.vSource = 0 then
with TFSetSoure.Create(self) do
try
if ShowModal = mrCancel then exit;
finally
free;
end;
. , (), . . 9.
.9
, . , , . 10 11.
.10
: , , , , , , , email, ( ), , . : , ( ), , . 12. 13.
|
|
.11 .
.12
.13
. , . , .
, - , ID , , Enter . FST_PERS_DATA REPEAT 1. . , , . :
{ ID }
procedure TFvabit.cxME_ID_AbitKeyUp(Sender: TObject; var
Key: Word;Shift: TShiftState);
begin
if Key = 13 then
begin
cxB_Registr.Visible:= false;
pFIBDS_All.Active:= false;
pFIBDS_All.ParamByName('ID').AsString:=
cxME_ID_Abit.Text;
pFIBDS_All.Active:= true;
pFIBDS_All.Edit;
pFIBDS_All.FieldByName('REPEAT').AsInteger:= 1;
end;
end;