Delphiでユーザーインターフェイスを開発するためのMVCアプローチ。 パート2.リスト

前の記事は、1つのチェックマークのみに当てられていました。 もう少し深刻なものに移る時です。 今日のトピックは、リストの表示と、GUIリストと内部データとの関係です。 この記事は、Delphi開発者を対象としています。

どこから始めるか

水を注がないように、上の図に示されている実例に直行します。 ユーザー権限を設定するためのプリミティブフォームを作成する必要があるとします。

ウィンドウの左側には、システムのすべてのユーザーのリストが表示され、右側には現在選択されているユーザーの権利と役割のリストが表示されます。 ウィンドウのロジックは、ウィンドウの左側でユーザーが選択されると、右側の権利と役割のリストが更新されることです。 また、右側には「追加」/「削除」ボタンがあり、ユーザーに新しい役割を追加するか、選択した既存の役割を削除できます。 新しいロールを追加すると、ロールディレクトリのポップアップウィンドウが表示され、そこで追加するロールを選択できます。 実際、それがすべてです。

モデル

データの内部表現が、従業員を説明するTUserクラスと、数値IDでロールの名前を返すことができるロールディレクトリで構成されているとします。 ロールのクラスを作成するのは非実用的です これはあまりにも単純なエンティティです。

uses Generics.Collections; //      TObjectList type TIntList = array of Integer; //        TUser = class strict private FID: Integer; FFullFio: String; FRoles: TIntList; public property ID: Integer read FID; property FullFio: String read FFullFio; property Roles: TIntList read FRoles write SetRoles; end; TUsersList = class(TObjectList<TUser>) public function UserByID(const aID: Integer): TUser; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

ユーザーの役割は非常に単純な方法、つまりIDのリストで表されていることがわかります。



適切なフィールドをフォームクラスに追加します。

 TfmUserRights = class(TForm) ... lbUsers: TListBox; lbRoles: TListBox; private FUsers: TUsersList; public property Users: TUsersList read FUsers; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

型付きTObjectListを使用したことに注意してください。 Delphi 2009より前は、これは不可能であり、TObjectListは常にTObjectを保持していました。 リストアイテムにアクセスするたびに、正しいクラスFUsers [i]をTUserとして（または、kamikazeのオプション：TUser（FUsers [i]））にする必要がありました。 不便であり、間違ったクラスへの変換を実行することで間違いを犯しやすくなりました。 ジェネリック型（ジェネリック）の出現により、強く型付けされたTObjectListを使用できるようになりました。 信じられないほど便利です！ FUsers [i]を介してこのようなリストの要素に目を向けると、すぐにTUserクラスのオブジェクトが取得されます。



従業員のリストを取得するコードを提供しません。 各システムでは、そのアーキテクチャに応じて異なります。 これは、データベースへのSQLクエリ、クライアントキャッシュへのアクセス、またはアプリケーションサーバー（多層アーキテクチャ）へのアクセスです。 単純に、どこかからこのリストを取得する機会があるとします。

リスト項目を表示する

そのため、従業員のリストを取得して画面に表示します。

 procedure TfmUserRights.FormCreate(Sender: TObject); begin FillUsers; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

Fillメソッドは、ユーザーのリストを単純に[再]入力するように設計されています。

 procedure TfmUserRights.FillUsers; var i: Integer; begin FUsers.Free; //   ,    FUsers := GetUsers; lbUsers.Items.BeginUpdate; try lbUsers.Items.Clear; for i := 0 to Users.Count-1 do lbUsers.AddItem(FUsers[i].FullFio, FUsers[i]); //         FUsers[i], //          ID' (  , ) finally lbUsers.Items.EndUpdate; end; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

スタッフリストに記入するだけでは不十分です。 また、現在選択されている従業員の役割も表示する必要があります。 そのためには、現在どの従業員が選択されているかを判断する方法を学ぶ必要がありますか？ 経験の浅いプログラマーは、さまざまな場所からlbUsers.Items.Objects [lbUsers.ItemIndex]に積極的に連絡し始めます。 ただし、 この記事の前の部分を読んだ場合、あなたはすでに私たちが反対の方向に進むことをすでに認識しています。 現在選択されている従業員を返し、設定するプロパティをフォームクラスに設定します。 TUserオブジェクト自体または数値のユーザーIDを返すことができます。 議論することはできますが、IDを返す方がより便利に思えました。

 TfmUserRights = class(TForm) private FSelUserID: Integer; public property SelUserID: Integer read FSelUserID write SetSelUserID; end; procedure TfmUserRights.SetSelUserID(const Value: Integer); begin if FSelUserID <> Value then begin FSelUserID := Value; UpdateSelUser; // !!! end; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

