>
rs.Fields ( ПІБ_клієнта )=TextBox2
rs.Fields ( Відсоток )=TextBox3
rs.Fields ( Термін_дії )=TextBox4
rs.Fields ( Загальна_сума )=TextBox5
rs.UpdateSubSub Del_Click (). delete.Value= .Value= .Value= .Value= .Value= Sub
Лістінг для форми «постачальником»
Dim cn As New ADODB.Connectionrs As New ADODB.RecordsetstrConn As StringSub Clear_Click (). Value= .Value= .Value= .Value= SubSub Con_Click () cn=CreateObject ( ADODB.Connection ) NEW STATEMENTrs=CreateObject ( ADODB.Recordset ) NEW STATEMENT= Driver={SQL Server}; Server=ANDRY; Database=Крамніця_Спорттоварів; amp; _
User ID= amp; login1 amp; laquo ;; Password= amp; pass1.Open strConn.CursorType=adOpenStatic.Open select * from Постачальник raquo ;, cn.MoveFirst
TextBox1.Value=rs! [ID_постачальніка]
TextBox2.Value=rs! [Назва_постачальніка]
TextBox3.Value=rs! [ID_адресі]
TextBox4.Value=rs! [Дата_поставок] SubSub Nex_Click (). MoveNextrs.EOF=True Then.MoveFirst
TextBox1.Value=rs! [ID_постачальніка]
TextBox2.Value=rs! [Назва_постачальніка]
TextBox3.Value=rs! [ID_адресі]
TextBox4.Value=rs! [Дата_поставок]
End IfSubSub Prev_Click (). MovePrevious
If rs.BOF=True Then
rs.MoveLast
Else
TextBox1.Value=rs! [ID_постачальніка]
TextBox2.Value=rs! [Назва_постачальніка]
TextBox3.Value=rs! [ID_адресі]
TextBox4.Value=rs! [Дата_поставок]
End IfSubSub dod_Click () rs=CreateObject ( ADODB.Recordset )
rs.CursorType=adOpenKeyset
rs.LockType=adLockOptimistic
rs.Open SELECT * FROM Постачальник raquo ;, cn
rs.AddNew
rs.Fields ( ID_постачальніка )=TextBox1
rs.Fields ( Назва_постачальніка )=TextBox2
rs.Fields ( ID_адресі )=TextBox3
rs.Fields ( Дата_поставок )=TextBox4
rs.UpdateSubSub Del_Click (). delete.Value= .Value= .Value= .Value= Sub
Лістінг для форми «Рахунок»
Dim cn As New ADODB.Connectionrs As New ADODB.RecordsetstrConn As StringSub Clear_Click (). Value= .Value= .Value= .Value= .Value = .Value= SubSub Con_Click () cn=CreateObject ( ADODB.Connection ) NEW STATEMENTrs=CreateObject ( ADODB.Recordset ) NEW STATEMENT= Driver= {SQL Server}; Server=ANDRY; Database=Крамніця_Спорттоварів; amp; _
User ID= amp; login1 amp; laquo ;; Password= amp; pass1.Open strConn.CursorType=adOpenStatic.Open select * from Рахунок raquo ;, cn.MoveFirst
TextBox1.Value=rs! [ID_рахунку]
TextBox2.Value=rs! [ID_товару]
TextBox3.Value=rs! [ID_зніжкі]
TextBox4.Value=rs! [ID_робітніка]
TextBox5.Value=rs! [Ціна]
TextBox6.Value=rs! [Дата_продажу] SubSub Nex_Click (). MoveNextrs.EOF=True Then.MoveFirst
TextBox1.Value=rs! [ID_рахунку]
TextBox2.Value=rs! [ID_товару]
TextBox3.Value=rs! [ID_зніжкі]
TextBox4.Value=rs! [ID_робітніка]
TextBox5.Value=rs! [Ціна]
TextBox6.Value=rs! [Дата_продажу]
End IfSubSub Prev_Click (). MovePrevious
If rs.BOF=True Then
rs.MoveLast
Else
TextBox1.Value=rs! [ID_рахунку]
TextBox2.Value=rs! [ID_товару]
TextBox3.Value=rs! [ID_зніжкі]
TextBox4.Value=rs! [ID_робітніка]
TextBox5.Value=rs! [Ціна]
TextBox6.Value=rs! [Дата_продажу]
End IfSub
Sub dod_Click () rs=CreateObject ( ADODB.Recordset )
rs.CursorType=adOpenKeyset
rs.LockType=adLockOptimistic
rs.Open SELECT * FROM Рахунок raquo ;, cn
rs.AddNew
rs.Fields ( ID_рахунку )=TextBox1
rs.Fields ( ID_товару )=TextBox2
rs.Fields ( ID_зніжкі )=TextBox3
rs.Fields ( ID_робітніка )=TextBox4
rs.Fields ( Ціна )=TextBox5
rs.Fields ( Дата_продажу )=TextBox6
rs.UpdateSub
Sub Del_Click (). delete
.Value= .Value= .Value= .Value= .Value= .Value= Sub
Лістінг для форми «Кадрі»
Dim cn As New ADODB.Connectionrs As New ADODB.RecordsetstrConn As StringSub Clear_Click (). Value= .Value= .Value= .Value= .Value = .Value= SubSub Con_Click ()
cn=CreateObject ( ADODB.Connection ) NEW STATEMENTrs=CreateObject ( ADODB.Recordset ) NEW STATEMENT= Driver={SQL Server}; Server=ANDRY; Database=Крамніця_Спорттоварів; amp; _
User ID= amp; login1 amp; laquo ;; Password= amp; pass1.Open strConn.CursorType=adOpenStatic.Open select * from Кадрі raquo ;, cn.MoveFirst
TextBox1.Value=rs! [ID_робітніка]
TextBox2.Value=rs! [ПІБ_робітніка]
TextBox3.Value=rs! [Посада]
TextBox4.Value=rs! [Адреси]
TextBox5.Value=rs! [Мобільній_телефон]
TextBox6.Value=rs! [Зарплата] SubSu...
