Автор Тема: VB +MS Access (база) + Pie Chart  (Прочитано 2830 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн alex007

  • Фанат форума
  • Ветеран
  • *****
  • Сообщений: 835
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.russians-in-london.co.uk/
VB +MS Access (база) + Pie Chart
« : 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)

Вот полный код 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 - (должна выводить кол-во товаров в категориях)

Вот полный код 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 из круга который потом будет делиться на кусочки епе здесь:


End Sub

Private Sub Form_Load()
    
Call DrawPieChart
End Sub



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

Моя проблема состоит в том что я не могу подсчитать в базе в поле Category сколько 1, 2, 3, и 4, и показать в форме frmPieChart


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

Жду Ответов.

С Уважением,
Алекс.
Русские-в-Лондоне. Как они там? Интересно. Инфо (FAQ), Форум и Магазин

Оффлайн alex007

  • Фанат форума
  • Ветеран
  • *****
  • Сообщений: 835
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.russians-in-london.co.uk/
VB +MS Access (база) + Pie Chart
« Ответ #1 : 26 Июня 2003, 15:21:39 »
Так что ни кто не знает VB (Visual Basic)? Дайте хоть ссылку где действительно можно прочесть, так как сколько книг перебрал/прочитал так и не нашел не одного примера.
Русские-в-Лондоне. Как они там? Интересно. Инфо (FAQ), Форум и Магазин

Оффлайн Oak

  • Дерево
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1481
  • +0/-0
  • 2
    • Просмотр профиля
    • http://
VB +MS Access (база) + Pie Chart
« Ответ #2 : 27 Июня 2003, 12:45:28 »
никто  :)

Google?
[основной броузер - SeaMonkey] Netscape Communicator 4 - is the best :) // see sources

Оффлайн alex007

  • Фанат форума
  • Ветеран
  • *****
  • Сообщений: 835
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.russians-in-london.co.uk/
VB +MS Access (база) + Pie Chart
« Ответ #3 : 27 Июня 2003, 15:05:01 »
Цитировать
Google?

Облазил почти все что было, подходящее по теме еще 2 недели назад, так и не нашел.
Русские-в-Лондоне. Как они там? Интересно. Инфо (FAQ), Форум и Магазин

Оффлайн Oak

  • Дерево
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1481
  • +0/-0
  • 2
    • Просмотр профиля
    • http://
VB +MS Access (база) + Pie Chart
« Ответ #4 : 30 Июня 2003, 14:35:39 »
Хмм.. тогда может
http://msdn.micorsoft.com -> search ?

Google: "MS Access Examples" ?
[основной броузер - SeaMonkey] Netscape Communicator 4 - is the best :) // see sources

Оффлайн alex007

  • Фанат форума
  • Ветеран
  • *****
  • Сообщений: 835
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.russians-in-london.co.uk/
VB +MS Access (база) + Pie Chart
« Ответ #5 : 13 Июля 2003, 23:01:54 »
Oak
Спасибо.
Это я прошел все что можно было, так и не нашел.

Но со мной поделились кодом теперь все работает.
Русские-в-Лондоне. Как они там? Интересно. Инфо (FAQ), Форум и Магазин

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28