ここで重要なのは、指定されたユーザーが選択されている状態にインターフェイスをもたらすUpdateSelUserメソッドです。

 procedure TfmUserRights.UpdateSelUser; var vSelInd: Integer; i: Integer; begin vSelInd := -1; with lbUsers do for i := 0 to Items.Count-1 do if (Items.Objects[i] as TUser).ID = SelUserID then begin vSelInd := i; Break; end; lbUsers.ItemIndex := vSelInd; if SelUserID <= 0 then gbRoles.Caption := '  :' else gbRoles.Caption := '  : ' + Users.UserByID(SelUserID).FullFio FillUserRoles; // !!! end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

現在のユーザーのインストール方法により、ロールのリスト（FillUserRoles）が常にオーバーフローすることがわかります。



前の記事のように、同期方向Model-> Presentationを実装したため、逆同期も必要です。 したがって、lbUsersリストのOnClickイベントに、次のコードを追加します。

 procedure TfmUserRights.lbUsersClick(Sender: TObject); begin SelUserID := (lbUsers.Items.Objects[lbUsers.ItemIndex] as TUser).ID; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

SelUserIDを指定するときに、別のユーザーが以前に選択されていた場合、setメソッドはUpdateSelUserを呼び出します。これにより、ビューがモデルと完全に同期されます。つまり、ロールのリストが更新されます。 つまり lbUsersClickハンドラー内からロールのリストを更新するメソッドを呼び出す必要がなくなり、すべてが自動的に行われます。



ロールのリストに記入する方法を示します（簡単です）：

 procedure TfmUserRights.FillUserRoles; var i: Integer; vSelUser: TUser; begin lbRoles.BeginUpdate; try lbRoles.Clear; if SelUserID <= 0 then Exit; vSelUser := Users.UserByID(SelUserID); for i := 0 to High(vSelUser.Roles) do lbRoles.AddItem(DictRoles.NameByID(vSelUser.Roles[i]), TObject(vSelUser.Roles[i])); //            ,   ID',     TObject' ( ) finally SomeList.EndUpdate; end; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

リストの最初のユーザーを初期化することで、フォーム初期化コードを補足します。

 procedure TfmUserRights.FormCreate(Sender: TObject); begin FillUsers; FSelUserID := -2; // ,   Set- SelUserID := -1; //       end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

何を得たの？ これで、SelUserIDを介して現在選択されているユーザーにアクセスできます。 さらに、SelUserIDプロパティの値をプログラムで設定する場合と、GUIリストからユーザーを選択する場合の両方で、ロールのリストが自動的に更新されます。



ロールを操作（追加、削除）するために、クラスのSelRolesプロパティを作成できます。 完全に仮想化する方が簡単です（個別のフィールドを持たないでください）：

 property SelRoles: TIntList read GetSelRoles write SetSelRoles; function TfmUserRights.GetSelRoles: TIntList; var i: Integer; begin Result := nil; for i := 0 to lbRoles.Items.Count-1 do if lbRoles.Selected[i] then AddIntToList(Integer(lbRoles.Items.Objects[i]), Result); //    ?     Objects' //   ,  ID' ,      Integer end; procedure TfmReportMain.SetSelRoles(const aSelRoles: TIntList); var i: Integer; begin lbRoles.Items.BeginUpdate; try for i := 0 to lbRoles.Items.Count-1 do lbRoles.Selected[i] := IntInList(Integer(lbRoles.Items.Objects[i]), aSelRoles); finally lbRoles.Items.EndUpdate; end; UpdateSelRoles; //      .     ,  ,   " N "     -  end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

IntInListメソッドとAddIntToListメソッドは、それぞれ要素の配列へのエントリをチェックし、新しい要素を配列に追加します。

ロールの追加と削除

役割の追加：

 procedure TfmUserRights.btAddRoleClick(Sender: TObject); var vSelUser: TUser; vRoles: TIntList; vAddRoles: TIntList; i: Integer; begin vAddRoles := nil; vAddRoles := TfmDictionary.GelDictIDs(DictRoles); //   ID'       vSelUser := Users.UserByID(SelUserID); vRoles := vSelUser.Roles; for i := 0 to High(vAddRoles) do AddIntToList(vAddRoles[i], vRoles); vSelUser.Roles := vRoles; //           (  ) SelRoles := vAddRoles; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

