mdlquick.bas

一套鞋厂的销售管理系统

Attribute VB_Name = "mdlQuick"
Option Explicit
Public Rst_DisPlayQuery As ADODB.Recordset
Public QuickTranCount As Integer, QuickTranArray() As String

Public Sub DisPlayQuery_SQL(ByVal vSql As String, ByVal vHeadString As String, ByVal vReport As String, ByVal vCaption As String, ByVal vModal As Integer, Optional ByVal vWidth As String = "", Optional ByVal vCount As String = "", Optional ByVal vSort As String = "", Optional ByVal vFormat As String = "")
Dim F1 As Form
'提供SQL及标头、对应报表、CAPTION、窗体方式（是否弹出）显示查询结果
    QuickTranCount = 9
    ReDim QuickTranArray(1 To QuickTranCount)
    QuickTranArray(1) = "SQL"
    QuickTranArray(2) = vHeadString
    QuickTranArray(3) = vReport
    QuickTranArray(4) = "查询条件是：" & vCaption
    QuickTranArray(5) = vWidth
    QuickTranArray(6) = vCount
    QuickTranArray(7) = vSort
    QuickTranArray(8) = vFormat
    QuickTranArray(9) = vSql
    Set F1 = New frmQryPlay
    F1.Show vModal

End Sub

Public Sub DisPlayQuery_RST(ByVal vRst As ADODB.Recordset, ByVal vHeadString As String, ByVal vReport As String, ByVal vCaption As String, Optional ByVal vWidth As String = "", Optional ByVal vCount As String = "", Optional ByVal vSort As String = "", Optional ByVal vFormat As String = "")
'提供数据集及标头、对应报表、CAPTION显示查询结果（窗体为弹出方式）
Dim F1 As Form
    Set Rst_DisPlayQuery = vRst
    QuickTranCount = 8
    ReDim QuickTranArray(1 To QuickTranCount)
    QuickTranArray(1) = "RST"
    QuickTranArray(2) = vHeadString
    QuickTranArray(3) = vReport
    QuickTranArray(4) = vCaption
    QuickTranArray(5) = vWidth
    QuickTranArray(6) = vCount
    QuickTranArray(7) = vSort
    QuickTranArray(8) = vFormat
    Set F1 = New frmQryPlay
    F1.Show vbModal
    
End Sub


Public Function FindSqlCode(ByVal vSql As String, Optional ByVal vCaption As String = "查找", Optional ByVal vHead As String = "1|2|3|4|5|6|7|8|9|10|") As String
    QuickTranCount = 3
    ReDim QuickTranArray(1 To QuickTranCount)
    QuickTranArray(1) = vSql
    QuickTranArray(2) = vCaption
    QuickTranArray(3) = vHead
    frmFindCode.Show vbModal
    FindSqlCode = QuickTranArray(1)
End Function

Public Function FindSqlCodeDouble(ByVal vSql As String, ByVal vBuildField As String, ByVal vFilterField As String, Optional ByVal vHeads As String = "", Optional ByVal vWidth As String = "", Optional ByVal vAlignMent As String = "") As String
    QuickTranCount = 6
    ReDim QuickTranArray(1 To QuickTranCount)
    QuickTranArray(1) = vSql
    QuickTranArray(2) = vBuildField
    QuickTranArray(3) = vFilterField
    QuickTranArray(4) = vHeads
    QuickTranArray(5) = vWidth
    QuickTranArray(6) = vAlignMent
    frmFindDoubleCode.Show vbModal
    FindSqlCodeDouble = QuickTranArray(1)
End Function

Public Sub KillString(ByVal vStr As String)
    Dim i As Long, j As Long, s As String
    j = 1
    s = ""
    QuickTranCount = 0
    For i = 1 To Len(vStr)
        If Mid(vStr, i, 1) = "|" Then
            QuickTranCount = j
            ReDim Preserve QuickTranArray(1 To QuickTranCount)
            QuickTranArray(j) = s
            j = j + 1
            s = ""
        Else
            s = s & Mid(vStr, i, 1)
        End If
    Next
End Sub

Public Sub FindSell(ByVal vPHSql As String, ByVal vQTSql As String, ByVal vAssayType As String, ByVal vAssaySQL As String, ByVal vRSSSQL As String, Optional ByVal vCaption As String = "")
    QuickTranCount = 6
    ReDim Preserve QuickTranArray(1 To QuickTranCount)
    QuickTranArray(1) = vPHSql
    QuickTranArray(2) = vQTSql
    QuickTranArray(3) = vAssayType
    QuickTranArray(4) = vAssaySQL
    QuickTranArray(5) = vRSSSQL
    QuickTranArray(6) = "查询条件:" & vCaption
    frmSellQuery.Show
End Sub