Готовая контрольная работа
на тему:«Учет выдачи гарантийных талонов (VB 6.0)»
Цена: 750 руб.
Номер: V3114
Предмет: Программирование
Год: 2004
Тип: контрольные
Отзывы
После новогодних праздников буду снова Вам писать, заказывать дипломную работу.
Буду еще к Вам обращаться!!
СПАСИБО!!!
Спасибо, что ВЫ есть!!!
Поделиться
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
Похожие работы:
Учет и анализ финансовых результатов на примере ООО ПФК \ ➨
Результатом проведенного исследования по выбранной теме дипломной работы является обоснование общих выводов ...
Учет нематериальных активов предприятия ➨
В процессе финансово-хозяйственной деятельности ни одно предприятие не обходится без использования нематериальных ...
Учет и аудит нематериальных активов предприятия ➨
Актуальность темы дипломной работы обусловлена тем, что переход экономики России на рыночные отношения хозяйствования, ...
Учет труда и его оплата. Учет финансовых вложений. Практическое задание ➨
3. ПРАКТИЧЕСКОЕ ЗАДАНИЕ
Представим ситуацию, что работниками ЗАО «А» разработана компьютерная программа. Согласно ...
Раскрытие информации о готовой продукции на счетах бухгалтерского учета на основании действующих нормативных ...