Script

2002-10-09

Formattera rätt

Javascript

Format-funktion för att formattera t ex valuta

function kronFormat (expr) {
    var str = "" + Math.round (eval(expr) * Math.pow(10, 2))
    while (str.length <= 2) {
        str = "0" + str
    }
    var decpoint = str.length - 2
    return str.substring(0, decpoint) + "," + str.substring(decpoint,str.length) + " kr";
}
//kalla på formatteringsfunktionen...
document.write(kronFormat(4.27543));

2002-10-03

Special dialogruta

Javascript

Definierar en egen alertruta

function htmlAlert( text ) {
    var remote = window.open("", "AlertWin", "resizable=no,status=no,width=420,height=240,scrollbars=no,toolbar=no");
    remote.document.write("<html><head><title>Alert</title></head>" +
          "<body bgcolor=lightblue><div align=center>" +
          text +
          "<br><br><input type=button value=Stäng onClick=window.close()>" +
          "</div></body></html>");
    remote.document.close();
}

2002-09-18

Spara en cookie

Javascript

Spara en cookie

var user = 'Me';
var passw = 'MyPassword';

var exp = new Date();
var oneYearFromNow = exp.getTime() + (365 * 24 * 60 * 60 * 1000);
exp.setTime(oneYearFromNow);
exp.toGMTString();
document.cookie = 'user=' + user + ';passw=' + passw + ';expires=' + exp.toGMTString();

2002-09-18

Skapa ett dynamiskt dataSet i .NET

VB.NET

Det går att jobba med dataset utan databaser i .NET

Private Sub createDataSet()

        '********************************************************
        'Skapar ett nytt dataset och fyller det med tre tabeller. 
        '********************************************************


        'skapar ny tabell med användare
        '2 kolumner: a_id och namn...
        anvTable = New DataTable("anvandare")
        anvTable.Columns.Add("a_id", System.Type.GetType("System.Int32"))
        anvTable.Columns("a_id").AutoIncrement = True
        anvTable.Columns.Add("namn", System.Type.GetType("System.String"))
        ds.Tables.Add(anvTable)

        'skapar ny tabell med kostnadsställen
        '2 kolumner: k_id och kostnadsstalle...
        kstTable = New DataTable("kostnadsstallen")
        kstTable.Columns.Add("k_id", System.Type.GetType("System.Int32"))
        kstTable.Columns("k_id").AutoIncrement = True
        kstTable.Columns.Add("kostnadsstalle", System.Type.GetType("System.String"))
        ds.Tables.Add(kstTable)

        'skapar ny tabell med många till många relation 
        'mellan ovanstående 2 tabeller
        '2 kolumner: a_id, k_id...
        relTable = New DataTable("anv_kst")
        relTable.Columns.Add("a_id", System.Type.GetType("System.Int32"))
        relTable.Columns.Add("k_id", System.Type.GetType("System.Int32"))
        ds.Tables.Add(relTable)


        '***********************************************************

        'definierar primärnycklar: a_id, (a_id och k_id) och k_id...
        Dim anv_key() As DataColumn = _
        {ds.Tables("anvandare").Columns("a_id")}
        ds.Tables("anvandare").PrimaryKey = anv_key

        'sammansatt primärnyckel i mellantabellen...
        Dim rel_key() As DataColumn = _
        {ds.Tables("anv_kst").Columns("a_id"), _
        ds.Tables("anv_kst").Columns("k_id")}
        ds.Tables("anv_kst").PrimaryKey = rel_key

        Dim kst_key() As DataColumn = _
        {ds.Tables("kostnadsstallen").Columns("k_id")}
        ds.Tables("kostnadsstallen").PrimaryKey = kst_key


        '************************************************************

        'definierar relationerna mellan tabellerna...
        Dim dr1 As DataRelation = New DataRelation("anv_anvkst", _
        ds.Tables("anvandare").Columns("a_id"), _
        ds.Tables("anv_kst").Columns("a_id"))
        ds.Relations.Add(dr1)

        Dim dr2 As DataRelation = New DataRelation("kst_anvkst", _
        ds.Tables("kostnadsstallen").Columns("k_id"), _
        ds.Tables("anv_kst").Columns("k_id"))
        ds.Relations.Add(dr2)

End Sub

Private Sub insertTestAnvandare()
        'sätter in lite testdata användare...
        Dim tmpNamn() As String = {"Rolf Fredriksson", _
        "Anders Ekman", "Bengt Egevad", "Lena Davidsson", _
        "Anna Persson", "Malena Hellborg"}

        Dim i As Integer
        For i = 0 To UBound(tmpNamn)

            Dim dr As DataRow = anvTable.NewRow()
            dr(1) = tmpNamn(i)
            anvTable.Rows.Add(dr)

        Next
End Sub

Private Sub populateComboBox()
        'visar kolumnen 'namn' från datasettets
        'tabell 'användare' i comboboxen...
        cboAnvandare.DataSource = anvTable 'ds.Tables("anvandare")
        cboAnvandare.DisplayMember = "namn"
End Sub

Private Sub createTestKostnadsstallen()
        'sätter in lite testdata i kostnadsstallen...
        Dim tmpK_stalle() As String = {"Kaffe", _
        "Porto", "Kopiering", "Kunden", _
        "Programvara", "Frugan"}

        Dim i As Integer
        For i = 0 To UBound(tmpK_stalle)

            Dim dr As DataRow = kstTable.NewRow()
            dr(1) = tmpK_stalle(i)
            kstTable.Rows.Add(dr)

        Next
End Sub

Private Sub populateLbKostnadsstallen()
        'visar kolumnen 'kostnadsstalle' från datasettets
        'tabell 'kostnadsstallen' i listboxen...
        populateLbKostnadsstallen.DataSource = ds.Tables("kostnadsstallen")
        populateLbKostnadsstallen.DisplayMember = "kostnadsstalle"
End Sub

Private Sub createTestAnv_Kst()

        'sätter in lite testdata i mellantabellen...
        Dim dr1 As DataRow = relTable.NewRow()
        dr1(0) = 1
        dr1(1) = 3
        relTable.Rows.Add(dr1)

        Dim dr2 As DataRow = relTable.NewRow()
        dr2(0) = 1
        dr2(1) = 4
        relTable.Rows.Add(dr2)

End Sub

2002-09-13

Sno inte koden

Javascript

Inget högerklick 2

<script language="JavaScript">
<!--
var message = 'Ja, så kan det gå...\n' +
'Det bästa exemplet stod läraren själv för' +
'och varför gå efter ån...?';

function click(e) {
  if (document.all) { //NS
    if (event.button == 2) {
      alert(message);
      return false;
    }
  }
  if (document.layers) { //IE
    if (e.which == 3) {
      alert(message);
      return false;
    }
  }
}
if (document.layers) { //IE
  document.captureEvents(Event.MOUSEDOWN);
}
document.onmousedown = click;
// -->
</script>