module1.bas

出版社图书出货管理系统,包括图书的出库,入库,结果输出

Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Global worktok As String
Global xddb As Database
Global times As Integer
Global dwstring As String
Global welcomestring As String
Global thankstring As String
Global rexg As Integer
Global botyn As Integer
Global banben As String
Global singleanddc As String
Global maxrecord As Long
Global rcrecordx As Long
Global gcrecordx As Long
Sub Main()
    frmSplash.Show 1
    'frmSplash.Refresh
    Set fMainForm = New frmMain
    Load fMainForm
   ' Unload frmSplash
    fMainForm.Show
End Sub


Function Filexists(filename As String) As Boolean
       On Error GoTo nofile
            Open filename For Input As #1
            Close #1
            Filexists = True
            Exit Function
nofile:
        Filexists = False
 
End Function


Function Getfield(ByVal Oneline As String, Fieldlab As String) As String
        insdot% = InStr(Oneline, Fieldlab)
        If insdot% = 0 Then
              Getfield = ""
              GoTo lab2
          End If
        Oneline$ = Mid$(Oneline$, insdot% + 2, Len(Oneline$) - insdot% - 1)
        For ind% = 1 To Len(Oneline$)
          charind$ = Mid$(Oneline$, ind%, 1)
          If charind$ = "@" Then
               Oneline$ = Left$(Oneline$, ind% - 1)
               Exit For
           End If
        Next ind%
        Getfield = LTrim$(RTrim$(Oneline$))
lab2:
End Function

Function isbndel(ByVal isbn As String) As String
   isbndel = ""
   For i = 1 To Len(isbn)
     If Mid(isbn, i, 1) <> "-" Then
      isbndel = isbndel & Mid(isbn, i, 1)
     End If
   Next i
End Function
Function isbndelt(ByVal isbn As String) As String
'去/后面的东西
   isbndelt = ""
   For i = 1 To Len(isbn)
     If Mid(isbn, i, 1) <> "/" Then
      isbndelt = isbndelt & Mid(isbn, i, 1)
      Else
      Exit For
     End If
   Next i
End Function
Function pricedel(ByVal price As String) As String
   pricedel = ""
   For i = 1 To Len(price)
     achar = Mid(price, i, 1)
     
     If ((achar >= "0") And (achar <= "9")) Or (achar = ".") Then
       pricedel = pricedel & Mid(price, i, 1)
     End If
     
   Next i
End Function