Разработка информационных систем финансового анализа учреждений (Eurasian Foods)

Form9.Show

Form10.Show

End Sub

Private Sub mnuСклад5_Click()

Form9.Caption = "Склад№5"

Form9.Show

Form10.Show

End Sub

Private Sub mnuСклад6_Click()

Form9.Caption = "Склад№6"

Form9.Show

Form10.Show

End Sub

'Private Sub mnuВид_Click()

''Form5.Show

'End Sub

Private Sub mnuОтчет_Click()

Form7.Show

End Sub

Private Sub mnuПокупатель_Click()

Form4.Show

End Sub

Private Sub mnuПриход_препарат_Click()

Form3.Visible = True

End Sub

Private Sub mnuРаспределение_Click()

Form6.Show

End Sub

Private Sub Timer1_Timer()

Label2.Caption = "" & Time

End Sub

 

Private Sub Command1_Click()

If Combo1.Text = "" Then

MsgBox ("Введите Логин")

Exit Sub

End If

If Combo1.Text = "Администратор" And Text1.Text = 777 Then

Form10.Hide

Exit Sub

End If

If Combo1.Text = "Склад№1" And Text1.Text = 1 Then

Form10.Hide

Exit Sub

End If

If Combo1.Text = "Склад№2" And Text1.Text = 2 Then

Form10.Hide

Exit Sub

End If

If Combo1.Text = "Склад№3" And Text1.Text = 3 Then

Form10.Hide

End If

If Combo1.Text = "Склад№4" And Text1.Text = 4 Then

Form10.Hide

Exit Sub

End If

If Combo1.Text = "Склад№5" And Text1.Text = 5 Then

Form10.Hide

Exit Sub

End If

If Combo1.Text = "Склад№6" And Text1.Text = 6 Then

Form10.Hide

Exit Sub

End If

MsgBox ("Пароль  не верен")

End Sub

Private Sub Command2_Click()

Form1.Show

Form10.Hide

Form9.Hide

End Sub

 

Private Sub Timer1_Timer()

Form1.Show

Form11.Hide

Unload Me

End Sub

Private Sub Timer2_Timer()

Shape1.Visible = True

End Sub

Private Sub Timer3_Timer()

Shape2.Visible = True

End Sub

Private Sub Timer4_Timer()

Shape3.Visible = True

End Sub

Private Sub Timer5_Timer()

Shape4.Visible = True

End Sub

Private Sub Timer6_Timer()

Shape5.Visible = True

End Sub

Private Sub Timer7_Timer()

Shape6.Visible = True

End Sub

Private Sub Timer8_Timer()

Shape7.Visible = True

End Sub

Private Sub Timer9_Timer()

Shape8.Visible = True

End Sub

 

Dim rs As Recordset

Dim db As Database

Private Sub Command1_Click()

'On Error Resume Next

Set db = OpenDatabase("C:\Torg\Клиника.mdb")

Dim strQuery1 As String

strQuery1 = "Select*FROM Поставщик"

Adodc1.RecordSource = strQuery1

Adodc1.Refresh

'Set rs = db.OpenRecordset(strQuery1)

             Adodc1.Recordset.AddNew

            Adodc1.Recordset.Fields("Код") = Text2.Text

             Adodc1.Recordset.Fields("Вид") = Combo1.Text

             Adodc1.Recordset.Fields("Полное_наименование") = Text3.Text

             Adodc1.Recordset.Fields("Юридический_адрес") = Text4.Text

             Adodc1.Recordset.Fields("Почтовый_адрес") = Text5.Text

             Adodc1.Recordset.Fields("Телефоны") = Text6.Text

             Adodc1.Recordset.Fields("ИНН") = Text7.Text

             'Adodc1.Recordset.Fields("Банк") = Combo2.Text

             'Adodc1.Recordset.Fields("БИК") = Text1.Text

             'Adodc1.Recordset.Fields("РНН") = Text8.Text

              Adodc1.Recordset.Update

        DataGrid1.Refresh

        Set db = OpenDatabase("C:\Torg\Клиника.mdb")

           Set rs = db.OpenRecordset(strQuery1)

With Adodc1

    .RecordSource = strQuery1

    .Refresh

    End With

    Text2.Text = ""

    Combo1.Text = ""

    Text3.Text = ""

    Text4.Text = ""

    Text5.Text = ""

    Text6.Text = ""

    Text7.Text = ""

    Combo2.Text = ""

    Text1.Text = ""

    Text8.Text = ""

End Sub

Private Sub Command3_Click()

On Error Resume Next

DataReport2.Show

End Sub

Private Sub Command4_Click()

If DataGrid1.Visible = True Then

DataGrid1.Visible = False

Command4.Caption = "Показать"

Else

DataGrid1.Visible = True

Command4.Caption = "Закрыть"

End If

End Sub