Защита базы данных спортивного магазина

           

            Dim rst As DAO.Recordset, db As Database

            Set db = CurrentDb

            Set rst = db.OpenRecordset("tovari")

            rst.AddNew

            rst.Fields("kod_tov").Value = Поле0

            rst.Fields("фирма").Value = Поле2

            rst.Fields("vid_tov").Value = Поле4

            rst.Fields("линия").Value = Поле7

            rst.Fields("kol-vo").Value = Поле9

            rst.Fields("kod_sp").Value = Поле11

            rst.Fields("cena").Value = Поле13

            rst.Update

            rst.Close

             Else

           

       MsgBox ("введите значение в пустое поле")

        End If

End Sub

                                           Форма “Наши заказы”

Private Sub Кнопка4_Click()

Dim s As String, db As Database, qdf As QueryDef

Set db = CurrentDb 

For Each qdf In db.QueryDefs

        If qdf.Name = "просмотр" Then

        db.QueryDefs.Delete (qdf.Name)

        Exit For

      End If

    Next qdf

     

    s = "SELECT tovari.фирма, tovari.линия, tovari.cena FROM tovari INNER JOIN tov_zak ON (tovari.kod_sp = tov_zak.kod_sp) AND (tovari.kod_tov = tov_zak.kod_tov) WHERE tov_zak.nom_pok=" + CStr(nom_pok.Value) + "" 

    Set qdf = db.CreateQueryDef("просмотр", s) 
 

  Список8.RowSource = "просмотр"

End Sub

                                           Форма “Удаление покупки”

Private Sub Кнопка2_Click()

Dim n As Integer

Dim rst As DAO.Recordset, s As String, qdf As QueryDef

If ПолеСоСписком3.ListIndex = -1 Then

MsgBox ("введите значение")

Else

Set db = CurrentDb

            Set rst = db.OpenRecordset("prod_tov")

             rst.Move ПолеСоСписком3.ListIndex

            rst.Delete

           

MsgBox ("покупка удалена")

End If

End Sub

Форма аторизации

Option Compare Database 
 

Private Sub Êíîïêà2_Click()

Dim stDocName As String

    Dim stLinkCriteria As String

     Dim admin As String

      Dim user As String

      user = 111

     Ïîëå2.SetFocus

If user = Ïîëå2.Text Then

    stDocName = "Êîïèÿ_êíîïî÷íàÿ_ôîðìà2"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

   

    kll1 = "1.txt"

    filer1 = FreeFile

    Open "D:\1.txt" For Append As filer1

    Print #filer1, "â ñèñòåìó âîøåë User" & "   âðåìÿ âõîäà: " & Date & " " & Time

Close filer1 

Else

MsgBox ("íåâåðíûé  ïàðîëü") 

kll2 = "1.txt"

    filer2 = FreeFile

Open "D:\1.txt" For Append As filer2

    Print #filer2, "îøèáêà àâòîðèçàöèè ïîëüçîâàòåëÿ User" & "   âðåìÿ ñîáûòèÿ: " & Date & " " & Time

Close filer2

Exit_Êíîïêà2_Click:

   Exit Sub 

Err_Êíîïêà2_Click:

    MsgBox Err.Description

    Resume Exit_Êíîïêà2_Click

    End If

          
 

End Sub 

Private Sub Êíîïêà3_Click()

On Error GoTo Err_Êíîïêà3_Click 

    Dim stDocName As String

    Dim stLinkCriteria As String

    Dim admin As String

    Dim user As String

    admin = 777

    Ïîëå1.SetFocus

   

If admin = Ïîëå1.Text Then

    stDocName = "êíîïî÷íàÿ_ôîðìà2"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

    kll = "1.txt"

    filer = FreeFile

    Open "D:\1.txt" For Append As filer

    Print #filer, "â ñèñòåìó âîøåë Admin" & "   âðåìÿ âõîäà: " & Date & " " & Time

Close filer 

Else

MsgBox ("íåâåðíûé  ïàðîëü")

kll3 = "1.txt"

    filer3 = FreeFile

Open "D:\1.txt" For Append As filer3

    Print #filer3, "îøèáêà àâòîðèçàöèè ïîëüçîâàòåëÿ Admin" & "   âðåìÿ ñîáûòèÿ: " & Date & " " & Time

Close filer3

Exit_Êíîïêà3_Click:

   Exit Sub 

Err_Êíîïêà3_Click:

    MsgBox Err.Description

    Resume Exit_Êíîïêà3_Click

    End If   

       

End Sub 
 
 
 
 
 
 

список используемой литературы:

- Справочная система MS Access

-Конспект по предмету “Базы Данных”

-www.wikipediya.ru