mdlpub.bas

来自「一个很好玩的程序。典型的专家系统应用程序。可以实现多种专家级别的物品识别」· BAS 代码 · 共 11 行

Attribute VB_Name = "mdlPub"
Option Explicit
Public Const MaxRecNumber = 200
Public Con As ADODB.Connection
Public Agree As Boolean
Private Const ConStr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source="
Public Sub main()
         Agree = False
         frmAbout.Show vbModal
         If Agree = False Then
                MsgBox "眤ぃ