Читаем Программирование для карманных компьютеров полностью

6. Написать код процедуры нажатия кнопки Connect, который приведен в листинге 6.28. Листинг 6.28

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button1.Click

\'Создаем объект соединения

dbc = New SqlServerCe.SqlCeConnection

\'Задаем значение строки соединения

dbc.ConnectionString = «Data Source=\NorthwindDemo.sdf»

\'Создаем объект таблицы

dbt = New DataTable(«Customers»)

\'Связываем объект команды и соединение

dbcm.Connection = dbc

\'Создаем объект адаптера, в качестве аргумента передавая ему команду

dba = New SqlServerCe.SqlCeDataAdapter(dbcm)

\'Адаптер выполняет команду, и результатом ее выполнения заполняет

\'таблицу dba.Fill(dbt)

\'Связываем элементы отображения данных с полями таблицы

TextBox4.DataBindings.Add(«Text», dbt, «CustomerID»)

TextBox5.DataBindings.Add(«Text», dbt, «CompanyName»)

TextBox6.DataBindings.Add(«Text», dbt, «ContactName»)

TextBox7.DataBindings.Add(«Text», dbt, «City»)

TextBox8.DataBindings.Add(«Text», dbt, «Country»)

TextBox9.DataBindings.Add(«Text», dbt, «Phone»)

TextBox10.DataBindings.Add(«Text», dbt, «FAX»)

End Sub

7. Написать код процедуры нажатия кнопки Disconnect, который приведен в листинге 6.29. Листинг 6.29

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button2.Click

dbc.Close()

dbt.Clear()

TextBox4.DataBindings.Clear()

TextBox5.DataBindings.Clear()

TextBox6.DataBindings.Clear()

TextBox7.DataBindings.Clear()

TextBox8.DataBindings.Clear()

TextBox9.DataBindings.Clear()

TextBox10.DataBindings.Clear()

End Sub

Обратите внимание на необходимость в этом случае «отвязать» контекст, иначе в результате повторного присоединения к данным возникнет ошибка.

8. Обработка событий щелчка на кнопках навигации по набору данных, собранному в таблице, показана в листинге 6.30.

Листинг 6.30

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button4.Click

\'Предыдущая запись

Me.BindingContext(dbt). Position – = 1

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button3.Click

\'Первая запись

Me.BindingContext(dbt). Position = 0

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button6.Click

\'Последняя запись

Me.BindingContext(dbt). Position = Me.BindingContext(dbt). Count – 1

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button5.Click

\'Следующая запись

Me.BindingContext(dbt). Position += 1

End Sub

9. Теперь можно запустить программу и нажать кнопку Connect. Компоненты TextBox будут заполнены информацией из таблицы Customers. Следует убедиться, что переход между записями осуществляется корректно. После нажатия кнопки Disconnect компоненты TextBox должны быть очищены (рис. 6.24).

Рис. 6.24. Работающее приложение.

Перейти на страницу:

Похожие книги

1С: Бухгалтерия 8 с нуля
1С: Бухгалтерия 8 с нуля

Книга содержит полное описание приемов и методов работы с программой 1С:Бухгалтерия 8. Рассматривается автоматизация всех основных участков бухгалтерии: учет наличных и безналичных денежных средств, основных средств и НМА, прихода и расхода товарно-материальных ценностей, зарплаты, производства. Описано, как вводить исходные данные, заполнять справочники и каталоги, работать с первичными документами, проводить их по учету, формировать разнообразные отчеты, выводить данные на печать, настраивать программу и использовать ее сервисные функции. Каждый урок содержит подробное описание рассматриваемой темы с детальным разбором и иллюстрированием всех этапов.Для широкого круга пользователей.

Алексей Анатольевич Гладкий

Программирование, программы, базы данных / Программное обеспечение / Бухучет и аудит / Финансы и бизнес / Книги по IT / Словари и Энциклопедии
1С: Управление торговлей 8.2
1С: Управление торговлей 8.2

Современные торговые предприятия предлагают своим клиентам широчайший ассортимент товаров, который исчисляется тысячами и десятками тысяч наименований. Причем многие позиции могут реализовываться на разных условиях: предоплата, отсрочка платежи, скидка, наценка, объем партии, и т.д. Клиенты зачастую делятся на категории – VIP-клиент, обычный клиент, постоянный клиент, мелкооптовый клиент, и т.д. Товарные позиции могут комплектоваться и разукомплектовываться, многие товары подлежат обязательной сертификации и гигиеническим исследованиям, некондиционные позиции необходимо списывать, на складах периодически должна проводиться инвентаризация, каждая компания должна иметь свою маркетинговую политику и т.д., вообщем – современное торговое предприятие представляет живой организм, находящийся в постоянном движении.Очевидно, что вся эта кипучая деятельность требует автоматизации. Для решения этой задачи существуют специальные программные средства, и в этой книге мы познакомим вам с самым популярным продуктом, предназначенным для автоматизации деятельности торгового предприятия – «1С Управление торговлей», которое реализовано на новейшей технологической платформе версии 1С 8.2.

Алексей Анатольевич Гладкий

Финансы / Программирование, программы, базы данных