Option Compare Database
Private sqladdress As String
Private PrintSavebool As Boolean
\'程序初始化
Private Sub Init()
sqladdress = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=U:\2.Personal\Ye\log.mdb;Persist Security Info=False"
PrintSavebool = False
End Sub
\'判断是是否存在在数据库中
\'2014.09.02
\'用于查看
Private Sub CheckOrder(ordernumber As String)
PrintSavebool = False
On Error GoTo ErrHandle
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Set rs = Nothing
SQL = "select [DT] from [PrintLog] where [ORDERID]=" + "\'" + ordernumber + "\'"
conn.Open sqladdress
rs.Open SQL, conn
If Not rs.EOF Then
\' If MsgBox("order number:" + ordernumber + "Print had Done,Time:" + CStr(rs!DT) + " continue?", vbYesNo) = vbYes Then
\'Else
\'Cancle = True
\'End If
MsgBox "order number:" + ordernumber + "Print had Done,Time:" + CStr(rs!DT) + " continue?"
PrintSavebool = False
Else
PrintSavebool = True
End If
rs.Close
Set rs = Nothing
Exit Sub
\'错误处理
ErrHandle:
MsgBox "check log database error"
Exit Sub
End Sub
\'把打印记录放到数据库中
\'2014.09.02
Public Sub SaveOrder(ordernumber As String)
If PrintSavebool = False Then
Exit Sub
End If
On Error GoTo ErrHandle
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Set rs = Nothing
SQL = "insert into [PrintLog]([ORDERID],[DT]) values (" + "\'" + ordernumber + "\'" + "," + "\'" + CStr(Now) + "\'" + ")"
conn.Open sqladdress
rs.Open SQL, conn
Set rs = Nothing
Exit Sub
\'错误处理
ErrHandle:
MsgBox "record log error"
Exit Sub
End Sub
\'Private Sub Report_Page()
\'\'Call Log(Label0.Caption)
\'End Sub
\'在打印
Public Sub Log(ordernumber As String)
Call Init
Call CheckOrder(ordernumber)
Call SaveOrder(ordernumber)
End Sub