Дипломдық жобада ақпараттық жүйе архитектурасы, ДҚ құрылымы және

 

73

 

 

А қо ы ш ның  ж     ы 

 

('758AFA','2014-02-06','22:00',9,'оплочен','547985634552',null,' '), 

('758AFA','2013-05-06','22:00',10,'неоплочен',null,'2',' '), 

('965AWA','2013-05-06','22:00',9,'неоплочен','547985634552',null,' '); 

go 

INSERT INTO Ugon (num_avto,data_ugona,opisanie,status2) 

VALUES ('286ABA','2010-07-25','Украденная машина была замечена в районе г.Алматы','не 

найдена'); 

 

 

 

 

 

74

 

 

Қосымша Ә 

Бағдарламаның MS Visual Studio-дегі листингі 

Public Class Form3 

 

    Private Sub DoljnostBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e 

As System.EventArgs) 

        Me.Validate() 

        Me.DoljnostBindingSource.EndEdit() 

        Me.TableAdapterManager.UpdateAll(Me.GAI2DataSet) 

 

    End Sub 

 

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

Handles MyBase.Load 

        'TODO: This line of code loads data into the 'GAI2DataSet.svet' table. You can move, or 

remove it, as needed. 

        Me.SvetTableAdapter.Fill(Me.GAI2DataSet.svet) 

        'TODO: This line of code loads data into the 'GAI2DataSet.kuzov' table. You can move, or 

remove it, as needed. 

        Me.KuzovTableAdapter.Fill(Me.GAI2DataSet.kuzov) 

        'TODO: This line of code loads data into the 'GAI2DataSet.raion' table. You can move, or 

remove it, as needed. 

        Me.RaionTableAdapter.Fill(Me.GAI2DataSet.raion) 

        'TODO: This line of code loads data into the 'GAI2DataSet.Shtraf' table. You can move, or 

remove it, as needed. 

        Me.ShtrafTableAdapter.Fill(Me.GAI2DataSet.Shtraf) 

        'TODO: This line of code loads data into the 'GAI2DataSet.Avto' table. You can move, or 

remove it, as needed. 

        Me.AvtoTableAdapter.Fill(Me.GAI2DataSet.Avto) 

        'TODO: This line of code loads data into the 'GAI2DataSet.nation' table. You can move, or 

remove it, as needed. 

        Me.NationTableAdapter.Fill(Me.GAI2DataSet.nation) 

        'TODO: This line of code loads data into the 'GAI2DataSet.marka' table. You can move, or 

remove it, as needed. 

        Me.MarkaTableAdapter.Fill(Me.GAI2DataSet.marka) 

        'TODO: This line of code loads data into the 'GAI2DataSet.vlad' table. You can move, or 

remove it, as needed. 

        Me.VladTableAdapter.Fill(Me.GAI2DataSet.vlad) 

        'TODO: This line of code loads data into the 'GAI2DataSet.kompaniya' table. You can move, 

or remove it, as needed. 

        Me.KompaniyaTableAdapter.Fill(Me.GAI2DataSet.kompaniya) 

        'TODO: This line of code loads data into the 'GAI2DataSet.kamery' table. You can move, or 

remove it, as needed. 

        Me.KameryTableAdapter.Fill(Me.GAI2DataSet.kamery) 

        'TODO: This line of code loads data into the 'GAI2DataSet.doljnost' table. You can move, or 

remove it, as needed. 

        Me.DoljnostTableAdapter.Fill(Me.GAI2DataSet.doljnost) 

 

    End Sub 

 

 

 

75

 

 

Ә қо ы ш ның  ж     ы 

 

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

Handles Button1.Click 

        Me.Validate() 

        Me.DoljnostBindingSource.EndEdit() 

        Me.TableAdapterManager.UpdateAll(GAI2DataSet) 

 

    End Sub 

 

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

Handles MyBase.Shown 

        DoljnostBindingSource.AddNew() 

    End Sub 

 

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

Handles Button2.Click 

        DoljnostBindingSource.RemoveCurrent() 

    End Sub 

 

    Private Sub TipTextBox_TextChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles TipTextBox.TextChanged 

 

    End Sub 

 

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

Handles Button3.Click 

        Me.Validate() 

        Me.KameryBindingSource.EndEdit() 

        Me.TableAdapterManager.UpdateAll(GAI2DataSet) 

    End Sub 

 

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

Handles Button4.Click 

        KameryBindingSource.RemoveCurrent() 

 

    End Sub 

 

    Private Sub Director_IINTextBox_TextChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles Director_IINTextBox.TextChanged 

 

    End Sub 

 

    Private Sub FacsTextBox_TextChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles FacsTextBox.TextChanged 

 

    End Sub 

 

    Private Sub TelefonTextBox_TextChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles TelefonTextBox.TextChanged 

 

 

