Разработка приложения «Продажа компьютеров»

End Sub

 

Private Sub Command2_Click() 'подсчет  суммы

    Suma = sum1 + sum2 + sum3 + sum4 + sum5 + sum6 + sum7 + sum8 + sum9 + sum10 + sum11 + sum12 + sum13 + sum14 + sum15 + sum16

    If Option1.Value = True Then

    Suma = Suma - Suma * 0.01

    End If

    If Option2.Value = True Then

    Suma = Suma - Suma * 0.03

    End If

    If Option3.Value = True Then

    Suma = Suma - Suma * 0.05

    End If

    Label49.Caption = Format(Suma, "###0.00")

End Sub

Private Sub Command3_Click() 'вывод  на печать

If Suma = 0 Then

MsgBox "Нажмите <Подсчитать>"

Else

Dim i 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

If Combo1 <> "NONE" Then

RS.AddNew

RS("a") = Combo1

RS("b") = Label17

End If

…

If Combo16 <> "NONE" Then

RS.AddNew

RS("a") = Combo16

RS("b") = Label32

End If

RS.AddNew

RS("c") = Format(Suma, "###0.00")

If Option1.Value = True Or Option2.Value = True Or Option3.Value = True Then

RS("z") = "Итого (со скидкой):"

Else

RS("z") = "Итого:"

End If

Set Rep = New DataReport1

Set Rep.DataSource = RS

Rep.Show

End If

End Sub

Программный код для формы (frmAddDEL).

'____________________________________________

'Курсовая работа по  объектно-ориентированному программированию

'Программный код формы frmAddDEL.

' Форма предназначена  для редактирования записей в  БД

' Разработчик: Кучеров  А.В. ПИ-08, АФ НОУ САПЭУ, 2011

'Руководитель: Мидлер  В.А.

'------------------------------------------------------------------------

Option Explicit

Dim objExcel As Object          'заводится переменная для редактора Excel

Dim objBook As Object           'заводится переменная для открытия документа

Dim objSheet As Object

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Command1_Click()

'выгружаем Excel из памяти

    objBook.Close

    Set objBook = Nothing

    objExcel.Quit

    Set objExcel = Nothing

    'выгружаем форму из памяти

    Unload Me

End Sub

Private Sub Form_Load()

    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.Application")

        StartedNew = True

    End If

    On Error GoTo 0

'Set objExcel = CreateObject("Excel.Application")

'открытие файла с  базой

    Set objBook = objExcel.Workbooks.Open(App.Path & "\" & "baza.xls")

'открывает страницу  документа Excel

 Dim i%               'заполняем combobox

    For i = 1 To objBook.Sheets.Count

Combo1.AddItem objBook.Sheets(i).Name

Next i

End Sub

Private Sub Combo1_Click()

Set objSheet = objBook.Worksheets(Combo1.Text)

List1.Clear

objSheet.Activate

'передаётся управление  процедуре

    GetBaza2

End Sub

Private Sub GetBaza2()

Dim i1% 'заводится переменная значения Integer

    i1 = 1 'указывается значение (горизонтальная строка)

      Do While objSheet.Cells(i1, 1) <> "" '

        List1.AddItem objSheet.Cells(i1, 1) 'указывается от куда добавлять данные(строка, столбец)

        i1 = i1 + 1 'переход на следующую строку

    Loop '   

End Sub

Private Sub Command2_Click() '''добавление  записи

Dim i2 As Long

Set objSheet = objBook.Worksheets(1)

    i2 = 1

    While ActiveSheet.Cells(i2, 1).Value <> ""

        i2 = i2 + 1

    Wend

    If Text2 > 0 Then

    ActiveSheet.Cells(i2, 1).Value = Text1

    ActiveSheet.Cells(i2, 2).Value = Text2

    ActiveSheet.Cells(i2, 3).Value = Text3

    Else

    MsgBox "Недопустимое значение цены!"

    End If

End Sub

Private Sub Command3_Click() '''удаление записи

Dim i3%

i3 = 1

    Set objSheet = objBook.Worksheets(Combo1.Text)

        Do While objSheet.Range("A" & i3) <> ""

    If objSheet.Range("A" & i3) = List1.List(List1.ListIndex) Then

        objSheet.Rows(i3).Delete

    Else

        i3 = i3 + 1

    End If

    Loop

End Sub

Private Sub Command4_Click()

objBook.SaveAs (App.Path & "\" & "baza.xls")

End Sub

End Sub

¹ Объем базы данных зависит от количества хранимой в ней информации