module1.bas

来自「企业工资管理系统」· BAS 代码 · 共 14 行

Attribute VB_Name = "Module1"
'Public constr As String
'Public actiontype As String
'Public iflag As Boolean
Public Sub Main()


constr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\企业工资管理系统.mdb;"

frmLogin.Show

End Sub