76

 

 

Ә қо ы ш ның  ж     ы 

 

    End Sub 

 

    Private Sub AdressTextBox_TextChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles AdressTextBox.TextChanged 

 

    End Sub 

 

    Private Sub NazvanieTextBox_TextChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles NazvanieTextBox.TextChanged 

 

    End Sub 

 

    Private Sub Bin_kompTextBox_TextChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles Bin_kompTextBox.TextChanged 

 

    End Sub 

 

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

Handles GroupBox3.Enter 

 

    End Sub 

 

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

Handles Button5.Click 

        Me.Validate() 

        Me.KompaniyaBindingSource.EndEdit() 

        Me.TableAdapterManager.UpdateAll(GAI2DataSet) 

    End Sub 

 

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

Handles Button7.Click 

        Me.Validate() 

        Me.VladBindingSource.EndEdit() 

        Me.TableAdapterManager.UpdateAll(GAI2DataSet) 

    End Sub 

 

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

Handles Button6.Click 

        KompaniyaBindingSource.RemoveCurrent() 

 

    End Sub 

 

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

Handles Button8.Click 

        VladBindingSource.RemoveCurrent() 

 

 

    End Sub 

 

 

77

 

 

Ә қо ы ш ның  ж     ы 

 

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

Handles Button9.Click 

        DoljnostBindingSource.AddNew() 

 

    End Sub 

 

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

Handles Button10.Click 

        KameryBindingSource.AddNew() 

 

    End Sub 

 

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

Handles Button11.Click 

        KompaniyaBindingSource.AddNew() 

 

    End Sub 

 

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

Handles Button12.Click 

        VladBindingSource.AddNew() 

 

    End Sub 

 

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

Handles Button13.Click 

        MarkaBindingSource.AddNew() 

 

    End Sub 

 

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

Handles Button15.Click 

        Me.Validate() 

        Me.MarkaBindingSource.EndEdit() 

        Me.TableAdapterManager.UpdateAll(GAI2DataSet) 

    End Sub 

 

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

Handles Button14.Click 

        MarkaBindingSource.RemoveCurrent() 

    End Sub 

 

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

Handles Button16.Click 

        NationBindingSource.AddNew() 

 

    End Sub 

 

 

 

78

 

 

Ә қо ы ш ның  ж     ы 

 

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

Handles Button18.Click 

        Me.Validate() 

        Me.NationBindingSource.EndEdit() 

        Me.TableAdapterManager.UpdateAll(GAI2DataSet) 

    End Sub 

 

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

Handles Button17.Click 

        NationBindingSource.RemoveCurrent() 

    End Sub 

 

    Private Sub Bin_kompLabel1_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) 

 

    End Sub 

 

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles RadioButton1.CheckedChanged 

        Bin_kompTextBox1.Visible = True 

        IIN_vladTextBox1.Visible = False 

    End Sub 

 

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles RadioButton2.CheckedChanged 

        Bin_kompTextBox1.Visible = False 

        IIN_vladTextBox1.Visible = True 

    End Sub 

End Class 

 

Public Class Form1 

    

 

    Private Sub ShtrafBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e 

As System.EventArgs) 

        Me.Validate() 

        Me.ShtrafBindingSource.EndEdit() 

        Me.TableAdapterManager.UpdateAll(Me.GAI2DataSet) 

 

    End Sub 

 

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

Handles MyBase.Load 

        'TODO: This line of code loads data into the 'GAI2DataSet.vladelec' table. You can move, or 

remove it, as needed. 

        Me.VladelecTableAdapter.Fill(Me.GAI2DataSet.vladelec) 

        'TODO: This line of code loads data into the 'GAI2DataSet.o_shtrafe' table. You can move, or 

remove it, as needed. 

        Me.O_shtrafeTableAdapter.Fill(Me.GAI2DataSet.o_shtrafe) 

 

79

 

 

Ә қо ы ш ның  ж     ы 

 

        'TODO: This line of code loads data into the 'GAI2DataSet.Shtraf' table. You can move, or 

remove it, as needed. 

        Me.ShtrafTableAdapter.Fill(Me.GAI2DataSet.Shtraf) 

 

    End Sub 

 

 

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

Handles Button1.Click 

        ShtrafBindingSource.AddNew() 

 

    End Sub 

 

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

