?? module1.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -