Импорт данных из внешнего файла
filename – имя импортируемого файла (string)
countFirm – количество добавленных фирм (int)
countCamp – количество добавленных лагерей (int)
countChildren – количество добавленных детей (int)
values – дин. массив дин. массивов типа string
fio – ФИО считываемого ребенка (string)
dd – день (string)
MM – месяц (string)
yyyy – год (string)
sex – пол (string)
info – информация (string)
firmName – фирма (string)
campName – лагерь (string)
b1 – признак успешного выполнения SQL-запроса (bool)
b2 – признак успешного выполнения SQL-запроса (bool)
b3 – признак успешного выполнения SQL-запроса (bool)
середина строки(x1,x2) – функция, получающая x2-символов из x1-позиции строки.
countFirm=0
countCamp=0
countChildren=0
Ввести имя файла(filename)
Открыть для чтения(filename)
Циклпока ( конец файла)
Читать из файла filename (values)
Fio=values[0]
dd=values[1].середина строки(0,2)
MM=values[1].середина строки(3,2)
yyyy=values[1].середина строки(6,4)
Если values[2]= то
sex=” “
Иначе
sex=values[2]
Кесли
info=values[3]
firmName=values[4]
campName=values[5]
Если firmName таблицу Firm то
Добавить firmName в таблицу Firm
Если SQL-запрос выполнен успешно то
b1=true
Иначе
b1=false
Кесли
Если b1=true то
countFrim=countFirm+1
Кесли
Кесли
Если campName таблицу Camp то
Добавить campName в таблицу Camp
Если SQL-запрос выполнен успешно то
b2=true
Иначе
b2=false
Кесли
Если b2=true то
countCamp=countCamp+1
Кесли
Кесли
Добавить ребенка в таблицу Kid(fio,yyyy,MM,dd,sex,info,campName,
firmName)
Если SQL-запрос выполнен успешно то
b3=true
Иначе
b3=false
Кесли
Если b3=true то
countChildren=countChildren+1
Кесли
Кцикл
Добавление детей в список вручную
Nfio – новое ФИО (string)
Ndate – новая дата рождения в формате (уууу-ММ-dd)
Nsex – пол (string)
Ninfo – информация (string)
Ncamp – лагерь из таблицы Camp (string)
Nfirm – фирма из таблицы Firm (string)
Ввести(Nfio)
Ввести(Ndate)
Ввести(Nsex)
Ввести(Ninfo)
Ввести(Ncamp)
Ввести(Nfirm)
Добавить в таблицу Kid(Nfio,Ndate,Nsex,Ninfo,Ncamp,Nfirm)
Редактирование сведений о ребенке
Rfio – отредактированное ФИО (string)
Rdate – отредактированная дата рождения в формате (уууу-ММ-dd)
Rsex – пол (string)
Rinfo – информация (string)
Rcamp – лагерь из таблицы Camp (string)
Rfirm – фирма из таблицы Firm (string)
Ввести(Rfio)
Ввести(Rdate)
Ввести(Rsex)
Ввести(Rinfo)
Ввести(Rcamp)
Ввести(Rfirm)
Перезаписать в таблицу Kid(Rfio,Rdate,Rsex,Rinfo,Rcamp,Rfirm)