dataobject.vb

来自「asp.net技术内幕的书配源码」· VB 代码 · 共 31 行

Imports System
Imports System.IO

Namespace myComponents

Public Class DataObject

  Sub saveOrder( _
    Customer As String, _
    Product As String, _
    UnitPrice As Double, _
    Quantity As Integer, _
    State As String )

    Dim strPath As String = "c:\orders.txt"
    Dim strmFile As StreamWriter

    strmFile = File.AppendText( strPath )
    strmFile.Write( "customer: " & customer & Environment.NewLine )
    strmFile.Write( "product: " & product & Environment.NewLine )
    strmFile.Write( "unit price: " & unitPrice.ToString() & Environment.NewLine )
    strmFile.Write( "quantity: " & quantity.ToString() & Environment.NewLine )
    strmFile.Write( "state: " & state & Environment.NewLine )
    strmFile.Write( "=============" & Environment.NewLine )
    strmFile.Close
  End Sub

End Class

End Namespace