Главная
База знаний "Allbest"
Программирование, компьютеры и кибернетика
Разработка базы данных "Туризм и отдых"
Разработка базы данных "Туризм и отдых"
Тенденция развития информационных систем и информационных технологий. Автоматизация работы менеджера по туризму в туристическом агентстве как основная цель разработки базы данных "Туризм и отдых". Основы проектирования структуры информационной системы.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 17.01.2013 |
| Размер файла | 5,4 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 10).Value = .Cells(beg, 8).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 11).Value = .Cells(beg, 9).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 12).Value = .Cells(beg, 10).Value
Оформить i, maxi
i = i + 1
End If
End If
Else
Exit For
End If
Next beg
End If
Next ib
End With
End If
Me.Hide
End If
'если выбрана фирма, страна, город
If ComboBox1.Value <> "" And ComboBox2.Value <> "" _
And ComboBox3.Value <> "" And TextBox2.Text = "" _
And TextBox3.Text = "" And TextBox4.Text = "" _
And TextBox5.Text = "" Then
num = Workbooks("Firms.xls").Worksheets(ComboBox1.Value).Index
ie = Workbooks("Firms.xls").Worksheets(ComboBox1.Value).Range("End" & num).Row
If ie <> 6 Then
With Workbooks("Firms.xls").Worksheets(ComboBox1.Value)
For ib = .Range("Beg" & num).Row + 1 To ie
If ComboBox2.Value = CStr(.Cells(ib, 1).Value) And .Cells(ib, 1).MergeCells = True Then
k = .Cells(ib, 1).Row
Exit For
End If
Next ib
k = k + 1
For ib = k To ie
If .Cells(ib, 1).MergeCells = False And ib <> ie And _
ComboBox3.Value = CStr(.Cells(ib, 1).Value) Then
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 1).Value = ComboBox1.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 2).Value = ComboBox2.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 3).Value = .Cells(ib, 1).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 4).Value = .Cells(ib, 2).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 5).Value = .Cells(ib, 3).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 6).Value = .Cells(ib, 4).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 7).Value = .Cells(ib, 5).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 8).Value = .Cells(ib, 6).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 9).Value = .Cells(ib, 7).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 10).Value = .Cells(ib, 8).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 11).Value = .Cells(ib, 9).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 12).Value = .Cells(ib, 10).Value
Оформить i, maxi
End If
Next ib
End With
End If
Me.Hide
End If
'если выбрана фирма, страна, цена
If ComboBox1.Value <> "" And ComboBox2.Value <> "" _
And ComboBox3.Value = "" And TextBox2.Text <> "" _
And TextBox3.Text <> "" Or TextBox4.Text <> "" _
And TextBox5.Text <> "" Then
num = Workbooks("Firms.xls").Worksheets(ComboBox1.Value).Index
ie = Workbooks("Firms.xls").Worksheets(ComboBox1.Value).Range("End" & num).Row
If ie <> 6 Then
If TextBox2.Text <> "" And TextBox3.Text <> "" Then
If IsNumeric(TextBox3.Text) = True And IsNumeric(TextBox2.Text) = True Then
If CDbl(TextBox3.Text) > CDbl(TextBox2.Text) Then
flag = 1
Else
MsgBox "Проверьте введенные данные в поле Цена.", vbCritical, "Ошибка!"
Exit Sub
End If
Else
MsgBox "Поля От и До должны быть заполнены числами.", vbCritical, "Ошибка!"
Exit Sub
End If
End If
If TextBox4.Text <> "" And TextBox5.Text <> "" Then
If IsNumeric(TextBox4.Text) = True And IsNumeric(TextBox5.Text) = True Then
If CDbl(TextBox5.Text) > CDbl(TextBox4.Text) Then
flag2 = 1
Else
MsgBox "Проверьте введенные данные в поле Цена.", vbCritical, "Ошибка!"
Exit Sub
End If
Else
MsgBox "Поля От и До должны быть заполнены числами.", vbCritical, "Ошибка!"
Exit Sub
End If
End If
With Workbooks("Firms.xls").Worksheets(ComboBox1.Value)
For ib = .Range("Beg" & num).Row + 1 To ie
If ComboBox2.Value = CStr(.Cells(ib, 1).Value) And .Cells(ib, 1).MergeCells = True Then
k = .Cells(ib, 1).Row
Exit For
End If
Next ib
For beg = k + 1 To ie
If .Cells(beg, 1).MergeCells = False And beg <> ie Then
If flag = 1 And flag2 = 0 Then
If .Cells(beg, 3).Value >= CDbl(TextBox2.Text) _
And .Cells(beg, 3).Value <= CDbl(TextBox3.Text) Then
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 1).Value = ComboBox1.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 2).Value = ComboBox2.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 3).Value = .Cells(beg, 1).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 4).Value = .Cells(beg, 2).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 5).Value = .Cells(beg, 3).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 6).Value = .Cells(beg, 4).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 7).Value = .Cells(beg, 5).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 8).Value = .Cells(beg, 6).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 9).Value = .Cells(beg, 7).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 10).Value = .Cells(beg, 8).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 11).Value = .Cells(beg, 9).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 12).Value = .Cells(beg, 10).Value
Оформить i, maxi
i = i + 1
End If
End If
If flag2 = 1 And flag = 0 Then
If .Cells(beg, 5).Value >= CDbl(TextBox4.Text) _
And .Cells(beg, 5).Value <= CDbl(TextBox5.Text) Then
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 1).Value = ComboBox1.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 2).Value = ComboBox2.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 3).Value = .Cells(beg, 1).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 4).Value = .Cells(beg, 2).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 5).Value = .Cells(beg, 3).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 6).Value = .Cells(beg, 4).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 7).Value = .Cells(beg, 5).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 8).Value = .Cells(beg, 6).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 9).Value = .Cells(beg, 7).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 10).Value = .Cells(beg, 8).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 11).Value = .Cells(beg, 9).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 12).Value = .Cells(beg, 10).Value
Оформить i, maxi
i = i + 1
End If
End If
If flag2 = 1 And flag = 1 Then
If .Cells(beg, 5).Value >= CDbl(TextBox4.Text) And _
.Cells(beg, 5).Value <= CDbl(TextBox5.Text) And _
.Cells(beg, 3).Value >= CDbl(TextBox2.Text) And _
.Cells(beg, 3).Value <= CDbl(TextBox3.Text) Then
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 1).Value = ComboBox1.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 2).Value = ComboBox2.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 3).Value = .Cells(beg, 1).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 4).Value = .Cells(beg, 2).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 5).Value = .Cells(beg, 3).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 6).Value = .Cells(beg, 4).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 7).Value = .Cells(beg, 5).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 8).Value = .Cells(beg, 6).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 9).Value = .Cells(beg, 7).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 10).Value = .Cells(beg, 8).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 11).Value = .Cells(beg, 9).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 12).Value = .Cells(beg, 10).Value
Оформить i, maxi
i = i + 1
End If
End If
Else
Exit For
End If
Next beg
End With
End If
Me.Hide
End If
'если выбрана страна, город и цена
If ComboBox1.Value = "" And ComboBox2.Value <> "" _
And ComboBox3.Value <> "" And TextBox2.Text <> "" _
And TextBox3.Text <> "" Or TextBox4.Text <> "" _
And TextBox5.Text <> "" Then
For Each Sheet In Workbooks("Firms.xls").Worksheets
k = 0
If Sheet.Name <> "1" Then
num = Workbooks("Firms.xls").Worksheets(Sheet.Name).Index
ie = Workbooks("Firms.xls").Worksheets(Sheet.Name).Range("End" & num).Row
If ie <> 6 Then
If TextBox2.Text <> "" And TextBox3.Text <> "" Then
If IsNumeric(TextBox3.Text) = True And IsNumeric(TextBox2.Text) = True Then
If CDbl(TextBox3.Text) > CDbl(TextBox2.Text) Then
flag = 1
Else
MsgBox "Проверьте введенные данные в поле Цена.", vbCritical, "Ошибка!"
Exit Sub
End If
Else
MsgBox "Поля От и До должны быть заполнены числами.", vbCritical, "Ошибка!"
Exit Sub
End If
End If
If TextBox4.Text <> "" And TextBox5.Text <> "" Then
If IsNumeric(TextBox4.Text) = True And IsNumeric(TextBox5.Text) = True Then
If CDbl(TextBox5.Text) > CDbl(TextBox4.Text) Then
flag2 = 1
Else
MsgBox "Проверьте введенные данные в поле Цена.", vbCritical, "Ошибка!"
Exit Sub
End If
Else
MsgBox "Поля От и До должны быть заполнены числами.", vbCritical, "Ошибка!"
Exit Sub
End If
End If
With Workbooks("Firms.xls").Worksheets(Sheet.Name)
For ib = .Range("Beg" & num).Row + 1 To ie
If ComboBox2.Value = CStr(.Cells(ib, 1).Value) And .Cells(ib, 1).MergeCells = True Then
k = .Cells(ib, 1).Row
Exit For
End If
Next ib
For beg = k + 1 To ie
If ComboBox3.Value = CStr(.Cells(beg, 1).Value) And .Cells(beg, 1).MergeCells = False _
And beg <> ie Then
If flag = 1 And flag2 = 0 Then
If .Cells(beg, 3).Value >= CDbl(TextBox2.Text) _
And .Cells(beg, 3).Value <= CDbl(TextBox3.Text) Then
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 1).Value = Sheet.Name
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 2).Value = ComboBox2.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 3).Value = ComboBox3.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 4).Value = .Cells(beg, 2).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 5).Value = .Cells(beg, 3).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 6).Value = .Cells(beg, 4).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 7).Value = .Cells(beg, 5).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 8).Value = .Cells(beg, 6).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 9).Value = .Cells(beg, 7).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 10).Value = .Cells(beg, 8).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 11).Value = .Cells(beg, 9).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 12).Value = .Cells(beg, 10).Value
Оформить i, maxi
i = i + 1
Exit For
End If
End If
If flag2 = 1 And flag = 0 Then
If .Cells(beg, 5).Value >= CDbl(TextBox4.Text) _
And .Cells(beg, 5).Value <= CDbl(TextBox5.Text) Then
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 1).Value = Sheet.Name
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 2).Value = ComboBox2.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 3).Value = ComboBox3.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 4).Value = .Cells(beg, 2).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 5).Value = .Cells(beg, 3).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 6).Value = .Cells(beg, 4).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 7).Value = .Cells(beg, 5).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 8).Value = .Cells(beg, 6).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 9).Value = .Cells(beg, 7).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 10).Value = .Cells(beg, 8).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 11).Value = .Cells(beg, 9).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 12).Value = .Cells(beg, 10).Value
Оформить i, maxi
i = i + 1
Exit For
End If
End If
If flag2 = 1 And flag = 1 Then
If .Cells(beg, 5).Value >= CDbl(TextBox4.Text) And _
.Cells(beg, 5).Value <= CDbl(TextBox5.Text) And _
.Cells(beg, 3).Value >= CDbl(TextBox2.Text) And _
.Cells(beg, 3).Value <= CDbl(TextBox3.Text) Then
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 1).Value = Sheet.Name
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 2).Value = ComboBox2.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 3).Value = ComboBox3.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 4).Value = .Cells(beg, 2).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 5).Value = .Cells(beg, 3).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 6).Value = .Cells(beg, 4).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 7).Value = .Cells(beg, 5).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 8).Value = .Cells(beg, 6).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 9).Value = .Cells(beg, 7).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 10).Value = .Cells(beg, 8).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 11).Value = .Cells(beg, 9).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 12).Value = .Cells(beg, 10).Value
Оформить i, maxi
i = i + 1
Exit For
End If
End If
End If
Next beg
End With
End If
End If
Next Sheet
Me.Hide
End If
'если выбрана страна и город
If ComboBox1.Value = "" And ComboBox2.Value <> "" _
And ComboBox3.Value <> "" And TextBox2.Text = "" _
And TextBox3.Text = "" And TextBox4.Text = "" _
And TextBox5.Text = "" Then
For Each Sheet In Workbooks("Firms.xls").Worksheets
k = 0
If Sheet.Name <> "1" Then
num = Workbooks("Firms.xls").Worksheets(Sheet.Name).Index
ie = Workbooks("Firms.xls").Worksheets(Sheet.Name).Range("End" & num).Row
If ie <> 6 Then
With Workbooks("Firms.xls").Worksheets(Sheet.Name)
For ib = .Range("Beg" & num).Row + 1 To ie
If ComboBox2.Value = CStr(.Cells(ib, 1).Value) And .Cells(ib, 1).MergeCells = True Then
k = .Cells(ib, 1).Row
Exit For
End If
Next ib
k = k + 1
For ib = k To ie
If .Cells(ib, 1).MergeCells = False And ib <> ie And _
ComboBox3.Value = CStr(.Cells(ib, 1).Value) Then
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 1).Value = Sheet.Name
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 2).Value = ComboBox2.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 3).Value = ComboBox3.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 4).Value = .Cells(ib, 2).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 5).Value = .Cells(ib, 3).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 6).Value = .Cells(ib, 4).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 7).Value = .Cells(ib, 5).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 8).Value = .Cells(ib, 6).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 9).Value = .Cells(ib, 7).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 10).Value = .Cells(ib, 8).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 11).Value = .Cells(ib, 9).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 12).Value = .Cells(ib, 10).Value
Оформить i, maxi
i = i + 1
Exit For
End If
Next ib
End With
End If
End If
Next Sheet
Me.Hide
End If
'если выбрана страна и цена
If ComboBox1.Value = "" And ComboBox2.Value <> "" _
And ComboBox3.Value = "" And TextBox2.Text <> "" _
And TextBox3.Text <> "" Or TextBox4.Text <> "" _
And TextBox5.Text <> "" Then
For Each Sheet In Workbooks("Firms.xls").Worksheets
k = 0
If Sheet.Name <> "1" Then
num = Workbooks("Firms.xls").Worksheets(Sheet.Name).Index
ie = Workbooks("Firms.xls").Worksheets(Sheet.Name).Range("End" & num).Row
If ie <> 6 Then
If TextBox2.Text <> "" And TextBox3.Text <> "" Then
If IsNumeric(TextBox3.Text) = True And IsNumeric(TextBox2.Text) = True Then
If CDbl(TextBox3.Text) > CDbl(TextBox2.Text) Then
flag = 1
Else
MsgBox "Проверьте введенные данные в поле Цена.", vbCritical, "Ошибка!"
Exit Sub
End If
Else
MsgBox "Поля От и До должны быть заполнены числами.", vbCritical, "Ошибка!"
Exit Sub
End If
End If
If TextBox4.Text <> "" And TextBox5.Text <> "" Then
If IsNumeric(TextBox4.Text) = True And IsNumeric(TextBox5.Text) = True Then
If CDbl(TextBox5.Text) > CDbl(TextBox4.Text) Then
flag2 = 1
Else
MsgBox "Проверьте введенные данные в поле Цена.", vbCritical, "Ошибка!"
Exit Sub
End If
Else
MsgBox "Поля От и До должны быть заполнены числами.", vbCritical, "Ошибка!"
Exit Sub
End If
End If
With Workbooks("Firms.xls").Worksheets(Sheet.Name)
For ib = .Range("Beg" & num).Row + 1 To ie
If ComboBox2.Value = CStr(.Cells(ib, 1).Value) And .Cells(ib, 1).MergeCells = True Then
k = .Cells(ib, 1).Row
Exit For
End If
Next ib
k = k + 1
For ib = k To ie
If .Cells(ib, 1).MergeCells = False And ib <> ie Then
If flag = 1 And flag2 = 0 Then
If .Cells(ib, 3).Value >= CDbl(TextBox2.Text) _
And .Cells(ib, 3).Value <= CDbl(TextBox3.Text) Then
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 1).Value = Sheet.Name
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 2).Value = ComboBox2.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 3).Value = .Cells(ib, 1).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 4).Value = .Cells(ib, 2).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 5).Value = .Cells(ib, 3).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 6).Value = .Cells(ib, 4).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 7).Value = .Cells(ib, 5).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 8).Value = .Cells(ib, 6).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 9).Value = .Cells(ib, 7).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 10).Value = .Cells(ib, 8).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 11).Value = .Cells(ib, 9).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 12).Value = .Cells(ib, 10).Value
Оформить i, maxi
i = i + 1
End If
End If
If flag2 = 1 And flag = 0 Then
If .Cells(ib, 5).Value >= CDbl(TextBox4.Text) _
And .Cells(ib, 5).Value <= CDbl(TextBox5.Text) Then
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 1).Value = Sheet.Name
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 2).Value = ComboBox2.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 3).Value = .Cells(ib, 1).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 4).Value = .Cells(ib, 2).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 5).Value = .Cells(ib, 3).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 6).Value = .Cells(ib, 4).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 7).Value = .Cells(ib, 5).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 8).Value = .Cells(ib, 6).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 9).Value = .Cells(ib, 7).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 10).Value = .Cells(ib, 8).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 11).Value = .Cells(ib, 9).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 12).Value = .Cells(ib, 10).Value
Оформить i, maxi
i = i + 1
End If
End If
If flag2 = 1 And flag = 1 Then
If .Cells(ib, 5).Value >= CDbl(TextBox4.Text) And _
.Cells(ib, 5).Value <= CDbl(TextBox5.Text) And _
.Cells(ib, 3).Value >= CDbl(TextBox2.Text) And _
.Cells(ib, 3).Value <= CDbl(TextBox3.Text) Then
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 1).Value = Sheet.Name
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 2).Value = ComboBox2.Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 3).Value = .Cells(ib, 1).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 4).Value = .Cells(ib, 2).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 5).Value = .Cells(ib, 3).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 6).Value = .Cells(ib, 4).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 7).Value = .Cells(ib, 5).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 8).Value = .Cells(ib, 6).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 9).Value = .Cells(ib, 7).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 10).Value = .Cells(ib, 8).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 11).Value = .Cells(ib, 9).Value
Workbooks("Main.xls").Worksheets("ПоискПутевки").Cells(i, 12).Value = .Cells(ib, 10).Value
Оформить i, maxi
i = i + 1
End If
End If
Else
Exit For
End If
Next ib
End With
End If
End If
Next Sheet
Me.Hide
End If
End Sub
Private Sub UserForm_Activate()
i = 4
Do
If i = 4 And Cells(i, 1).Value = "" Then Exit Do
i = i + 1
Loop While Cells(i, 1).Value <> ""
Range(Cells(4, 1), Cells(i, 12)).Delete
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Enabled = False
ComboBox2.Enabled = False
ComboBox3.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
CheckBox3.Enabled = False
CheckBox4.ControlTipText = "Поля От и До должны быть заполнены."
End Sub
//Workbook(“Main.xls”) Форма frmNewZakaz
Option Compare Text
Dim k, m As Integer
Dim temp As Integer
Dim num As Integer
Dim ie As Integer, var1 As Double, var2 As Double, var3 As Double
Private Sub chb3_Change()
If chb3.Value = False Then
txt6.Enabled = False
txt7.Enabled = False
txt6.Value = ""
txt7.Value = ""
Else
txt6.Enabled = True
txt7.Enabled = True
txt6.Value = ""
txt7.Value = ""
End If
End Sub
Private Sub ComboBox1_Change()
num = Workbooks("Firms").Worksheets(ComboBox2.Value).Index
temp2 = temp
Do While Workbooks("Firms.xls").Worksheets(ComboBox2.Value).Cells(temp2, 1).MergeCells = False And _
temp2 <> Workbooks("Firms.xls").Worksheets(ComboBox2.Value).Range("End" & num).Row
If ComboBox1.Value = Workbooks("Firms").Worksheets(ComboBox2.Value).Cells(temp2, 1).Value Then
Exit Do
End If
temp2 = temp2 + 1
Loop
TextBox3.Text = _
Workbooks("Firms").Worksheets(ComboBox2.Value).Cells(temp2, 2).Value
TextBox4.Text = _
Workbooks("Firms").Worksheets(ComboBox2.Value).Cells(temp2, 4).Value
TextBox5.Text = _
CDbl(Workbooks("Firms").Worksheets(ComboBox2.Value).Cells(temp2, 3).Value)
TextBox6.Text = _
CDbl(Workbooks("Firms").Worksheets(ComboBox2.Value).Cells(temp2, 5).Value)
TextBox7.Text = _
CDbl(Workbooks("Firms").Worksheets(ComboBox2.Value).Cells(temp2, 6).Value)
TextBox10.Text = _
Workbooks("Firms").Worksheets(ComboBox2.Value).Cells(temp2, 7).Value
End Sub
Private Sub ComboBox2_Change()
ComboBox3.Clear
ComboBox1.Clear
num = Workbooks("Firms.xls").Worksheets(ComboBox2.Value).Index
ie = Workbooks("Firms.xls").Worksheets(ComboBox2.Value).Range("End" & num).Row
For ib = Workbooks("Firms.xls").Worksheets(ComboBox2.Value).Range("Beg" & num).Row + 1 To ie
If Workbooks("Firms.xls").Worksheets(ComboBox2.Value).Cells(ib, 1).MergeCells = True Then
ComboBox3.AddItem Workbooks("Firms").Worksheets(ComboBox2.Value).Cells(ib, 1).Value
End If
Next ib
End Sub
Private Sub ComboBox3_Change()
ComboBox1.Clear
k = 0
num = Workbooks("Firms").Worksheets(ComboBox2.Value).Index
ie = Workbooks("Firms").Worksheets(ComboBox2.Value).Range("End" & num).Row
For ib = Workbooks("Firms").Worksheets(ComboBox2.Value).Range("Beg" & num).Row + 1 To ie
If ComboBox3.Value = _
CStr(Workbooks("Firms").Worksheets(ComboBox2.Value).Cells(ib, 1).Value) And _
Workbooks("Firms").Worksheets(ComboBox2.Value).Cells(ib, 1).MergeCells = True Then
k = Workbooks("Firms").Worksheets(ComboBox2.Value).Cells(ib, 1).Row
Exit For
End If
Next ib
k = k + 1
temp = k
Do While Workbooks("Firms").Worksheets(ComboBox2.Value).Cells(k, 1).MergeCells = False And k <> Workbooks("Firms").Worksheets(ComboBox2.Value).Range("End" & num).Row
ComboBox1.AddItem Workbooks("Firms").Worksheets(ComboBox2.Value).Cells(k, 1).Value
k = k + 1
Loop
End Sub
Private Sub CommandButton2_Click()
If txt1.Value = "" Or txt2.Value = "" Or txt3.Value = "" Or txt5.Value = "" Or _
TextBox2.Value = "" Then
MsgBox "Вы ввели неполную информацию в разделе Личные данные!", vbCritical, "Ошибка!"
Exit Sub
End If
If DTPicker1.Value > Date Then
MsgBox "Вы из будущего? Введите правильную дату.", vbCritical, "Ошибка!"
Exit Sub
End If
If IsNumeric(txt5.Value) = False Then
MsgBox "Неправильный формат данных в поле Телефон!", vbCritical, "Ошибка!"
Exit Sub
End If
If obm.Value = False And obj.Value = False Then
MsgBox "Выберите один из вариантов в разделе Пол!", vbCritical, "Ошибка!"
Exit Sub
End If
If chb3.Value = True Then
If txt6.Value = "" Or txt7.Value = "" Then
MsgBox "Введите все данные в разделе Паспортные данные!", vbCritical, "Ошибка!"
Exit Sub
End If
End If
If txt6.Text <> "" And IsNumeric(txt6.Text) = False _
Or txt7.Text <> "" And IsNumeric(txt7.Text) = False Then
MsgBox "Неправильный тип данных в разделе Паспортные данные!", vbCritical, "Ошибка!"
Exit Sub
End If
If ComboBox1.Value = "" Or ComboBox2.Value = "" Or ComboBox3.Value = "" Then
MsgBox "Выберите все необходимые данные в разделе Путевок", vbCritical, "Ошибка!"
Exit Sub
End If
If TextBox3.Text = "0" Or TextBox4.Text = "0" Then
MsgBox "Все места на данные путевки распроданы.", vbCritical, "Ошибка!"
Exit Sub
End If
If TextBox8.Value = "" And TextBox9.Value = "" Then
MsgBox "Не введено количество мест.", vbCritical, "Ошибка!"
Exit Sub
End If
If CInt(TextBox8.Value) < 0 Or CInt(TextBox9.Value) < 0 Then
MsgBox "Ошибка при вводе количества мест.", vbCritical, "Ошибка!"
Exit Sub
End If
If CInt(TextBox8.Value) > CInt(TextBox3.Value) Or CInt(TextBox9.Value) > CInt(TextBox4.Value) Then
MsgBox "Введенное количество мест превышает исходные.", vbCritical, "Ошибка!"
Exit Sub
End If
If TextBox8.Text = "" Then TextBox8.Text = 0
If TextBox9.Text = "" Then TextBox9.Text = 0
If TextBox8.Text = "" And TextBox9.Text = "" Then
MsgBox "Введите количества мест, отличных от нуля", vbCritical, "Ошибка!"
Exit Sub
End If
i = Selection.Row
Cells(i, 2).Value = CStr(txt1.Text)
Cells(i, 3).Value = CStr(txt2.Text)
Cells(i, 4).Value = CStr(txt3.Text)
Cells(i, 6).Value = DTPicker1.Value
Cells(i, 7).Value = CStr(txt5.Text)
Cells(i, 8).Value = CStr(TextBox2.Text)
If obm.Value = True Then Cells(i, 5).Value = "Муж"
If obj.Value = True Then Cells(i, 5).Value = "Жен"
If chb1.Value = True Then
Cells(i, 14).Value = "Оплачено"
Else
Cells(i, 14).Value = "Не оплачено"
End If
If chb2.Value = True Then
Cells(i, 15).Value = "Сдано"
Else
Cells(i, 15).Value = "Не сдано"
End If
If chb3.Value = True Then
Cells(i, 12).Value = "Да"
Else
Cells(i, 12).Value = "Нет"
End If
Cells(i, 13).Value = CStr(txt6.Text & ", " & txt7.Text)
Cells(i, 10).Value = CStr(ComboBox3.Value)
Cells(i, 9).Value = CStr(ComboBox2.Value)
Cells(i, 11).Value = CStr(ComboBox1.Value)
var1 = TextBox8.Text * TextBox5.Text
var2 = TextBox9.Text * TextBox6.Text
var3 = TextBox7.Text * (CInt(TextBox8.Text) + CInt(TextBox9.Text))
Cells(i, 18).Value = var1 + var2 + var3
колвз = TextBox8.Text
колдт = TextBox9.Text
Cells(i, 16).Value = TextBox8.Text
Cells(i, 17).Value = TextBox9.Text
Me.Hide
End Sub
Private Sub CommandButton3_Click()
If TextBox3.Text = "0" Or TextBox4.Text = "0" Then
MsgBox "Все места на данные путевки распроданы.", vbCritical, "Ошибка!"
Exit Sub
End If
If TextBox8.Value = "" And TextBox9.Value = "" Then
MsgBox "Не введено количество мест.", vbCritical, "Ошибка!"
Exit Sub
End If
If TextBox8.Text = "" And TextBox9.Text = "" Then
MsgBox "Введите количества мест, отличных от нуля", vbCritical, "Ошибка!"
Exit Sub
End If
If TextBox8.Value = "" Then TextBox8.Value = 0
If TextBox9.Value = "" Then TextBox9.Value = 0
If CInt(TextBox8.Value) < 0 Or CInt(TextBox9.Value) < 0 Then
MsgBox "Ошибка при вводе количества мест.", vbCritical, "Ошибка!"
Exit Sub
End If
If TextBox3.Value = "" And TextBox4.Value = "" Then
MsgBox "Выберите необходимые данные (фирма, страна, город) для подсчета", vbCritical, "Ошибка!"
Exit Sub
End If
If CInt(TextBox8.Value) > CInt(TextBox3.Value) Or CInt(TextBox9.Value) > CInt(TextBox4.Value) Then
MsgBox "Введенное количество мест превышает исходные.", vbCritical, "Ошибка!"
Exit Sub
End If
var1 = CInt(TextBox8.Value) * CDbl(TextBox5.Value)
var2 = CInt(TextBox9.Value) * CDbl(TextBox6.Value)
var3 = CDbl(TextBox7.Value) * (CInt(TextBox8.Value) + CInt(TextBox9.Value))
TextBox11.Value = var1 + var2 + var3
End Sub
Private Sub CommandButton4_Click()
If txt1.Value = "" Or txt2.Value = "" Or txt3.Value = "" Or txt5.Value = "" Or _
TextBox2.Value = "" Then
MsgBox "Вы ввели неполную информацию в разделе Личные данные!", vbCritical, "Ошибка!"
Exit Sub
End If
If DTPicker1.Value > Date Then
MsgBox "Вы из будущего? Введите правильную дату.", vbCritical, "Ошибка!"
Exit Sub
End If
If IsNumeric(txt5.Value) = False Then
MsgBox "Неправильный формат данных в поле Телефон!", vbCritical, "Ошибка!"
Exit Sub
End If
If obm.Value = False And obj.Value = False Then
MsgBox "Выберите один из вариантов в разделе Пол!", vbCritical, "Ошибка!"
Exit Sub
End If
If chb3.Value = True Then
If txt6.Value = "" Or txt7.Value = "" Then
MsgBox "Введите все данные в разделе Паспортные данные!", vbCritical, "Ошибка!"
Exit Sub
End If
End If
If txt6.Text <> "" And IsNumeric(txt6.Text) = False _
Or txt7.Text <> "" And IsNumeric(txt7.Text) = False Then
MsgBox "Неправильный тип данных в разделе Паспортные данные!", vbCritical, "Ошибка!"
Exit Sub
End If
If ComboBox1.Value = "" Or ComboBox2.Value = "" Or ComboBox3.Value = "" Then
MsgBox "Выберите все необходимые данные в разделе Путевок", vbCritical, "Ошибка!"
Exit Sub
End If
If TextBox3.Text = "0" Or TextBox4.Text = "0" Then
MsgBox "Все места на данные путевки распроданы.", vbCritical, "Ошибка!"
Exit Sub
End If
If TextBox8.Value = "" And TextBox9.Value = "" Then
MsgBox "Не введено количество мест.", vbCritical, "Ошибка!"
Exit Sub
End If
If CInt(TextBox8.Value) < 0 Or CInt(TextBox9.Value) < 0 Then
MsgBox "Ошибка при вводе количества мест.", vbCritical, "Ошибка!"
Exit Sub
End If
If CInt(TextBox8.Value) > CInt(TextBox3.Value) Or CInt(TextBox9.Value) > CInt(TextBox4.Value) Then
MsgBox "Введенное количество мест превышает исходные.", vbCritical, "Ошибка!"
Exit Sub
End If
If TextBox8.Text = "" Then TextBox8.Text = 0
If TextBox9.Text = "" Then TextBox9.Text = 0
If TextBox8.Text = "" And TextBox9.Text = "" Then
MsgBox "Введите количества мест, отличных от нуля", vbCritical, "Ошибка!"
Exit Sub
End If
i = Selection.Row
Cells(i, 2).Value = CStr(txt1.Text)
Cells(i, 3).Value = CStr(txt2.Text)
Cells(i, 4).Value = CStr(txt3.Text)
Cells(i, 6).Value = DTPicker1.Value
Cells(i, 7).Value = CStr(txt5.Text)
Cells(i, 8).Value = CStr(TextBox2.Text)
If obm.Value = True Then Cells(i, 5).Value = "Муж"
If obj.Value = True Then Cells(i, 5).Value = "Жен"
If chb1.Value = True Then
Cells(i, 14).Value = "Оплачено"
Else
Cells(i, 14).Value = "Не оплачено"
End If
If chb2.Value = True Then
Cells(i, 15).Value = "Сдано"
Else
Cells(i, 15).Value = "Не сдано"
End If
If chb3.Value = True Then
Cells(i, 12).Value = "Да"
Else
Cells(i, 12).Value = "Нет"
End If
Cells(i, 13).Value = CStr(txt6.Text & ", " & txt7.Text)
Cells(i, 10).Value = CStr(ComboBox3.Value)
Cells(i, 9).Value = CStr(ComboBox2.Value)
Cells(i, 11).Value = CStr(ComboBox1.Value)
var1 = TextBox8.Text * TextBox5.Text
var2 = TextBox9.Text * TextBox6.Text
var3 = TextBox7.Text * (CInt(TextBox8.Text) + CInt(TextBox9.Text))
Cells(i, 18).Value = var1 + var2 + var3
колвз = TextBox8.Text
колдт = TextBox9.Text
Cells(i, 16).Value = TextBox8.Text
Cells(i, 17).Value = TextBox9.Text
If TextBox3.Text = "0" Or TextBox4.Text = "0" Then
Exit Sub
End If
rowneed = Selection.Row
i = 3
Do
i = i + 1
Loop While Workbooks("Main.xls").Worksheets("Заказы").Cells(i, 1).Value <> ""
If Cells(4, 1).Value = "" Then
num = 1
Else
num = Workbooks("Main.xls").Worksheets("Заказы").Cells(i - 1, 1).Value + 1
End If
With Workbooks("Main.xls")
.Worksheets("ВыхФорма").Unprotect Password:="list"
.Worksheets("ВыхФорма").Cells(3, 2).Value = .Worksheets("Заказы").Cells(rowneed, 1).Value
.Worksheets("ВыхФорма").Cells(4, 2).Value = .Worksheets("Заказы").Cells(rowneed, 2).Value
.Worksheets("ВыхФорма").Cells(5, 2).Value = .Worksheets("Заказы").Cells(rowneed, 3).Value
.Worksheets("ВыхФорма").Cells(6, 2).Value = .Worksheets("Заказы").Cells(rowneed, 4).Value
.Worksheets("ВыхФорма").Cells(7, 2).Value = .Worksheets("Заказы").Cells(rowneed, 5).Value
.Worksheets("ВыхФорма").Cells(8, 2).Value = .Worksheets("Заказы").Cells(rowneed, 6).Value
.Worksheets("ВыхФорма").Cells(9, 2).Value = .Worksheets("Заказы").Cells(rowneed, 7).Value
.Worksheets("ВыхФорма").Cells(10, 2).Value = .Worksheets("Заказы").Cells(rowneed, 8).Value
.Worksheets("ВыхФорма").Cells(11, 2).Value = .Worksheets("Заказы").Cells(rowneed, 9).Value
.Worksheets("ВыхФорма").Cells(12, 2).Value = .Worksheets("Заказы").Cells(rowneed, 10).Value
.Worksheets("ВыхФорма").Cells(13, 2).Value = .Worksheets("Заказы").Cells(rowneed, 11).Value
.Worksheets("ВыхФорма").Cells(14, 2).Value = .Worksheets("Заказы").Cells(rowneed, 12).Value
.Worksheets("ВыхФорма").Cells(15, 2).Value = .Worksheets("Заказы").Cells(rowneed, 13).Value
.Worksheets("ВыхФорма").Cells(16, 2).Value = .Worksheets("Заказы").Cells(rowneed, 14).Value
.Worksheets("ВыхФорма").Cells(17, 2).Value = .Worksheets("Заказы").Cells(rowneed, 15).Value
.Worksheets("ВыхФорма").Cells(18, 2).Value = .Worksheets("Заказы").Cells(rowneed, 16).Value
.Worksheets("ВыхФорма").Cells(19, 2).Value = .Worksheets("Заказы").Cells(rowneed, 17).Value
.Worksheets("ВыхФорма").Cells(20, 2).Value = .Worksheets("Заказы").Cells(rowneed, 18).Value
.Worksheets("ВыхФорма").Activate
'.Worksheets("ВыхФорма").Protect Password:="list", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
End With
Me.Hide
End Sub
Private Sub UserForm_Activate()
ActiveSheet.Unprotect Password:="list"
End Sub
Private Sub UserForm_Deactivate()
ActiveSheet.Protect Password:="list"
End Sub
Private Sub UserForm_Initialize()
txt6.MaxLength = 4
txt7.MaxLength = 6
DTPicker1.MaxDate = Now
DTPicker1.MinDate = "01.01.1900"
For Each Sheet In Workbooks("Firms").Worksheets
If Sheet.Name <> "1" Then
ComboBox2.AddItem Sheet.Name
End If
Next Sheet
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox10.Text = ""
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Cancel = 0 Then ex = 0
End Sub
//Workbook(“Main.xls”) Форма Main
Private Sub CommandButton18_Click()
Me.Hide
Workbooks("Main.xls").Worksheets("ПоискПутевки").Activate
i = 4
Do
If i = 4 And Cells(i, 1).Value = "" Then Exit Do
i = i + 1
Loop While Cells(i, 1).Value <> ""
Range(Cells(4, 1), Cells(i, 12)).Delete
Find.Show
End Sub
Private Sub CommandButton10_Click()
Me.Hide
NewZa
End Sub
Private Sub CommandButton13_Click()
Me.Hide
EditZa
End Sub
Private Sub CommandButton16_Click()
Me.Hide
DelZa
End Sub
Private Sub 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 If
End Sub
Private Sub CommandButton3_Click()
Workbooks("Firms.xls").Activate
Workbooks("Firms.xls").Worksheets("1").Activate
Me.Hide
End Sub
Private Sub CommandButton4_Click()
Me.Hide
Workbooks("Main.xls").Worksheets("СписокФирм").Activate
End Sub
Private Sub CommandButton5_Click()
Workbooks("Main.xls").Worksheets("Заказы").Activate
Me.Hide
End Sub
Private Sub CommandButton6_Click()
Workbooks("Main.xls").Worksheets("ПоискПутевки").Activate
Me.Hide
End Sub
Private Sub CommandButton7_Click()
Application.Quit
End Sub
Private Sub UserForm_Activate()
Workbooks("Main.xls").Worksheets("1").Activate
Caption = Space(95) & "Главное меню" & Space(75)
End Sub
//Workbook(“Main.xls”) Module1
Public ex As Integer
Public колвз As Double, колдт As Double
Sub Оформить(nrow, max)
'Workbooks("Firms").Unprotect Password:="Firms1"
'ActiveSheet.Unprotect Password:="list"
Range(Cells(nrow, 1), Cells(nrow, max)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
Подобные документы
Проблемы внедрения информационных технологий. Автоматизация работы пользователя. Основные этапы проектирования базы данных. Функционирование предметной области. Специализированные языки обработки данных. Обоснование выбора основных технических средств.
курсовая работа [61,9 K], добавлен 08.02.2012Создание базы данных с помощью ACCESS для автоматизации работы базы отдыха. Оценка возможностей пользователей при работе с данной базой. Построение информационно-логической модели базы данных. Разработка запросов для корректировки и выборки данных.
курсовая работа [1,1 M], добавлен 19.10.2010Основные области проектирования информационных систем: базы данных, программы (выполнение к запросам данных), топология сети, конфигурации аппаратных средств. Модели жизненного цикла программного обеспечения. Этапы проектирования информационной системы.
реферат [36,1 K], добавлен 29.04.2010Проектирование логической структуры базы данных методом нормальных форм, сущность связь. Сравнительный анализ спроектированной базы данных и базы данных существующих информационных систем. Выбор и обоснование состава технических и программных средств.
курсовая работа [3,0 M], добавлен 22.12.2014Общие требования и этапы разработки автоматизированных информационных систем. Особенности работы, технологии доступа и проектирование структуры базы данных. Разработка клиентского программного обеспечения для магазина, защита и сохранность данных.
курсовая работа [650,9 K], добавлен 27.02.2013Разработка базы данных для информационной поддержки деятельности аптеки с целью автоматизированного ведения данных о лекарствах аптеки. Проектирование схемы базы данных с помощью средства разработки структуры базы данных Microsoft SQL Server 2008.
курсовая работа [3,6 M], добавлен 18.06.2012Анализ предметной области, этапы проектирования автоматизированных информационных систем. Инструментальные системы разработки программного обеспечения. Роль CASE-средств в проектировании информационной модели. Логическая модель проектируемой базы данных.
курсовая работа [410,6 K], добавлен 21.03.2011Опыт создания автоматизированных информационных систем. Разработка автоматизированной информационной системы для строительного предприятия ООО "СТК Дело". Этапы проектирования базы данных для учета хранения строительных материалов на складе предприятия.
курсовая работа [1,7 M], добавлен 15.03.2015Исследование методов и способов разработки информационных систем. Автоматизация деятельности продовольственного магазина. Проектирование логической схемы информационной системы. Разработка модели базы данных и структуры вычислительно-локальной сети.
курсовая работа [389,2 K], добавлен 16.03.2017Этапы проектирования информационных систем. Корпоративные информационные системы, тенденции их развития. Требования к организации базы данных. Основные концепции реляционных баз данных. Выбор системы проектирования. Логическая структура приложения.
дипломная работа [2,2 M], добавлен 20.12.2012