役割の削除：

 procedure TfmUserRights.btDelRoleClick(Sender: TObject); var vSelUser: TUser; vDelRoles: TIntList; vRoles: TIntList; vNewRoles: TIntList; i, vInd: Integer; begin if lbAllowRightsRoles.SelCount = 0 then raise Exception.Create('     .'); vDelRoles := SelRoles; vSelUser := Users.UserByID(SelUserID); vRoles := vSelUser.Roles; SetLength(vNewRoles, Length(vRoles)); //     //  vNewRoles    ,       vInd := 0; for i := 0 to High(vRoles) do begin if IntInList(vRoles[i], vDelRoles) then Continue; vNewRoles[vInd] := vRoles[i]; inc(vInd); end; SetLength(vNewRoles, vInd); //     vSelUser.Roles := vNewRoles; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

データベースのTUserオブジェクトへの変更を保存する場所は、ユーザー次第です。 TUserクラスのSetRoles内ですぐにこれを実行したい人がいるかもしれません（すべての変更が即座にデータベースに反映されるように）。 ウィンドウの[OK]ボタンをクリックして、変更されたTUserオブジェクトの保存を実装している人がいます。 3番目のオプションは、[OK]ボタンで保存することです。また、現在のユーザーの役割が変更された場合、ユーザーを切り替えようとするときにも変更します（上記のウィンドウインターフェースでは、どの従業員が役割を変更し、どの従業員を変更しないかを視覚的に追跡できないため従業員間でエラーが発生する可能性があります）。

まとめ

その結果、ユーザー権利管理ウィンドウが作成されました。 ウィンドウは次のロジックを実装します。

1）従業員のリストを要求します。

2）従業員のリストを表示します。

3）SelUserIDを使用して、現在選択されている従業員のIDを取得します。

4）ID'uによる選択された従業員のインストールと、彼の役割のリストの自動更新。

5）SelRolesから選択した従業員の役割のリストを取得します。

6）ロールの追加と削除。

追加。 選択したアイテムを保存してリストを更新する

ここにとどまることは可能ですが、それでも、現在選択されている従業員を失うことなく、従業員自身のリストを更新する方法を示したいと思います。 従業員のリストを手動で更新する機能は、従業員の追加が別のウィンドウで行われ、新しい従業員を追加する権限を変更するためのウィンドウに自動的に通知するメカニズムが実装されていない場合に役立ちます。 システムの別のユーザーは別のマシンに新しい従業員を追加できますが、追加されたユーザーがリストに表示されるように権限設定ウィンドウに移動することは望ましくありません。



したがって、権利設定ウィンドウに「従業員リストを更新」ボタンを追加したとしましょう。 明らかに、FillUsersメソッドへの単純な呼び出しにつながるはずです。 しかし、現在選択されている従業員は失われます（GUIリストがクリアされて再び入力されるため）。これはユーザーにとって非常に不便で奇妙です。

 procedure TfmUserRights.FillUsers; var i: Integer; vSavedSelUserID: Integer; begin //        if SelUserID > 0 then vSavedSelUserID := SelUserID else vSavedSelUserID := -1; ... //   FUsers    ... //     if vSavedSelUserID > 0 then begin FSelUserID := -1; SelUserID := vSavedSelUserID; end else SelUserID := -1; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

将来、さらに多くのことが必要になる可能性があります。権利設定ウィンドウで繰り返し入力する間、またはアプリケーションセッション間で選択した最後の従業員を記憶することです。 この場合、パラメータをFillUsersに追加して、リストを再構築した後に配置するユーザーを決定できます。 この場合、現在のユーザーを記憶するロジックは少し複雑になります。

 procedure TfmUserRights.FillUsers(const aSelUserID: Integer = -1); var i: Integer; vNeedSelUserID: Integer; begin if aSelUserID > 0 then //     ,    vNeedSelUserID := aSelUserID else if SelUserID > 0 then //     -    vNeedSelUserID := SelUserID else vNeedSelUserID := -1; ... //   FUsers    ... if vNeedSelUserID > 0 then begin FSelUserID := -1; SelUserID := vNeedSelUserID; end else SelUserID := -1; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

この場合、FormCreateは次のように変更されます。

 procedure TfmUserRights.FormCreate(Sender: TObject); begin FillUsers(Config.RightsFormSavedUserID); end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

およびFormDestroy on

 procedure TfmUserRights.FormCreate(Sender: TObject); begin Config.RightsFormSavedUserID := SelUserID; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

上記のコードのほとんどは、頭から発明されたもので、タイプミスや不正確さのために厳しく判断しないでください。 実際のプロジェクトと非常によく似ていますが、実際のプロジェクトでは、詳細については詳しく説明しません。



徐々に、内部データのクラスをGUIコントロールに接続することに近づいています。 まだやっていません。 記事の次の部分では、通知サブスクリプションテンプレートを見て、GUIがオブジェクト自体の変更にどのように応答するかを示します。



頑張って



PS



記事の最初の部分

記事の第3部