Учет выдачи гарантийных талонов (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

Список использованной литературы

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

Похожие записи