startup.bas

来自「一个图书馆的VB做的mis系统」· BAS 代码 · 共 40 行

Attribute VB_Name = "startup"
Sub main()


'程序初始化


load_form.Show

login_form.Hide







End Sub




Public Sub ends()


Dim s As Integer



    s = MsgBox("是否退出系统", vbOKCancel, "确认")
 
 If s = 1 Then

   End

 End If


End Sub