📄 frmoption.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmOption
BorderStyle = 3 'Fixed Dialog
Caption = "系统设置"
ClientHeight = 4770
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 7125
Icon = "frmOption.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4770
ScaleWidth = 7125
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin TabDlg.SSTab SSTab1
Height = 3945
Left = 90
TabIndex = 3
Top = 90
Width = 6945
_ExtentX = 12250
_ExtentY = 6959
_Version = 393216
Style = 1
Tabs = 1
TabHeight = 520
TabCaption(0) = "座落设置(&L)"
TabPicture(0) = "frmOption.frx":000C
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label2"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label3"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label4"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label5"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label6"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "txtLocation"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "txtJzmc"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "txtBjcdw"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "txtCly"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "txtHyy"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "txtMemo"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).ControlCount= 12
Begin VB.TextBox txtMemo
Height = 330
Left = 1680
TabIndex = 14
Top = 2625
Width = 5130
End
Begin VB.TextBox txtHyy
Height = 330
Left = 1680
TabIndex = 12
Top = 2220
Width = 5130
End
Begin VB.TextBox txtCly
Height = 330
Left = 1680
TabIndex = 11
Top = 1815
Width = 5130
End
Begin VB.TextBox txtBjcdw
Height = 330
Left = 1680
TabIndex = 10
Top = 1410
Width = 5130
End
Begin VB.TextBox txtJzmc
Height = 330
Left = 1680
TabIndex = 9
Top = 1005
Width = 5130
End
Begin VB.TextBox txtLocation
Height = 330
Left = 1680
TabIndex = 0
Top = 615
Width = 5130
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "备注："
Height = 180
Left = 1185
TabIndex = 13
Top = 2700
Width = 540
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "建筑名称："
Height = 180
Left = 825
TabIndex = 8
Top = 1080
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "核验员："
Height = 180
Left = 1005
TabIndex = 7
Top = 2295
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "测量员："
Height = 180
Left = 1005
TabIndex = 6
Top = 1890
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "被检测单位(个人)："
Height = 180
Left = 105
TabIndex = 5
Top = 1485
Width = 1620
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "当前座落(地址)："
Height = 180
Left = 285
TabIndex = 4
Top = 675
Width = 1440
End
End
Begin VB.CommandButton CancelButton
Cancel = -1 'True
Caption = "取消(&C)"
Height = 420
Left = 5460
TabIndex = 2
Top = 4200
Width = 1215
End
Begin VB.CommandButton OKButton
Caption = "确定(&O)"
Default = -1 'True
Height = 420
Left = 3990
TabIndex = 1
Top = 4200
Width = 1215
End
End
Attribute VB_Name = "frmOption"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub CancelButton_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim rs As ADODB.Recordset
On Error GoTo ErrHandler
Screen.MousePointer = 11
Set rs = MAP_CONN.Execute("SELECT * FROM tbTable WHERE LyrName='" & REGION_LAYER & "'")
If Not rs.EOF And Not rs.BOF Then
txtLocation.Text = "" & rs("zl")
txtJzmc.Text = "" & rs("Jzmc")
txtBjcdw.Text = "" & rs("Bjcdw")
txtCly.Text = "" & rs("Cly")
txtHyy.Text = "" & rs("Hyy")
txtMemo.Text = "" & rs("Memo")
Else
txtLocation.Enabled = False
txtLocation.BackColor = Me.BackColor
OKButton.Enabled = False
End If
If Not rs Is Nothing Then
If rs.State = adStateOpen Then
rs.Close
End If
Set rs = Nothing
End If
Screen.MousePointer = 0
Exit Sub
ErrHandler:
Screen.MousePointer = 0
If Not rs Is Nothing Then
If rs.State = adStateOpen Then
rs.Close
End If
Set rs = Nothing
End If
txtLocation.Enabled = False
txtLocation.BackColor = Me.BackColor
OKButton.Enabled = False
End Sub
Private Sub OKButton_Click()
Dim szSQL As String
On Error Resume Next
'save the modification
szSQL = "UPDATE tbTable SET zl='" & txtLocation.Text & "'," & _
"Bjcdw='" & txtBjcdw.Text & "'," & _
"Cly='" & txtCly.Text & "'," & _
"Hyy='" & txtHyy.Text & "'," & _
"Jzmc='" & txtJzmc.Text & "'," & _
"Memo='" & txtMemo.Text & "' " & _
"WHERE LyrName='" & REGION_LAYER & "'"
MAP_CONN.Execute szSQL
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -