Программирование
Веб программирование

VB базы данных. Убираем эту убогую Data в Visual Basic

 
 

Почему злой дядька Билл Гейц сделал такую уродскую Data? На этот вопрос может ответить только он сам, но к счастью у Date есть несколько свойств, и c помощью них можно заменить Data, на свои кнопки. Для этого усовершенствуем программу, которую ты сделал на 70 шаге. У объекта Data свойство Visible = False, это чтоб ее скрыть, на форму кинь 4 кнопки. У 1 - ой кнопке свойство Caption = "<", у 2 - ой = ">", у 3 - ей = "|<", у 4 - ой = ">|".

Private Sub Command1_Click()
Data1.Recordset.MovePrevious 'Предыдущая запись
If Data1.Recordset.BOF Then Data1.Recordset.MoveNext 'Тут, если дошло до самой первой записи, и ты еще 2 раза нажмешь на кнопку, то выскочит Error, и чтобы этого не произошло, мы каждый раз, когда запись равна первой, и ты еще раз жмешь на кнопку, сдвигаем ее в перед.
End Sub

Private Sub Command2_Click()
Data1.Recordset.MoveNext 'Следующая запись
If Data1.Recordset.EOF Then Data1.Recordset.MovePrevious 'Здесь все тоже самое, только наоборот
End Sub

Private Sub Command3_Click()
Data1.Recordset.MoveFirst 'Первая запись
End Sub

Private Sub Command4_Click()
Data1.Recordset.MoveLast 'Последняя запись
End Sub

Исходник - Здесь Теперь научимся Удалять и создавать новые записи.


Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

Оставлять комментарии можно только зарегистрированным




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