mdlpub.bas

该软件通过使用者选择病情以及症状,可以初步判断患者所患何病.

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