відношенню до таблиць В«tabl1В» і В«mesto_zhВ».
Таблиця. Структура таблиці В«propisanyeВ». <В
Таблиця В«rozhdВ» - містить дані довідки В«Свідоцтво про народження дитиниВ», є дочірньою таблицею по відношенню до таблиці В«tabl1В».
Таблиця. Структура таблиці В«rozhdВ». <В
Таблиця В«schetВ» - містить дані довідки В«Копія особового рахункуВ», є дочірньою таблицею по відношенню до таблиці В«tabl1В».
Таблиця. Структура таблиці В«schetВ». <В
Таблиця В«streetsВ» - містить список вулиць міста Чорногорська.
Таблиця. Структура таблиці В«streetsВ». <В
Таблиця В«suprugiВ» - містить інформацію про подружжя, дині про яких присутні у відповідній довідці В«Свідоцтво про шлюбВ», є дочірньою таблицею по відношенню до таблиць В«tabl1В» і В«brakВ».
Таблиця. Структура таблиці В«suprugiВ». <В
Таблиця В«uch_lok_vВ» - містить дані довідки В«Посвідчення учасника локальних воєнВ», є дочірньою таблицею по відношенню до таблиці В«tabl1В».
Таблиця. Структура таблиці В«uch_lok_vВ». <В
Таблиця В«uch_vovВ» - містить дані довідки В«Посвідчення учасника ВВВВ», є дочірньою таблицею по відношенню до таблиці В«tabl1В».
Таблиця. Структура таблиці В«uch_vovВ». <В
Таблиця В«ud_helthВ» - містить дані довідки В«Довідка ЛТЕКВ», є дочірньою таблицею по відношенню до таблиці В«tabl1В».
Таблиця. Структура таблиці В«ud_helthВ». <В
Схема зв'язків таблиць:
В
Рис. 3.3.21 - Схема зв'язків таблиць. br/>
Базисні алгоритми розв'язання задачі
Основними алгоритмами розв'язання задачі є: алгоритм запису даних у базу даних і алгоритм вибірки даних з бази даних.
Алгоритм запису даних у базу даних:
procedure TForm3.Button10Click (Sender: and (edit13.Text ='')
then ('Введені не всі дані. Повторіть ввід.', mtError, [mbOK], 0);
exit;. ADOQuery1.SQL.Clear;
Form1.ADOQuery1.sql.add ('insert into
Form1.ADOQuery1.sql.add ('values ​​(: id,: fam,: name,: otch,: day,: sost,: city,: street,: house,: kvart,: date_z,: date_u,: grup,: preg,: prim) '); Form1.ADOQuery1.Parameters.ParamByName (' id '). DataType: = ftInteger; Form1.ADOQuery1.Parameters.ParamByName (' id '). Value: = strtoint (edit10.Text); Form1.ADOQuery1.Parameters.ParamByName ('fam'). DataType: = ftString; Form1.ADOQuery1.Parameters.ParamByName ('fam'). Value: = Edit1.Text; Form1.ADOQu...
