Программа "Автомастерская"
Спецификация требований к программному обеспечению, его структура и основные элементы, сферы практического применения и оценка эффективности. Концепции системных операций и требования к производительности Сборка, интеграция, реализация программы.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 24.03.2014 |
| Размер файла | 1,9 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Adodc2. RecordSource = «SELECT * FROM Склад WHERE (Склад. Марка LIKE '» & Combo1. Text & «') AND (Склад. Модель LIKE '» & Combo2. Text & «')»
Adodc2. Refresh
Set DataCombo3. RowSource = Adodc2
DataCombo3. Text = «»
DataCombo3. ListField = «Название»
DataCombo3. BoundColumn = «ID_деталь»
DataCombo3. Refresh
End Sub
Private Sub Combo3_Click()
Adodc1. ConnectionString = «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
'Adodc1. RecordSource = «SELECT * FROM Заказчик WHERE (Заказчик. Фамилия LIKE '» & DataCombo1. Text & «')»
Adodc1. Refresh
End Sub
Private Sub Command2_Click()
If Text4. Text = «» Then MsgBox («Введите количество деталей») Else Sdelka
End Sub
Function Sdelka()
Dim IDNew As Long
Dim AR As New ADODB. Recordset
Dim ac As New ADODB. Connection
Adodc3. Recordset. MoveLast
IDNew = Val (Adodc3. Recordset(0).value) + 1
Adodc3. Recordset. AddNew
Adodc3. Recordset(0).value = IDNew
Adodc3. Recordset. Fields(1).value = Val (DataCombo1. BoundText)
Adodc3. Recordset. Fields(2).value = Val (DataCombo3. BoundText)
Adodc3. Recordset. Fields(3).value = Val (Text4. Text)
Adodc3. Recordset. Fields(7).value = «Готово»
Adodc3. Recordset. Fields(4).value = Calendar1.value
ac. Open «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
Set AR = ac. Execute («SELECT Склад. Цена FROM Склад WHERE ID_деталь =» & Val (DataCombo3. BoundText))
Adodc3. Recordset. Fields(5).value = AR. Fields(0).value
Adodc3. Recordset. Fields(6).value = Val (Text4. Text) * AR. Fields(0).value
Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
End Function
Private Sub Command3_Click()
AdmOrder. Visible = False
End Sub
Function GetCarDataFromMarka()
Dim AR As New ADODB. Recordset
Dim ac As New ADODB. Connection
Dim i As Long, LastText As String
ac. Open «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
Set AR = ac. Execute («SELECT Марка FROM Склад ORDER BY Марка»)
AR. MoveFirst
LastText = AR. Fields(0).value
Combo1. Clear
Combo1. AddItem LastText
Do While AR.EOF = False
If AR. Fields(0).value <> LastText Then
Combo1. AddItem AR. Fields(0).value
LastText = AR. Fields(0).value
End If
AR. MoveNext
Loop
End Function
Function GetCarDataFromModel (ByVal sMarka As String)
Dim AR As New ADODB. Recordset
Dim ac As New ADODB. Connection
Dim i As Long, LastText As String
ac. Open «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
Set AR = ac. Execute («SELECT Склад. Модель, Склад. Марка FROM Склад WHERE Склад. Марка LIKE '» & sMarka & «' ORDER BY Модель»)
AR. MoveFirst
LastText = AR. Fields(0).value
Combo2. Clear
Combo2. AddItem LastText
Do While AR.EOF = False
If AR. Fields(0).value <> LastText Then
Combo2. AddItem AR. Fields(0).value
LastText = AR. Fields(0).value
End If
AR. MoveNext
Loop
End Function
Private Sub Command4_Click()
Frame1. Visible = True
End Sub
Private Sub Command5_Click()
Frame1. Visible = False
End Sub
Private Sub Command6_Click()
List1. Clear
If Text1. Text <> «» Then
PoiskIsKategor
ElseIf Text2. Text <> «» Then
PoiskIsName
ElseIf Text3. Text <> «» Then
PoiskIsAnalog
ElseIf Text5. Text <> «» Then
PoiskIsArticul
Else
MsgBox («Введите нужные параметры поиска!»)
End If
End Sub
Private Sub Command8_Click()
Frame2. Visible = False
End Sub
Private Sub DataCombo1_Click (Area As Integer)
Dim AR As New ADODB. Recordset
Dim ac As New ADODB. Connection
Dim i As Long
If Area <> 0 And DataCombo1. BoundText <> «» Then
ac. Open «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
Set AR = ac. Execute («SELECT * FROM Заказчик WHERE ID_покупатель =» & DataCombo1. BoundText)
For i = 0 To 6
If IsNull (AR. Fields(i).value) Then
Label11 (i).Caption = «»
Else
Label11 (i).Caption = AR. Fields(i).value
End If
Next
End If
Command6. Enabled = True
Me. Caption = DataCombo1. BoundText
End Sub
Private Sub DataCombo3_Click (Area As Integer)
Dim AR As New ADODB. Recordset
Dim ac As New ADODB. Connection
Dim i As Long
If Area <> 0 And DataCombo3. BoundText <> «» Then
ac. Open «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
Set AR = ac. Execute («SELECT * FROM Склад WHERE ID_деталь =» & DataCombo3. BoundText)
For i = 0 To 8
If IsNull (AR. Fields(i).value) Then
Label12 (i).Caption = «»
Else
Label12 (i).Caption = AR. Fields(i).value
Label12 (7).Caption = IIf (Val(AR. Fields(0).value) = Val (AR. Fields(7).value), «Нет аналога», «Аналог: №» & Val (AR. Fields(4).value))
End If
Next
End If
Me. Caption = DataCombo3. BoundText
End Sub
Private Sub Form_Load()
Call GetCarDataFromMarka
Text1. Text = «» _Text2. Text = «» _Text3. Text = «» _Text4. Text = «»
End Sub
Function PoiskIsAnalog()
Dim i As Long, IdAnalog As Long
Dim AR As New ADODB. Recordset
Dim AR2 As New ADODB. Recordset
Dim AR3 As New ADODB. Recordset
Dim ac As New ADODB. Connection
ac. Open «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
Set AR2 = ac. Execute («SELECT Аналог FROM Склад WHERE Артикул =» & Text3. Text)
Adodc2. ConnectionString = «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
Adodc2. RecordSource = «SELECT * FROM Склад WHERE (Склад. Артикул =» & Val (Text3. Text) &»)»
If AR2.BOF <> True Or AR2.EOF <> True Then
Set AR3 = ac. Execute («SELECT Артикул FROM Склад WHERE ID_Деталь =» & AR2. Fields. Item(0).value)
Else
MsgBox «Аналогов не найдено»
Exit Function
End If
Adodc2. Refresh
For i = 0 To 8
If IsNull (Adodc2. Recordset. Fields(i).value) Then
Label12 (i).Caption = «»
Else
Label12 (i).Caption = Adodc2. Recordset. Fields(i).value
End If
Next
IdAnalog = Val (Adodc2. Recordset. Fields(7).value)
List1. Clear
AR. Open «SELECT * FROM Склад WHERE Склад. Аналог =» & IdAnalog, ac, adOpenStatic, adLockOptimistic
If (AR3.EOF = True And AR3.BOF = True) Then MsgBox «Аналогов не найдено», vbInformation: Exit Function
AR3. MoveFirst
Do While AR3.EOF = False
List1. AddItem AR3. Fields. Item(0).value
AR3. MoveNext
Loop
End Function
Function PoiskIsKategor()
Adodc2. ConnectionString = «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
Adodc2. RecordSource = «SELECT * FROM Склад WHERE (Склад. Категория LIKE '%» & Text1. Text & «%')»
Adodc2. Refresh
DataGrid1. Columns(7).Visible = False
Frame2. Visible = True
End Function
Function PoiskIsName()
Adodc2. ConnectionString = «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
Adodc2. RecordSource = «SELECT * FROM Склад WHERE (Склад. Название LIKE '%» & Text2. Text & «%')»
Adodc2. Refresh
DataGrid1. Columns(7).Visible = False
Frame2. Visible = True
End Function
Function PoiskIsArticul()
Adodc2. ConnectionString = «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
Adodc2. RecordSource = «SELECT * FROM Склад WHERE (Склад. Артикул LIKE '%» & Val (Text5. Text) & «%')»
Adodc2. Refresh
DataGrid1. Columns(7).Visible = False
Frame2. Visible = True
End Function
Private Sub List1_Click()
Dim i As Long
If List1. ListIndex >= 0 Then
Adodc2. ConnectionString = «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
Adodc2. RecordSource = «SELECT * FROM Склад WHERE (Склад. Артикул =» & Split (List1. Text,»:») (0) &»)»
Adodc2. Refresh
For i = 0 To 8
If IsNull (Adodc2. Recordset. Fields(i).value) Then
Label12 (i).Caption = «»
Else
Label12 (i).Caption = Adodc2. Recordset. Fields(i).value
End If
Next
End If
End Sub
Приложение В
Текст модуля «ТО»
Private Sub Check1_Click()
If Check1.value = 1 Then
Dim dlina As Long
Dim maxDlina As Long
For i = 0 To List2. ListCount - 1
dlina = Len (List2. List(i))
maxDlina = maxDlina + dlina
Next
If maxDlina + Len (Check1. Caption) >= 245 Then
MsgBox «Количество дополнительных работ превышает допустимую норму по предоставляемым услугам. Последующие дополни тельные работы возможно будет выполнить обратившись к Нам в другое время. Подробности у администратора.», vbInformation
Exit Sub
Else
End If
i = UBound (AddonData(WorkForCar).arrServices())
List2. AddItem (Check1. Caption)
List5. AddItem («0»)
List6. AddItem («0»)
List9. AddItem (AddonData(WorkForCar).arrServices(i).iMoney)
Text10. Text = Val (Text10. Text) + AddonData(WorkForCar).arrServices(i).iMoney
Text15. Text = Val (Text15. Text) + AddonData(WorkForCar).arrServices(i).iMoney
End If
If Check1.value = 0 Then
For i = 0 To List2. ListCount - 1
If List2. List(i) = «Замена ГРМ» Then
List2. RemoveItem (i): List5. RemoveItem (i): List6. RemoveItem (i)
Text10. Text = Val (Text10. Text) - List9. List(i)
Text15. Text = Val (Text15. Text) - List9. List(i)
List9. RemoveItem (i)
End If
Next
End If
End Sub
Private Sub Check3_Click()
For i = 0 To List11. ListCount
If Check3. Caption = List11. List(i) Then
If Check3.value = 0 Then
For J = 0 To List11. ListCount - 1
If List11. List(i) = «Замена ГРМ» Then
Text23. Text = Val (Text23. Text) - List4. List(i)
List11. RemoveItem (i): List4. RemoveItem (i)
End If
Next
End If
End If
Next
If DataCombo1. Text = «» Then
MsgBox «Выберите клиента», vbInformation
Check3.value = 0
Exit Sub
End If
If Check3.value = 1 Then
Option1. Enabled = True: Option2. Enabled = True: Option3. Enabled = True: Label71. Enabled = True: Command25. Enabled = True: Text25. Enabled = True
Else
Option1. Enabled = False: Option2. Enabled = False: Option3. Enabled = False: Label71. Enabled = False: Command25. Enabled = False: Text25. Enabled = False
Option1.value = 0: Option2.value = 0: Option3.value = 0: Text25. Text = «»
End If
End Sub
Private Sub DataCombo1_Click (Area As Integer)
If Area <> 0 Then
IDClient = Val (DataCombo1. BoundText)
List2. Clear: List5. Clear: List11. Clear: List4. Clear: List6. Clear: List9. Clear: Text10. Text = «»: Frame5. Visible = False: Command5. Enabled = True: Command3. Enabled = True
If SSTab1. Tab = 2 Then Picture8. Visible = True Else Picture8. Visible = False
If DataCombo1. Text <> «» Then Command8.value = True 'нажатие кнопки для автозаполнения
End If
End Sub
Private Sub DataCombo2_Click (Area As Integer)
Dim Marka As Long
If Area <> 0 Then
For i = 0 To 10
Marka = TOData(i).sModelName
Next
End If
End Sub
Private Sub Command23_Click()
Randomize
If DataCombo1 = «» Then Exit Sub
If List11. ListCount = 0 Then
MsgBox «Нет работ для выполнения», vbInformation
Exit Sub
End If
If Option6.value = True Then TestOnLevelMoney
If mistake = True Then Exit Sub
Dim otv As Integer
Frame9. Visible = False
List10. Clear: List12. Clear: List3. Clear
otv = MsgBox («Подтвердить выполнение выбраных работ?», vbYesNo + vbQuestion)
If otv = 7 Then Exit Sub
Dim Addstroka As String
Dim ControlWork As String
Dim ControlWorkCash As String
Dim ac As New ADODB. Connection
Dim Dlin1 As Long: Dim Dlin2 As Long: Dim Dlin3 As Long
Dim AR10 As New ADODB. Recordset
ac. Open «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
Set AR10 = ac. Execute («SELECT Работа1, Работа2, Работа3, Учет FROM Сервис_ТО WHERE ID_покупатель =» & IDClient)
If AR10. Fields. Item(0) <> «» And AR10. Fields. Item(0) <> «Null» Then
Dlin1 = Len (AR10. Fields. Item(0))
Else
Dlin1 = 0
End If
If AR10. Fields. Item(1) <> «» And AR10. Fields. Item(1) <> «Null» Then
Dlin2 = Len (AR10. Fields. Item(1))
Else
Dlin2 = 0
End If
If AR10. Fields. Item(2) <> «» And AR10. Fields. Item(2) <> «Null» Then
Dlin3 = Len (AR10. Fields. Item(2))
Else
Dlin3 = 0
End If
For J = 0 To 2
If J = 0 Then
For i = 0 To List11. ListCount - 1
Addstroka = Addstroka & List11. List(i) &»;»
Next
If J = 0 Then Addstroka = Mid (Addstroka, 1, (Len(Addstroka) - 1))
ElseIf J = 1 Then
Addstroka = Addstroka & «|» & Calendar2.value & «|»
ElseIf J = 2 Then
For i = 0 To List11. ListCount - 1
Addstroka = Addstroka & List4. List(i) &»;»
Next
If J = 2 Then
Addstroka = Mid (Addstroka, 1, (Len(Addstroka) - 1))
Addstroka = Addstroka & «|»
End If
End If
Next
ControlWork = AR10. Fields. Item(3)
ControlWorkCash = Mid (ControlWork, 1, 1)
If ControlWorkCash = «0» Then
ControlWorkCash = Mid (ControlWork, 3, 1)
If ControlWorkCash = «1» Then
ControlWork = «0-2»
Call ProgramADO.SQLExecOnly («UPDATE Сервис_ТО SET» & «Учет= '» & ControlWork & «' WHERE ID_Покупатель=» & DataCombo1. BoundText)
Call ProgramADO.SQLExecOnly («UPDATE Сервис_ТО SET» & «Работа1= '» & Addstroka & «' WHERE ID_Покупатель=» & DataCombo1. BoundText)
End If
If ControlWorkCash = «2» Then
ControlWork = «0-3»
Call ProgramADO.SQLExecOnly («UPDATE Сервис_ТО SET» & «Учет= '» & ControlWork & «' WHERE ID_Покупатель=» & DataCombo1. BoundText)
Call ProgramADO.SQLExecOnly («UPDATE Сервис_ТО SET» & «Работа2= '» & Addstroka & «' WHERE ID_Покупатель=» & DataCombo1. BoundText)
End If
If ControlWorkCash = «3» Then
ControlWork = «1-1»
Call ProgramADO.SQLExecOnly («UPDATE Сервис_ТО SET» & «Учет= '» & ControlWork & «' WHERE ID_Покупатель=» & DataCombo1. BoundText)
Call ProgramADO.SQLExecOnly («UPDATE Сервис_ТО SET» & «Работа3= '» & Addstroka & «' WHERE ID_Покупатель=» & DataCombo1. BoundText)
End If
ElseIf ControlWorkCash = «1» Then
ControlWorkCash = Mid (ControlWork, 3, 1)
If ControlWorkCash = «1» Then
ControlWork = «1-2»
Call ProgramADO.SQLExecOnly («UPDATE Сервис_ТО SET» & «Учет= '» & ControlWork & «' WHERE ID_Покупатель=» & DataCombo1. BoundText)
Call ProgramADO.SQLExecOnly («UPDATE Сервис_ТО SET» & «Работа1= '» & Addstroka & «' WHERE ID_Покупатель=» & DataCombo1. BoundText)
End If
If ControlWorkCash = «2» Then
ControlWork = «1-3»
Call ProgramADO.SQLExecOnly («UPDATE Сервис_ТО SET» & «Учет= '» & ControlWork & «' WHERE ID_Покупатель=» & DataCombo1. BoundText)
Call ProgramADO.SQLExecOnly («UPDATE Сервис_ТО SET» & «Работа2= '» & Addstroka & «' WHERE ID_Покупатель=» & DataCombo1. BoundText)
End If
If ControlWorkCash = «3» Then
ControlWork = «1-1»
Call ProgramADO.SQLExecOnly («UPDATE Сервис_ТО SET» & «Учет= '» & ControlWork & «' WHERE ID_Покупатель=» & DataCombo1. BoundText)
Call ProgramADO.SQLExecOnly («UPDATE Сервис_ТО SET» & «Работа3= '» & Addstroka & «' WHERE ID_Покупатель=» & DataCombo1. BoundText)
End If
End If
Label78. Visible = True: Label78. Caption = Round((1000000 * Rnd))
Label79. Visible = True: Label79. Caption = Calendar2.value
Label80. Visible = True: Label80. Caption = Round((1000 + 31 * Rnd))
Label83. Visible = True: Label83. Caption = Text23. Text
For i = 1 To List11. ListCount
Label81 (i).Caption = List11. List (i - 1)
Label82 (i).Caption = List4. List (i - 1)
Label81 (i).Visible = True
Label82 (i).Visible = True
Next
Combo4. Text = «»: Calendar2.value = Date: Frame7. Enabled = False: Text24. Text = «»: Text22. Text = «»: List11. Clear: List4. Clear: Text23. Text = «»: Check3.value = 0: Option7.value = True
Command23. Enabled = False
Command21. Enabled = True
Command22. Enabled = True
End Sub
Private Sub Command25_Click()
If Label39. Visible = True Then Exit Sub
Dim TipZamGRM As Integer
Dim Cost As Long
Dim otv As Integer
If Option1.value = False And Option2.value = False And Option3.value = False Then
MsgBox «Выберите тип замены ГРМ», vbInformation
Exit Sub
End If
If Option1.value = True Then
TipZamGRM = 1
ElseIf Option2.value = True Then
TipZamGRM = 2
ElseIf Option3.value = True Then
TipZamGRM = 3
End If
i = UBound (AddonData(WorkForCar).arrServices())
Cost = AddonData(WorkForCar).arrServices(i).iMoney
Select Case TipZamGRM
Case 1
Cost = Round (Val(Cost))
Case 2
Cost = Round (Val(Cost) + (Val (Cost / 2)))
Case 3
Cost = Round (Val(Cost) + Val(Cost))
End Select
Text25. Text = Round(Cost)
otv = MsgBox («Подтвердить выбранный тип замены ГРМ?», vbYesNo + vbQuestion)
If otv = 7 Then Exit Sub
Dim dlina As Long
Dim dlina2 As Long
Dim maxDlina As Long
Dim ICorrect As Integer
For i = 0 To List11. ListCount - 1
ICorrect = ICorrect + 2
dlina = Len (List11. List(i))
dlina2 = Len (List4. List(i))
maxDlina = maxDlina + dlina + dlina2
Next
maxDlina = maxDlina + 13
If maxDlina + Len (Text25. Text) + Len (Check3. Caption) + ICorrect >= 250 Then
MsgBox «Количество дополнительных работ превышает допустимую норму по предоставляемым услугам. Последующие дополнительные работы возможно будет выполнить обратившись к Нам в другое время. Подробности у администратора.», vbInformation
Exit Sub
End If
For i = 0 To List11. ListCount
If Check3. Caption = List11. List(i) Then
MsgBox «Данная работа уже запланирована!!!», vbInformation
Exit Sub
End If
Next
List11. AddItem (Check3. Caption)
List4. AddItem (Cost)
Text23. Text = Val (Text23. Text) + Val(Cost)
End Sub
Private Sub Command24_Click()
If DataCombo1. Text = «» Then
MsgBox «Клиент не выбран», vbInformation
Exit Sub
End If
Frame9. Top = 3600
Frame9. Left = 3000
Frame9. Visible = True
Dim ac As New ADODB. Connection
Dim work1Mas(2): Dim work2Mas(2): Dim work3Mas(2)
Dim Work1 As String: Dim Work2 As String: Dim Work3 As String
Dim AR11 As New ADODB. Recordset 'Содержит 3 поля Работа (1,2,3), Учет-для Сам ТО
ac. Open «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»
Set AR11 = ac. Execute («SELECT Работа1, Работа2, Работа3, Учет FROM Сервис_ТО WHERE ID_покупатель =» & IDClient)
If AR11. Fields. Item(0) <> «» And AR11. Fields. Item(0) <> «Null» Then Work1 = AR11. Fields. Item(0) Else Work1 = «»
If AR11. Fields. Item(1) <> «» And AR11. Fields. Item(1) <> «Null» Then Work2 = AR11. Fields. Item(1) Else Work2 = «»
If AR11. Fields. Item(2) <> «» And AR11. Fields. Item(2) <> «Null» Then Work3 = AR11. Fields. Item(2) Else Work3 = «»
Select Case AR11. Fields. Item(3)
Case «0-1»
MsgBox «Данный клиент не обращался для выполнения работ», vbInformation
Exit Sub
Case «0-2»
work1Mas(0) = Split (Work1, «|»)
List10. AddItem (work1Mas(0) (1))
work1Mas(1) = Split (work1Mas(0) (0),»;»)
work1Mas(2) = Split (work1Mas(0) (2),»;»)
For i = 0 To UBound (work1Mas(1))
List3. AddItem (work1Mas(1) (i))
List12. AddItem (work1Mas(2) (i))
Next
Case «0-3»
work1Mas(0) = Split (Work1, «|»)
work2Mas(0) = Split (Work2, «|»)
work2Mas(1) = Split (work2Mas(0) (0),»;»)
work2Mas(2) = Split (work2Mas(0) (2),»;»)
For i = 0 To UBound (work2Mas(1))
List3. AddItem (work2Mas(1) (i))
List12. AddItem (work2Mas(2) (i))
If i = 0 Then List10. AddItem (work2Mas(0) (1)) Else List10. AddItem («»)
Next
List10. AddItem (work1Mas(0) (1))
work1Mas(1) = Split (work1Mas(0) (0),»;»)
work1Mas(2) = Split (work1Mas(0) (2),»;»)
For i = 0 To UBound (work1Mas(1))
List3. AddItem (work1Mas(1) (i))
List12. AddItem (work1Mas(2) (i))
Next
Case «1-1»
work1Mas(0) = Split (Work1, «|»)
work2Mas(0) = Split (Work2, «|»)
work3Mas(0) = Split (Work3, «|»)
work3Mas(1) = Split (work3Mas(0) (0),»;»)
work3Mas(2) = Split (work3Mas(0) (2),»;»)
For i = 0 To UBound (work3Mas(1))
List3. AddItem (work3Mas(1) (i))
List12. AddItem (work3Mas(2) (i))
If i = 0 Then List10. AddItem (work3Mas(0) (1)) Else List10. AddItem («»)
Next
work2Mas(1) = Split (work2Mas(0) (0),»;»)
work2Mas(2) = Split (work2Mas(0) (2),»;»)
For i = 0 To UBound (work2Mas(1))
List3. AddItem (work2Mas(1) (i))
List12. AddItem (work2Mas(2) (i))
If i = 0 Then List10. AddItem (work2Mas(0) (1)) Else List10. AddItem («»)
Next
List10. AddItem (work1Mas(0) (1))
work1Mas(1) = Split (work1Mas(0) (0),»;»)
work1Mas(2) = Split (work1Mas(0) (2),»;»)
For i = 0 To UBound (work1Mas(1))
List3. AddItem (work1Mas(1) (i))
List12. AddItem (work1Mas(2) (i))
Next
Case «1-2»
work1Mas(0) = Split (Work1, «|»)
work2Mas(0) = Split (Work2, «|»)
work3Mas(0) = Split (Work3, «|»)
work1Mas(1) = Split (work1Mas(0) (0),»;»)
work1Mas(2) = Split (work1Mas(0) (2),»;»)
For i = 0 To UBound (work1Mas(1))
List3. AddItem (work1Mas(1) (i))
List12. AddItem (work1Mas(2) (i))
If i = 0 Then List10. AddItem (work1Mas(0) (1)) Else List10. AddItem («»)
Next
work3Mas(1) = Split (work3Mas(0) (0),»;»)
work3Mas(2) = Split (work3Mas(0) (2),»;»)
For i = 0 To UBound (work3Mas(1))
List3. AddItem (work3Mas(1) (i))
List12. AddItem (work3Mas(2) (i))
If i = 0 Then List10. AddItem (work3Mas(0) (1)) Else List10. AddItem («»)
Next
work2Mas(1) = Split (work2Mas(0) (0),»;»)
work2Mas(2) = Split (work2Mas(0) (2),»;»)
For i = 0 To UBound (work2Mas(1))
List3. AddItem (work2Mas(1) (i))
List12. AddItem (work2Mas(2) (i))
If i = 0 Then List10. AddItem (work2Mas(0) (1)) Else List10. AddItem
Next
work3Mas(1) = Split (work3Mas(0) (0),»;»)
work3Mas(2) = Split (work3Mas(0) (2),»;»)
For i = 0 To UBound (work3Mas(1))
List3. AddItem (work3Mas(1) (i))
List12. AddItem (work3Mas(2) (i))
If i = 0 Then List10. AddItem (work3Mas(0) (1)) Else List10. AddItem («»)
Next
End Select
End Sub
Private Sub Command21_Click()
Command22. Enabled = False
AdmTO. Label78. Visible = False: AdmTO. Label79. Visible = False: AdmTO. Label80. Visible = False: AdmTO. Label83. Visible = False
PrintWorkSamTO. Label78. Visible = False: PrintWorkSamTO. Label79. Visible = False: PrintWorkSamTO. Label80. Visible = False: PrintWorkSamTO. Label83. Visible = False
For i = 1 To 10
AdmTO. Label81 (i).Visible = False: AdmTO. Label82 (i).Visible = False
PrintWorkSamTO. Label81 (i).Visible = False: PrintWorkSamTO. Label82 (i).Visible = False
Next
Command21. Enabled = False
Command23. Enabled = True
End Sub
Размещено на Allbest.ru
Подобные документы
Реализация программ для работы с большим объемом информации, записанной в файлах. Набор инструментальных и алгоритмических средств для разработки программы. Структура данных, описание основных модулей. Требования к программному и аппаратному обеспечению.
курсовая работа [712,0 K], добавлен 13.08.2012Общее описание и структура программы, ее компоненты и функции, сферы практического применения. Требования к функциональным возможностям. Характеристика логической структуры, используемые технические средства. Исследование входных и выходных данных.
курсовая работа [94,7 K], добавлен 30.01.2016Обоснование необходимости разработки виртуального магазина. Описание форм программы. Требования к аппаратному и программному обеспечению. Тестирование и выявление ошибок. Область применения программы. Расчет экономического эффекта проекта. Охрана труда.
дипломная работа [1,7 M], добавлен 20.12.2012Характеристика разрабатываемой информационной системы, основные требования к используемому аппаратному и программному обеспечению. Структура базы данных, а также применяемые в ней компоненты. Основные сведения о работе программы, ее возможности.
курсовая работа [1,2 M], добавлен 13.06.2017Принципы и основные этапы проектирования информационной системы, требования к ее функционалу и оценка возможностей, сферы практического применения. Анализ и обоснование используемого программного обеспечения и технических средств. Листинг программы.
контрольная работа [1,4 M], добавлен 04.02.2017Написание программы для работы со списком документов, разработка функционала. Требования к аппаратному и программному обеспечению. Описание интерфейса пользователя. Структура программы и описание данных. Процедура тестирования и его результаты.
курсовая работа [1,5 M], добавлен 26.08.2012Создание программы, предназначенной для автоматизации операций, связанных с регистрацией, поиском и обработкой данных о школьниках, преподавателях. Описание пользователей системы, требований к программному и аппаратному обеспечению, интерфейса программы.
курсовая работа [734,3 K], добавлен 12.03.2013Область применения и требования создаваемого Web-приложения. Требования к техническому и программному обеспечению. Разработка структуры Web-приложения и выбор средств программной реализации. Программная реализация Web-приложения. Структура базы данных.
дипломная работа [1,4 M], добавлен 03.06.2014Методика проектирования информационной системы "Учебные планы. Вычитка часов", ее структура и основные элементы, назначение и сферы использования. Основные требования к данному программному обеспечению, выбор средств его реализации и обоснование выбора.
курсовая работа [1,3 M], добавлен 13.08.2009Механизм построения мультимедийных приложений. Разработка мультимедийного проекта "классы в С++" - приложения, построенного с применением пакета AuthorWare 6.5. Плюсы и минусы программы в сравнении "AUK BC". Требования к программному обеспечению.
курсовая работа [1,9 M], добавлен 17.07.2009
