Главная - IT - Программирование - Учет выдачи гарантийных талонов (VB 6.0)

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

  • Тема: Учет выдачи гарантийных талонов (VB 6.0)
  • Автор: Ольга А.
  • Тип работы: Контрольная
  • Предмет: Программирование
  • Страниц: 0
  • Год сдачи: 2004
  • ВУЗ, город: СГТУ (Саратов)
  • Цена(руб.): 500 рублей

Купить
Заказать оригинальную работу


Выдержка

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

Купить
Заказать оригинальную работу


Похожие работы

Название Тип Год сдачи Страниц ВУЗ, город Цена
Программа-конвектор из одной величины в другую (C#, XML) Контрольная 2007 2 в ВУЗах не сдавалась (писалась как тестовая программа) 500 Купить Заказать
оригинальную
Ответы к контрольному заданию № 4 по курсу «Программирование в среде Delphi» Контрольная 2006 20 ЗАОЧНЫЙ ТЕХНИКУМ МИФИ 500 Купить Заказать
оригинальную
Контрольная (Pascal) Контрольная 2007 1 КурскГТУ 500 Купить Заказать
оригинальную
Контрольная (Delphi) Контрольная 2007 1 КурскГТУ 500 Купить Заказать
оригинальную
Развивающая игра "Посчитай фигуры" Контрольная 2007 23 КурскГТУ 500 Купить Заказать
оригинальную
ООП в С++ (Borland C++ Builder) Контрольная 2008 1 КурскГТУ 500 Купить Заказать
оригинальную
Ассемблер (контрольная работа). Контрольная 2008 13 СибГУТИ 450 Купить Заказать
оригинальную
Языки и системы программирования Контрольная 2008 14 РГППУ(ЭЛиН) Екатеринбург 500 Купить Заказать
оригинальную
Программирование на языке высокого уровня (ПЯВУ) Контрольная 2009 0 ОмГТУ 1200 Купить Заказать
оригинальную
Программирование на языке высокого уровня (ПЯВУ) Контрольная 2009 0 ОмГТУ 1200 Купить Заказать
оригинальную