htglmain.bas

来自「本软件为咨询公司开发的合同管理软件,运用MDB数据库.」· BAS 代码 · 共 37 行

Attribute VB_Name = "htglmain"
Public xx As String
Public xxcom_1 As String
Public xxcom_2 As String
Public htbh As String
Public mmdb As Database
Public mmr As Recordset
Public dblj As String
Public czk As String
Public dbht As Database
Public rsht As Recordset


Sub main()
    
   
    Set dbht = OpenDatabase(App.Path & "\htgl.ini")
    Set rsht = dbht.OpenRecordset("ini")
    czk = rsht(0)
    rsht.Close
    dbht.Close

frmAbout.Show
    
End Sub


Function FileExists(FileName As String) As Boolean
    On Error Resume Next
    FileExists = Dir$(FileName) <> ""
    If Err.Number <> 0 Then
    FileExists = False
    End If
    On Error GoTo 0
End Function