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

 

Приложение

1. Приложение А – Экранные формы программы
2. Приложение Б – Формы отчётов
3. Приложение В – Листинг программы

 

 

Приложение А

Экранные формы программы

Рисунок А.1 – Окно авторизации

Рисунок А.2 – Главное  окно программы

 

Рисунок А.3 – Окно внесения автомобиля в базу

Рисунок А.4 – Окно создания договора

 

Рисунок А.5 – Список договоров

Рисунок А.6 – Тарифы

 

Рисунок А.7 – Аккаунты

Рисунок А.8 – Учётные  записи

 

Рисунок А.9 – О программе

 

Приложение Б

Формы отчётов

Рисунок Б.1 – Оплата по договорам

Рисунок Б.2 – Оплата ночники

 

Рисунок Б.3 – Зарплата

Рисунок Б.4 – Прочие расходы

 

Рисунок Б.5 – Ведомость  по зарплате

Рисунок Б.6 – Должники компании

 

Рисунок Б.7 – Баланс

 

Приложение В

Листинг программы

Листинг В.1 - Модуль Abonement

Imports System.Drawing.Printing

Public Class abonement

 

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

        Dim red As String = Me.Label22.Text

        Dim number As String = TextBox9.Text

        Dim first_name As String = TextBox2.Text

        Dim last_name As String = TextBox1.Text

        Dim syor_nemae As String = TextBox3.Text

        Dim phone_d As String = MaskedTextBox1.Text

        Dim address As String = TextBox4.Text

        Dim phone_m As String = MaskedTextBox2.Text

        Dim pasp_ser As String = MaskedTextBox3.Text

        Dim pasp_num As String = MaskedTextBox4.Text

        Dim pasp_vid As String = TextBox5.Text

        Dim pasp_data As String = MaskedTextBox5.Text

        Dim am_mark As String = TextBox6.Text

        Dim am_year As String = MaskedTextBox7.Text

        Dim am_color As String = TextBox8.BackColor.ToArgb

        Dim am_gos_num As String = MaskedTextBox6.Text

        Dim stoimost As String = TextBox10.Text

        Dim data_dog_o As String = DateTimePicker1.Value

        Dim data_dog_c As String = DateTimePicker2.Value

        Dim o_c As Integer

        ProgressBar1.Visible = True

        ProgressBar1.Value = 40

       If CheckBox1.Checked = True Then

            o_c = 1

        Else

            o_c = Nothing

        End If

        ProgressBar1.Value = 70

        Dim car_m As String = ComboBox1.Text

        Try

            If red = "false" Then

                Dim row As DataRow

                Dim count As Integer = 0

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

                    count = count + 1

                Next

                If count = 0 Then

 

 

 

 

 

 

                    DogTableAdapter.Insert1(number, first_name, last_name, syor_nemae, phone_d, phone_m, pasp_ser, pasp_num, pasp_vid, pasp_data, am_mark, am_year, am_color, am_gos_num, stoimost, data_dog_o, data_dog_c, car_m, address, o_c)

 

                    Me.Close()

                    My.Forms.abonementi.DogBindingNavigator.BeginInit()

                    My.Forms.abonementi.DogTableAdapter.Fill(Me.AppDatabase1DataSet1.Dog)

                    My.Forms.pay.Show()

                    My.Forms.pay.TextBox1.Text = number

                Else

 

 

                    MsgBox("Машиноместо №" + car_m + "Занято выбирите другое машиноместо")

                    ComboBox1.Text = ""

                End If

            Else

                Dim row As DataRow

                Dim count As Integer = 0

                For Each row In Me.AppDatabase1DataSet1.Dog.Select("number <>'" + number + "'")

                    If row.ItemArray(18) = car_m Then

                        count = count + 1

                    End If

                Next

                If count = 0 Then

 

 

                    DogTableAdapter.UpdateQuery(number, first_name, last_name, syor_nemae, phone_d, phone_m, pasp_ser, pasp_num, pasp_vid, pasp_data, am_mark, am_year, am_color, am_gos_num, stoimost, data_dog_o, data_dog_c, car_m, address, number, o_c)

                    Me.Close()

                    My.Forms.abonementi.DogBindingNavigator.BeginInit()

                    My.Forms.abonementi.DogTableAdapter.Fill(Me.AppDatabase1DataSet1.Dog)

                Else

                    MsgBox("Машиноместо №" + car_m + "Занято выбирите другое машиноместо")

                    ComboBox1.Text = ""

                End If

            End If

 

        Catch ex As Exception

            MsgBox("Информация Не записана")

 

        End Try

 

 

        My.Forms.abonementi.Show()

 

        ProgressBar1.Value = 100

        ProgressBar1.Visible = False

 

    End Sub

 

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

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

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

        Dim red As String = Me.Label22.Text

        If red = "false" Then

            TextBox9.Text = Me.AppDatabase1DataSet1.Dog.Count.ToString() + 1

            SetStyle(ControlStyles.SupportsTransparentBackColor, True)

        End If

        My.Forms.abonementi.Close()

 

    End Sub

 

    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.Click

        ColorDialog1.ShowDialog()

        TextBox8.BackColor = ColorDialog1.Color

    End Sub

 

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

 

        Me.Close()

        My.Forms.abonementi.Show()

 

    End Sub

 

 

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

      

     

        Form6.Show()

    End Sub

 

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        My.Forms.abonementi.DogBindingNavigator.BeginInit()

        My.Forms.abonementi.DogTableAdapter.Fill(Me.AppDatabase1DataSet1.Dog)

        My.Forms.pay.Show()

        My.Forms.pay.TextBox1.Text = TextBox9.Text

    End Sub

 

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        ComboBox1.Text = ""

        ComboBox1.Enabled = False

 

    End Sub

