mdlzhu.bas

来自「一套鞋厂的销售管理系统」· BAS 代码 · 共 61 行

Attribute VB_Name = "mdlZHU"
Option Explicit
Public FindReturnCodeString As String, ReturnStringArray As String, SqlString As String

Public Function ComboListChick(vCombo As ComboBox, vSql As String)
  Dim ListRst As New ADODB.Recordset
  ListRst.Open vSql, GetConnect, adOpenDynamic, adLockOptimistic
  vCombo.Clear
  vCombo.AddItem "*"
  If ListRst.BOF And ListRst.EOF Then
    MsgBox "朱"
  Else
   
    ListRst.MoveFirst
    Do Until ListRst.EOF
         vCombo.AddItem ListRst!Name
         ListRst.MoveNext
    Loop
  End If
   vCombo.Text = "*"
End Function
Public Function FindShop() As String
    Fm_FindShop.Show vbModal
    FindShop = FindReturnCodeString
End Function
Public Function FindOrderCode() As String
Fm_OrderList.Show vbModal
FindOrderCode = FindReturnCodeString
End Function

Public Function NameCode(vSql As String)
  Dim ListRst As New ADODB.Recordset
  ListRst.Open vSql, GetConnect, adOpenDynamic, adLockOptimistic
  If ListRst.BOF And ListRst.EOF Then
     MsgBox "出错!", , "提示信息"
  Else
     NameCode = ListRst!Code
  End If
End Function
Public Function CodeName(vSql As String)
  Dim ListRst As New ADODB.Recordset
  ListRst.Open vSql, GetConnect, adOpenDynamic, adLockOptimistic
  If ListRst.BOF And ListRst.EOF Then
     MsgBox "出错!", , "提示信息"
  Else
     CodeName = ListRst!Name
  End If
End Function

Public Function CodeCode(vSql As String)
  Dim ListRst As New ADODB.Recordset
  ListRst.Open vSql, GetConnect, adOpenDynamic, adLockOptimistic
  If ListRst.BOF And ListRst.EOF Then
     MsgBox "出错!", , "提示信息"
  Else
      CodeCode = ListRst!Province
  End If
End Function