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 "眤ぃ