アドレス帳④ 『HSP3』


前回は簡単な「都道府県プルダウン」を作成しました。今回は登録画面をつくっていきます。

項目 オブジェクト 格納変数 最大文字数 初期値
名前 input name 20  
ふりかな input kana 20  
郵便番号 input zip 10  
都道府県 combox ken_id   0
住所 input address 100  
マンンション等 input address2 100  
備考 mesbox biko 100  

アドレス帳の項目とオブジェクトは上記のようにしました。都道府県は前回作成した「都道府県モジュール」を使います。性別をラジオボタンで選択させて登録したかったのですが、HSP3はラジオボタンは標準ではないようです。ラジオボタンは応用として後々しようと思うので今回は省きます。

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
#include "lib_address.hsp"
screen 0,600,400 //windowサイズ
title "住所録"        //windowタイトル
//*********************************************
//    初期設定
//*********************************************

kenString = fun_KenString()
//*********************************************
//    メニュー画面
//*********************************************

*menu
    cls :
    gosub *init
    objsize 200,50
    pos 200,70   :button "新規登録",*inputData
    pos 200,170  :button "一覧",*menu
    pos 200,270  :button "終了",*appEnd
stop
//*********************************************
//     初期化
//*********************************************

*init
    name      = ""   //名前
    kana       = ""   //ふりかな
    zip          = ""   //郵便番号
    ken_id     = 0   //都道府県
    address   = ""   //住所
    address2 = ""   //マンション等
    biko        = ""   //備考
return
//*********************************************
//    登録編修画面
//*********************************************

*inputData
    cls
    pos 50,20   :mes "■登録"
    objsize 300,150
    pos 50,50    :mes "名前"
    pos 150,50  :input name, 200, 20,20
    pos 50,80    :mes "ふりかな"
    pos 150,80  :input kana, 200, 20,20
    pos 50,110  :mes "郵便番号"
    pos 150,110 :input zip, 80, 20,10
    pos 50,170   :mes "住所"
    pos 150,170  :input address, 350, 20,100
    pos 50,200   :mes "マンション等"
    pos 150,200  :input address2, 350, 20,100 
    pos 50,230   :mes "備考"
    pos 150,230  :mesbox biko, 350,50,,100
    objsize 100,150
    pos 50,140   :mes "都道府県"
    pos 150,140  :combox ken_id,100,kenString
 stop
//*********************************************
//    終了処理
//*********************************************
*appEnd
   end
stop

今回は入力フォームを表示しただけです。まだ「登録ボタン」をつけていません。次回、「登録ボタン」によるファイルへの書き込みを行いたいと思います。
初期値(初期化)の設定は、ラベル「*init」で行います。入力画面の表示は、ラベル「*inputData」で行います。トップメニューを表示すると13行目:データの初期化を行います。「新規登録」ボタンの飛び先をラベル「*inputData」に変更したので、「新規登録」ボタンをクリックすると入力画面が表示されます。
都道府県プルダウン作成用のモジュールは「lib_address.hsp」と別ファイルにしました。1行目でファイルを取り込んでいます。
 
サンプルファイル:
lib_address.hsp
address_sample.hsp
 


「アドレス帳④ 『HSP3』」への1件のフィードバック

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です