Постановка задачи на ЭИС

 

    End Sub

 

    Private Sub ParkmansBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Me.Validate()

        Me.ParkmansBindingSource.EndEdit()

        Me.ParkmansTableAdapter.Update(Me.AppDatabase1DataSet1.parkmans)

 

    End Sub

 

    Private Sub ParkmansBindingNavigatorSaveItem_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Me.Validate()

        Me.ParkmansBindingSource.EndEdit()

 

        Me.ParkmansTableAdapter.Update(Me.AppDatabase1DataSet1.parkmans)

 

    End Sub

 

    Private Sub ParkmansBindingNavigatorSaveItem_Click_3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ParkmansBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.ParkmansBindingSource.EndEdit()

        Me.ParkmansTableAdapter.Update(Me.AppDatabase1DataSet1.parkmans)

 

    End Sub

End Class

Листинг В.15 - Модуль Pay

Public Class pay

 

    Private Sub pay_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: Данная строка кода позволяет загрузить данные в таблицу "AppDatabase1DataSet1.Dog". При необходимости она может быть перемещена или удалена.

        Me.DogTableAdapter.Fill(Me.AppDatabase1DataSet1.Dog)

        'TODO: Данная строка кода позволяет загрузить данные в таблицу "AppDatabase1DataSet1.money_dog". При необходимости она может быть перемещена или удалена.

        Me.Money_dogTableAdapter.Fill(Me.AppDatabase1DataSet1.money_dog)

        MonthCalendar1.TodayDate = System.DateTime.Now

    End Sub

 

    Private Sub Money_dogBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Me.Validate()

        Me.Money_dogBindingSource.EndEdit()

        Me.Money_dogTableAdapter.Update(Me.AppDatabase1DataSet1.money_dog)

 

    End Sub

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim number As String = TextBox1.Text

        Dim summa As String = TextBox2.Text

        Dim date_pay As Date = MonthCalendar1.TodayDate

        Dim flag As Boolean = False

        Dim flag1 As Boolean = False

        Dim row As DataRow

 

        Me.DogTableAdapter.Fill(Me.AppDatabase1DataSet1.Dog)

        For Each row In AppDatabase1DataSet1.Dog.Select("number ='" + number + "'")

            If row.ItemArray(0) <> Nothing Then

                flag = True

            End If

            If row.ItemArray(20) = 1 Then

                flag1 = True

            End If

        Next

 

 

        If flag = True And flag1 = False Then

 

 

            My.Forms.oplata_dog.Money_dogTableAdapter.Insert(number, date_pay, summa, 0)

            Me.Close()

        Else

            If flag = False Then

 

 

                MsgBox("Договора №" + number + "Не существует для того чтоб оплатить услугу создайте договор!!!")

            Else

 

                MsgBox("Договор №" + number + "Расторгнут Нельзя Провести платёж по расторгнутому договору!!!")

            End If

 

            End If

    End Sub

End Class

Листинг В.16 - Модуль Pay_night

Public Class pay_night

 

    Private Sub Money_allBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Me.Validate()

        Me.Money_allBindingSource.EndEdit()

        Me.Money_allTableAdapter.Update(Me.AppDatabase1DataSet1.money_all)

 

    End Sub

 

    Private Sub pay_night_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: Данная строка кода позволяет загрузить данные в таблицу "AppDatabase1DataSet1.parkmans". При необходимости она может быть перемещена или удалена.

        Me.ParkmansTableAdapter.Fill(Me.AppDatabase1DataSet1.parkmans)

        'TODO: Данная строка кода позволяет загрузить данные в таблицу "AppDatabase1DataSet1.money_all". При необходимости она может быть перемещена или удалена.

        Me.Money_allTableAdapter.Fill(Me.AppDatabase1DataSet1.money_all)

        My.Forms.oplata_dog.Close()

 

    End Sub

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Close()

 

    End Sub

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim summa As String = Me.TextBox1.Text

        Dim from As String = Me.AccauntComboBox1.Text

        Dim naimenovanie As String = TextBox2.Text

        Dim date_p As Date = DateTimePicker1.Value

        Dim from1 As String = AccauntComboBox.Text

        If from1 <> Nothing Then

            summa = summa / 2

        End If

        If from1 <> Nothing Then

            Money_allTableAdapter.Insert(summa, from1, naimenovanie, date_p)

            Money_allTableAdapter.Fill(Me.AppDatabase1DataSet1.money_all)

 

        End If

        If from <> Nothing Then

 

 

            Money_allTableAdapter.Insert(summa, from, naimenovanie, date_p)

            Money_allTableAdapter.Fill(Me.AppDatabase1DataSet1.money_all)

        Else

            MsgBox("Незаполнено первое поле Акаунт парковщика Оно Является обязательным!!!")

        End If

 

        Me.Close()

        My.Forms.oplata_dog.Show()

 

    End Sub

End Class

 

 

Листинг В.17 - Модуль Proch_rash

Public Class proch_rash

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Close()

 

    End Sub

 

    Private Sub Money_outBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Me.Validate()

        Me.Money_outBindingSource.EndEdit()

        Me.Money_outTableAdapter.Update(Me.AppDatabase1DataSet1.money_out)

 

    End Sub

 

    Private Sub proch_rash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: Данная строка кода позволяет загрузить данные в таблицу "AppDatabase1DataSet1.money_out". При необходимости она может быть перемещена или удалена.

        Me.Money_outTableAdapter.Fill(Me.AppDatabase1DataSet1.money_out)

 

    End Sub

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim summa As String = Me.TextBox1.Text

        Dim to_ As String = Me.TextBox3.Text

        Dim naznachenie As String = Me.TextBox2.Text

        Dim date_p As Date = Me.DateTimePicker1.Value

        Try

            Money_outTableAdapter.Insert(summa, to_, naznachenie, date_p)

            My.Forms.oplata_dog.TabControl1.Refresh()

            Me.Close()

        Catch ex As Exception

            MsgBox(ex)

        End Try

 

 

 

    End Sub

End Class

Листинг В.18 - Модуль SplashScreen1

Public NotInheritable Class SplashScreen1

 

    'TODO: This form can easily be set as the splash screen for the application by going to the "Application" tab

    '  of the Project Designer ("Properties" under the "Project" menu).

 

 

    Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Set up the dialog text at runtime according to the application's assembly information. 

 

        'TODO: Customize the application's assembly information in the "Application" pane of the project

        '  properties dialog (under the "Project" menu).

 

        'Application title

        If My.Application.Info.Title <> "" Then

            ApplicationTitle.Text = My.Application.Info.Title

        Else

            'If the application title is missing, use the application name, without the extension

            ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)

        End If

 

        'Format the version information using the text set into the Version control at design time as the

 

        '  formatting string.  This allows for effective localization if desired.

        '  Build and revision information could be included by using the following code and changing the

        '  Version control's designtime text to "Version {0}.{1:00}.{2}.{3}" or something similar.  See

        '  String.Format() in Help for more information.

        '

        '    Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)

 

        Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)

 

        'Copyright info

        Copyright.Text = My.Application.Info.Copyright

    End Sub

 

End Class

Листинг В.19 - Модуль Vedomost

Public Class Vedomost

 

    Private Sub Vedomost_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: Данная строка кода позволяет загрузить данные в таблицу "AppDatabase1DataSet1.zarplatavrem". При необходимости она может быть перемещена или удалена.

        Me.zarplatavremTableAdapter.Fill(Me.AppDatabase1DataSet1.zarplatavrem)

 

        Me.ReportViewer1.RefreshReport()

    End Sub

End Class

Листинг В.20 - Модуль Zarplata