Handles Button2.Click 

        Me.Validate() 

        Me.ShtrafBindingSource.EndEdit() 

        Me.TableAdapterManager.UpdateAll(GAI2DataSet) 

        ShtrafBindingSource.AddNew() 

 

    End Sub 

 

 

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles RadioButton1.CheckedChanged 

        Iin_sotrudTextBox.Visible = True 

        Id_kameryTextBox.Visible = False 

    End Sub 

 

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles RadioButton2.CheckedChanged 

        Id_kameryTextBox.Visible = True 

        Iin_sotrudTextBox.Visible = False 

    End Sub 

 

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

        For i = 0 To DataGridView1.ColumnCount - 1 

            For j = 0 To DataGridView1.RowCount - 1 

                DataGridView1.Item(i, j).Style.BackColor = Color.Black 

                DataGridView1.Item(i, j).Style.ForeColor = Color.White 

 

            Next j 

        Next i 

        For i = 0 To DataGridView1.ColumnCount - 1 

            For j = 0 To DataGridView1.RowCount - 1 

                If InStr(DataGridView1.Item(i, j).Value, TextBox1.Text) Then 

                    DataGridView1.Item(i, j).Style.BackColor = Color.AliceBlue 

                    DataGridView1.Item(i, j).Style.ForeColor = Color.Blue 

                End If 

 

80

 

 

Ә қо ы ш ның  ж     ы 

 

            Next j 

        Next i 

    End Sub 

 

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles TextBox1.TextChanged 

        If TextBox1.Text = String.Empty Then 

            VladelecBindingSource.RemoveFilter() 

        Else 

            VladelecBindingSource.Filter = "num_avto like '%" + _ 

            TextBox1.Text + "%'" 

        End If 

    End Sub 

 

 

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles TextBox2.TextChanged 

        If TextBox2.Text = String.Empty Then 

            VladelecBindingSource.RemoveFilter() 

        Else 

            VladelecBindingSource.Filter = "familiya like '%" + _ 

            TextBox2.Text + "%'" 

        End If 

 

    End Sub 

 

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) 

 

    End Sub 

 

   

 

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles TextBox4.TextChanged 

        If TextBox4.Text = String.Empty Then 

            ShtrafBindingSource.RemoveFilter() 

        Else 

            ShtrafBindingSource.Filter = "status1 like '%" + _ 

            TextBox4.Text + "%'" 

        End If 

    End Sub 

 

End Class 

Public Class Form4 

 

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

Handles PictureBox1.Click 

 

 

81

 

 

Ә қо ы ш ның  ж     ы 

 

    End Sub 

 

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

Handles Button1.Click 

        If TextBox1.Text = "admin" And TextBox2.Text = "123" Then 

            Form3.Show() 

        Else 

 

 

 

 

        End If 

    End Sub 

 

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

Handles Button2.Click 

        TextBox1.Clear() 

        TextBox2.Clear() 

 

    End Sub 

 

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

Handles Label3.Click 

        Form5.Show() 

 

    End Sub 

 

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

Handles MyBase.Load 

 

    End Sub 

End Class 

Public Class Form5 

 

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

Handles MyBase.Load 

        'TODO: This line of code loads data into the 'GAI2DataSet.vladelec' table. You can move, or 

remove it, as needed. 

        Me.vladelecTableAdapter.Fill(Me.GAI2DataSet.vladelec) 

        'TODO: This line of code loads data into the 'GAI2DataSet.asdf' table. You can move, or 

remove it, as needed. 

        Me.AsdfTableAdapter.Fill(Me.GAI2DataSet.asdf) 

        'TODO: This line of code loads data into the 'GAI2DataSet.Shtraf' table. You can move, or 

remove it, as needed. 

        Me.ShtrafTableAdapter.Fill(Me.GAI2DataSet.Shtraf) 

 

        Me.ReportViewer1.RefreshReport() 

        Me.ReportViewer1.RefreshReport() 

    End Sub 

 

82

 

 

Ә қо ы ш ның  ж     ы 

 

 

    Private Sub ShtrafBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e 

As System.EventArgs) 

        Me.Validate() 

        Me.ShtrafBindingSource.EndEdit() 

        Me.TableAdapterManager.UpdateAll(Me.GAI2DataSet) 

 

    End Sub 

 

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

Handles Button1.Click 

        If TextBox1.Text = String.Empty Then 

            AsdfBindingSource.RemoveFilter() 

        Else 

            AsdfBindingSource.Filter = "num_avto like '%" + _ 

            TextBox1.Text + "%'" 

 

 

 

        End If 

        ReportViewer1.RefreshReport() 

 

 

    End Sub 

 

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) 

 

    End Sub 

 

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) 

 

    End Sub 

 

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As 

System.EventArgs) 

 

    End Sub 

 

    Private Sub ReportViewer1_Load(ByVal sender As System.Object, ByVal e As 

System.EventArgs) 

      

    End Sub 

    Private Sub ReportViewer1_MouseClick(ByVal sender As System.Object, ByVal e As 

System.Windows.Forms.MouseEventArgs) 

 

    End Sub 

End Class