ITmedia エンタープライズ

この特集のトップページへ
＞ Chapter 7：プレゼンテーション層の構築

7.7.2　伝票情報管理用のフォーム
　まずは，Fig.7-77に示した伝票情報ウィンドウを構成するフォームから作成してゆく。

●フォームの新規作成
　伝票情報管理用のフォームは，FormSlipという名前で実装するものとする。そこで，Visual Basicのメニューから［プロジェクト］−［フォームモジュールの追加］を選択して，新しいフォームを追加したのち，各プロパティをTable 7-32のように設定する。

Table 7-32　FormSlipフォームのプロパティ

（オブジェクト名）	FormSlip
Caption	伝票情報
MDIChild	True

●フォームの構成
　追加したFormSlipフォームには，Fig.7-86のように各コンポーネントを配置する。

Fig.7-86　FormSlipフォームの画面構成

　Fig.7-86はフォーム上に多数のボタンが配置されているため，わかりにくいものとなっているが，基本的な構成は，顧客管理処理で使ったFormCustomerフォーム（Fig.7-16）や製品管理処理で使ったFormProductフォーム（Fig.7-67)とほぼ変わらない。

　各コンポーネントの役割は，次のとおりである。

［新規ボタン］

　新しく伝票情報を追加する。 　

［編集］ボタン

　既存の伝票情報を編集する。 　

［削除］ボタン

　既存の伝票情報を削除する。顧客管理処理や製品管理処理と同様，1回目の削除では伝票情報テーブルのDELETEDFLAGフィールドの値をTrueにして削除ずみのマークを付けるだけとし，2回目の削除で実際にレコードそのものを削除する。 　

［復帰］ボタン

　削除ずみのマークが付いている（DELETEDFLAGフィールドの値がTrueである）入庫情報のDELETEDFLAGフィールドの値をFalseに設定し，削除状態から復帰させる。 　

［印刷］ボタン

　DGrid_Slipデータグリッドに表示されている内容一覧を印刷する。 　

［最新の情報に更新］ボタン

　サーバーと再接続し，DGrid_Slipデータグリッドの表示内容を最新の情報に更新する。 　

［検索］ボタン

　左側にあるテキストボックス（TXT_SEARCHテキストボックス）に入力された内容と合致するレコードを検索する。検索対象となる列は，その下にあるドロップダウンリストボックス（COMBO_SEARCHFIELDコンボボックス）で選択された列とする。また，［上］ラジオボタン（OPT_UPラジオボタン），［下］ラジオボタン（OPT_DOWNラジオボタン）を使って，検索方向を指定できるようにする。 　

［表示項目］ボタン

　DGrid_Slipデータグリッドにどの列を表示するのかを設定するウィンドウ（Fig.7-17を参照）を表示する。 　

［絞り込み］チェックボックス

　チェックを付けると，［絞り込み設定］ボタンで設定した絞り込み条件を有効にする。 　

［絞り込み設定］ボタン

　DGrid_Slipデータグリッドの表示項目を絞り込む条件を設定するためのウィンドウ（Fig.7-81を参照）を表示する。 　

［承認依頼］ボタン

　伝票を承認依頼とする（営業部が扱う）。このボタンを押すと，伝票が承認依頼中の状態になるが，伝票の額がBusiness.Slipコンポーネントのコンストラクタ文字列で設定された金額以下であれば，承認依頼中ではなく，承認ずみとなる（「6.5.3　承認，却下処理」を参照）。 　

［承認依頼取消］ボタン

　承認依頼中の伝票の承認依頼を取り消す（営業部が扱う）。 　

［承認］ボタン

　承認依頼中の伝票を承認する（営業部上長が扱う）。 　

［承認取消］ボタン

　承認した伝票の承認を取り消す（営業部上長が扱う）。 　

［却下］

　承認依頼中の伝票を却下する（営業部上長が扱う）。 　

［却下取消］

