mdldata.bas

一套鞋厂的销售管理系统

Attribute VB_Name = "mdlData"
Option Explicit
Global Const msgDelete = "确定删除记录？"
Global cn As New ADODB.Connection
Global mItem As String
Public FindReturnCodeString As String, ReturnStringArray As String, sqlstring As String
Private MainDbConnect As New ADODB.Connection


Public Function cField(Field As String) As String
    cField = Field
End Function

Sub ExeCute(SQL As String)
    Dim ss As New ADODB.Recordset
    ss.Open SQL, cn
End Sub
Sub Opads(ss As Recordset, SQL As String)
On Error Resume Next
    ss.Open SQL, cn, adOpenStatic
End Sub
Sub Opadc(adodc As adodc, SQL As String)
Dim ss As New Recordset
adodc.ConnectionString = ConnectionString
adodc.RecordSource = SQL
adodc.Refresh
End Sub
Sub Listadd(List As Control, Field As String, SQL As String)
On Error GoTo Err
Dim ss As New Recordset
Opads ss, SQL
If ss.RecordCount > 0 Then
    List.Clear
    ss.MoveFirst
    Do While Not ss.EOF
    List.AddItem ss.Fields(Field)
    ss.MoveNext
    Loop
End If
Err:
End Sub

Sub IniTitle(Grid As Control, ParamArray Title())
Dim i As Long, X As Variant
On Error Resume Next
Grid.Row = 0
i = 0
For Each X In Title
Grid.Col = i
Grid.Text = X
i = i + 1
Next
End Sub
Public Function FilterField(rstTemp As ADODB.Recordset, strField As String, strFilter As String) As ADODB.Recordset
   rstTemp.Filter = strField & " = '" & strFilter & "'"
   Set FilterField = rstTemp
End Function
'Public Function FindItem() As String
'frmFind.Show vbModal
'FindItem = mItem
'End Function
'======================zhu==============================


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
  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
    FindShop = FindReturnCodeString
End Function
Public Function FindOrderCode() As String
Fm_OrderList.Show
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

Public Function NChar(ByVal vChar As String) As String
    Dim s As String
    s = vChar
    NChar = s
End Function