Реферат Розробка бази даних "Туризм та відпочинок"

= 0 Then Exit Sub

ex = 1

DeleteCoun

If ex = 0 Then Exit SubSubSub CommandButton17_Click ()

Dim sav As Integer

If Workbooks ("Firms.xls"). Saved = False Or Workbooks ("Main.xls"). Saved = False Then

sav = MsgBox ("Зберегти і вийти?", vbYesNo + vbInformation, "Увага!")

If sav = vbNo Then Exit Sub

If sav = vbYes Then

Workbooks ("Firms.xls"). Save

Workbooks ("Main.xls"). Save

Application.Quit

End If

End IfSubSub CommandButton18_Click ()

Me.Hide

ShowListSubSub CommandButton7_Click ()

Workbooks ("Firms.xls"). Save

Workbooks ("Main.xls"). Save

Application.QuitSubSub CommandButton8_Click ()

Me.Hide

NewFirmLoSubSub CommandButton9_Click ()

Me.Hide

ex = 1

listFirm.Show

If ex = 0 Then Exit Sub

ex = 1

NewPut

If ex = 0 Then Exit SubSubSub UserForm_Activate ()

Workbooks ("Main.xls"). Worksheets ("1"). Activate

Caption = Space (80) & "Меню роботи з фірмами" & Space (60) Sub

// Workbook (Firms.xls) Module1

Public ex As IntegerCompare TextCreateTable ()

Range ("A5"). FormulaR1C1 = "Місто"

Range ("B5"). FormulaR1C1 = "Кількість своб. місць (дорослі) "

Range ("C5"). FormulaR1C1 = "Ціна дор. квитка "

Range ("D5"). FormulaR1C1 = "Кількість своб. місць (част.) "

Range ("E5"). FormulaR1C1 = "Ціна дет. квитка "

Range ("F5"). FormulaR1C1 = "Ціна страховки"

Range ("G5"). FormulaR1C1 = "Тривалість путівки (дн.)"

Range ("H5"). FormulaR1C1 = "Готель"

Range ("I5"). FormulaR1C1 = "Кількість зірок"

Range ("J5"). FormulaR1C1 = "Доп. Послуги "

Range ("A5: J6"). Select

With Selection

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlCenter

. WrapText = True

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

With Selection.Font

. Name = "Arial"

. FontStyle = "напівжирний"

. Size = 8

. Strikethrough = False

. Superscript = False

. Subscript = False

. OutlineFont = False

. Shadow = False

. Underline = xlUnderlineStyleNone

. ColorIndex = xlAutomatic

End With

Selection.Borders (xlDiagonalDown). LineStyle = xlNone

Selection.Borders (xlDiagonalUp). LineStyle = xlNone

With Selection.Borders (xlEdgeLeft)

. LineStyle = xlContinuous

. Weight = xlMedium

. ColorIndex = xlAutomatic

End With

With Selection.Borders (xlEdgeTop)

. LineStyle = xlContinuous

. Weight = xlMedium

. ColorIndex = xlAutomatic

End With

With Selection.Borders (xlEdgeBottom)...