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