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

            RichTextBox1.Text = RichTextBox1.Text.Replace("address", My.Forms.abonement.TextBox4.Text + " ")

            RichTextBox1.Text = RichTextBox1.Text.Replace("mesto", My.Forms.abonement.ComboBox1.Text + " ")

            RichTextBox1.Text = RichTextBox1.Text.Replace("tel_d", My.Forms.abonement.MaskedTextBox1.Text + " ")

            RichTextBox1.Text = RichTextBox1.Text.Replace("tel_s", My.Forms.abonement.MaskedTextBox2.Text + " ")

        Next

 

 

 

 

 

    End Sub

 

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

        Try

            StringToPrint = RichTextBox1.Text

            PrintDocument1.DefaultPageSettings = PrintPageSettings

            PrintDialog1.Document = PrintDocument1

            Dim result As DialogResult = PrintDialog1.ShowDialog

            If result = DialogResult.OK Then

                PrintDocument1.Print()

 

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

 

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        Dim numChars As Integer

        Dim numLines As Integer

        Dim stringForPage As String

        Dim strFormat As New StringFormat

        Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)

        Dim sizeMeasure As New Size(e.MarginBounds.Width, e.MarginBounds.Height - PrintFont.GetHeight(e.Graphics))

        strFormat.Trimming = StringTrimming.Word

        e.Graphics.MeasureString(StringToPrint, PrintFont, sizeMeasure, strFormat, numChars, numLines)

        stringForPage = StringToPrint.Substring(0, numChars)

        e.Graphics.DrawString(stringForPage, PrintFont, Brushes.Black, rectDraw, strFormat)

        If numChars < StringToPrint.Length Then

            StringToPrint = StringToPrint.Substring(numChars)

            e.HasMorePages = True

 

        Else

            e.HasMorePages = False

            StringToPrint = RichTextBox1.Text

        End If

    End Sub

End Class

Листинг В.12 - Модуль LoginForm1

Imports System.IO

Imports System.Drawing.Printing

 

Public Class Form6

    Private PrintPageSettings As New PageSettings

    Private StringToPrint As String

    Private PrintFont As New Font("Arial", 10)

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

 

 

        Dim var As Object

        For Each var In RichTextBox1.Lines

            RichTextBox1.Text = RichTextBox1.Text.Replace("number", My.Forms.abonement.TextBox9.Text)

            RichTextBox1.Text = RichTextBox1.Text.Replace("data_dog", My.Forms.abonement.DateTimePicker1.Text)

            RichTextBox1.Text = RichTextBox1.Text.Replace("data_dig", My.Forms.abonement.DateTimePicker2.Text)

            RichTextBox1.Text = RichTextBox1.Text.Replace("vladelec", My.Forms.abonement.TextBox1.Text + " " + My.Forms.abonement.TextBox2.Text + " " + My.Forms.abonement.TextBox3.Text)

            RichTextBox1.Text = RichTextBox1.Text.Replace("marka", My.Forms.abonement.TextBox6.Text + " ")

            RichTextBox1.Text = RichTextBox1.Text.Replace("gos_nom", My.Forms.abonement.MaskedTextBox6.Text + " ")

            RichTextBox1.Text = RichTextBox1.Text.Replace("yvip", My.Forms.abonement.MaskedTextBox7.Text + " ")

            RichTextBox1.Text = RichTextBox1.Text.Replace("stoj", My.Forms.abonement.TextBox10.Text + " ")

            RichTextBox1.Text = RichTextBox1.Text.Replace("pasport", My.Forms.abonement.MaskedTextBox3.Text + "/" + My.Forms.abonement.MaskedTextBox4.Text + "Выдан: " + My.Forms.abonement.TextBox5.Text + Chr(10) + Chr(13) + My.Forms.abonement.MaskedTextBox5.Text)

            RichTextBox1.Text = RichTextBox1.Text.Replace("address", My.Forms.abonement.TextBox4.Text + " ")

            RichTextBox1.Text = RichTextBox1.Text.Replace("mesto", My.Forms.abonement.ComboBox1.Text + " ")

            RichTextBox1.Text = RichTextBox1.Text.Replace("tel_d", My.Forms.abonement.MaskedTextBox1.Text + " ")

            RichTextBox1.Text = RichTextBox1.Text.Replace("tel_s", My.Forms.abonement.MaskedTextBox2.Text + " ")

        Next

 

 

 

 

 

    End Sub

 

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

        Try

            StringToPrint = RichTextBox1.Text

            PrintDocument1.DefaultPageSettings = PrintPageSettings

            PrintDialog1.Document = PrintDocument1

            Dim result As DialogResult = PrintDialog1.ShowDialog

            If result = DialogResult.OK Then

                PrintDocument1.Print()

 

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

 

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        Dim numChars As Integer

        Dim numLines As Integer

        Dim stringForPage As String

        Dim strFormat As New StringFormat

        Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)

        Dim sizeMeasure As New Size(e.MarginBounds.Width, e.MarginBounds.Height - PrintFont.GetHeight(e.Graphics))

        strFormat.Trimming = StringTrimming.Word

        e.Graphics.MeasureString(StringToPrint, PrintFont, sizeMeasure, strFormat, numChars, numLines)

        stringForPage = StringToPrint.Substring(0, numChars)

        e.Graphics.DrawString(stringForPage, PrintFont, Brushes.Black, rectDraw, strFormat)

        If numChars < StringToPrint.Length Then

            StringToPrint = StringToPrint.Substring(numChars)

            e.HasMorePages = True

 

        Else

            e.HasMorePages = False

            StringToPrint = RichTextBox1.Text

        End If

 

    End Sub

