 |
|
|
 |
 |
|
เอาหน้าจอมาให้ดูแล้วไม่เอา Code มาจะดูให้ได้ไงละครับ ลอง Debug ดูครับว่ามันไม่ได้ตรงไหน
|
 |
 |
 |
 |
| Date :
2010-01-31 00:11:40 |
By :
KohDev |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
sql command syntax error น่ะ
ลองตรวจคำสั่ง insert ดู
|
| |
|
|
| |
| Date :
2010-01-31 09:51:45 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code
[code][/code]Code (VB.NET)
Option Explicit On
Option Strict On
Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing.Printing
Public Class frmSale
Dim Conn As New OleDbConnection(strConn)
Dim connect As New OleDbConnection
Dim da As New OleDbDataAdapter
Dim ds As DataSet = New DataSet
Dim dt As DataTable
'Dim prDoc As PrintDocument = New PrintDocument
Private prDlg As PrintDialog = New PrintDialog
Dim tmpSumCommission As Double = 0
Dim tmptxtMemId As String = ""
Dim tmptakeid As String = ""
Dim IsFind As Boolean = False
Dim IsFindMember As Boolean = False
Dim IsFindFood As Boolean = False
Dim ToClose As Boolean = False
Dim LastTransID As String = ""
Private Sub frmSale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
With cboTable
.Items.Add("")
'.Items.Add("")
'.Items.Add("")
.SelectedIndex = 0
End With
AutoGeneratetakeid() 'รหัสรันออโต้
lblOrno.Text = tmptakeid
AutoGeneratePayId()
lblPayNo.Text = tmptakeid
lsvFoodList.Columns.Add("รหัสอาหาร", 82, HorizontalAlignment.Center)
lsvFoodList.Columns.Add("รายการอาหาร", 180, HorizontalAlignment.Left)
lsvFoodList.Columns.Add("ราคา/หน่วย", 82, HorizontalAlignment.Center)
lsvFoodList.Columns.Add("จำนวนที่สั่ง", 90, HorizontalAlignment.Center)
lsvFoodList.Columns.Add("รวมเป็นเงิน", 100, HorizontalAlignment.Center)
lsvFoodList.View = View.Details
lsvFoodList.GridLines = True
Conn = New OleDbConnection(strConn)
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
txtAmount.Text = "1"
lblSalePrice.Text = "0"
lbltotal.Text = "0"
'lbltakeid.Focus()
'AddHandler prDoc.PrintPage, New PrintPageEventHandler(AddressOf Me.StringToPrint_Print)
'prDoc.DocumentName = "ใบเสร็จรับเงิน"
'prDlg.Document = prDoc
lblSumBeforeDiscount.Text = "0"
lblDiscount.Text = "0"
lblNet.Text = "0"
txtMemId.Focus()
txtMemId.Focus()
End Sub
Private Sub AutoGeneratetakeid() 'รันเลขที่ใบสั่ง
Dim sqlTmp As String = ""
Dim comTmp As OleDbCommand = New OleDbCommand
Dim Tmp As OleDbDataReader
sqlTmp = "SELECT TOP 1 Or_No FROM Sale ORDER BY Or_No DESC"
Conn = New OleDbConnection(strConn)
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
Try
With comTmp
.CommandType = CommandType.Text
.CommandText = sqlTmp
.Connection = Conn
Tmp = .ExecuteReader()
Tmp.Read()
tmptakeid = CStr(Tmp.Item("Or_No"))
tmptakeid = (CInt(tmptakeid) + 1).ToString("00000")
End With
Catch
tmptakeid = "00001"
End Try
'Tmp.Close()
End Sub
Private Sub AutoGeneratePayId() 'รันเลขที่ใบเสร็จ
Dim sqlTmp As String = ""
Dim comTmp As OleDbCommand = New OleDbCommand
Dim Tmp As OleDbDataReader
sqlTmp = "SELECT TOP 1 Pay_No FROM Pay ORDER BY Pay_No DESC"
Conn = New OleDbConnection(strConn)
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
Try
With comTmp
.CommandType = CommandType.Text
.CommandText = sqlTmp
.Connection = Conn
Tmp = .ExecuteReader()
Tmp.Read()
tmptakeid = CStr(Tmp.Item("Pay_No"))
tmptakeid = (CInt(tmptakeid) + 1).ToString("00000")
End With
Catch
tmptakeid = "00001"
End Try
'Tmp.Close()
End Sub
Private Sub btnShowMemberList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowMemberList.Click
Dim fAllMember As New frmMemberList
fAllMember.ShowDialog(Me)
txtMemId.Text = rMem_Id
txtMemName.Text = rMem_Name
txtidcard.Text = rMemId_Card
If rMem_Sex = "ชาย" Then
OptMale.Checked = True
ElseIf rMem_Sex = "หญิง" Then
OptFemale.Checked = True
End If
txtMemAdd.Text = rMem_Add
txtphone.Text = rMem_Phone
txtMemId.Enabled = True
chkNotMember.Checked = False
rMem_Id = ""
rMem_Name = ""
rMemId_Card = ""
rMem_Sex = "0"
rMem_Add = ""
rMem_Phone = ""
rDateRegis = ""
txtFoodId.Focus()
End Sub
Private Sub chkNotMember_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkNotMember.CheckedChanged
If chkNotMember.Checked = True Then
ClearAllMemberData()
AutoGenerateMemberID()
txtMemId.Enabled = False
'txtidcard.Enabled = False
btnShowMemberList.Enabled = False
txtMemName.Text = ""
txtidcard.Text = ""
txtMemAdd.Text = ""
txtphone.Text = ""
rMem_Id = ""
rMem_Name = ""
rMemId_Card = ""
rMem_Sex = "0"
rMem_Add = ""
rMem_Phone = ""
rIsMember = "1"
txtMemName.Focus()
ElseIf chkNotMember.Checked = False Then
txtMemId.Text = ""
txtMemId.Enabled = True
txtMemId.Focus()
txtMemName.Text = ""
btnShowMemberList.Enabled = True
End If
ClearAllFoodData()
lsvFoodList.Items.Clear()
lblSumBeforeDiscount.Text = "0"
lblDiscount.Text = "0"
lblNet.Text = "0"
'txtFoodId.Focus()
End Sub
Private Sub AutoGenerateMemberID()
Dim sqlTmp As String = ""
Dim comTmp As OleDbCommand = New OleDbCommand
Dim Tmp As OleDbDataReader
Dim tmpMemberID As Integer = 0
sqlTmp = "SELECT TOP 1 Mem_Id FROM Member ORDER BY Mem_Id DESC"
Conn = New OleDbConnection(strConn)
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
Try
With comTmp
.CommandType = CommandType.Text
.CommandText = sqlTmp
.Connection = Conn
Tmp = .ExecuteReader()
Tmp.Read()
tmpMemberID = CInt(CStr((Tmp.Item("Mem_Id"))))
tmpMemberID = tmpMemberID + 1
txtMemId.Text = tmpMemberID.ToString("0000")
End With
Catch
tmptxtMemId = "0001"
End Try
End Sub
Private Sub ClearAllMemberData()
txtMemId.Text = ""
txtMemName.Text = ""
'cbot.SelectedIndex = 0
OptMale.Checked = True
txtidcard.Text = ""
txtphone.Text = ""
txtMemAdd.Text = ""
End Sub
Private Sub ClearAllFoodData()
txtFoodId.Text = ""
lblTitle.Text = ""
txtAmount.Text = "1"
lblSalePrice.Text = ""
lbltotal.Text = "0"
End Sub
Private Sub btnShowOrderList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowOrderList.Click
If txtMemId.Text = "" Then
MessageBox.Show("กรุณาป้อนข้อมูลลูกค้าก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtMemId.Focus()
Exit Sub
End If
Dim fAllFood As New frmOrderFoodList
fAllFood.ShowDialog(Me)
txtFoodId.Text = rFood_Id
lblTitle.Text = rFood_Name
lblSalePrice.Text = rPrice
lbltotal.Text = rFoodCost.ToString()
rFood_Id = ""
rFood_Name = ""
rPrice = ""
rFoodCost = 0
Select Case rIsMember
Case "0"
lbltotal.Text = CStr(rtxtAmount + rPrice)
lbltotal.Text = rTotal.ToString()
End Select
txtAmount.Focus()
End Sub
Private Sub ClearAllData()
txtFoodId.Text = ""
lblTitle.Text = ""
lblSalePrice.Text = ""
txtAmount.Text = "1"
lbltotal.Text = "0"
lblSumBeforeDiscount.Text = "0"
lblDiscount.Text = "0"
lblNet.Text = "0"
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
lsvFoodList.Items.Clear()
ClearAllFoodData()
lbltotal.Text = "0"
lblSumBeforeDiscount.Text = "0"
lblDiscount.Text = "0"
lblNet.Text = "0"
txtFoodId.Focus()
End Sub
Private Sub txtMemId_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMemId.KeyDown
If txtMemId.Text <> "" Then
If (e.KeyCode = Keys.Enter) Then
Dim sqlMember As String = ""
sqlMember = "SELECT Mem_id, Mem_Name, MemId_Card, Mem_Sex, Mem_Add, Mem_Phone"
sqlMember &= " FROM Member"
sqlMember &= " WHERE (Mem_id='" & txtMemId.Text & "')"
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
If IsFindMember = True Then
ds.Tables("Member").Clear()
End If
da = New OleDbDataAdapter(sqlMember, Conn)
da.Fill(ds, "Member")
If ds.Tables("Member").Rows.Count <> 0 Then
IsFind = True
txtMemId.Text = CStr(ds.Tables("Member").Rows(0).Item("Mem_Id"))
txtMemName.Text = CStr(ds.Tables("Member").Rows(0).Item("Mem_Name"))
txtMemAdd.Text = CStr(ds.Tables("Member").Rows(0).Item("Mem_Add"))
txtidcard.Text = CStr(ds.Tables("Member").Rows(0).Item("MemId_Card"))
txtphone.Text = CStr(ds.Tables("Member").Rows(0).Item("Mem_Phone"))
'rIsMember = CStr(ds.Tables("Member").Rows(0).Item("IsMember"))
ClearAllMemberData()
lsvFoodList.Items.Clear()
txtFoodId.Focus()
Else
IsFindMember = False
MessageBox.Show("รายชื่อสมาชิกที่คุณระบุ ไม่มี !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
rMem_Id = ""
rMem_Name = ""
rMemId_Card = ""
rMem_Sex = ""
rMem_Add = ""
rMem_Phone = ""
rDateRegis = "0"
rIsMember = "1"
txtMemId.Focus()
txtMemId.SelectAll()
End If
End If
End If
End Sub
Private Sub txtFoodId_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtFoodId.KeyDown
If txtFoodId.Text <> "" Then
If (e.KeyCode = Keys.Enter) Then
If txtFoodId.Text = "" Then
MessageBox.Show("กรุณาป้อนข้อมูลลูกค้าก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtFoodId.Focus()
Exit Sub
End If
Dim sqlFood As String = ""
sqlFood = "SELECT Food.Food_Id,Food.Food_Name,Food.price,Sale.totle"
sqlFood &= " FROM Food, Sale"
sqlFood &= " WHERE (Food.Food_Id = Sale.Food_Id)"
sqlFood &= " AND (Food.Food_Id='" & txtFoodId.Text & "')"
'sqlFood = "SELECT Food_Id,Food_Name,price "
'sqlFood &= " FROM Food"
'sqlFood &= " WHERE (Food_Id='" & txtFoodId.Text & "')"
If IsFindFood = True Then
ds.Tables("Food").Clear()
End If
da.SelectCommand.CommandText = sqlFood
da.Fill(ds, "Food")
Dim AllDateRent As Integer = 0
If ds.Tables("Food").Rows.Count <> 0 Then
IsFindFood = True
txtFoodId.Text = CStr(ds.Tables("Food").Rows(0).Item("Food_Id"))
lblTitle.Text = CStr(ds.Tables("Food").Rows(0).Item("Food_Name"))
lblSalePrice.Text = CStr(ds.Tables("Food").Rows(0).Item("Price"))
lbltotal.Text = CStr(ds.Tables("Sale").Rows(0).Item("Total"))
txtAmount.Focus()
txtAmount.SelectAll()
Else
IsFindFood = False
MessageBox.Show("ไม่พบรหัสอาหารตามที่คุณระบุ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
ClearAllFoodData()
txtFoodId.Focus()
txtFoodId.SelectAll()
End If
End If
End If
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
If (txtFoodId.Text = "") Or (lblTitle.Text = "") Or (lblSalePrice.Text = "") Or (txtAmount.Text = "") Or (lbltotal.Text = "") Then
txtFoodId.Focus()
Exit Sub
End If
Dim i As Integer = 0
Dim tmpFoodId As String = ""
For i = 0 To lsvFoodList.Items.Count - 1
tmpFoodId = lsvFoodList.Items(i).SubItems(0).Text
If txtFoodId.Text = tmpFoodId Then
MessageBox.Show("คุณเลือกรหัสอาหารซ้ำกัน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtFoodId.Text = ""
lblTitle.Text = ""
lblSalePrice.Text = "0"
txtAmount.Text = "1"
'lbltotal.Text = ""
txtFoodId.Focus()
txtFoodId.SelectAll()
Exit Sub
End If
Next
Dim FoodTotal As Integer = 0
Dim lvi As ListViewItem
FoodTotal = CInt(lblSalePrice.Text) * CInt(txtAmount.Text)
Dim anyData() As String
anyData = New String() { _
txtFoodId.Text, _
lblTitle.Text, _
lblSalePrice.Text, _
txtAmount.Text, _
FoodTotal.ToString("#,##0") _
}
lvi = New ListViewItem(anyData)
lsvFoodList.Items.Add(lvi)
CalculateRent()
ClearAllFoodData()
txtFoodId.Focus()
End Sub
Private Sub lsvFoodList_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lsvFoodList.DoubleClick
Dim i As Integer = 0
For i = 0 To lsvFoodList.SelectedItems.Count - 1
Dim lvi As ListViewItem
lvi = lsvFoodList.SelectedItems(i)
lsvFoodList.Items.Remove(lvi)
Next
CalculateRent()
End Sub
Sub CalculateRent()
Dim i As Integer = 0
Dim tmplblSalePrice As Integer = 0 'ราคา
Dim tmptxtAmount As Integer = 0 'จำนวนที่ขาย
Dim tmplbltotal As Integer = 0 'รวมเป็นเเงิน
Dim tmpSum As Integer = 0 'ผลรวม
Dim tmpDiscount As Integer = 0 'ส้วนลด กรณีเป็นลูกค้า
Dim tmpNet As Integer = 0 'ยอดที่ต้องจ่าย
If rIsMember = "1" Then
rRentRateDiscount = 0
End If
For i = 0 To lsvFoodList.Items.Count - 1
tmptxtAmount = CInt(lsvFoodList.Items(i).SubItems(2).Text)
tmplblSalePrice = CInt(lsvFoodList.Items(i).SubItems(3).Text)
tmplbltotal = CInt(lsvFoodList.Items(i).SubItems(4).Text)
tmpSum = tmpSum + (tmptxtAmount * tmplblSalePrice)
tmpDiscount = tmpDiscount + CInt((tmptxtAmount * tmplblSalePrice) * rRentRateDiscount)
tmpNet = tmpSum - tmpDiscount
Next
lblSumBeforeDiscount.Text = tmpSum.ToString("#,##0.00")
lblDiscount.Text = tmpDiscount.ToString("#,##0.00")
lblNet.Text = tmpNet.ToString("#,##0.00")
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
If txtMemId.Text = "" Then
MessageBox.Show("กรุณาระบุรหัสลูกค้าด้วยค่ะ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtMemId.Focus()
Exit Sub
End If
If chkNotMember.Checked = True Then
If txtMemName.Text = "" Then
MessageBox.Show("กรุณาระบุชื่อลูกค้าด้วยค่ะ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtMemName.Focus()
Exit Sub
End If
End If
If lsvFoodList.Items.Count = 0 Then
MessageBox.Show("กรุณาป้อนรายการสั่งอาหารด้วยค่ะ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtFoodId.Focus()
Exit Sub
End If
Dim sqlAdd As String = ""
Dim comAdd As OleDbCommand = New OleDbCommand
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
Try
If MessageBox.Show("คุณต้องการบันทึกรายการอาหารที่สั่ง ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
AutoGeneratetakeid() 'รหัสรันออโต้
AutoGeneratePayId()
'บันทึกลงส่วน ของ CusOder
sqlAdd = "INSERT INTO Cus0der (Or_No,Ore_date,Mem_Id,Total_Price,Persent,Table_No,No_Count) "
sqlAdd &= " VALUES('" & LastTransID = "" & "',"
sqlAdd &= "'" & dtpAdmitDate.Value.ToShortDateString & "',"
sqlAdd &= "'" & txtMemId.Text & "',"
sqlAdd &= "'" & lbltotal.Text & "',"
sqlAdd &= "'" & lblDiscount.Text & "',"
sqlAdd &= "'" & cboTable.Visible & "',"
sqlAdd &= "'" & lblSumBeforeDiscount.Text & ")"
'sqlAdd &= "0,'0')"
With comAdd
.CommandType = CommandType.Text
.CommandText = sqlAdd
.Connection = Conn
'MessageBox.Show(comAdd.CommandText.ToString())
comAdd.ExecuteNonQuery()
End With
Dim i As Integer = 0
Dim tmpFoodId As String = ""
Dim sqlFood As String = ""
Dim tmptxtAmount As Integer = 0
Dim tmplbltotal As Integer = 0
Dim tmpAmount As Integer = 0
Dim tmplblSalePrice As Integer = 0
Dim tmpSum As Integer = 0
Dim tmpDiscount As Integer = 0
Dim tmpNet As Integer = 0
Dim tmpRentDate As Date
Dim tmpReturnDate As Date
tmpRentDate = Date.Now
If rIsMember = "1" Then
rRentRateDiscount = 0
End If
For i = 0 To lsvFoodList.Items.Count - 1
sqlFood = "INSERT INTO Sale(Or_No,Food_Id,Unit_Price,"
sqlFood &= " Amount,Total"
sqlFood &= " VALUES('" & LastTransID & "',"
tmpFoodId = lsvFoodList.Items(i).SubItems(0).Text
tmptxtAmount = CInt(lsvFoodList.Items(i).SubItems(2).Text)
tmplbltotal = CInt(lsvFoodList.Items(i).SubItems(3).Text)
tmpAmount = CInt(lsvFoodList.Items(i).SubItems(4).Text)
sqlAdd &= "'" & tmpFoodId & "',"
sqlAdd &= "'" & tmpRentDate & "',"
tmpReturnDate = tmpRentDate.AddDays(tmplbltotal)
sqlAdd &= "'" & tmpReturnDate & "',"
sqlAdd &= tmptxtAmount & ","
tmpSum = (tmptxtAmount * tmplblSalePrice)
tmpDiscount = CInt(tmpSum * rRentRateDiscount)
tmpNet = tmpSum - tmpDiscount
sqlAdd &= tmpNet & ","
sqlAdd &= "'0')"
With comAdd
.CommandText = sqlAdd
.ExecuteNonQuery()
End With
sqlFood = "SELECT Food_Id,Food_Name,Type_Id,Price FROM Food"
sqlFood &= " WHERE (ISBN='" & tmpFoodId & "')"
da.SelectCommand.CommandText = sqlFood
da.Fill(ds, "Food")
With comAdd
.CommandText = sqlAdd
.ExecuteNonQuery()
End With
Next
If chkNotMember.Checked = True Then
Dim sqlMem As String = ""
Dim comMember As OleDbCommand = New OleDbCommand
sqlMem = "INSERT INTO Member (Mem_ID,Mem_Name,MemId_Card,Mem_Add, "
sqlMem &= " Mem_Phone,DateRegis,IsMembe)"
sqlMem &= " VALUES ('" & txtMemId.Text & "',"
sqlMem &= "'" & txtMemName.Text & "',"
sqlMem &= "'" & txtidcard.Text & "',"
If OptMale.Checked = True Then
sqlMem &= "'=ชาย',"
ElseIf OptFemale.Checked = True Then
sqlMem &= "'หญิง',"
End If
sqlMem &= "'" & txtMemAdd.Text & "',"
sqlMem &= "'" & txtphone.Text & "',"
sqlMem &= "'" & tmpRentDate & "',"
sqlMem &= "'', '1','0')"
With comMember
.CommandType = CommandType.Text
.CommandText = sqlMem
.Connection = Conn
.ExecuteNonQuery()
End With
End If
MessageBox.Show("บันทึกรายการเช่าหนังสือเรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
If IsInstallPrinter() = True Then
If prDlg.ShowDialog = Windows.Forms.DialogResult.OK Then
'prDoc.Print()
End If
Else
MessageBox.Show("กรุณาติดตั้งเครื่อง Printer ก่อนสั่งพิมพ์เอกสาร", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
ClearAllMemberData()
ClearAllFoodData()
lsvFoodList.Items.Clear()
lblSumBeforeDiscount.Text = "0"
lblDiscount.Text = "0"
lblNet.Text = "0"
chkNotMember.Checked = False
'cboMemberType.SelectedIndex = 0
txtMemId.Enabled = True
txtMemId.Focus()
End If
Catch ErrProcess As Exception
MessageBox.Show("ไม่สามารถบันทึกรายการสั่งอาหารได้ เนื่องจาก " & ErrProcess.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End Try
End Sub
Private Function IsInstallPrinter() As Boolean
'IsInstallPrinter = False
''If prDoc.PrinterSettings.PrinterName = "<no default printer>" Then
'IsInstallPrinter = False
'Else
'IsInstallPrinter = True
'End If
End Function
Private Sub StringToPrint_Print(ByVal sender As Object, ByVal e As PrintPageEventArgs)
End Sub
Private Sub AnyString(ByVal g As Graphics, ByVal printString As String, ByVal xPos As Integer, ByVal yPos As Integer)
End Sub
Sub AutoGenerateTranID()
End Sub
End Class
แก้ให้หน่อย นะค่ะ
|
| |
|
|
| |
| Date :
2010-02-02 19:55:32 |
By :
ยัยใบบ้า |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