Public Class zarplata

 

    Private Sub ParkmansBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Me.Validate()

        Me.ParkmansBindingSource.EndEdit()

        Me.ParkmansTableAdapter.Update(Me.AppDatabase1DataSet1.parkmans)

 

    End Sub

 

    Private Sub zarplata_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: Данная строка кода позволяет загрузить данные в таблицу "AppDatabase1DataSet1.zarplata". При необходимости она может быть перемещена или удалена.

        Me.ZarplataTableAdapter.Fill(Me.AppDatabase1DataSet1.zarplata)

        'TODO: Данная строка кода позволяет загрузить данные в таблицу "AppDatabase1DataSet1.parkmans". При необходимости она может быть перемещена или удалена.

        Me.ParkmansTableAdapter.Fill(Me.AppDatabase1DataSet1.parkmans)

 

    End Sub

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim date_s As String = Me.DateTimePicker1.Value

        Dim date_po As String = Me.DateTimePicker2.Value

        Dim colvo_smen As Integer

        Dim zarplata As Integer

 

        Dim sotr As DataRow

 

        Dim count As Integer = Me.AppDatabase1DataSet1.parkmans.Select().Length

        Dim value As Integer = count / Me.ProgressBar2.Maximum

        Me.ProgressBar2.Visible = True

        Me.ProgressBar1.Visible = True

        Me.ProgressBar1.Value = 0

        Me.ProgressBar2.Value = Me.ProgressBar2.Value + value

 

        For Each sotr In Me.AppDatabase1DataSet1.parkmans.Select()

            Me.ProgressBar1.Value = 0

            Label3.Text = "Начисляется Зарплата  Сотруднику (" + sotr.ItemArray(1) + sotr.ItemArray(2) + ")"

            Me.ProgressBar1.Value = Me.ProgressBar1.Value + 20

            Dim roearr As String = sotr.ItemArray(1)

            colvo_smen = select_colvo_smen(roearr, date_s, date_po)

 

          

 

            Me.ProgressBar1.Value = Me.ProgressBar1.Value + 20

 

            zarplata = sotr.ItemArray(5) * colvo_smen

            Me.ProgressBar1.Value = Me.ProgressBar1.Value + 20

 

            ZarplataTableAdapter.Insert(zarplata, colvo_smen, sotr.ItemArray(1) + sotr.ItemArray(2), System.DateTime.Now)

            Me.ProgressBar1.Value = Me.ProgressBar1.Value + 20

 

            Me.ZarplataTableAdapter.Fill(Me.AppDatabase1DataSet1.zarplata)

            Me.ProgressBar2.Value = Me.ProgressBar2.Value + value

            Me.ProgressBar1.Value = Me.ProgressBar1.Value + 20

            Me.ProgressBar2.Value = Me.ProgressBar1.Value - Me.ProgressBar1.Maximum

 

 

        Next

        My.Forms.oplata_dog.TabControl1.Refresh()

 

        Me.ProgressBar2.Visible = False

        Me.ProgressBar1.Visible = False

 

    End Sub

    Public Shared Function select_colvo_smen(ByVal from As String, ByVal date_s As String, ByVal date_po As String) As Integer

        Dim row As DataRow

        Dim count As Integer = 0

        My.Forms.zarplata.ZarplataTableAdapter.Fill(My.Forms.zarplata.AppDatabase1DataSet1.zarplata)

        For Each row In My.Forms.oplata_dog.AppDatabase1DataSet1.money_all.Select("from='" + from + "'")

            Dim date_1 As Date = row.ItemArray(4)

            Dim date_2 As Date = date_s

            Dim date3 As Date = date_po

 

            If date_1.Date >= date_2.Date And date_1.Date <= date3.Date Then

                count = count + 1

            End If

 

 

 

 

        Next

        Return count

    End Function

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Close()

        My.Forms.oplata_dog.TabControl1.Refresh()

    End Sub

End Class

 

 

 

Приложение Г

Примеры таблиц из журналов посещений

Таблица Г.1 – Таблица  посещений стоянкиклиентов-ночников из журнала администратора до внедрения автоматизированной системы

№ п/п	ФИО клиента	Марка автомобиля	Гос.номер	Время прибытия	Время убытия	Сумма
1	Федоров Иван Петрович	ВАЗ-2108	К036НМ199	17:30 5.12.2009	15:00 7.12.2009	300
2	Петров Александр Николаевич	Форд-Фокус	Г237НМ77	14:00 6.12.2009	13:00 7.12.2009	150

 

Таблица Г.2 – Таблица  учёта оплаты договорников до введения автоматизированной системы

Машиномест/ ФИО владельца	01.09	02.09	03.09	04.09	05.09	06.09	07.09	08.09	09.09	10.09	11.09	12.09
№5, Бухвин Павел Николаевич	3500, 09.01.09	3500, 07.01.09
№3, Степанов Вадим Петрович	3600, 01.01.09	3600, 01.01.09	3600, 01.01.09	3600, 01.01.09	3600, 01.01.09	3600, 01.01.09	3600, 01.01.09	3600, 01.01.09	3600, 01.01.09	3600, 01.01.09	3600, 01.01.09	3600, 01.01.09