End Class

Листинг В.13 - Модуль Oplata_dog

Public Class oplata_dog

 

    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 oplata_dog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

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

        Me.BalansTableAdapter.Fill(Me.AppDatabase1DataSet1.balans)

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

        Me.DolzhnekiTableAdapter.Fill(Me.AppDatabase1DataSet1.dolzhneki)

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

        Me.Zarplata_vremTableAdapter.Fill(Me.AppDatabase1DataSet1.zarplatavrem)

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

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

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

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

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

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

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

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

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

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

 

       

    End Sub

 

 

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click

        Me.TabControl1.Refresh()

        My.Forms.pay.Show()

 

    End Sub

 

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click

        Me.TabControl1.Refresh()

        My.Forms.pay_night.Show()

 

    End Sub

 

    Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click

        Me.TabControl1.Refresh()

        My.Forms.zarplata.Show()

 

    End Sub

 

 

    Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click

        Me.TabControl1.Refresh()

        My.Forms.proch_rash.Show()

 

    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 row As DataRow

 

 

 

        Me.Zarplata_vremTableAdapter.Fill(Me.AppDatabase1DataSet1.zarplatavrem)

        Zarplata_vremTableAdapter.DeleteQuery()

        For Each row In Me.AppDatabase1DataSet1.zarplata.Select("date <>'0'")

            Dim date_1 As Date = row.ItemArray(4)

            Dim date_2 As Date = date_s

            Dim date3 As Date = date_po

            Dim summa As String = row.ItemArray(1)

            Dim col_vosmen As String = row.ItemArray(2)

            Dim date_ As String = row.ItemArray(4)

            Dim sotrudnik As String = row.ItemArray(3)

            If row.ItemArray(4) >= date_s And row.ItemArray(4) <= date_po Then

               Dim result As Integer = Zarplata_vremTableAdapter.Insert(summa, col_vosmen, date_, sotrudnik)

                If result <> 0 Then

                    AppDatabase1DataSet1.zarplatavrem.AcceptChanges()

 

                    Me.Zarplata_vremTableAdapter.Fill(Me.AppDatabase1DataSet1.zarplatavrem)

                End If

            End If

 

        Next

        My.Forms.Vedomost.Show()

 

        'Me.Zarplata_vremTableAdapter.Fill(Me.AppDatabase1DataSet1.zarplata_vrem)

 

 

    End Sub

 

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

        Dim date_s As String = Me.DateTimePicker6.Value

        Dim date_po As String = Me.DateTimePicker5.Value

        Dim var As Boolean

        Dim row As DataRow

        DolzhnekiTableAdapter.DeleteQuery()

        For Each row In Me.AppDatabase1DataSet1.Dog.Select()

 

 

            If row.ItemArray(20).ToString = 0 Then

 

 

                Dim number As String = row.ItemArray(1)

 

 

                var = select_dolg(number, date_s, date_po)

                If var = False Then

                    Dim fio As String = row.ItemArray(2) + " " + row.ItemArray(3) + " " + row.ItemArray(4)

                    Dim phones As String = "Дом(" + row.ItemArray(5) + ") Моб(" + row.ItemArray(6) + ")"

                    Dim mesto As String = row.ItemArray(18)

                    DolzhnekiTableAdapter.Insert(fio, phones, mesto)

 

 

                End If

 

            End If

        Next

        My.Forms.dolzhneti.Show()

 

    End Sub

    Public Shared Function select_dolg(ByVal number As String, ByVal date_s As String, ByVal date_po As String) As Boolean

        Dim row1 As DataRow

        Dim count As Integer = 0

 

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

        For Each row1 In My.Forms.oplata_dog.AppDatabase1DataSet1.money_dog.Select("dog_number ='" + number + "'")

            If row1.ItemArray(2) >= date_s And row1.ItemArray(2) <= date_po Then

                count = count + 1

            End If

 

        Next

        If count > 0 Then

            Return True

        Else

            Return False

        End If

 

    End Function

 

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

        Dim row As DataRow

        Dim row1 As DataRow

        Dim row2 As DataRow

        Dim row3 As DataRow

        Dim date_s As String = Me.DateTimePicker8.Value

        Dim date_po As String = Me.DateTimePicker7.Value

        Dim summa_money_dog As Integer = 0

        Dim summa_money_all As Integer = 0

        Dim summa_money_out As Integer = 0

        Dim summa_zarplata As Integer = 0

        Dim debet As Integer = 0

        Dim credit As Integer = 0

        Dim balans As Integer = 0

        For Each row In Me.AppDatabase1DataSet1.money_dog.Select()

            If row.ItemArray(2) >= date_s And row.ItemArray(2) <= date_po Then

                summa_money_dog = summa_money_dog + row.ItemArray(3)

 

            End If

        Next

 

        For Each row1 In Me.AppDatabase1DataSet1.money_all.Select()

            If row1.ItemArray(4) >= date_s And row1.ItemArray(4) <= date_po Then

                summa_money_all = summa_money_all + row1.ItemArray(1)

            End If

        Next

        For Each row2 In Me.AppDatabase1DataSet1.money_out.Select()

            If row2.ItemArray(4) >= date_s And row2.ItemArray(4) <= date_po Then

                summa_money_out = summa_money_out + row2.ItemArray(1)

 

            End If

        Next

        For Each row3 In Me.AppDatabase1DataSet1.zarplata.Select()

            If row3.ItemArray(4) >= date_s And row3.ItemArray(4) <= date_po Then

                summa_zarplata = summa_zarplata + row3.ItemArray(1)

 

 

            End If

        Next

        debet = summa_money_dog + summa_money_all

        credit = summa_money_out + summa_zarplata

        balans = debet - credit

        Me.BalansTableAdapter.Fill(Me.AppDatabase1DataSet1.balans)

 

        Me.BalansTableAdapter.Insert(summa_money_all, summa_money_dog, summa_money_out, summa_zarplata, balans, Date.Now)

        Me.BalansTableAdapter.Fill(Me.AppDatabase1DataSet1.balans)

        My.Forms.balans.Show()

 

    End Sub

End Class

Листинг В.14 - Модуль Park_manc

Public Class parc_mans

 

    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 parc_mans_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.parkmans". При необходимости она может быть перемещена или удалена.

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

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

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

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

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

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

 

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

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

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

 

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

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