IDalConnectionExt.PasswordExpired

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Driv: IDalDriver;
    ConnectDesc: IDalConnectionDescriptor;
    ConnectDescParams: IDalConnectionDescriptorParams;
    connection_ext: IDalConnectionExt;
    connection_ext_desc: IDalConnectionDescriptorExt;
    dal_con: IDalConnection;
Begin
    MB := MetabaseClass.Active;
    Driv := New DalOrcl8Driver.Create;
    ConnectDesc := Driv.CreateDescriptor;
    ConnectDescParams := ConnectDesc.Params;
    ConnectDescParams.Find("User Name").Value := "test";
    ConnectDescParams.Find("Password").Value := "test";
    ConnectDescParams.Find("Host BSTR").Value := "test";
    ConnectDescParams.Find("Schema").Value := "Warehouse";
    connection_ext_desc := ConnectDesc As IDalConnectionDescriptorExt;
    dal_con := connection_ext_desc.CreateConnectionExt(True);
    connection_ext := dal_con As IDalConnectionExt;
    If connection_ext.PasswordExpired Then
        connection_ext.ChangeExpiredPassword("Password_1");
    End If;
End Sub UserProc;