home *** CD-ROM | disk | FTP | other *** search
/ Dr. Watson 2.0 / DRWATSON2.iso / OFFICE / WZDAT80.MDT / tblDatabaseTypes.json < prev    next >
JavaScript Object Notation  |  1997-03-17  |  10KB
  1. {
  2.     "schema": {
  3.         "DatabaseTypeID": "Long Integer",
  4.         "DatabaseTypeName": "Text (50)",
  5.         "ImageFile": "Text (255)",
  6.         "StartupCode": "Memo/Hyperlink (255)",
  7.         "RequiresIsLoaded": "Boolean NOT NULL"
  8.     },
  9.     "data": [
  10.         {
  11.             "DatabaseTypeID": 2,
  12.             "DatabaseTypeName": "╨¢╨╕╤ç╨╜╨╛╨╡ ╨╕╨╝╤â╤ë╨╡╤ü╤é╨▓╨╛",
  13.             "ImageFile": "bitmaps\\dbwiz\\houshold.gif",
  14.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  15.             "RequiresIsLoaded": 0
  16.         },
  17.         {
  18.             "DatabaseTypeID": 3,
  19.             "DatabaseTypeName": "╨ƒ╤Ç╨╕╨╡╨╝ ╨╖╨░╨║╨░╨╖╨╛╨▓",
  20.             "ImageFile": "bitmaps\\dbwiz\\phonordr.gif",
  21.             "StartupCode": "    Dim dbs As Database\r\n    Dim rst As Recordset\r\n\r\nOn Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n    ' Make sure we have company information\r\n    DoCmd.Hourglass False\r\n    Set dbs = CurrentDB()\r\n    Set rst = dbs.OpenRecordset(\"|T00344\")\r\n    If rst.RecordCount = 0 Then\r\n      rst.AddNew\r\n      rst![|F00004]=NULL\r\n      rst.Update\r\n      MsgBox \"|S00217\"\r\n      DoCmd.OpenForm \"|T00344\", , , , , acDialog\r\n    End If\r\n    rst.Close\r\n    dbs.Close\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  22.             "RequiresIsLoaded": 1
  23.         },
  24.         {
  25.             "DatabaseTypeID": 4,
  26.             "DatabaseTypeName": "╨Ü╨╛╨╜╤é╨░╨║╤é╤ï",
  27.             "ImageFile": "bitmaps\\dbwiz\\contacts.gif",
  28.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  29.             "RequiresIsLoaded": 1
  30.         },
  31.         {
  32.             "DatabaseTypeID": 5,
  33.             "DatabaseTypeName": "╨ù╨░╨║╨░╨╖╤ï ╨╜╨░ ╤Ç╨░╨▒╨╛╤é╤ï",
  34.             "ImageFile": "bitmaps\\dbwiz\\phonordr.gif",
  35.             "StartupCode": "    Dim dbs As Database\r\n    Dim rst As Recordset\r\n\r\nOn Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n    ' Make sure we have company information\r\n    DoCmd.Hourglass False\r\n    Set dbs = CurrentDB()\r\n    Set rst = dbs.OpenRecordset(\"|T00344\")\r\n    If rst.RecordCount = 0 Then\r\n      rst.AddNew\r\n      rst![|F00004]=NULL\r\n      rst.Update\r\n      MsgBox \"|S00217\"\r\n      DoCmd.OpenForm \"|T00344\", , , , , acDialog\r\n    End If\r\n    rst.Close\r\n    dbs.Close\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  36.             "RequiresIsLoaded": 1
  37.         },
  38.         {
  39.             "DatabaseTypeID": 7,
  40.             "DatabaseTypeName": "╨₧╤ü╨╜╨╛╨▓╨╜╤ï╨╡ ╤ä╨╛╨╜╨┤╤ï",
  41.             "ImageFile": "bitmaps\\dbwiz\\invntory.gif",
  42.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  43.             "RequiresIsLoaded": 1
  44.         },
  45.         {
  46.             "DatabaseTypeID": 8,
  47.             "DatabaseTypeName": "╨á╨╡╤ü╤â╤Ç╤ü╤ï",
  48.             "ImageFile": "bitmaps\\dbwiz\\resource.gif",
  49.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  50.             "RequiresIsLoaded": 1
  51.         },
  52.         {
  53.             "DatabaseTypeID": 9,
  54.             "DatabaseTypeName": "╨£╨╡╤Ç╨╛╨┐╤Ç╨╕╤Å╤é╨╕╤Å",
  55.             "ImageFile": "bitmaps\\dbwiz\\resource.gif",
  56.             "StartupCode": "    Dim dbs As Database\r\n    Dim rst As Recordset\r\n\r\nOn Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n    DoCmd.Hourglass False\r\n    Set dbs = CurrentDB()\r\n    Set rst = dbs.OpenRecordset(\"|T00344\")\r\n    If rst.RecordCount = 0 Then\r\n      rst.AddNew\r\n      rst![|F03030]=0\r\n      rst.Update\r\n      MsgBox \"|S00217\"\r\n      DoCmd.OpenForm \"|P00231\", , , , , acDialog\r\n    End If\r\n    rst.Close\r\n    dbs.Close\r\n\r\n|GOTODEFAULT\r\n\r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  57.             "RequiresIsLoaded": 1
  58.         },
  59.         {
  60.             "DatabaseTypeID": 10,
  61.             "DatabaseTypeName": "╨ú╤ç╨░╤ü╤é╨╜╨╕╨║╨╕",
  62.             "ImageFile": "bitmaps\\dbwiz\\members.gif",
  63.             "StartupCode": "    Dim dbs As Database\r\n    Dim rst As Recordset\r\n\r\nOn Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n    DoCmd.Hourglass False\r\n    Set dbs = CurrentDB()\r\n    Set rst = dbs.OpenRecordset(\"|T00484\")\r\n    If rst.RecordCount = 0 Then\r\n      rst.AddNew\r\n      rst![|F00004] = NULL\r\n      rst.Update\r\n      MsgBox \"|S00217\"\r\n      DoCmd.OpenForm \"|P00176\", , , , , acDialog\r\n    End If\r\n    rst.Close\r\n    dbs.Close\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  64.             "RequiresIsLoaded": 1
  65.         },
  66.         {
  67.             "DatabaseTypeID": 11,
  68.             "DatabaseTypeName": "╨í╨║╨╗╨░╨┤",
  69.             "ImageFile": "bitmaps\\dbwiz\\invntory.gif",
  70.             "StartupCode": "    Dim dbs As Database\r\n    Dim rst As Recordset\r\n\r\nOn Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n    DoCmd.Hourglass False\r\n    Set dbs = CurrentDB()\r\n    Set rst = dbs.OpenRecordset(\"|T00344\")\r\n    If rst.RecordCount = 0 Then\r\n      rst.AddNew\r\n      rst![|F00004]=Null\r\n      rst.Update\r\n      MsgBox \"|S00217\"\r\n      DoCmd.OpenForm \"|T00344\", , , , , acDialog\r\n    End If\r\n    rst.Close\r\n    dbs.Close\r\n\r\n|GOTODEFAULT\r\n\r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  71.             "RequiresIsLoaded": 1
  72.         },
  73.         {
  74.             "DatabaseTypeID": 12,
  75.             "DatabaseTypeName": "╨á╨░╤ü╤à╨╛╨┤╤ï",
  76.             "ImageFile": "bitmaps\\dbwiz\\monytrak.gif",
  77.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  78.             "RequiresIsLoaded": 1
  79.         },
  80.         {
  81.             "DatabaseTypeID": 13,
  82.             "DatabaseTypeName": "╨æ╨╕╨▒╨╗╨╕╨╛╤é╨╡╨║╨░",
  83.             "ImageFile": "bitmaps\\dbwiz\\books.gif",
  84.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  85.             "RequiresIsLoaded": 0
  86.         },
  87.         {
  88.             "DatabaseTypeID": 14,
  89.             "DatabaseTypeName": "╨É╨┤╤Ç╨╡╤ü╨╜╨░╤Å ╨║╨╜╨╕╨│╨░",
  90.             "ImageFile": "bitmaps\\dbwiz\\photos.gif",
  91.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  92.             "RequiresIsLoaded": 0
  93.         },
  94.         {
  95.             "DatabaseTypeID": 15,
  96.             "DatabaseTypeName": "╨£╤â╨╖╤ï╨║╨░╨╗╤î╨╜╨░╤Å ╨║╨╛╨╗╨╗╨╡╨║╤å╨╕╤Å",
  97.             "ImageFile": "bitmaps\\dbwiz\\dbmusic.gif",
  98.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  99.             "RequiresIsLoaded": 0
  100.         },
  101.         {
  102.             "DatabaseTypeID": 16,
  103.             "DatabaseTypeName": "╨á╨╡╤å╨╡╨┐╤é╤ï",
  104.             "ImageFile": "bitmaps\\dbwiz\\eatdrink.gif",
  105.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  106.             "RequiresIsLoaded": 1
  107.         },
  108.         {
  109.             "DatabaseTypeID": 17,
  110.             "DatabaseTypeName": "╨Æ╨╕╨╜╨╜╤ï╨╣ ╨┐╨╛╨│╤Ç╨╡╨▒",
  111.             "ImageFile": "bitmaps\\dbwiz\\eatdrink.gif",
  112.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  113.             "RequiresIsLoaded": 1
  114.         },
  115.         {
  116.             "DatabaseTypeID": 18,
  117.             "DatabaseTypeName": "╨í╤é╤â╨┤╨╡╨╜╤é╤ï ╨╕ ╨╖╨░╨╜╤Å╤é╨╕╤Å",
  118.             "ImageFile": "bitmaps\\dbwiz\\school.gif",
  119.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  120.             "RequiresIsLoaded": 1
  121.         },
  122.         {
  123.             "DatabaseTypeID": 19,
  124.             "DatabaseTypeName": "╨ñ╨╛╤é╨╛╨░╨╗╤î╨▒╨╛╨╝╤ï",
  125.             "ImageFile": "bitmaps\\dbwiz\\photos.gif",
  126.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  127.             "RequiresIsLoaded": 1
  128.         },
  129.         {
  130.             "DatabaseTypeID": 20,
  131.             "DatabaseTypeName": "╨ƒ╤Ç╨╛╨╡╨║╤é╤ï",
  132.             "ImageFile": "bitmaps\\dbwiz\\monytrak.gif",
  133.             "StartupCode": "    Dim dbs As Database\r\n    Dim rst As Recordset\r\n\r\nOn Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n    DoCmd.Hourglass False\r\n    Set dbs = CurrentDB()\r\n    Set rst = dbs.OpenRecordset(\"|T00344\")\r\n    If rst.RecordCount = 0 Then\r\n      rst.AddNew\r\n      rst![|F00004]=NULL\r\n      rst.Update\r\n      MsgBox \"|S00217\"\r\n      DoCmd.OpenForm \"|T00344\", , , , , acDialog\r\n    End If\r\n    rst.Close\r\n    dbs.Close\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  134.             "RequiresIsLoaded": 1
  135.         },
  136.         {
  137.             "DatabaseTypeID": 21,
  138.             "DatabaseTypeName": "╨ó╤Ç╨╡╨╜╨╕╤Ç╨╛╨▓╨║╨╕",
  139.             "ImageFile": "bitmaps\\dbwiz\\workout.gif",
  140.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  141.             "RequiresIsLoaded": 1
  142.         },
  143.         {
  144.             "DatabaseTypeID": 22,
  145.             "DatabaseTypeName": "╨ô╨╗╨░╨▓╨╜╨░╤Å ╨║╨╜╨╕╨│╨░",
  146.             "ImageFile": "bitmaps\\dbwiz\\monytrak.gif",
  147.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  148.             "RequiresIsLoaded": 1
  149.         },
  150.         {
  151.             "DatabaseTypeID": 23,
  152.             "DatabaseTypeName": "╨Ü╨░╤é╨░╨╗╨╛╨│ ╨▓╨╕╨┤╨╡╨╛╨╖╨░╨┐╨╕╤ü╨╡╨╣",
  153.             "ImageFile": "bitmaps\\dbwiz\\videos.gif",
  154.             "StartupCode": "On Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n|GOTODEFAULT\r\n    \r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  155.             "RequiresIsLoaded": 1
  156.         },
  157.         {
  158.             "DatabaseTypeID": 24,
  159.             "DatabaseTypeName": "╨í╨▒╨╛╤Ç ╤ü╤Ç╨╡╨┤╤ü╤é╨▓",
  160.             "ImageFile": "bitmaps\\dbwiz\\monytrak.gif",
  161.             "StartupCode": "    Dim dbs As Database\r\n    Dim rst As Recordset\r\n\r\nOn Error GoTo Form_Open_Err\r\n\r\n|MINIMIZEDBC\r\n\r\n    DoCmd.Hourglass False\r\n    Set dbs = CurrentDB()\r\n    Set rst = dbs.OpenRecordset(\"|T00390\")\r\n    If rst.RecordCount = 0 Then\r\n      rst.AddNew\r\n      rst.Update\r\n      MsgBox \"|S00258\"\r\n      DoCmd.OpenForm \"|P00247\", , , , , acDialog\r\n    End If\r\n    rst.Close\r\n    dbs.Close\r\n\r\n|GOTODEFAULT\r\n\r\nForm_Open_Exit:\r\n    Exit sub\r\n\r\nForm_Open_Err:\r\n    MsgBox Err.Description\r\n    Resume Form_Open_Exit",
  162.             "RequiresIsLoaded": 0
  163.         }
  164.     ]
  165. }