End Sub. While Not (rstSpisok.EOF)

End Sub

Wend

RstSpisok.MoveNext

While Not (rstSpisok.EOF)

RstSpisok.MoveFirst

RstSpisok.MoveLast

If rstSpisok.EOF And rstSpisok.BOF Then Exit Sub

LstPrint.Clear

Dim i As Long

End Sub

Printer.EndDoc

Next i

Dim i As Integer

End Sub

FrmPrint.Hide

Public rstSpisok As Recordset

Public dbsData As Database

Private Sub cmbCancel_Click()

Private Sub cmbPrint_Click()

Dim strPrint As String

Set Printer = Printers(0)

Printer.Font.Name = "Times New Roman"

Printer.Font.Size = 14

For i = 0 To lstPrint.ListCount - 1

Printer.Print lstPrint.List(i)

Private Sub Form_Activate()

lstPrint.AddItem "СПИСОК УЧАЩИХСЯ КОМПЬЮТЕРНОЙ ШКОЛЫ"

lstPrint.AddItem ""

i = 1

lstPrint.AddItem CStr(i) + ". " + rstSpisok.Fields("Familie") + " " + rstSpisok.Fields("Imja") + " группа: " + CStr(rstSpisok.Fields("Group").Value)

i = i + 1

Private Sub Form_Load()

Set dbsData = OpenDatabase("dbLaba.mdb")

Set rstSpisok = dbsData.OpenRecordset("Spisok", dbOpenDynaset)

Сохраните проект. Проверьте работу приложения. В момент запуска формы frmPrint на экране отображаются данные в том виде, в каком они будут отправлены на печать. Уточните у преподавателя или лаборанта возможность распечатки списка, или дождитесь, пока преподаватель продемонстрирует работу данной функции всем студентам.

Запрограммируем работу пункта меню «Статистика». В данной части работы рассмотрим различные способы обработки числовой информации из БД. Создайте новую форму (frmStat) и разместите на ней элементы (txtKol, txtSrBall, txtWord, txtExel, txtAccss, cmbOk).

Следующий программный код реализует подсчет заданных значений.

Дата добавления: 2014-12-27