フォームのボタンやラベルをプロパティ使って状況に応じ変化させる。美容室向け顧客管理システム　開発日記6日目

2020/02/232020/03/25

直接来店した場合に使うボタンとそのダイアログも用意しました。

別のフォームを用意してもよいんだけれど、条件に応じてラベルやタイトルが変化したらよいかな？と。

予約のダイアログは、来店日のところが予約日。来店時間のところは予約時刻でしたが、直来店の場合はボタンを押したときの実時間がそのまま入力されるようになっています。

  '担当者IDがOpenArgsに含まれない場合は予約FlgをFalseにする。
    If arg(1) = 0 Then
        'MsgBox ("直来店は担当者を設定してください。")
        Me.担当者ID = 0
        Me.txt_title.Caption = "直来店の登録"
        Me.売上日_ラベル.Caption = "来店日"
        Me.売上日.Value = Date
        Me.予約時刻_ラベル.Caption = "来店時間"
        Me.予約時刻.Value = Time()
        Me.メモ.Value = "直来店"
        Me.btn_予約.Caption = "来店登録"
        Me.txt_ステータス = "直来店"
        Me.chk_予約flg = False
        
    Else
        Me.担当者ID.Value = arg(1)
        Me.txt_title.Caption = "ご予約の登録"
        Me.売上日_ラベル.Caption = "ご予約日"
        
        Me.予約時刻_ラベル.Caption = "ご予約時間"
        Me.btn_予約.Caption = "予約登録"
        Me.txt_ステータス = "ご予約中"
         Me.chk_予約flg = True
 
    End If

もう少し変更必要かもですが、予約か直来店かを今のところ担当IDが含まれているかどうかで区別しています。

そこはいいとして、条件に応じて同じフォームをつかいつつ、キャプションというプロパティで表示を変えています。ついでにSQLでテーブルに書き込む際に参考にするフラグなんかもここで変更させてます。