Attribute VB_Name = "Module1"
Public i As Integer
Public j As Integer
Public Const cns1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

Public Const cns2 As String = "\cssp.mdb;Persist Security Info=False"
'判斷 f6_hyguanli 的load 類型
Public hygl As Integer
'在f6_hyxinxi和f6_hyguanli之間傳遞帳號
Public cdzh
'MsgBox "請輸入帳號！", vbOKOnly + vbExclamation + vbApplicationModal, "提示"
'在查看訂單和修改訂單之間傳遞信息
Public ddchkxg As Integer


'xw = MsgBox("該訂單尚未入庫，是否刪除？", vbOKCancel + vbQuestion, "詢問")
    'If xw = vbOK Then
   ' Adodc1.Recordset.Delete
   ' Adodc1.Recordset.Update
   ' Adodc1.Refresh: Exit Sub
   ' End If
   ' If xw = vbCancel Then
   ' Exit Sub
   ' End If


'傳遞庫存信息修改

Public kcxxxg As Integer


'傳遞用戶帳號
Public yhid As String
'傳遞管理員帳號
Public glyid As String




'區分用戶登陸和用戶結算的身份驗證 1 登陸 2 結算
Public dlojs As Integer
'判斷結算類型 1 普通 2 會員
Public jslx As Integer

Public mm As Integer
'判斷買賣類型 1 買 2 賣

Public sbid As String
'傳遞供給書籍號碼

Public pa As Integer
'辨別進入個人管理的路徑
'1 買書進 2 賣書進 3 賬戶進
 
Public xxlx As String
'信息類型
Public ddlx As String
'訂單類型
Public temp2 As String