ГОТОВЫЕ ДИПЛОМНЫЕ РАБОТЫ, КУРСОВЫЕ РАБОТЫ, ДИССЕРТАЦИИ И РЕФЕРАТЫ
Учет выдачи гарантийных талонов (VB 6.0) | |
| Автор | Ольга А. |
| Вуз (город) | СГТУ (Саратов) |
| Количество страниц | 0 |
| Год сдачи | 2004 |
| Стоимость (руб.) | 500 |
| Содержание | Основные функции: - Система учета номенклатуры товаров (сортировка по категории, производителю) - Учет выдачи гарантийных талонов на реализуемую номенклатуру - Справочник клиентов, «узнавание» постоянных покупателей - Карточки ремонта |
| Список литературы | Б. Сайлер Использование Visual Basic 6 |
| Выдержка из работы | 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 |