Private Sub save_print_Click(sender As System.Object, e As System.EventArgs) Handles save_print.Click
asd = "INSERT INTO pen ( nomer_sch1, DATA_OPL, SUMA, IDENERGY ) VALUES (" & Me.cod.Text & ", '" & _
Format(DateValue(Me.data.Text), "MM-dd-yyyy") & "', " & Me.gumar.Text & ",'" & enid & "');"
If String.IsNullOrEmpty(Me.cod.Text) = False Then
If Me.cod.Text = "" Or Me.cod.Text = 0 Or Me.cod.Text < 0 Then
Beep()
MsgBox("Սխալ է մուտքագրված բաժանորդի համարը", vbInformation, "")
Me.cod.Focus()
Exit Sub
End If
Else
Beep()
MsgBox("Սխալ է մուտքագրված բաժանորդի համարը", vbInformation, "")
Me.cod.Focus()
Exit Sub
End If
If String.IsNullOrEmpty(Me.fio.Text) And String.IsNullOrEmpty(Me.hasce.Text) Then
Beep()
MsgBox("Բաժանորդը բացակայում է", vbInformation, "")
Me.cod.Focus()
Exit Sub
End If
If String.IsNullOrEmpty(Me.gumar.Text) = False Then
If Me.gumar.Text = 0 Or Me.gumar.Text < 0 Then
Beep()
MsgBox("Գումարը սխալ է մուտքագրված", vbInformation, "")
Me.gumar.Focus()
Exit Sub
End If
Else
Beep()
MsgBox("Գումարը սխալ է մուտքագրված", vbInformation, "")
Me.gumar.Focus()
Exit Sub
End If
cn.Open("Ё", "Ё", "ЁЁЁЁЁЁ")
r = cn.Execute(asd)
r = Nothing
asd = "Select [ID_IZM] From [db].[dbo].[pen] where [db].[dbo].[pen].[nomer_sch1] = " & _
Me.cod.Text & "and [db].[dbo].[pen].[IDENERGY] = '" & enid & "' and [db].[dbo].[pen].[DATA_OPL] ='" & _
Format(DateValue(Me.data.Text), "MM-dd-yyyy") & "' and [db].[dbo].[pen].[suma] =" & Me.gumar.Text & ";"
r = cn.Execute(asd)
Me.order.Text = r.Fields(0).Value
r = Nothing
cn.Close()
'Call sumadd(Me.Name)
'Me.erse.PerformClick()
End Sub
|