ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/nongui/IBXServices.pas
(Generate patch)

Comparing ibx/trunk/runtime/nongui/IBXServices.pas (file contents):
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 210 by tony, Wed Mar 14 15:03:38 2018 UTC

# Line 640 | Line 640 | end;
640    protected
641      procedure DoBeforeInsert; override;
642      procedure DoAfterOpen; override;
643 +    procedure DoAfterPost; override;
644      procedure DoBeforePost; override;
645    public
646      constructor Create(AOwner:TComponent); override;
# Line 877 | Line 878 | begin
878    inherited DoAfterOpen;
879   end;
880  
881 + procedure TIBXServicesLimboTransactionsList.DoAfterPost;
882 + begin
883 +  if not FLoading then
884 +    inherited DoAfterPost;
885 + end;
886 +
887   procedure TIBXServicesLimboTransactionsList.DoBeforePost;
888    var i: integer;
889   begin
# Line 982 | Line 989 | end;
989  
990    procedure TIBXServicesUserList.DoAfterPost;
991    begin
985 –    inherited DoAfterPost;
992      {Refresh}
993      if not FLoading then
988 –    with FSource as TIBXSecurityService do
994      begin
995 <      DisplayUser(FieldByName('SEC$USER_NAME').AsString);
996 <      if UserInfoCount > 0 then
992 <      with UserInfo[0] do
995 >      inherited DoAfterPost;
996 >      with FSource as TIBXSecurityService do
997        begin
998 <        FieldByName('UserID').AsInteger := UserID;
999 <        FieldByName('GroupID').AsInteger := GroupID;
1000 <        FieldByName('SEC$USER_NAME').AsString := UserName;
1001 <        FieldByName('SEC$FIRST_NAME').AsString := FirstName;
1002 <        FieldByName('SEC$MIDDLE_NAME').AsString := MiddleName;
1003 <        FieldByName('SEC$LAST_NAME').AsString := LastName;
1004 <        FieldByName('SEC$PASSWORD').Clear;
1005 <        FieldByName('SEC$ADMIN').AsBoolean := AdminRole;
998 >        DisplayUser(FieldByName('SEC$USER_NAME').AsString);
999 >        if UserInfoCount > 0 then
1000 >        with UserInfo[0] do
1001 >        begin
1002 >          FieldByName('UserID').AsInteger := UserID;
1003 >          FieldByName('GroupID').AsInteger := GroupID;
1004 >          FieldByName('SEC$USER_NAME').AsString := UserName;
1005 >          FieldByName('SEC$FIRST_NAME').AsString := FirstName;
1006 >          FieldByName('SEC$MIDDLE_NAME').AsString := MiddleName;
1007 >          FieldByName('SEC$LAST_NAME').AsString := LastName;
1008 >          FieldByName('SEC$PASSWORD').Clear;
1009 >          FieldByName('SEC$ADMIN').AsBoolean := AdminRole;
1010 >        end;
1011        end;
1012      end;
1004 –
1013    end;
1014  
1015    procedure TIBXServicesUserList.DoAfterOpen;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines