module1.bas

本系统是根据企业的特点

Attribute VB_Name = "Module1"
Public chen As Double
Public aa As String
Public xingming As String
Public users As String * 14
Public passes As String * 8
Public cc As Long
Public bb As String
Public dd As Long

Sub RegisterDataSource()
Dim en As rdoEnvironment
   Dim cnTest As rdoConnection
Dim strAttribs As String
'建造关键字字符串。
strAttribs = "DBQ=" & App.Path & "\电脑经营系统.mdb" & Chr$(13) & "OemToAnsi=No" & Chr$(13) & "SERVER=SEQUEL" & Chr$(13) & "Network=DBNMPNTW" & Chr$(13) & "Database=WorkDB" & Chr$(13) & "Address=\\SEQUEL\PIPE\SQL\QUERY"
'建立新的注册的 DSN。
rdoEngine.rdoRegisterDataSource "电脑经营系统", "Microsoft Access Driver (*.mdb)", True, strAttribs
Set en = rdoEngine.rdoEnvironments(0)
    Set cnTest = en.OpenConnection(dsname:="电脑经营系统", Prompt:=rdDriverNoPrompt, Connect:="UID=admin;PWD=14813808;")
     
    
End Sub

Sub Main()



  ' Call RegisterDataSource

   frmLogin.Show vbModal
   If Not frmLogin.OK Then
   ' 登录失败 , 退出应用程序
    End
   End If
  Unload frmLogin
  frmMain.Show
  frmMain.Refresh
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