📄 frmwopcl_p.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmWOPCL_P
Caption = "江苏省农作物遥感监测结果打印"
ClientHeight = 2310
ClientLeft = 165
ClientTop = 450
ClientWidth = 5970
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2310
ScaleWidth = 5970
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox txtWLP_ANE
Enabled = 0 'False
Height = 270
Left = 3600
TabIndex = 14
Top = 1320
Width = 855
End
Begin VB.ComboBox cboWLP_ANE
Height = 300
Left = 4560
TabIndex = 13
Top = 1320
Width = 1095
End
Begin VB.ComboBox cboMM_SC
Height = 300
Left = 4560
TabIndex = 12
Top = 360
Width = 1095
End
Begin VB.TextBox txtMM_SC
Enabled = 0 'False
Height = 270
Left = 3600
TabIndex = 11
Top = 360
Width = 855
End
Begin VB.ComboBox cboMM_LC
Height = 300
Left = 2400
TabIndex = 9
Top = 360
Width = 1095
End
Begin VB.TextBox txtMM_LC
Enabled = 0 'False
Height = 270
Left = 1440
TabIndex = 8
Top = 360
Width = 855
End
Begin VB.TextBox txtWLP_ANB
Enabled = 0 'False
Height = 270
Left = 1680
TabIndex = 7
Top = 1320
Width = 735
End
Begin VB.TextBox txtWLP_SC
Enabled = 0 'False
Height = 270
Left = 1440
TabIndex = 6
Top = 840
Width = 855
End
Begin VB.ComboBox cboWLP_ANB
Height = 300
Left = 2520
TabIndex = 5
Top = 1320
Width = 975
End
Begin VB.ComboBox cboWLP_SC
Height = 300
Left = 2400
TabIndex = 4
Top = 840
Width = 1095
End
Begin MSComDlg.CommonDialog dlgDatabase
Left = 3480
Top = -240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton cmdPrint
Caption = "打印[&P]"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3480
TabIndex = 1
Top = 1800
Width = 975
End
Begin VB.CommandButton cmdExit
Caption = "退出[&E]"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1680
TabIndex = 0
Top = 1800
Width = 975
End
Begin VB.Label Label1
Caption = "选择市(县):"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 240
TabIndex = 10
Top = 360
Width = 1215
End
Begin VB.Label Label1
Caption = "选择分类序号:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 240
TabIndex = 3
Top = 1320
Width = 1455
End
Begin VB.Label Label1
Caption = "监测作物:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 240
TabIndex = 2
Top = 840
Width = 1095
End
Begin VB.Menu mnuFile
Caption = "文件"
Begin VB.Menu mnuFileBack
Caption = "退出"
End
End
End
Attribute VB_Name = "frmWOPCL_P"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' *******w *** ******************************** ******* *********
' Modu1e: frmPTW. frm
' Description:
' Programrner:
' *********** ********-****** ********************************
'Dim RecordSelect_0 As Recordset
'Dim RecordSelect_1 As Recordset
'Dim Query, Query1, SSS As String, i, j, jj As Integer
'Dim MyTable As Word.Table, MyRange As Word.Range
Function Find_PC(CN As String, AC As String) As String '针对txtMM_CN和txtMM_AC，找相对应的代码
Select Case CN
Case "徐州市"
Select Case AC
Case "丰县"
Find_PC = "320321"
Case "沛县"
Find_PC = "320322"
Case "铜山县"
Find_PC = "320323"
Case "睢宁县"
Find_PC = "320324"
Case "邳州市"
Find_PC = "320325"
Case "新沂市"
Find_PC = "320326"
Case "市区"
Find_PC = "320327"
End Select
Case "连云港市"
Select Case AC
Case "灌云县"
Find_PC = "320723"
Case "灌南县"
Find_PC = "320822"
Case "赣榆县"
Find_PC = "320721"
Case "东海县"
Find_PC = "320722"
Case "市区"
Find_PC = "320701"
End Select
Case "宿迁市"
Select Case AC
Case "沭阳县"
Find_PC = "320823"
Case "宿豫县"
Find_PC = "320824"
Case "泗洪县"
Find_PC = "320827"
Case "泗阳县"
Find_PC = "320825"
Case "市区"
Find_PC = "320802"
End Select
Case "盐城市"
Select Case AC
Case "盐都县"
Find_PC = "320911"
Case "响水县"
Find_PC = "320921"
Case "滨海县"
Find_PC = "320922"
Case "阜宁县"
Find_PC = "320923"
Case "射阳市"
Find_PC = "320924"
Case "建湖县"
Find_PC = "320925"
Case "大丰市"
Find_PC = "320926"
Case "东台市"
Find_PC = "320927"
Case "市区"
Find_PC = "320901"
End Select
Case "淮阴市"
Select Case AC
Case "涟水县"
Find_PC = "320826"
Case "淮阴县"
Find_PC = "320821"
Case "洪泽县"
Find_PC = "320829"
Case "金湖县"
Find_PC = "320831"
Case "淮安市"
Find_PC = "320828"
Case "盱眙县"
Find_PC = "320830"
Case "市区"
Find_PC = "320801"
End Select
End Select
End Function
Sub Print_WOPCL_P() '监督解译遥感面积汇总表
'写表的标题
'Dim K As Integer '记录正在打印的市有多少个记录
'本示例给活动文档中的第四个单词添加双下划线。
'ActiveDocument.Words(4).Underline = wdUnderlineDouble
'本示例给选定内容添加单下划线。
'If Selection.Type = wdSelectionNormal Then
' Selection.Font.Underline = wdUnderlineSingle
'Else
' MsgBox "You need to select some text."
'End If
On Error GoTo PrintError '处理数据库字段为空时
stSQL = "Select * from WOPCL_M where WLM_LC='" & txtMM_LC & "' AND WLM_SC='" & txtMM_SC & "' AND WLM_CLT='" & txtWLP_SC & "' AND WLM_CLTN>='" & txtWLP_ANB & "' AND WLM_CLTN<='" & txtWLP_ANE & "'"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -