Створення Користувачів у базі даних
Створення ролей
Надання ролям прівілеїв
Створення логіну входу у систему та создания Користувачів
ДОДАТОК Д
Лістінг кодом інтерфейсу
Лістінг для форми «Авторизація»
Dim cn As New ADODB.ConnectionstrConn As StringSub CommandButton1_Click ()=TextBox1.Value=TextBox2.Value (TextBox1.Value= ) ThenIf= Driver={SQL Server}; Server=ANDRY; Database=Крамніця_Спорттоварів; amp; _
User ID= amp; login1 amp; laquo ;; Password= amp; pass1.Open strConn.Hide.ShowSubSub Label1_Click () Sub
Лістінг для форми «Меню»
Private Sub Autor_Click (). ShowSubSub tovaru_Click (). ShowSubSub Adressa_Click (). ShowSubSub posta_Click (). ShowSubSub rah_Click (). ShowSubSub znuzk_Click (). ShowSubSub author_Click (). ShowSubSub kadr_Click (). ShowSub
Лістінг для форми «товар»
Dim cn As New ADODB.Connectionrs As New ADODB.RecordsetstrConn As StringSub Clear_Click (). Value= .Value= .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! [Ціна_закупівлі]
TextBox7.Value=rs! [Опис]
TextBox8.Value=rs! [ID_постачальніка] SubSub Nex_Click (). MoveNextrs.EOF=True Then.MoveFirst
TextBox1.Value=rs! [ID_товару]
TextBox2.Value=rs! [Назва_моделі]
TextBox3.Value=rs! [Розмір]
TextBox4.Value=rs! [Колір]
TextBox5.Value=rs! [Матеріал]
TextBox6.Value=rs! [Ціна_закупівлі]
TextBox7.Value=rs! [Опис]
TextBox8.Value=rs! [ID_постачальніка]
End IfSubSub Prev_Click (). MovePrevious
If rs.BOF=True Then
rs.MoveLast
Else
TextBox1.Value=rs! [ID_товару]
TextBox2.Value=rs! [Назва_моделі]
TextBox3.Value=rs! [Розмір]
TextBox4.Value=rs! [Колір]
TextBox5.Value=rs! [Матеріал]
TextBox6.Value=rs! [Ціна_закупівлі]
TextBox7.Value=rs! [Опис]
TextBox8.Value=rs! [ID_постачальніка]
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 ( Розмір )=TextBox3
rs.Fields ( Колір )=TextBox4
rs.Fields ( Матеріал )=TextBox5
rs.Fields ( Ціна_закупівлі )=TextBox6
rs.Fields ( Опіс )=TextBox7
rs.Fields ( ID_постачальніка )=TextBox8
rs.UpdateSubSub Del_Click (). delete.Value= .Value= .Value= .Value= .Value= .Value= laquo ; .Value= .Value= Sub
Лістінг для форми «Знижка»
Dim cn As New ADODB.Connectionrs As New ADODB.RecordsetstrConn As StringSub Clear_Click (). 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! [Загальна_сума] SubSub Nex_Click (). MoveNextrs.EOF=True Then.MoveFirst
TextBox1.Value=rs! [ID_зніжкі]
TextBox2.Value=rs! [ПІБ_клієнта]
TextBox3.Value=rs! [Відсоток]
TextBox4.Value=rs! [Термін_дії]
TextBox5.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! [Відсоток]
TextBox4.Value=rs! [Термін_дії]
TextBox5.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
