eBackup: = FalseSubSub OPEN_FILE (ByVal p_range As Range, _p_fname As String)
'>> Error Resume Next_fname = ThisWorkbook. Path & "" & p_fname. OpenText Filename: = p_fname, Origin: = xlWindows, Tab: = True (Err <> 0) ThenSubIf. ActiveSheet. UsedRange. Copy Destination: = p_range. CloseSubperform_formating () _p_flag = 0 'кількість рядків = 2 = 1 = Row + 1Cells (Row, 1) <> Empty Then_p_flag = g_p_flag + 1DoIfCells (2, Col) <> Empty Then = Col + 1DoIf_p_flag = g_p_flag + 2
'кордону табліциi = 3 To g_p_flagj = 1 To Col - 1 (Cells (i, 1), Cells (i,
)). SelectSelection. Borders (xlEdgeBottom)
. LineStyle = xlContinuous
. ColorIndex = xlAutomaticWithSelection. Borders (xlEdgeTop)
. LineStyle = xlContinuous
. ColorIndex = xlAutomaticWith (i, j). SelectSelection. Borders (xlEdgeRight)
. LineStyle = xlContinuous
. ColorIndex = xlAutomaticWithSelection. Borders (xlEdgeLeft)
. LineStyle = xlContinuous
. ColorIndex = xlAutomaticWithSub
ДОДАТОК 3
Опис таблиць, використовуваних у програмі Z_UNR
Таблиця 1
Клієнти авіакомпанії
Назва поляТіп значеніяОпісаніе поляID ? Число (8) Ідентифікатор кліентаNAMEСтрока (25) Ім'я кліентаFORMСтрока (15) ОбращеніеSTREETСтрока (30 ) УліцаPOSTBOXСтрока (10) Поштовий ящікPOSTCODEСтрока (10) Поштовий індексCITYСтрока (25) ГородCOUNTRYСтрока (3) Код страниREGIONСтрока (3) РегіонTELEPHONEСтрока (30) Телефонний номер кліентаCUSTTYPEСтрока (1) Бізнес-/ Приватний кліентDISCOUNTЧісло (3) СкідкаEMAILСтрока (40) Адреса електронної пошти клієнта
Таблиця 2
Бронювання рейсів
Назва поляТіп значеніяОпісаніе поляCARRID ? Рядок (3) Коротка назва авіакомпанііCONNID ? Число (4) Код авіасообщеніяFLDATE ? Дата (15) Дата рейсаBOOKID ? Число (8) Номер регістрацііCUSTOMIDЧісло (8) Номер кліентаCUSTTYPEСтрока (1) Бізнес-/ Приватний кліентSMOKERСтрока (1) Місце для куреніяLUGGWEIGHTЧісло (3) Вага багажаCLASSСтрока (1) Клас рейсаFORCURAMДенежний (15) Ціна резервування в іноземній валюті
Таблиця 2 (продовження)
LOCCURAMДенежний (15) Ціна резервування у внутрішній валютеORDER_DATEДата (8) Дата регістрацііCOUNTERЧісло (8) Номер пункту продажіAGENCYNUMЧісло (8) Номер туристичні агенції
Таблиця 3
Розклад рейсів
Назва поляТіп значеніяОпісаніе поляCARRID ? Рядок (3) Коротка назва авіакомпанііCONNID ? Число (4) Код авіасообщеніяCOUNTRYFRСтрока (3) Код страниCITYFROMСтрока (20) Місто отправленіяAIRPFROMСтрока (3) Аеропорт отправленіяCOUNTRYTOСтрока (3) Код страниCITYTOСтрока (20) Пункт прібитіяAIRPTOСтрока (3) Аеропорт прібитіяDEPTIMEВремя (6) Час вилетаARRTIMEВремя (6) Час прібитіяFLTYPEСтрока (1) Тип рейсу (чартерний або регулярний
Таблиця 4
Рейс
Назва поляТіп значеніяОпісаніе поляCARRID ? Рядок (3) Коротка назва авіакомпанііCONNID ? Число (4) Код авіасообщеніяFLDATE ? Дата (8) Дата рейсаPRICEДенежний (15) Ціна рейсаPLENETYPEСтрока (10) Тип самолетаSEATMAXЧісло (10) Максимальна загруженностьSEATSOCCЧісло (10) Заброньовані місця
Таблиця 5
Авіакомпанія
Назва поляТіп значеніяОпісаніе поляCARRID ? Рядок (3) Коротка назва авіакомпанііCARRNAMEСтрока (20) Ім'я авіакомпанііURLСтрока (255) URL авіакомпанії
