Forum Webscript.Ru

Разное => Флейм => Тема начата: alex007 от 24 Июня 2003, 23:52:17

Название: VB +MS Access (база) + Pie Chart
Отправлено: alex007 от 24 Июня 2003, 23:52:17

Приветик,

Есть MS Access базе только одна таблица с четырмя категориями книг: 1, 2, 3, 4.

MS Access
таблица bookstock
ISBN_No - Текст
Title - Текст
Category - Цыфры
Publisher - Текст
Price - Единицы валют (Currency)
NoInStock - Цыфры

2 формы:
frmBook - (показывает базу из MS Access-а через Datacontrol)
(http://www.sasha-uk.hotbox.ru/vb/frmBook.jpg)
Вот полный код frmBook :
Private Sub cmdAction_Click(Index As Integer)
    Select Case Index
            Case 0
            \'the New Record button
                datData1.Recordset.AddNew
            Case 1
            \'the Delete button
                datData1.Recordset.Delete
                cmdNavigation_Click (2)
            Case 2
            \'the Update button
                datData1.Recordset.Update
            Case 3
            \'the print button
               
            Case 4
            \'the Pie Chart button
                             
                frmBook.Hide
                frmPieChart.Show
             
            Case 5
            \'the Exit button
                End
    End Select
End Sub

Private Sub cmdNavigation_Click(Index As Integer)
    Select Case Index
            Case 0      \'the << button
                datData1.Recordset.MoveFirst
                cmdNavigation(0).Enabled = False
                cmdNavigation(1).Enabled = False
                cmdNavigation(2).Enabled = True
                cmdNavigation(3).Enabled = True
            Case 1      \'the < button
                datData1.Recordset.MovePrevious
                cmdNavigation(2).Enabled = True
                cmdNavigation(3).Enabled = True
                    If datData1.Recordset.BOF Then
                            datData1.Recordset.MoveFirst
                            cmdNavigation(0).Enabled = False
                            cmdNavigation(1).Enabled = False
                    End If
            Case 2      \'the > button
                datData1.Recordset.MoveNext
                cmdNavigation(0).Enabled = True
                cmdNavigation(1).Enabled = True
                    If datData1.Recordset.EOF Then
                            datData1.Recordset.MoveLast
                            cmdNavigation(2).Enabled = False
                            cmdNavigation(3).Enabled = False
                    End If
            Case 3      \'the >> button
                datData1.Recordset.MoveLast
                cmdNavigation(0).Enabled = True
                cmdNavigation(1).Enabled = True
                cmdNavigation(2).Enabled = False
                cmdNavigation(3).Enabled = False
    End Select
End Sub

Private Sub txtCategory_LostFocus()
\' validation of the Category field
If Len(txtCategory.Text) > 20 Then
  MsgBox "Cannot be more than 20 chars"
  txtCategory.SetFocus
End If
End Sub


Private Sub txtISBN_KeyPress(KeyAscii As Integer)
\' validation of the ISBN field
If KeyAscii = vbKeySpace Then
  MsgBox "No Spaces, Please!", vbExclamation + vbOKOnly, "Input Error"
  KeyAscii = 0
  txtISBN.SetFocus
End If
End Sub

Private Sub txtNoInStock_KeyPress(KeyAscii As Integer)
\' validation of the oInStock field
If KeyAscii < 48 Or KeyAscii > 57 Or KeyAscii = vbKeySpace Then
        MsgBox "Numbers 0 to 9 only and without space, Please!", vbExclamation + vbOKOnly, "Input Error"
        KeyAscii = 0
         txtNoInStock.SetFocus
End If
End Sub



frmPieChart - (должна выводить кол-во товаров в категориях)
(http://www.sasha-uk.hotbox.ru/vb/frmPieChart.jpg)
Вот полный код frmPieChart:
Const CATEGORY1 = &HFF& \'red
Const CATEGORY2 = &HFF0000 \'blue
Const CATEGORY3 = &HFFFF& \'yellow
Const CATEGORY4 = &HC000& \'green


Private Sub cmdOk_Click()
    \'hide the PieChart form
        frmPieChart.Hide
    \'display the PieChart form
        frmBook.Show
End Sub

Sub DrawPieChart()

Вот здесь и будет подсчитываться Категория книг и рисоваться Pie Chart из круга который потом будет делиться на кусочки епе здесь:
(http://www.sasha-uk.hotbox.ru/vb/piechart.jpg)

End Sub

Private Sub Form_Load()
    Call DrawPieChart
End Sub



1 Модуль - (в нем следующая строка Global Data(4) As Integer)

Моя проблема состоит в том что я не могу подсчитать в базе в поле Category сколько 1, 2, 3, и 4, и показать в форме frmPieChart
(http://www.sasha-uk.hotbox.ru/vb/frmPieChart2.jpg)

Все действие долно произходить на клик кнопки из формы frmBook.

Жду Ответов.

С Уважением,
Алекс.

Название: VB +MS Access (база) + Pie Chart
Отправлено: alex007 от 26 Июня 2003, 15:21:39

Так что ни кто не знает VB (Visual Basic)? Дайте хоть ссылку где действительно можно прочесть, так как сколько книг перебрал/прочитал так и не нашел не одного примера.

Название: VB +MS Access (база) + Pie Chart
Отправлено: Oak от 27 Июня 2003, 12:45:28

никто  :)

Google?

Название: VB +MS Access (база) + Pie Chart
Отправлено: alex007 от 27 Июня 2003, 15:05:01

Цитировать

Google?

Облазил почти все что было, подходящее по теме еще 2 недели назад, так и не нашел.

Название: VB +MS Access (база) + Pie Chart
Отправлено: Oak от 30 Июня 2003, 14:35:39

Хмм.. тогда может
http://msdn.micorsoft.com -> search ?

Google: "MS Access Examples" ?

Название: VB +MS Access (база) + Pie Chart
Отправлено: alex007 от 13 Июля 2003, 23:01:54

Oak
Спасибо.
Это я прошел все что можно было, так и не нашел.

Но со мной поделились кодом теперь все работает.