Учет выдачи гарантийных талонов (VB 6.0)

Краткая выдержка из текста работы (Аннотация)

Dim str As String

If Trim(Text1.Text) "" And IsNumeric(Text2.Text) Then

str = "Select Name from Category Where Name='" & Trim(Text1.Text) & "'"

Adodc3.CommandType = adCmdText

Adodc3.RecordSource = str

Adodc3.Refresh

If Adodc3.Recordset.EOF = True Then

Adodc2.Recordset.AddNew

Adodc2.Recordset.Fields("Name") = Trim(Text1.Text)

Adodc2.Recordset.Fields("DateLong") = CLng(Text2.Text)

Adodc2.Recordset.Update

MsgBox "Запись успешно добавлена", vbOKOnly, "Информация"

Adodc1.Refresh

DataGrid1.Refresh

Else: MsgBox "Запись уже существует", vbCritical, "Ошибка"

End If

Else: MsgBox "Не верно введены данные", vbCritical, "Ошибка"

End If

Содержание работы

Основные функции:

- Система учета номенклатуры товаров

(сортировка по категории, производителю)

- Учет выдачи гарантийных талонов на реализуемую номенклатуру

- Справочник клиентов, «узнавание» постоянных покупателей

- Карточки ремонта

Использованная литература

1. Б. Сайлер Использование Visual Basic 6

Другие похожие работы

• Курсовая - Генетические алгоритмы
• Контрольная - Система массового обслуживания
• Курсовая - Автоматизированная система редких книг
• Курсовая - Проектирование_многоразрядного_десятичного_сумматора_комбинационного_типа
• Курсовая - Финансовый менеджмент его сущность и решаемые задачи
• Контрольная - Программирование на языке высокого уровня (ПЯВУ)
• Учебник - Программирование графики в среде Turbo Pascal 7
• Дипломная - Разработка программы автоматизированной классификации информационных сообщений СМИ по заданным тематикам
• Курсовая - Пункт продажи билетов на автобусы дальнего следования (VB 6.0)
• Реферат - Линейное программирование.