module1.bas

车次查询－输入要查询的车次既可查询车次所有的停靠站 站点查询－输入一个站点

Attribute VB_Name = "Module1"
Public user_name As String

 Public Function testtxt(txt As String) As Boolean
  If Trim(txt) = "" Then
   testtxt = False
   Else
    testtxt = True
   End If
   
 End Function