📄 石家庄.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{9D6ED199-5910-11D2-98A6-00A0C9742CCA}#4.0#0"; "MAPX40.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form 石家庄
AutoRedraw = -1 'True
Caption = "石家庄"
ClientHeight = 5955
ClientLeft = 60
ClientTop = 510
ClientWidth = 11355
LinkTopic = "Form1"
Picture = "石家庄.frx":0000
ScaleHeight = 5955
ScaleWidth = 11355
StartUpPosition = 3 '窗口缺省
Begin ComctlLib.ListView ListView1
Height = 1935
Left = 120
TabIndex = 3
Top = 3360
Width = 5295
_ExtentX = 9340
_ExtentY = 3413
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 327682
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MSDataListLib.DataCombo DataCombo1
Bindings = "石家庄.frx":6F75
Height = 330
Left = 120
TabIndex = 2
Top = 3000
Width = 5295
_ExtentX = 9340
_ExtentY = 582
_Version = 393216
Text = "请选择地区"
End
Begin MSAdodcLib.Adodc Adodc2
Height = 735
Left = 9000
Top = 960
Visible = 0 'False
Width = 1575
_ExtentX = 2778
_ExtentY = 1296
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc1
Height = 735
Left = 7320
Top = 960
Visible = 0 'False
Width = 1575
_ExtentX = 2778
_ExtentY = 1296
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "石家庄.frx":6F8A
Height = 2175
Left = 120
TabIndex = 1
Top = 720
Width = 5415
_ExtentX = 9551
_ExtentY = 3836
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin MapXLib.Map Map1
Height = 4935
Left = 5640
TabIndex = 0
Top = 720
Width = 5415
_Version = 400013
_ExtentX = 9551
_ExtentY = 8705
_StockProps = 1
GeoDictionary = "GeoDictionary"
GeoSet = "石家庄"
GeoSetUserName = "石家庄"
CurrentTool = 1000
Zoom = .11616
MaxSearchTime = 30
CenterX = 6.01712715323971E-04
CenteryY = -5.1626989542902E-04
Rotation = 0
FeatureEditMode = 1
NodeHandleSize = 0
TitleText = "石家庄"
DataSetGeoField = ""
AutoRedraw = -1 'True
PreferCompactLegends= 0 'False
TitleVisible = 0 'False
MousePointer = 0
MouseIcon = ""
MatchThreshold = 80
WaitCursorEnabled= -1 'True
MousewheelSupport= 1
MatchNumericFields= 0 'False
RedrawInterval = 10
PanAnimationLayer= 0 'False
InfotipSupport = -1 'True
InfotipPopupDelay= 500
DefaultConversionResolution= 12
ExportSelection = 0 'False
NumLayers = 1
Layer0.path = "石家庄名称.TAB"
Layer0.name = "石家庄名称"
Layer0.visible = -1 'True
Layer0.selectable= -1 'True
Layer0.editable = 0 'False
Layer0.shownodes= 0 'False
Layer0.showcentroids= 0 'False
Layer0.showlinedirection= 0 'False
Layer0.autolabel= -1 'True
Layer0.zoomlayering= 0 'False
Layer0.minzoom = 0
Layer0.maxzoom = 0
Layer0.DrawLabelsAfter= 0 'False
Layer0.styleoverride= 0 'False
Layer0.labelstyle.TextFontBackColor= 16777215
Layer0.labelstyle.SymbolChar= 0
BeginProperty Layer0.labelstyle.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Layer0.labelstyle.LineStyle= 1
Layer0.labelstyle.LineWidth= 1
Layer0.LabelMax = 100
Layer0.LabelOverlap= 0 'False
Layer0.LabelDuplicate= -1 'True
Layer0.LabelOffset= 2
Layer0.LabelLineType= 0
Layer0.LabelZoomMax= 10000
Layer0.LabelZoomMin= 0
Layer0.LabelZoom= 0 'False
Layer0.LabelVisible= -1 'True
Layer0.LabelOrientation= 0
Layer0.LabelParellel= -1 'True
Layer0.PartialSegments= 0 'False
TitleStyle.TextFontBackColor= 16777215
TitleStyle.TextFontOpaque= -1 'True
TitleStyle.SymbolChar= 0
BeginProperty TitleStyle.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 24.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty TitleStyle.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 23.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DefaultStyle.TextFontBackColor= 16777215
DefaultStyle.SupportsBitmapSymbols= -1 'True
DefaultStyle.SymbolChar= 55
DefaultStyle.SymbolFontBackColor= 16777215
BeginProperty DefaultStyle.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty DefaultStyle.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Map Symbols"
Size = 14.25
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DefaultStyle.LineStyle= 1
DefaultStyle.LineWidth= 1
DefaultStyle.RegionColor= 16777215
DefaultStyle.LinePattern= 2
DefaultStyle.RegionBackColor= 16777215
DefaultStyle.RegionBorderStyle= 1
DefaultStyle.RegionBorderWidth= 1
HasProjectionInfo= -1 'True
NumericCoordsys = "石家庄.frx":6F9F
DisplayCoordsys = "石家庄.frx":70CF
NumDatasets = 0
TitleX = 5000
TitleY = 1000
TitleVisible = 0 'False
TitleEditable = -1 'True
TitlePostiion = 0
TitleBorder = -1 'True
End
End
Attribute VB_Name = "石家庄"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Dim p As Picture
Private Sub Form_Load()
Set p = LoadPicture("D:\何二佳毕业设计\图片\Blue hills.jpg") '写上你自己的图片"
Picture = p
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mdb\mdb.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "石家庄土地等级"
Adodc1.Refresh
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "名称"
ListView1.ColumnHeaders.Add , , "等级"
ListView1.ColumnHeaders.Add , , "面积（平方千米）"
ListView1.ColumnHeaders.Add , , "人口（人）"
DataCombo1.ListField = "名称"
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mdb\mdb.mdb;Persist Security Info=False"
End Sub
Private Sub Form_Resize()
Set Picture = Nothing
PaintPicture p, 0, 0, Width, Height
Debug.Print Width
Dim R As Integer
Dim mymenu
mymenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu mymenu, &HF060, R
End Sub
Private Sub DataCombo1_Change()
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "Select * from 石家庄土地等级 where 名称= '" & DataCombo1.Text & "'"
Adodc2.Refresh
'Data2.RecordSource = "Select * from 石家庄土地分等 where 名称='" & DataCombo1.Text & "'"
'Data2.Refresh
'ListView1.ListItems.Clear
'Dim Lst As ListItem
'Do While Not Data2.Recordset.EOF
Set Lst = ListView1.ListItems.Add(, , Adodc2.Recordset.Fields("名称"))
Lst.SubItems(1) = Adodc2.Recordset.Fields("等级")
Lst.SubItems(2) = Adodc2.Recordset.Fields("面积(平方千米)")
Lst.SubItems(3) = Adodc2.Recordset.Fields("人口（人）")
'Lst.SubItems(4) = Adodc2.Recordset.Fields("人口（人）")
'Data2.Recordset.MoveNext
'Loop
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -