PowerApps│入退室管理アプリに予約機能を追加して基本操作を学ぶ

//現在時刻以降に予約があれば最も早いものを表示
Text(
    First(
        Sort(
            Filter(T_予約情報,ReserveSDate>=Now(),RoomID=ThisItem.RoomID),
            ReserveSDate,Ascending
        )
    ).ReserveSDate,
"予約 mm/dd hh:mm~")

//現在時刻以降に予約がなければ非表示
!IsEmpty(Filter(T_予約情報,ReserveSDate>=Now(),RoomID=ThisItem.RoomID))

//入室中なら〇、未使用なら×をSVGで表示
Image=
"data:image/svg+xml,"& 
EncodeUrl(
    "<svg viewBox='0 0 100 100' xmlns='http://www.w3.org/2000/svg'>
    "&If(0>=DateDiff(ThisItem.EnterDate,ThisItem.LeaveDate,TimeUnit.Minutes),
        "<circle cx='50' cy='50' r='35' fill='none' stroke='RGBA(0,0,255,1)' stroke-width='5'/>",
        "<line x1='20' y1='20' x2='80' y2='80' stroke='RGBA(255,0,0,1)' stroke-width='5'/>
         <line x1='80' y1='20' x2='20' y2='80' stroke='RGBA(255,0,0,1)' stroke-width='5'/>")&"
    </svg>"
)

//コンテナ表示制御➡true
Set(_Reserve,!_Reserve);
//フォームモードを新規に設定
NewForm(Form01);
//入室初期値+15分を変数に格納
Set(_minutes,Value(MinuteValue1.Selected.Value+15))

//コンテナの表示設定
_Reserve

//コンテナの背景色
Parent.Fill

//タイトル
"部屋の予約"

//部屋の名前
Gallery01.Selected.Label01.Text

//コンテナ表示制御➡false
Set(_Reserve,!_Reserve)

//予約時間かぶってないか検証してから登録
Clear(_Chk);

//入室時間以降、総当たりで重複確認
ForAll(Filter(T_予約情報,RoomID=Gallery01.Selected.RoomID,ReserveEDate>=ReserveSDate_DataCard1.Update),
    If(0>=DateDiff(ReserveEDate_DataCard1.Update,ThisRecord.ReserveSDate,Minutes),
    Collect(_Chk,{Seq:DateDiff(ReserveEDate_DataCard1.Update,ThisRecord.ReserveSDate,Minutes)})
    )
);

//重複なければ登録
If(CountRows(_Chk)=0,
    SubmitForm(Form01);Set(_mes,Blank()),
    Set(_mes,"期間重複")
);

//部屋番号をギャラリーの選択レコードから転記
Gallery01.Selected.RoomID

false

//予約者氏名を変数から転記
_user.surname&_user.givenName

false

//初期値は現在時刻より15分先
DateAdd(Now(),15,TimeUnit.Minutes)

//15分単位
["00","15","30","45"]

//初期値を15分間隔の値に変換
Text(Int(Minute(Parent.Default)/15)*15,"00")

//選択した時間+15分を変数に格納
Set(_minutes,Self.Selected.Value+15)

//初期値は現在時刻より30分先
DateAdd(Now(),30,TimeUnit.Minutes)

//日をまたがない前提で入室日と同じ値を参照
DateValue1.SelectedDate

//修正されると困るので非表示
false

//変数の値が60分なら1時間進める
Text(If(_minutes=60,HourValue1.Selected.Value+1,HourValue1.Selected.Value),"00")

//初期値を15分間隔の値に変換
Text(Int(_minutes/15)*15,"00")

//15分単位
["00","15","30","45"]

//予約重複時の注意喚起
=_mes

//部屋番号でフィルターしたものを入室予約時間昇順で並び替え
Sort(
    Filter(T_予約情報,RoomID=Gallery01.Selected.RoomID,ReserveSDate>=Now()),
ReserveSDate,Ascending)

見た目のため、スクロールバー非表示
=false

//選択したレコード削除
Remove(T_予約情報,ThisItem)

RGBA(255, 0, 0, 1)　//お好みで

//予約日
Text(ThisItem.ReserveSDate,"'yy/mm/dd")

"~"

//予約入室時間
Text(ThisItem.ReserveSDate,"hh:mm")

//予約退室時間
Text(ThisItem.ReserveEDate,"hh:mm")

"予約はありません"

//現在時刻以降の予約情報がなければ非表示
!CountRows(Gallery11.AllItems)