You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
105 lines
4.5 KiB
105 lines
4.5 KiB
Public Class frmPrivatAnsprechpartner
|
|
Dim db As New clsDB
|
|
Dim m_nrprivat As Integer
|
|
Property nrprivat As Integer
|
|
Get
|
|
Return m_nrprivat
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nrprivat = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_id As Integer
|
|
Property id As Integer
|
|
Get
|
|
Return m_id
|
|
End Get
|
|
Set(value As Integer)
|
|
m_id = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_isnew As Boolean
|
|
Property is_new As Boolean
|
|
Get
|
|
Return m_isnew
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_isnew = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Sub frmPrivatAnsprechpartner_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
If id > 0 Then
|
|
db.Get_Tabledata("Ansprechpartner", "", "Select * from privat_ansprechpartner where id=" + Me.id.ToString)
|
|
Fill_Form()
|
|
End If
|
|
|
|
If is_new Then
|
|
db.Get_Tabledata("Ansprechpartner", "", "Select top 1 * from privat_ansprechpartner order by id desc")
|
|
Dim idnew As Integer
|
|
If db.dsDaten.Tables(0).Rows.Count = 0 Then idnew = 1 Else idnew = db.dsDaten.Tables(0).Rows(0).Item(0) + 1
|
|
Me.id = idnew
|
|
db.Exec_SQL("Insert Privat_Ansprechpartner (id,nrprivat, erstellt_am, mutiert_am, mutierer,aktiv) values(" + idnew.ToString + "," + Me.nrprivat.ToString + ",'" + Now.ToString + "','" + Now.ToString + "'," + Globals.ActUser.ToString + ",1)")
|
|
db.Get_Tabledata("Ansprechpartner", "", "Select * from privat_ansprechpartner where id=" + Me.id.ToString)
|
|
Me.txtName.Text = ""
|
|
Me.txtadresse1.Text = ""
|
|
Me.txtadresse2.Text = ""
|
|
Me.txtPLZ.Text = ""
|
|
Me.txtOrt.Text = ""
|
|
Me.txttelp.Text = ""
|
|
Me.txtE_Mail.Text = ""
|
|
Me.txtBemerkung.Text = ""
|
|
Me.txtErstellt_am.Text = Now.ToString
|
|
Me.txtMutiert_am.Text = Now.ToString
|
|
Me.txtMutierer.Text = Globals.ActUser
|
|
Me.id = idnew
|
|
update_data()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Fill_Form()
|
|
Me.txtName.Text = db.dsDaten.Tables(0).Rows(0).Item("Name")
|
|
Me.txtadresse1.Text = db.dsDaten.Tables(0).Rows(0).Item("Adresse1")
|
|
Me.txtadresse2.Text = db.dsDaten.Tables(0).Rows(0).Item("adresse2")
|
|
Me.txtadresse3.Text = db.dsDaten.Tables(0).Rows(0).Item("adresse3")
|
|
Me.txtstrasse.Text = db.dsDaten.Tables(0).Rows(0).Item("strasse")
|
|
Me.txtPLZ.Text = db.dsDaten.Tables(0).Rows(0).Item("plz")
|
|
Me.txtOrt.Text = db.dsDaten.Tables(0).Rows(0).Item("ort")
|
|
Me.txttelp.Text = db.dsDaten.Tables(0).Rows(0).Item("telefon")
|
|
Me.txtE_Mail.Text = db.dsDaten.Tables(0).Rows(0).Item("email")
|
|
Me.txtBemerkung.Text = db.dsDaten.Tables(0).Rows(0).Item("bemerkung")
|
|
Me.txtErstellt_am.Text = db.dsDaten.Tables(0).Rows(0).Item("erstellt_am").ToString
|
|
Me.txtMutiert_am.Text = db.dsDaten.Tables(0).Rows(0).Item("mutiert_am").ToString
|
|
Me.txtMutierer.Text = db.dsDaten.Tables(0).Rows(0).Item("mutierer").ToString
|
|
End Sub
|
|
|
|
Sub update_data()
|
|
db.dsDaten.Tables(0).Rows(0).Item("Name") = Me.txtName.Text
|
|
db.dsDaten.Tables(0).Rows(0).Item("Adresse1") = Me.txtadresse1.Text
|
|
db.dsDaten.Tables(0).Rows(0).Item("adresse2") = Me.txtadresse2.Text
|
|
db.dsDaten.Tables(0).Rows(0).Item("adresse3") = Me.txtadresse3.Text
|
|
db.dsDaten.Tables(0).Rows(0).Item("strasse") = Me.txtstrasse.Text
|
|
db.dsDaten.Tables(0).Rows(0).Item("plz") = Me.txtPLZ.Text
|
|
db.dsDaten.Tables(0).Rows(0).Item("ort") = Me.txtOrt.Text
|
|
db.dsDaten.Tables(0).Rows(0).Item("telefon") = Me.txttelp.Text
|
|
db.dsDaten.Tables(0).Rows(0).Item("email") = Me.txtE_Mail.Text
|
|
db.dsDaten.Tables(0).Rows(0).Item("bemerkung") = Me.txtBemerkung.Text
|
|
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
|
|
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
|
|
db.Update_Data()
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
update_data()
|
|
Me.DialogResult = DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Me.DialogResult = DialogResult.Cancel
|
|
Me.Close()
|
|
End Sub
|
|
End Class |