Power Appsでつくる服薬管理アプリ

◇はじめに

今回は、Microsoft社Power Platformの中のPower Appsを使い、服薬アプリをつくってみました。
背景としては、毎日服薬する必要のある薬を飲むにあたり、よく飲んだかどうか記憶が曖昧になることがあったため、どうせならアプリを作って対策してみようと思ったためです。

◇開発環境等

• OS：
  • Windows 11 Home（Ver:22H2）
• 契約ライセンス：
  • Microsoft 365 Business Basic
• 使用ツール：
  • Power Apps
  • SharePointリスト

◇最終的にできたアプリ

以下のようなアプリケーションになります。

• 薬を飲んだときに登録
• 服薬した履歴表示
• 過去のデータの削除、修正

といった最低限の機能になっています。

◇やりたかったこと

アプリを作る上で必要な機能を以下にまとめました。

1. 薬を飲んだ日時、薬の種類をアプリから登録する
2. 日時は現在日時をデフォルト値にしておく
3. 薬の種類は選択肢から選択可能にする
4. 登録したデータの履歴を確認できる
5. 登録データの修正・削除が可能

なお、この内、3については選択肢は事前にデータベース側で準備する形にします。

また、今回は実装していませんが、いずれ以下のような機能も入れたいと考えています。

＜今回は見送った機能＞

• リマインダー機能
  設定した時刻に当日の服薬状況をチェックし、薬の飲み忘れがあった場合はスマホに通知する
• 服薬前後のタイマー設定機能
  薬によっては服薬前後に飲み食い禁止だったりするため、タイマー機能をつける

◇実装

データ保存部（SharePoint）

データの保存先は今回、SharePointリストを使っています。
先にリストを作成し、そのリストをベースにアプリの作成を行っていきます。

テーブル名、列名は以下のような最低限の構成になっています。
なお、「タイトル」列については、現状使いどころが思いつかなかったので、
リストの設定から入力必須を外しています。

• テーブル名
  • MedicationManagement
• 列名
  • MedicationDateTime：服薬日時
  • MedicationType：薬種類
  • 登録者：データ登録ユーザ（元から存在する列）

追加した列の設定は画像のように設定しています。
MedicationDateTimeはデータ種類を「日付と時刻」に設定し、入力必須としています。
MedicationTypeはデータ種類を「選択肢」に設定しており、薬の種類を増やす場合はSharePoint上で追加する仕様としました。

データ登録UI部（Power Apps）

次に、服薬時にデータを登録するためのアプリケーションをPower Appsでつくっていきます。
今回は一からの作成ではなく、SharePointリスト上からアプリを作成する方法でアプリの作成を行っています。
なお、公式サイトの説明は以下に載っています。

1. SharePoint画面のメニュー上から、「統合」-「Power Apps」-「アプリの作成」を選択
2. アプリの名前を入力して「作成」を押す
3. しばらくするとPower Apps Studioが起動し、SharePointリストに基づいたアプリが作成される

この時点で、

• 登録データの一覧表示画面
• 登録データの詳細表示画面
• 登録データの修正画面
• 新規データの登録画面
• それらを行き来するためのアイコンボタン

が自動で作成されているため、このまま使っても大きな問題はありませんが、一部画面や機能の追加を行っています。

トップメニューの追加

現状、一覧表示画面がアプリの初期画面となっている（初期画面をどれにするかは変更可能です）ため、別途アプリのトップメニュー画面を作りました。

トップメニューには、2つのボタンを配置し、一つが新規データ登録画面、もう一つが登録データの一覧表示画面に遷移するようにしています。
あわせて、見た目的にわかりやすいよう、画面上にそれっぽいイラストをいくつか載せています。

今回は実装していませんが、直近の登録データ3件程度を画面上に表示するといったことも後々挑戦してみたいなと考えています。

一覧表示画面の日付範囲フィルタの追加

登録が増えてくると、特定の範囲のデータを探すのが難しくなるため、日付範囲フィルタの項目を追加しました。
実装方法については、以下のサイトを参考にさせていただきました。

日付フィルタについては、「X月X日～X月X日」という形式にしています。

実装方法としては、日付入力用のDatePickerを2つ用意し、それぞれに入力された値を用いて、GalleryのItemsに以下の式を入力しています。
なお、SortByColumns()の箇所は昇順・降順の表示用の式のため、日付範囲フィルタを掛けているのは、Filter()関数の部分になります。

SortByColumns(
    Filter([@MedicationManagement], MedicationDateTime >= DatePicker1.SelectedDate, MedicationDateTime <= DateAdd(DatePicker2.SelectedDate,1)),
    "MedicationDateTime", If(SortDescending1, SortOrder.Ascending, SortOrder.Descending))

その他

他に細かいところとして、

• 全体のフォントサイズ等の調整
• 新規データ登録時の現在日時をDefault値に設定する

といった対応を行っています。

◇おわりに

最低限の機能ですが、とりあえず自分で使って2か月程度経ちましたが特に問題なく使用できています。
ただ、何度か飲み忘れが発生したため、やはりリマインダー機能は早めに追加したいなと感じているところです。

🔚