module1.bas

来自「射频卡收费系统 自主开发 可以用于任何商业收费场所」· BAS 代码 · 共 32 行

Attribute VB_Name = "Module1"
 Option Explicit

Public yonghuming As String
Public mima As String
Public quanxian As String

Public jine As Double

Public com_x As Integer
Public dblianjie As String
Sub Main()
If App.PrevInstance = True Then

'Call MsgBox("这个程序正在运行！", vbExclamation)

End

End If

'If Date < #6/1/2006# Then
    
    
    dblianjie = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\shfdb.mdb;Persist Security Info=False"
    Form1.Show
    
'Else
'    Call MsgBox("程序试用期已到！", vbExclamation, "提示")
'End If

End Sub