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



жүктеу 0,69 Mb.
Pdf просмотр
бет23/23
Дата25.12.2017
өлшемі0,69 Mb.
#6099
түріДиплом
1   ...   15   16   17   18   19   20   21   22   23

 

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 

жүктеу 0,69 Mb.

Достарыңызбен бөлісу:
1   ...   15   16   17   18   19   20   21   22   23




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау