Технологические аспекты разработки ПО АСОИУ. - 35 стр.

UptoLike

Рубрика:

Это событие происходит, когда выгружается MDIForm, оператор End

немедленно закрывает приложение. После этого оператора не выполняется

никакой код и не происходят никакие события.

Private Sub mnuFileOpen_Click()

call DBFilesMDBproc

End Sub

С помощью ключевого слова Call вызывается процедура

DBFilesMDBproc, которая описывается в стандартном модуле. Он имеет

расширение BAS и может содержать объявление открытых (public) или ис-

пользуемых в модуле типов, констант, переменных, внешних процедур и от-

крытых процедур.

События и функции, используемые в DBgrid

DBgrid является подчиненной формой MDIForm1 и формой редактиро-

вания БД.

Private Sub Form_Load()

On Error GoTo errhandler

Frame1.Visible = False

mNoRowSetYet = True

Adodc1.Caption = "0"

Set rs = New Recordset

Me.lblDatabase = "Database:" + gFileSpec

Me.lblTable = "Table:" + gTableName

rs.Open "select * from [" & gTableName & "]", gAcnn,

adOpenStatic, adLockOptimistic

If rs.EOF Then

mreccount = 0

MsgBox "No record in table"

Exit Sub

End If