End Class

 

Листинг В.2 - Модкль Abonementi

Public Class abonementi

 

    Private Sub DogBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DogBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.DogBindingSource.EndEdit()

        Me.DogTableAdapter.Update(Me.AppDatabase1DataSet1.Dog)

 

    End Sub

 

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

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

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

        Dim row As System.Drawing.Color

        Dim row1 As Object

        Dim collor As Color

        Try

            For Each row1 In GetCurrentRow(Me.DogDataGridView).ItemArray

                row = GetCurrentRow(Me.DogDataGridView).ItemArray(14)

                collor = row

 

                Me.DogDataGridView.CurrentRow.DefaultCellStyle.BackColor = collor

 

            Next

        Catch ex As Exception

            If ex.Message = "Индексу -1 не присвоено  значение" Then

                MsgBox("Произошла ошиба В базе нет ни одного договора")

            End If

 

 

        End Try

       

 

    End Sub

 

    Public Function GetCurrentRow(ByVal Grid As DataGridView) As DataRow

 

        Dim cm As CurrencyManager = CType(Grid.BindingContext(Grid.DataSource, Grid.DataMember), CurrencyManager)

        Dim drv As DataRowView = CType(cm.Current, DataRowView)

        Return drv.Row

 

    End Function

 

    Private Sub DogDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DogDataGridView.CellContentClick

        Try

 

      

            Dim row As DataRow

            Dim form As Form = My.Forms.abonement

            row = GetCurrentRow(Me.DogDataGridView)

 

            My.Forms.abonement.TextBox9.Text = row.ItemArray(1)

            My.Forms.abonement.TextBox1.Text = row.ItemArray(2)

            My.Forms.abonement.TextBox2.Text = row.ItemArray(3)

            My.Forms.abonement.TextBox3.Text = row.ItemArray(4)

            My.Forms.abonement.TextBox4.Text = row.ItemArray(19)

            My.Forms.abonement.TextBox5.Text = row.ItemArray(9)

            My.Forms.abonement.TextBox6.Text = row.ItemArray(11)

            My.Forms.abonement.TextBox8.BackColor = Color.FromArgb(row.ItemArray(13))

            My.Forms.abonement.TextBox10.Text = row.ItemArray(15)

            My.Forms.abonement.MaskedTextBox1.Text = row.ItemArray(5)

            My.Forms.abonement.MaskedTextBox2.Text = row.ItemArray(6)

            My.Forms.abonement.MaskedTextBox3.Text = row.ItemArray(7)

            My.Forms.abonement.MaskedTextBox4.Text = row.ItemArray(8)

            My.Forms.abonement.MaskedTextBox5.Text = row.ItemArray(10)

            My.Forms.abonement.MaskedTextBox6.Text = row.ItemArray(14)

            My.Forms.abonement.MaskedTextBox7.Text = row.ItemArray(12)

            SetStyle(ControlStyles.SupportsTransparentBackColor, True)

            My.Forms.abonement.DateTimePicker1.Text = row.ItemArray(16)

            My.Forms.abonement.DateTimePicker2.Text = row.ItemArray(17)

            My.Forms.abonement.ComboBox1.Text = row.ItemArray(18)

            My.Forms.abonement.Label22.Text = "thue"

            If row.ItemArray(20) = 1 Then

                My.Forms.abonement.CheckBox1.Checked = True

            Else

                My.Forms.abonement.CheckBox1.Checked = False

            End If

 

            form.Show()

        Catch ex As Exception

 

        End Try

 

    End Sub

 

   

End Class

Листинг В.3 - Модуль AbboutBox1

Public NotInheritable Class AboutBox1

 

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

        ' Set the title of the form.

        Dim ApplicationTitle As String

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

            ApplicationTitle = My.Application.Info.Title

        Else

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

        End If

 

        Me.Text = String.Format("About {0}", ApplicationTitle)

        ' Initialize all of the text displayed on the About Box.

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

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

        Me.LabelProductName.Text = My.Application.Info.ProductName

        Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)

        Me.LabelCopyright.Text = My.Application.Info.Copyright

        Me.LabelCompanyName.Text = My.Application.Info.CompanyName

        Me.TextBoxDescription.Text = My.Application.Info.Description

        Me.TextBoxDescription.Text = Me.TextBoxDescription.Text + "."

    End Sub

 

    Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click

        Me.Close()

    End Sub

 

End Class

Листинг В.4 - Модуль Add_def_user

Public Class add_def_user

 

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

        Me.Validate()

        Me.UsersBindingSource.EndEdit()

        Me.UsersTableAdapter.Update(Me.AppDatabase1DataSet1.users)

 

    End Sub

 

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

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

        Me.UsersTableAdapter.Fill(Me.AppDatabase1DataSet1.users)

 

    End Sub

 

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

        UsersTableAdapter.Insert(TextBox1.Text, TextBox2.Text, TextBox3.Text, "1")

        Me.UsersTableAdapter.Fill(Me.AppDatabase1DataSet1.users)

        Me.Close()

    End Sub

End Class

Листинг В.5 - Модуль Autorization

Public Class autorization

    Public Shared Function GetPermition(ByVal user As String) As String

 

        Dim prava As Integer

        Dim name As Object

 

 

        ' AppDatabase1DataSet1.users.Select("username='" + user + "'")

 

 

        For Each name In My.Forms.Form1.AppDatabase1DataSet1.users.Select("username like '" + user + "'")

            prava = name.ItemArray.GetValue(4)

        Next

        'MsgBox(prava)

        Return prava

    End Function

 

End Class

 

 

Листинг В.6 - Модуль Balance

Public Class balans

 

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

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

        Me.balansTableAdapter.Fill(Me.AppDatabase1DataSet1.balans)

 

        Me.ReportViewer1.RefreshReport()

    End Sub

End Class

 

Модуль Dolzneti

 

Public Class dolzhneti

 

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

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

        Me.dolzhnekiTableAdapter.Fill(Me.AppDatabase1DataSet1.dolzhneki)

 

        Me.ReportViewer1.RefreshReport()

    End Sub

End Class

Листинг В.7 - Модуль Form1

Public Class Form1

 

    Private Sub CarsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CarsBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.CarsBindingSource.EndEdit()

        Me.CarsTableAdapter.Update(Me.AppDatabase1DataSet1.cars)

 

    End Sub

 

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

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

        Me.UsersTableAdapter.Fill(Me.AppDatabase1DataSet1.users)

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

        Me.CarsTableAdapter.Fill(Me.AppDatabase1DataSet1.cars)

        Dim user As String = ToolStripLabel1.Text

        Dim prava As Integer