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
Достарыңызбен бөлісу: |