Импорт данных из внешнего файла

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)