module_wopcl.bas

对ACCESS数据库的数据根据用户的选择做简单分类

Attribute VB_Name = "Module_WOPCL"
'APPENDIX B: APPLICATION CODE MODULES
'This appendix contains the Visual Basic code modules that define the data
'management Systems interface and functionality.
' ***************************************************************
' Modu1e: Modu1e1. bas
' Description: Displays an Open File dialog box upon execution
' and loads the main form after setting the
' database file name as a global variable.
' Programmer: Zesheng
'****************************************************************
Option Explicit
Public db As Database
Public gstNewdatabase, stSQL As String
Public rsMS As Recordset
Public WordAPp As Word.Application '用于出表
Public Doc As Word.Document '用于出表
Public Sel As Word.Selection '用于出表
Public WhichTable As String '记录正在打印哪一个表
'Public RecordSelect_0 As Recordset
'Public RecordSelect_1 As Recordset
Public Function GetNewDatabase(a_Name As Form) As String
'allows user to browse fQr database
    Dim iResp As Integer
    Dim stMsg As String
        
    stMsg = "输入数据库文件名吗?"
    iResp = MsgBox(stMsg, vbYesNo + vbQuestion, "选择数据库")
'if user does not want to bIowse for file
    If iResp = vbNo Then
'set database name to -b1ank.
        GetNewDatabase = ""
    Else
'if user opts to find database
        With a_Name.dlgDatabase
            .FileName = App.Path & "\*.mdb" ' gstNewDatabase
            .Filter = "Database files (*.mdb)|*.mdb|All files(*.*)|*.*"
'if error encountered, skip next comand
            On Error Resume Next
            .ShowOpen
            If Err.Number = cdlCancel Then
                GetNewDatabase = ""
            Else
'set return filenane to se1ected fi1e
                GetNewDatabase = .FileName
            End If
        End With
    End If
End Function
Public Sub SetMM_LC(a_Name As Form) '把作物表的值赋给ComboBox控件

              a_Name.cboMM_LC.AddItem "徐州市"
              a_Name.cboMM_LC.AddItem "连云港市"
              a_Name.cboMM_LC.AddItem "淮阴市"
              a_Name.cboMM_LC.AddItem "盐城市"
              a_Name.cboMM_LC.AddItem "宿迁市"


End Sub
Public Sub FillCboMM_SC(a_Name As Form)
          
          a_Name.cboMM_SC.Clear
          
          Select Case a_Name.txtMM_LC
             Case "徐州市"
                 a_Name.cboMM_SC.AddItem "丰县"
                 a_Name.cboMM_SC.AddItem "沛县"
                 a_Name.cboMM_SC.AddItem "铜山县"
                 a_Name.cboMM_SC.AddItem "睢宁县"
                 a_Name.cboMM_SC.AddItem "邳州市"
                 a_Name.cboMM_SC.AddItem "新沂市"
                 a_Name.cboMM_SC.AddItem "市区"
                 
             Case "连云港市"
                 a_Name.cboMM_SC.AddItem "灌云县"
                 a_Name.cboMM_SC.AddItem "灌南县"
                 a_Name.cboMM_SC.AddItem "赣榆县"
                 a_Name.cboMM_SC.AddItem "东海县"
                 a_Name.cboMM_SC.AddItem "市区"
                 
             Case "宿迁市"
                 a_Name.cboMM_SC.AddItem "沭阳县"
                 a_Name.cboMM_SC.AddItem "宿豫县"
                 a_Name.cboMM_SC.AddItem "泗洪县"
                 a_Name.cboMM_SC.AddItem "泗阳县"
                 a_Name.cboMM_SC.AddItem "市区"
                 
             Case "盐城市"
                 a_Name.cboMM_SC.AddItem "盐都县"
                 a_Name.cboMM_SC.AddItem "响水县"
                 a_Name.cboMM_SC.AddItem "滨海县"
                 a_Name.cboMM_SC.AddItem "阜宁县"
                 a_Name.cboMM_SC.AddItem "射阳市"
                 a_Name.cboMM_SC.AddItem "建湖县"
                 a_Name.cboMM_SC.AddItem "大丰市"
                 a_Name.cboMM_SC.AddItem "东台市"
                 a_Name.cboMM_SC.AddItem "市区"
             Case "淮阴市"
                 a_Name.cboMM_SC.AddItem "涟水县"
                 a_Name.cboMM_SC.AddItem "淮阴县"
                 a_Name.cboMM_SC.AddItem "洪泽县"
                 a_Name.cboMM_SC.AddItem "金湖县"
                 a_Name.cboMM_SC.AddItem "淮安市"
                 a_Name.cboMM_SC.AddItem "盱眙县"
                 a_Name.cboMM_SC.AddItem "市区"
           End Select
End Sub