module1.bas

这是我的一个课题：我省农业分布调查咨询系统。课题是和省农业厅合作的。源代码完整

Attribute VB_Name = "Module1"
Public mybuttontown As String
Public fMainForm As frmMain
Public Const RulerToolID = 104 ' This is the identifier used for the custom Ruler tool
Public Const PolyRulerToolID = 105 ' This is the identifier used for the custom Poly Ruler tool
Public UsePolyRuler As Boolean ' If UsePolyRuler is true, then use the polygon length tool
                         ' if not, use the line length tool
Public RulerUnit As Integer ' The MapInfo constant for the unit that the ruler length
                         ' should be in (e.g. miUnitMile)
Public RulerUnitString As String ' The string corresponding to that ruler unit
                              ' (e.g. "Miles")
Public ExportHeight As Double ' These are dimensions of the printed/exported output
Public ExportWidth As Double ' They can be set in the "Options" dialog

Public ExportFormat As Integer ' This is the constant that corresponds to the format
                            ' of the exported bitmap (e.g. miFormatBMP)
Public ExportFormatString As String ' This is the name of the format (e.g. "Windows Bitmap")
Public ExportFormatExt As String ' This is the 3 letter long extension that
Public Connect As New ADODB.Connection
Public RS      As New ADODB.Recordset
Public TempRS  As New ADODB.Recordset
Public CoruscateFeatures As MapXLib.Features
Public Coruscate As Boolean
Sub Main()
    Connect.Open "Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\scdb_yearsdata.mdb;Persist Security Info=False"
    Set fMainForm = New frmMain
'    App.HelpFile = "加油站帮助系统.chm"
    Frmbegin.Show
End Sub