Log

Er det ikke det som dit source control system gør for dig?

For en ebd-tumpe som mig taler du i gåder :-/

http://en.wikipedia.org/wiki/Revision_control

Jeg har vist ikke forklaret mig ret godt.
Det jeg ønsker at registrere er det der skrives i formens tekstfelter og de ændringer der foretages.

Ah. Det er jo lidt noget andet.

Men hvad er det konkret du vil vide?

Udfra de foreliggende oplysninger kan man jo ikke sige meget andet end at du skal logge nå data ændres.

Eksempelvis:
En form der hedder Hovedkort (der indeholder en del tekstfelter). Jeg ønsker at dokumentere hvad der skrives, hvornår der skrives og af hvem. Det er et krav i min sygehusverden!

Sæt den rigtige event på felterne og log der hvor du nu vil have logget.

Kunne du give et eksempel?

this.textBox1.TextChanged += new System.EventHandler(this.TextBox1TextChanged);

...

        private string oldval = "";
        private void TextBox1TextChanged(object sender, EventArgs e)
        {
            MessageBox.Show("We are now logging that user " + Environment.UserName + " has changed " + textBox1.Name + " from '" + oldval + "' to '" + ((TextBox)sender).Text + "'");
            oldval = ((TextBox)sender).Text;
        }

Det var da vist ikke VB .net programmering?
Jeg kan godt se hvad du laver men kan man sammansætte en kode der tager højde for ænding i alle tekstbokse (der gemmes når formen lukkes) eller skal det gøres for hver tekstboks!

Sorry - det er C#.

I VB.NET ser det ud som:

AddHandler Me.textBox1.TextChanged, AddressOf Me.TextBox1TextChanged
       
...

        Private oldval As String = ""
        Private Sub TextBox1TextChanged(sender As Object, e As EventArgs)
            MessageBox.Show("We are now logging that user " & Environment.UserName & " has changed " & textBox1.Name & " from '" & oldval & "' to '" & DirectCast(sender, TextBox).Text & "'")
            oldval = DirectCast(sender, TextBox).Text
        End Sub

Jeg er nok nødt til at bede om lidt mere/en del mere hjælp!

Hvor skal f.eks. linien: "AddHandler Me.textBox1.TextChanged, AddressOf Me.TextBox1TextChanged" placeres?

I den kode som definerer formen.

Hvis du i designer dobbelt clicker på text boxen, så bør den linie indsættes helt automatisk og en stub for sub'en bliver også genereret.

Jeg er klar over at der dannes en Private Sub Textbox1Textchanged MEN jeg har lidt svært ved at placere:

AddHandler Me.textBox1.TextChanged, AddressOf Me.TextBox1TextChanged

Den bliver sat ind ved samme process.

Den ligger i den Xxxxxx.designer.vb fil som ligger bag ved det som du ser i designeren.

OK jeg troede at det var en linje jeg skulle indsætte!
Når formen åbnes hentes data fra SQL database og der fremkommer derfor en del beskeder fra koden hvilket ikke er hensigtsmæssigt! Hvordan kan det undgåes?

Jeg har i stedet gjort som følger:

Private Sub TextBox2_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Enter
        oldval = TextBox2.Text

    End Sub

    Private Sub TextBox2_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Leave
        If oldval <> DirectCast(sender, TextBox).Text Then
            MessageBox.Show("We are now logging that user " & Environment.UserName & " has changed " & TextBox1.Name & " from '" & oldval & "' to '" & DirectCast(sender, TextBox).Text & "'")
        Else
            oldval = DirectCast(sender, TextBox).Text
        End If
    End Sub

Nu mangler så "bare" at lave en tekstfil og skrive til den hver gang teksten ændres :-)
Du har vel ikke en god løsning på dette?

Uanset så svar så du kan få point :-)

For at skrive til en fil kan du bruge StreamWriter med append flaget sat til true.

Du kan også bruge et logging framework eller gemme log i en database.

Dim sw As StreamWriter = New StreamWriter(logfilename", True)
sw.WriteLine("bla bla")
sw.Close

og et svar