main.bas

婚姻介绍所管理信息系统

Attribute VB_Name = "MainBas"
Sub main()
    If MsgBox("数据库初始化将删除当前所有数据，确定要继续进行吗？", vbYesNo + vbExclamation, "警告") = vbYes Then
        FrmDataInit.Show
    Else
        Exit Sub
    End If
End Sub