mdlconndb.bas

婚姻介绍所管理信息系统

Attribute VB_Name = "MdlConndb"
Public sqlStr As String
Public SearchStr As String
Public SearchStr2 As String
Public ConnStr As String
Public UseGame As Boolean
Public ID As String

Public SelByID As Boolean
Public curUser As String
Public curPassWord As String
Public CountAll As Integer

Public curRecord As Integer
Public HasQuery As Boolean
Sub Main()
    frmLogin.Show
End Sub