Шрифт:
Интервал:
Закладка:
5.��������� � ������ General ��������� ���:
Dim � As Integer
Dim A(4) As String Dim B(4) As String
6.��������� � ��������� �������� ����� ��������� ���:
Private Sub Form_Load()
�(0) = "���������"
�(1) = "���� �������"
�(2) = "ISBN"
�(3) = "��. ��������"
For i = 0 �� 3 Combol.AddItem A(i)
Next i
Combo1.Listlndex = 0 B(0) = "Title"
B(l) = "[Year Published]"
B(2) = "ISBN"
B(3) = "PubID"
End Sub
7.��������� � ��������� ��������� ������� Click �������� ���������� ComboBox ��������� ���: Private Sub Combol_Click()
Dim strl As String strl = "select * From titles order by " & B(Combo1.Listlndex)
If Combo1.Listlndex = Empty Then strl = "select * From titles"
End If
Data1.RecordSource = strl
Data1.Refresh
End Sub
8.���������� ������ �� ����������.
����� �������� �����, ������ � ������� DBGrid ����� ���������� � ��������������� ����, ������, ������ ����� ��������� � ���������� �������, �� ���� � ���, � ������� ��� ���� ������� � ���� ������, ���� � �������� ���������� ComboBox ����� �������� ��� ���������. ����� �������� �� ������ ������ ��������� ������ ������������, ��������, ��� ���� ��������. ����� ��������� ������� Click ����� ������ ����� ����� �������, ���������� ������ ��� �������� ����� ������� ��������� ���������� ���������� SQL-������� select * From titles order by [Year Published].
�� ���.�4.3 ������������ ����������������� ���������� �� ���� ������ BIBLI�2.MDB, ������������� �� ���� ������� �����.
���.�4.3. ����������������� ������, ������������� �� ���� ������� �����.
������ ������� Data� Refresh
����� ��������� �������� ������� Data �� ����� ���������� ����������, ���� ������� ���������� ������ ������ Jet database engine ����� �� ������ ����� ��� ������������� ��������. ������ ������, ������ �������� � ��������� ���� ������������� �������� �� ������ ����������. ���������� ������ ���������������� ������ ���������� �������, ������� ����� ������������� ������� ������ ������� ������� � ������ (��������, DataBase ��� Recordset) � ��� ������ ����������. ��� ����� ���������� ��������� ����� Refresh. ����� �������, ����� Refresh ������������ ��� ����, ����� �� ����� ���������� ���������� �������������������� ������ ���������� �������, �� ��� � ������ ����������.
���������: Data1.Refresh.
����� ���������� ������ Refresh ��������� ������� ������ ��������������� �� ������ ������ � ������, ��������� �������� Data.
� UpdateControls
�������� ������ UpdateControls ��������� ���������� ������������� ��������� ������� ������ �� ����. ��� ����, ��������� �������� ���������� ��������� �, �����, �� ���������� ����������������� �������� ������� ������. �� ����, ������� ��������� ����� ���� ������ �� ����������, ���� ���� ���������� ��������� ��������� ���������� ���� ���������������.
���������: Data1.UpdateControls.
������� ������������ ������������� ������ UpdateControls �������� �������������� ������������ ����������� ����������� ��������� ��������� ����������� ������� ������. ��� ����� ���������� ��������� � ��������� ��������� ������� Validate ������� Data.
1.��������� ������, ������� ������������� ��� ������������ �������� ������ � �������� ��������� �������� ���� � ��������� ��������� ������� Validate:
Private Sub Data1_Validate(Action As Integer, Save As Integer)
If Save = False Then Exit Sub
End If
If MsgBox("Coxpa���� ��������� ���������",vbYesNo,"","",0)=vbNo Then
Data1.UpdateControls
Exit Sub
End If
End Sub
2.���������� ����������.
3.��������� ���������� ������-������ ���������� ���������� ����, ��������, ���� �������, �, ��������� ������ ����������� �� ������ �������, �������� ��������� ������� ������. � ����������, �� ����� ����� ������ ���������� ����, � ������� ����� ����������� ��� �������� ��������� ���������.
4.��������� ����������.
� UpdateRecord
����� UpdateRecord ��������� � ���� ������ ���������� ������� ������, ������������ � ��������� ��������� ����������.
���������: Data1.UpdateRecord.
������������� ����� ������ ��������� ��������� ���������� ��������� ��������� ���������� � ���� ������ ��� ����������� ��������� ������� ������. ��� ���� �� ������������ ������� Validate. ������� ��������, ��� ����� �������������� ����� ������ ���������� ���������, ��� ��������� ������� ����������� ���� ������.
��������� ������ ����������, ��� ������������ � ����������� ����� UpdateRecord:
1.��������� ������, �������������� ��� ������������ ������ UpdateControls.
2.����������� �� ����� ��������� ������, �������� �� �������� Caption �� ��������� ������ � �������� ��������� ��� � ��������� ��������� ������� Click:
Private Sub Command2_Click()
Data1.UpdateRecord End Sub
3.���������� ������. �������������� ���������� ��������� ��������� ���������� � ������� ������ ��������� ������. ������, ��������� ���� ��������� ��������� � ���� ������.
�������� Error
������� Error ����������, ����� ��� ������������� ������� Data ��������� �����-���� ������ ������� � ������, ������ � ��� ����� �����������