📄 sys_qysz.frm
字号:
VERSION 5.00
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#3.0#0"; "Resize32.ocx"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form sys_qysz
BorderStyle = 1 'Fixed Single
Caption = "区域设置"
ClientHeight = 6615
ClientLeft = 1695
ClientTop = 1590
ClientWidth = 9495
Icon = "sys_qysz.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 6615
ScaleWidth = 9495
Begin VB.Frame Frame1
Height = 6570
Left = 0
TabIndex = 0
Top = 0
Width = 9435
Begin ResizeLibCtl.ReSize ReSize1
Left = 1140
Top = 4080
_Version = 196608
_ExtentX = 741
_ExtentY = 741
_StockProps = 64
Enabled = -1 'True
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 6615
FormDesignWidth = 9495
End
Begin VB.Frame Frame3
Caption = "预设区域"
Height = 1275
Left = 4545
TabIndex = 16
Top = 360
Width = 4245
Begin VB.ComboBox Combo2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1890
TabIndex = 18
Top = 765
Width = 2250
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
ItemData = "sys_qysz.frx":030A
Left = 1890
List = "sys_qysz.frx":030C
TabIndex = 17
Top = 315
Width = 2250
End
Begin VB.Label Label1
Caption = "市县/地区:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 165
TabIndex = 20
Top = 855
Width = 1365
End
Begin VB.Label Label1
Caption = "国家/省/州:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 120
TabIndex = 19
Top = 360
Width = 1710
End
End
Begin VB.Frame Frame2
Height = 825
Left = 2880
TabIndex = 4
Top = 5655
Width = 6495
Begin VB.CommandButton Cmdreturn
Caption = "返回"
Height = 610
Left = 5820
Picture = "sys_qysz.frx":030E
Style = 1 'Graphical
TabIndex = 14
Top = 150
Width = 615
End
Begin VB.CommandButton Cmdcancel
Caption = "取消"
Height = 610
Left = 5190
Picture = "sys_qysz.frx":0591
Style = 1 'Graphical
TabIndex = 13
Top = 150
Width = 615
End
Begin VB.CommandButton Cmdedit
Caption = "编辑"
Height = 610
Left = 3945
Picture = "sys_qysz.frx":0B63
Style = 1 'Graphical
TabIndex = 12
Top = 150
Width = 615
End
Begin VB.CommandButton Cmddelete
Caption = "删除"
Height = 610
Left = 3330
Picture = "sys_qysz.frx":1135
Style = 1 'Graphical
TabIndex = 11
Top = 150
Width = 615
End
Begin VB.CommandButton CmdOK
Caption = "确认"
Height = 610
Left = 4575
Picture = "sys_qysz.frx":1707
Style = 1 'Graphical
TabIndex = 10
Top = 150
Width = 615
End
Begin VB.CommandButton Cmdadd
Caption = "新增"
Height = 610
Left = 2700
Picture = "sys_qysz.frx":17F9
Style = 1 'Graphical
TabIndex = 9
Top = 150
Width = 615
End
Begin VB.CommandButton cmdqd
Caption = "前端"
Height = 610
Left = 60
Picture = "sys_qysz.frx":1E1B
Style = 1 'Graphical
TabIndex = 8
Top = 150
Width = 615
End
Begin VB.CommandButton cmdxq
Caption = "向前"
Height = 610
Left = 675
Picture = "sys_qysz.frx":23ED
Style = 1 'Graphical
TabIndex = 7
Top = 150
Width = 615
End
Begin VB.CommandButton cmdnext
Caption = "向后"
Height = 610
Left = 1290
Picture = "sys_qysz.frx":29BF
Style = 1 'Graphical
TabIndex = 6
Top = 150
Width = 615
End
Begin VB.CommandButton cmdmd
Caption = "后端"
Height = 610
Left = 1905
Picture = "sys_qysz.frx":2F91
Style = 1 'Graphical
TabIndex = 5
Top = 150
Width = 615
End
End
Begin VB.TextBox Text
DataField = "zheng"
DataSource = "AdoprimaryRs"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 2
Left = 6615
Locked = -1 'True
TabIndex = 3
Top = 3945
Width = 2175
End
Begin VB.TextBox Text
DataField = "shi"
DataSource = "AdoprimaryRs"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 1
Left = 6615
Locked = -1 'True
TabIndex = 2
Top = 3180
Width = 2175
End
Begin VB.TextBox Text
DataField = "sheng"
DataSource = "AdoprimaryRs"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 0
Left = 6615
Locked = -1 'True
TabIndex = 1
Top = 2385
Width = 2175
End
Begin MSComctlLib.TreeView TreeView1
Height = 6300
Left = 75
TabIndex = 21
Top = 180
Width = 2775
_ExtentX = 4895
_ExtentY = 11113
_Version = 393217
Indentation = 35
LineStyle = 1
PathSeparator = "0"
Sorted = -1 'True
Style = 7
ImageList = "ImageList1"
Appearance = 1
OLEDragMode = 1
OLEDropMode = 1
End
Begin MSComctlLib.ImageList ImageList1
Left = 1440
Top = 2280
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "sys_qysz.frx":3563
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "sys_qysz.frx":36BD
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "sys_qysz.frx":3BFF
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "sys_qysz.frx":3D01
Key = ""
EndProperty
EndProperty
End
Begin VB.Label Label1
Caption = "市县/地区:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 4515
TabIndex = 23
Top = 3240
Width = 1365
End
Begin VB.Label Label1
Caption = "国家/省/州:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 4515
TabIndex = 22
Top = 2430
Width = 1530
End
Begin VB.Label Label1
Caption = "乡/镇名称:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 4515
TabIndex = 15
Top = 4020
Width = 1215
End
End
Begin MSAdodcLib.Adodc AdoprimaryRs
Height = 495
Left = 1800
Top = 240
Width = 3375
_ExtentX = 5953
_ExtentY = 873
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 = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -