module1.bas

商品进销存管理系统 采用VB和SQL2000开发 具有很强的实用性

Attribute VB_Name = "Module1"
'*************************************************************************
'**模 块 名：Module1
'**版权说明：吉林省明日科技有限公司享有本软件的所有版权，如果本软件用于商
'**          业用途，必须经过吉林省明日科技有限公司授权。如果提供网上免费
'**          下载，必须经过吉林省明日科技有限公司授权，并保证程序的完整，
'**          不得修改代码、注释和相关内容，否则，我公司将追究其法律责任
'**网    址：www.mingrisoft.com  价值无限，服务无限
'**电    话：[phone],84978982
'**创 建 人：明日科技
'**日    期：2007-10-31
'**修 改 人：MRLBB
'**日    期：2007-10-31
'**描    述：
'*************************************************************************

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public LngMedicine As Long
Public myRowSel
Public OP As String
Public mm As Integer
Public bFlag As Boolean

'*************************************************************************
'**函 数 名：Cnn
'**输    入：无
'**输    出：(ADODB.Connection)
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：明日科技
'**日    期：2007-10-24
'**修 改 人：
'**日    期：
'*************************************************************************

Public Function Cnn() As ADODB.Connection     '定义函数
    Set Cnn = New ADODB.Connection
    Cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_JXC;Data Source=."
End Function


Public Function RegInfo(myform As Form) As String
    Dim intext As String, Tstr As String
    Open (App.Path & "\系统日志.ini") For Input As #1
    Do While Not EOF(1)
        Line Input #1, intext
        Tstr = Tstr + intext + Chr(13) + Chr(10)
    Loop
    Close #1
    Tstr = Tstr + "   操作员：" + OP + "               " + Format(Now, "yyyy-mm-dd hh:mm:ss") + "              " & myform.Tag & Chr(13) & Chr(10)
    Open (App.Path & "\系统日志.ini") For Output As #1
    Print #1, Tstr
    Close #1
End Function
Public Function PYZH(mystr As String) As String
    If Asc(mystr) < 0 Then
        If Asc(Left(mystr, 1)) < Asc("啊") Then
            PYZH = "0"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("啊") And Asc(Left(mystr, 1)) < Asc("芭") Then
            PYZH = "A"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("芭") And Asc(Left(mystr, 1)) < Asc("擦") Then
            PYZH = "B"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("擦") And Asc(Left(mystr, 1)) < Asc("搭") Then
            PYZH = "C"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("搭") And Asc(Left(mystr, 1)) < Asc("蛾") Then
            PYZH = "D"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("蛾") And Asc(Left(mystr, 1)) < Asc("发") Then
            PYZH = "E"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("发") And Asc(Left(mystr, 1)) < Asc("噶") Then
            PYZH = "F"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("噶") And Asc(Left(mystr, 1)) < Asc("哈") Then
            PYZH = "G"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("哈") And Asc(Left(mystr, 1)) < Asc("击") Then
            PYZH = "H"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("击") And Asc(Left(mystr, 1)) < Asc("喀") Then
            PYZH = "J"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("喀") And Asc(Left(mystr, 1)) < Asc("垃") Then
            PYZH = "K"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("垃") And Asc(Left(mystr, 1)) < Asc("妈") Then
            PYZH = "L"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("妈") And Asc(Left(mystr, 1)) < Asc("拿") Then
            PYZH = "M"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("拿") And Asc(Left(mystr, 1)) < Asc("哦") Then
            PYZH = "N"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("哦") And Asc(Left(mystr, 1)) < Asc("啪") Then
            PYZH = "O"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("啪") And Asc(Left(mystr, 1)) < Asc("期") Then
            PYZH = "P"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("期") And Asc(Left(mystr, 1)) < Asc("然") Then
            PYZH = "Q"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("然") And Asc(Left(mystr, 1)) < Asc("撒") Then
            PYZH = "R"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("撒") And Asc(Left(mystr, 1)) < Asc("塌") Then
            PYZH = "S"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("塌") And Asc(Left(mystr, 1)) < Asc("挖") Then
            PYZH = "T"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("挖") And Asc(Left(mystr, 1)) < Asc("昔") Then
            PYZH = "W"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("昔") And Asc(Left(mystr, 1)) < Asc("压") Then
            PYZH = "X"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("压") And Asc(Left(mystr, 1)) < Asc("匝") Then
            PYZH = "Y"
            Exit Function
        End If
        If Asc(Left(mystr, 1)) >= Asc("匝") Then
            PYZH = "Z"
            Exit Function
        End If
    Else
        If UCase(mystr) <= "Z" And UCase(mystr) >= "A" Then
            PYZH = UCase(Left(mystr, 1))
        Else
            PYZH = mystr
        End If
    End If
End Function