Автор работы: Пользователь скрыл имя, 10 Марта 2013 в 18:39, курсовая работа
Курсовая работа, выполненная на тему «Разработка приложения «Продажа компьютеров»» направлена на изучение основ системы программирования Visual Basic 6.0. Данная система остаётся одной из самых популярных в мире. Она может решать целый комплекс задач: от создания простых программ, предназначенных для решения несложных вычислительных задач, до разработки важнейших реляционных систем управления базами данных. При этом Visual Basic остаётся достаточно простым в освоении и в то же время одним из мощных современных языков программирования.
' Разработчик: Кучеров А.В. ПИ-08, АФ НОУ САПЭУ, 2011
'Руководитель: Мидлер В.А.
'-----------------------------
Option Explicit
Dim objExcel As Object 'заводится переменная для редактора Excel
Dim objBook As Object
'заводится переменная для
Dim objSheet1 As Object
'заводится переменная для
…
Dim objSheet16 As Object
'заводится переменная для
''''''''''''''''''''''''''''''
Dim Opis1 As New Collection 'создаётся масив
…
Dim Opis16 As New Collection 'создаётся масив
Dim Price1 As New Collection 'создаётся масив
…
Dim Price16 As New Collection 'создаётся масив
''''''''''''''''''''''''''''''
Dim sum1 As Currency, sum2 As Currency, sum3 As Currency, sum4 As Currency, sum5 As Currency
Dim sum6 As Currency, sum7 As Currency, sum8 As Currency, sum9 As Currency, sum10 As Currency
Dim sum11 As Currency, sum12 As Currency, sum13 As Currency, sum14 As Currency, sum15 As Currency
Dim sum16 As Currency
Dim Suma As Currency
Dim suma1 As Currency
Dim skidka As Currency
Private Sub Command1_Click() 'выход
Set Opis1 = Nothing 'очищаем массив
…
Set Opis16 = Nothing 'очищаем массив
Set Price1 = Nothing 'очищаем массив
…
Set Price16 = Nothing 'очищаем массив
'выгружаем Excel из памяти
objBook.Close
Set objBook = Nothing
objExcel.Quit
Set objExcel = Nothing
'выгружаем форму из памяти
Unload Me
End Sub
Private Sub Form_Load()
Suma = 0
skidka = 0
suma1 = 0
Label4 = Suma
Dim StartedNew As Boolean ' поставим в True, если сами запустим Excel
StartedNew = False
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number <> 0 Then ' если нет запущенного Excel'я
Set objExcel = CreateObject("Excel.
StartedNew = True
End If
On Error GoTo 0
'Set objExcel = CreateObject("Excel.
'открытие файла с базой
Set objBook = objExcel.Workbooks.Open(App.
'открывает страницу документа Excel
Set objSheet1 = objBook.Worksheets(1)
…
Set objSheet16 = objBook.Worksheets(16)
'передаётся управление процедуре
GetBaza
End Sub
Private Sub GetBaza()
'добавляются пункты в ListBox
'заводится цикл на проверку яйчеек до тех пор
'пока не будет достигнута пустая яйчейка
Dim i1% 'заводится переменная значения Integer
i1 = 1 'указывается значение (горизонтальная строка)
Do While objSheet1.Cells(i1, 1) <> "" '
List1.AddItem objSheet1.Cells(i1, 1) 'указывается от куда добавлять данные(строка, столбец)
List19.AddItem vbTab & objSheet1.Cells(i1, 2)
Price1.Add objSheet1.Cells(i1, 2), objSheet1.Cells(i1, 1) '
Opis1.Add objSheet1.Cells(i1, 3), objSheet1.Cells(i1, 1)
i1 = i1 + 1 'переход на следующую строку
Loop '
…
Dim i16% 'заводится переменная значения Integer
i16 = 1 'указывается значение (горизонтальная строка)
Do While objSheet16.Cells(i16, 1) <> "" '
List16.AddItem objSheet16.Cells(i16, 1) 'указывается от куда добавлять данные(строка, столбец)
List34.AddItem vbTab & objSheet16.Cells(i16, 2)
Price16.Add objSheet16.Cells(i16, 2), objSheet16.Cells(i16, 1) '
Opis16.Add objSheet16.Cells(i16, 3), objSheet16.Cells(i16, 1)
i16 = i16 + 1 'переход на следующую строку
Loop '
End Sub
''''''''''''''''''''''''''''''
Private Sub list1_Click()
Label1.Caption = Opis1(List1.List(List1.
Label2 = Format(Price1(List1.List(
sum1 = Price1(List1.List(List1.ListIn
End Sub
…
Private Sub List16_Click()
Label1.Caption = Opis16(List16.List(List16.
Label2 = Format(Price16(List16.List(
sum16 = Price16(List16.List(List16.
End Sub
''''''''''''''''''''''''''''
Private Sub List1_DblClick()
List17.AddItem (List1.List(List1.ListIndex))
List18.AddItem vbTab & Price1(List1.List(List1.
Suma = Suma + sum1
If Option1.Value = True Then
skidka = Suma * 0.01
End If
If Option2.Value = True Then
skidka = Suma * 0.03
End If
If Option3.Value = True Then
skidka = Suma * 0.05
End If
suma1 = Suma - skidka
Label8 = Format(skidka, "###0.00")
Label9 = Format(suma1, "###0.00")
Label4 = Format(Suma, "###0.00")
End Sub
…
Private Sub List16_DblClick()
List17.AddItem (List16.List(List16.ListIndex)
List18.AddItem vbTab & Price16(List16.List(List16.
Suma = Suma + sum16
If Option1.Value = True Then
skidka = Suma * 0.01
End If
If Option2.Value = True Then
skidka = Suma * 0.03
End If
If Option3.Value = True Then
skidka = Suma * 0.05
End If
suma1 = Suma - skidka
Label8 = Format(skidka, "###0.00")
Label9 = Format(suma1, "###0.00")
Label4 = Format(Suma, "###0.00")
End Sub
Private Sub Command2_Click() 'очистить корзину
List17.Clear
List18.Clear
Suma = 0
Label4 = Suma
End Sub
Private Sub Command3_Click() 'Оформить заказ
Dim i As Integer
Dim X As Integer
Dim RS As New ADODB.Recordset, Rep As Object ''''подключаем и заполняем Recordset
RS.Fields.Append "a", adVarChar, 255
RS.Fields.Append "b", adVarChar, 255
RS.Fields.Append "c", adVarChar, 255
RS.Fields.Append "z", adVarChar, 255
RS.Fields.Append "y", adVarChar, 255
RS.Fields.Append "s1", adVarChar, 255
RS.Fields.Append "sk", adVarChar, 255
RS.Fields.Append "z1", adVarChar, 255
RS.Fields.Append "z2", adVarChar, 255
RS.Open
X = 0
RS.AddNew
For i = 0 To List17.ListCount
RS("a") = List17.List(i)
RS("b") = List18.List(i)
X = X + 1
RS("y") = X
RS.AddNew
Next i
RS("z") = "Итого:"
RS("c") = Format(Suma, "###0.00")
RS.AddNew
RS("z1") = "Скидка:"
RS("sk") = Format(skidka, "###0.00")
RS.AddNew
RS("z2") = "К оплате:"
RS("s1") = Format(suma1, "###0.00")
'If Option1.Value = True Or Option2.Value = True Or Option3.Value = True Then
'RS("z") = "Итого (со скидкой):"
'Else
'End If
Set Rep = New DataReport1
Set Rep.DataSource = RS
Rep.Show
End Sub
Private Sub Timer1_Timer()
List18.TopIndex = List17.TopIndex
End Sub
Программный код для формы (frmSborka) представлен в урезанном виде.
'_____________________________
'Курсовая работа по
объектно-ориентированному
'Программный код формы frmSbor
' Форма предназначена для единичного выбора товаров из групп
' Разработчик: Кучеров А.В. ПИ-08, АФ НОУ САПЭУ, 2011
'Руководитель: Мидлер В.А.
'-----------------------------
Option Explicit
Dim objExcel As Object 'заводится переменная для редактора Excel
Dim objBook As Object 'заводится переменная для открытия документа
Dim objSheet1 As Object 'заводится переменная для страницы 1
…
Dim objSheet16 As Object 'заводится переменная для страницы 16
''''''''''''''''''''''''''''''
Dim Price1 As New Collection 'создаётся масив
…
Dim Price16 As New Collection 'создаётся масив
''''''''''''''''''''''''''''''
Dim sum1 As Currency, sum2 As Currency, sum3 As Currency, sum4 As Currency, sum5 As Currency
Dim sum6 As Currency, sum7 As Currency, sum8 As Currency, sum9 As Currency, sum10 As Currency
Dim sum11 As Currency, sum12 As Currency, sum13 As Currency, sum14 As Currency, sum15 As Currency
Dim sum16 As Currency
Dim Suma As Currency
''''''''''''''''''''''''''''''
Private Sub Command1_Click() ''выход
Set Price1 = Nothing 'выгружаем массив из памяти
…
Set Price16 = Nothing 'выгружаем массив из памяти
'выгружаем Excel из памяти
objBook.Close
Set objBook = Nothing
objExcel.Quit
Set objExcel = Nothing
'выгружаем форму из памяти
Unload Me
End Sub
Private Sub Form_Load()
Suma = 0
Label49.Caption = Format(Suma, "###0.00")
Dim StartedNew As Boolean ' поставим в True, если сами запустим Excel
StartedNew = False
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number <> 0 Then ' если нет запущенного Excel'я
Set objExcel = CreateObject("Excel.
StartedNew = True
End If
On Error GoTo 0
'Set objExcel = CreateObject("Excel.
'открытие файла с базой
Set objBook = objExcel.Workbooks.Open(App.
'открывает страницу документа Excel
Set objSheet1 = objBook.Worksheets(1)
…
Set objSheet16 = objBook.Worksheets(16)
'передаётся управление процедуре
GetBaza1
End Sub
Private Sub GetBaza1()
'добавляются пункты в ComboBox
'заводится цикл на проверку яйчеек до тех пор
'пока не будет достигнута пустая яйчейка
Dim i1% 'заводится переменная значения Integer
i1 = 1 'указывается значение (горизонтальная строка)
Do While objSheet1.Cells(i1, 1) <> "" '
Combo1.AddItem objSheet1.Cells(i1, 1) 'указывается от куда добавлять данные(строка, столбец)
Price1.Add objSheet1.Cells(i1, 2), objSheet1.Cells(i1, 1) '
i1 = i1 + 1 'переход на следующую строку
Loop '
…
Dim i16% 'заводится переменная значения Integer
i16 = 1 'указывается значение (горизонтальная строка)
Do While objSheet16.Cells(i16, 1) <> "" '
Combo16.AddItem objSheet16.Cells(i16, 1) 'указывается от куда добавлять данные(строка, столбец)
Price16.Add objSheet16.Cells(i16, 2), objSheet16.Cells(i16, 1) '
i16 = i16 + 1 'переход на следующую строку
Loop '
End Sub
'''''''''''''''''''''''
Private Sub Combo1_Click()
Label17 = Format(Price1(Combo1.List(
sum1 = Price1(Combo1.List(Combo1.
End Sub
…
Private Sub Combo16_click()
Label32 = Format(Price16(Combo16.List(
sum16 = Price16(Combo16.List(Combo16.
Информация о работе Разработка приложения «Продажа компьютеров»