www.pudn.com > 一个完整的数据库管理程序.zip > Module1.bas

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