Содержание
Основные функции:
— Система учета номенклатуры товаров
(сортировка по категории, производителю)
— Учет выдачи гарантийных талонов на реализуемую номенклатуру
— Справочник клиентов, «узнавание» постоянных покупателей
— Карточки ремонта
Выдержка из текста
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