module1.bas

一个用VB编写的订单系统

Attribute VB_Name = "Module1"
Public hxffh As Boolean
Public hxffhz As String
Public hxfpiclj As String
Public hxftplj As String
Public hxfcjyhm As String * 6
Public hxfcjyhkl As String * 6
Public hxfyhm As String
Public hxfyh As String
Public hxfyhkl As String * 6
Sub Main()
    frmLogin.Show vbModal
    If Not frmLogin.OK Then
        '登录失败，退出应用程序
        End
    End If
    Unload frmLogin
    frmSplash.Show
    frmSplash.Refresh
    Load frmMain
    Unload frmSplash
    frmMain.Show
End Sub

Public Function filef(fname$) As Boolean
On Error Resume Next
   Dim X As Integer
   X = FreeFile
   Open fname$ For Input As X
   If Err = 0 Then
      filef = True
   Else
      filef = False
   End If
   Close X
End Function

Public Sub TEXTF(CTL As Control)
     CTL.SelStart = 0
     CTL.SelLength = Len(CTL.Text)
End Sub