　却下した伝票の却下を取り消す（営業部上長が扱う）。 　

［発送］

　伝票を発送ずみとする（製品管理部が扱う）。 　

［発送取消］

　発送ずみとした伝票を取り消す（製品管理部が扱う）。 　

［経理処理］

　経理処理ずみとする（経理部が扱う）。 　

［経理処理取消］

　経理処理ずみとした伝票を取り消す（経理部が扱う）。 　

［請求書作成］

　選択されている伝票が，独立した請求書を作成するように設定されているとき（この設定は，伝票の作成時にFig.7-79に示したウィンドウの［独立した請求書を作る］のチェックボックスで設定できる），その伝票に対する請求書を作成する（経理部が扱う）。 　

［明細］

　明細情報ウィンドウ（Fig.7-78）を表示する。 　

DGrid_Slipデータグリッド

　登録されている伝票情報の一覧を表示するDataGridコンポーネントである。このコンポーネントを，Business.SlipコンポーネントのGetSlipsメソッド（List 6-171）を呼び出して得たADODB.Recordsetオブジェクトと結び付けることで，伝票の一覧を表示する。
　Table 7-33に示すように，DGrid_Slipデータグリッドには各列とフィールド名とを割り当てる。データグリッドコントロールに対して列を割り当てる方法については，「7.4.3　顧客の一覧参照」を参照してほしい。
　また， いくつかの列フィールドに対しては，プロパティの［形式］ページで書式を設定した（Fig.7-57を参照）。たとえば，小計，消費税，合計の各欄では，3桁ごとにカンマで区切って数値を表示させるようにしている。具体的にどのように設定したのかについては，本章末からダウンロードできるプログラムをVisual Basicで開いて確認してほしい。

Table 7-33　DGrid_Slipデータグリッドの列の割り当て

インデックス	キャプション（Caption）	対応するフィールド（DataField）	可視（Visible）
0	伝票番号	ID	True
1	顧客番号	伝票情報.CUSTOMERID	False
2	顧客名	CUSTOMERNAME	True
3	小計	SUBTOTAL	True
4	消費税	TAX	True
5	合計	TOTAL	True
6	請求書番号	BILLID	False
7	独立請求書	ONEBILLFLAG	True
8	承認依頼	REQ_CONSENTFLAG	True
9	承認依頼日	REQ_CONSENTDATE	True
10	承認依頼者	REQ_CONSENTUSER	True
11	承認依頼備考	REQ_CONSENTCOMMENT	True
12	承認ずみ	CONSENTEDFLAG	True
13	承認日	CONSENTEDDATE	True
14	承認者	CONSENTEDUSER	True
15	承認備考	CONSENTEDCOMMENT	True
16	却下ずみ	REJECTEDFLAG	True
17	却下日	REJECTEDDATE	True
18	却下者	REJECTEDUSER	True
19	却下備考	REJECTEDCOMMENT	True
20	発送ずみ	SENDFLAG	True
21	発送日	SENDDATE	True
22	発送者	SENDUSER	True
23	発送備考	SENDCOMMENT	True
24	経理処理ずみ	ACCOUNTINGFLAG	True
25	経理処理日	ACCOUNTINGDATE	True
26	経理担当者	ACCOUNTINGUSER	True
27	経理備考	ACCOUNTINGCOMMENT	True
28	請求ずみ	MADEBILLFLAG	True
29	請求日	BILLDATE	True
30	発送先部署	DIVISION	False
31	発送先担当者	PERSON	False
32	納入予定日	DELIVERDATE	False
33	発送先	SENT_ADDR	False
34	発送先電話番号	SENT_TEL	False
35	摘要	MEMO	True
36	作成日	MADEDATE	False
37	作成者	MADEUSER	False
38	最終更新者	LASTUSER	False
39	最終更新日	LASTDATE	False
40	削除ずみ	DELETEDFLAG	False

97/134