Похожие работы на «Проектирование и разработка баз и банков данных»

Проектирование и разработка баз и банков данных
Программирование и комп-ры, Проектирование и разработка баз и банков данных, MsgBox Error$ Resume Exit_ВызовФормы_Концентра_Click End Sub Sub Кнопка47_Click () On Error GoTo Err_Кнопка47_Click Dim DocName As String Dim ...
... Кнопка22].Доступ = 1 Forms![КонтрольныйСтвор]![Название].Доступ = 1 End Sub Sub ВыходИзФормыКонтроль_Click () On Error GoTo Err_ВыходИзФормыКонтроль


Програмирование на Visual Basic
Кибернетика, Програмирование на Visual Basic, Реферат Private Sub Commandl Click() Framel.Enabled = True Optioni.Enabled = True Option2.Enabled = True End Sub Private Sub Optionl_Click() Frame2.Enabled ...
... SeiText = "" 'удаление выделенного 'текста End Sub Sub mnuEditPaste_Click () txtEditBox.SeiText = Clipboard.GetText() End Sub Sub mnuFileExit


Разработка системы автоматизации для малого коммерческого предприятия работающего в сфере информационных услуг
Программирование и комп-ры, Разработка системы автоматизации для малого коммерческого предприятия работающего в сфере информационных услуг , Диплом и ... ... ДатаTMP3 = Forms![Месяц2]![Месяц] 'ДатаПМС = Format(ДатаTMP3, "m yy") Resume Дата End If If Err.Number = 424 Then Resume labelEnd End If If Err.Number ...
... ИнфоПоОрганизSub].Form.Visible = 0 Me![ИнфоПоОрганСистемы].Form.Visible = 0 MsgBox Err.Number Resume Exit_Кнопка6_Click DoCmd.Hourglass False End Sub ...


Организация баз данных [нестрогое соответствие]
Программирование и комп-ры, Организация баз данных, Курсовая MsgBox Err.Description Resume Exit_Кнопка20_Click End Sub Private Sub Кнопка33_Click() On Error GoTo Err_Кнопка33_Click Dim stDocName As String Dim ...
... MsgBox strMsg, intStyle, strTitle Resume Exit_OK_Click End Sub Private Sub Кнопка5_Click() On Error GoTo Err_Кнопка5_Click DoCmd.Close Exit_Кнопка5_ ...


Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде Windows 95/NT (дипломная ... [нестрогое соответствие]
Программирование и комп-ры, Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде ... ... Dim tmp As Integer Dim CurObject As Object Dim retShell As Long On Error GoTo Err1 If DocumentName.Text = "" Then MsgBox ("Необходимо заполнить поле ...
... Explicit Dim CurIndex As Integer Private Sub Browser_Click() On Error GoTo Err1 RegDialog.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly RegDialog. ...


Игра на ловкость Змейка [нестрогое соответствие]
Программирование и комп-ры, Игра на ловкость Змейка, Курсовая ... 1 End Sub Private Sub Left_Click() XDir = -1 YDir = 0 End Sub Private Sub Right_Click() XDir = 1 YDir = 0 End Sub Private Sub Command1_Click() End End ...
... Private Sub Exit_Click() КнопкаВыход_Click End Sub Private Sub NewGame_Click() КнопкаПовторить_Click End Sub Private Sub КнопкаВыход_Click() Unload ...


Считывание данных из гостевой книги в таблицу [нестрогое соответствие]
Программирование и комп-ры, Считывание данных из гостевой книги в таблицу, Курсовая ... ReadLine If InStr(1, strTemp, "X_FirstName") <> 0 Then ProcessContact End If Loop "Очистить ресурсы rst1.Close Set rst1 = Nothing txtobj1.Close Set ...
... CommandType = adCmdText .Execute End With Resume Else Debug.Print Err.Number; Err.Description Resume MyExit End If End Sub Function CleanText(strText ...


Программа на Delphi [нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад ... запись не прочитана, сразу выход из цикла} end; {Case} end; {цикла For} finally CloseFile(f1); {закрываем файл-источник} CloseFile(f2); {закрываем ...
... dr); {вернуться в текущую директорию} end; {if} end;{процедуры} Например, если необходимо стереть данные с дискеты, то это можно сделать с помощью ...


Курс лекций по V B 5.0 [нестрогое соответствие]
Программирование и комп-ры, Курс лекций по V B 5.0, Лекция ... 1 FontName = Screen.Fonts (I) Print "Это шрифт"; Screen.Fonts (I) Next I End Sub Неопределенные циклы Не выполняются фиксированное число раз.
... проверить значение переменной Grade = 2 Case Is < 18 Grade = 3 Case Is < 22 Grade = 4 Case Else Grade = 5 End Select Пример 1. If Then Else Private ...


Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей [нестрогое соответствие]
Программирование и комп-ры, Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей , Диплом и связанное с ним ... description} MessageDlg(Format('%d - %s%s', [Number, Description, Trim(ErrorStr)]), mtError, [mbOK], 0); end; {Unlike POP, SMTP does not require a ...
... if POP1.ProtocolState = popAuthorization then ConnectStatus.SimpleText := 'Authorization error'; {Get extended error information} for I := 1 to POP1. ...