// info  nam="SAMPLE04A"  tit="備品管理"  dsc="説明用サンプル"  pro=1

  // リース等契約区分
PCSTR SLTP[3] = { "リース", "レンタル", "買取" };
ENMS esLTP = { SLTP, NELEM(SLTP) };

  // 事業所
CODI diOFC[6] = {
  { 19, "本社" }, { 20, "仙台" }, { 23, "名古屋" }, { 24, "大阪" },
  { 26, "広島" }, { 27, "九州" }
};
CODS dsOFC = { diOFC, NELEM(diOFC) };

  // リース等リスト
COLI ciLEA[14] = {
  { ASC(10),  9, "lid", "リース等ＩＤ", NULL, CF_KEY, },
  { TID_E1B,  6, "ltp", "区分", "契約区分", CF_DDL, NULL, NULL, (UINT)&esLTP, },
  { TID_C1B,  0, "ofc", "事業所", NULL, CF_DDL, NULL, NULL, (UINT)&dsOFC, },
  { STR(40),  0, "dsc", "物件名", },
  { TID_I4B,  4, "ter", "期間", "期間(月数)", },
  { TID_YMD,  0, "bdt", "開始日", },
  { TID_YMD,  0, "edt", "終了日", },
  { TID_M4B, 10, "mnp", "月払額", },
  { TID_M4B, 10, "amp", "物件価格", },
  { STR(24),  0, "ven", "販売会社名", },
  { STR(24),  0, "len", "リース等会社名", },
  { STR(40), 20, "lcd", "契約コード", },
  { STR(40),  0, "rem", "備　考", },
  { STR(12),  8, "fil", "ファイル", },
};
COLS csLEA = { ciLEA, NELEM(ciLEA) };

  // 保守契約区分
PCSTR SMTP[3] = { "月払", "年払", "その他" };
ENMS esMTP = { SMTP, NELEM(SMTP) };

  // 保守契約リスト
COLI ciMNT[12] = {
  { ASC(10),  9, "mid", "保守ＩＤ", NULL, CF_KEY, },
  { TID_E1B,  6, "mtp", "区分", "契約区分", CF_DDL, NULL, NULL, (UINT)&esMTP, },
  { TID_C1B,  0, "ofc", "事業所", NULL, CF_DDL, NULL, NULL, (UINT)&dsOFC, },
  { STR(40),  0, "dsc", "物件名", },
  { TID_I4B,  4, "ter", "期間", "期間(月数)", },
  { TID_YMD,  0, "bdt", "開始日", },
  { TID_YMD,  0, "edt", "終了日", },
  { TID_M4B, 10, "mnp", "月払額", },
  { STR(24),  0, "ven", "保守会社名", },
  { STR(40), 20, "mcd", "保守コード", },
  { STR(40),  0, "rem", "備　考", },
  { STR(12),  8, "fil", "ファイル", },
};
COLS csMNT = { ciMNT, NELEM(ciMNT) };

  // 品目
PCSTR SCAT[10] = {
  "", "パソコン", "ディスプレイ", "大判プリンタ", "コピー機", "プリンタ",
  "サーバ等", "その他機器", "ソフト等", "ＩＰ割当"
};
ENMS esCAT = { SCAT, NELEM(SCAT) };

  // 状態
PCSTR SSTA[5] = { "現用", "予備", "故障", "撤去済", "未配備" };
ENMS esSTA = { SSTA, NELEM(SSTA) };

  // 備品リスト
COLI ciEQU[15] = {
  { ASC(10),  9, "qid", "備品ＩＤ", NULL, CF_KEY, },
  { TID_E1B, 10, "cat", "品目", "品　目", CF_DDL, NULL, NULL, (UINT)&esCAT, },
  { TID_C1B,  0, "ofc", "事業所", NULL, CF_DDL, NULL, NULL, (UINT)&dsOFC, },
  { TID_E1B,  0, "sta", "状態", "状　態", CF_DDL, NULL, NULL, (UINT)&esSTA, },
  { STR(23), 12, "mak", "メーカー名", },
  { STR(24), 16, "mdl", "製品名／型番", },
  { STR(24), 16, "snm", "製造番号等", },
  { STR(24), 16, "spc", "スペック等", },
  { STR(40),  0, "use", "主要用途等", },
  { STR(10),  9, "lid", "リース等ＩＤ", },
  { STR(10),  9, "mid", "保守ＩＤ", },
  { STR(40), 16, "qcd", "個体保守コード", },
  { STR(16),  0, "ipa", "ＩＰアドレス", },
  { TID_YMD,  0, "ddt", "個体撤去日", },
  { STR(44),  0, "rem", "備　考", },
};
COLS csEQU = { ciEQU, NELEM(ciEQU) };

TBLI tiBIH[3] = {
  { &csLEA, NULL, "LEADAT",  "リース等リスト", NULL, },
  { &csMNT, NULL, "MNTDAT",  "保守契約リスト", NULL, },
  { &csEQU, NULL, "EQUDAT",  "備品リスト",     NULL, },
};
TBLS tsBIH = { tiBIH, NELEM(tiBIH) };

BDBI dbBIH = { &tsBIH, "SAMPLE04A", "備品管理", "説明用サンプル" };

BOOL ConnectMain(void)
{ // サンプル
  return ConnectDBX(&dbBIH);
}
