mdlapp.bas

给别人开发的用于毕业设计的程序

Attribute VB_Name = "mdlApp"
Public AppPath As String
Public strAppDb As String
Public getManager As String
Public Function getDbStr() As String
    getDbStr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=xiao;Persist Security Info=False;Data Source=" & _
                                        AppPath & "\dock.mdb"
End Function

Public Sub chkTxt(txtB As TextBox)
    Dim strtmp As String
    strtmp = txtB.Text
    If Len(strtmp) > 50 Then
        txtB.Text = Mid(strtmp, 1, 50)
        Beep
    End If
End Sub


Public Function AllDelStr(DT As String, DX As String) As String '删除字符串内某一文字
If Len(DT) = 0 Then Exit Function
Do
W = InStr(DT, DX)
If W = 0 Then Exit Do
DT = Left(DT, W - 1) & Right(DT, Len(DT) - W - Len(DX) + 1)
Loop
AllDelStr = DT
End Function

Public Sub delErr(Txt As TextBox)
    Dim Mystr As String
    Mystr = Txt.Text
    Call AllDelStr(Mystr, "'")
    Txt.Text = Mystr
    SendKeys "{end}"
End Sub