📄 frm_xqinfo.frm
字号:
Begin VB.TextBox Text1
Height = 300
Index = 2
Left = 1095
MaxLength = 50
TabIndex = 12
Top = 735
Width = 4875
End
Begin VB.TextBox Text1
Height = 300
Index = 1
Left = 3075
MaxLength = 50
TabIndex = 11
Top = 285
Width = 2895
End
Begin VB.CommandButton CmdClearPicture
Caption = "清除图片"
Height = 350
Left = 7695
TabIndex = 10
Top = 5235
Width = 1000
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 300
Index = 0
Left = 1095
MaxLength = 50
TabIndex = 9
Top = 300
Width = 1035
End
Begin VB.Frame Frame2
Caption = "概貌图"
Height = 2910
Left = 6075
TabIndex = 8
Top = 180
Width = 3195
Begin VB.Image Image1
Height = 2115
Left = 90
Stretch = -1 'True
Top = 210
Width = 3000
End
Begin VB.Label Lbllj
BackStyle = 0 'Transparent
Height = 405
Left = 540
TabIndex = 39
Top = 2400
Width = 2475
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "图片"
Height = 180
Index = 12
Left = 75
TabIndex = 38
Top = 2430
Width = 360
End
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 300
Left = 4095
TabIndex = 18
Top = 3360
Width = 1830
_ExtentX = 3228
_ExtentY = 529
_Version = 393216
Format = 67436545
CurrentDate = 39406
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 300
Left = 1110
TabIndex = 19
Top = 3360
Width = 1830
_ExtentX = 3228
_ExtentY = 529
_Version = 393216
Format = 67436545
CurrentDate = 39406
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "小区编号"
Height = 180
Index = 0
Left = 165
TabIndex = 33
Top = 345
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "小区说明"
Height = 180
Index = 2
Left = 165
TabIndex = 32
Top = 795
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "交工日期："
Height = 180
Left = 165
TabIndex = 31
Top = 3450
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "地址"
Height = 180
Index = 10
Left = 165
TabIndex = 30
Top = 2535
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "备注"
Height = 180
Index = 11
Left = 165
TabIndex = 29
Top = 3000
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "占地面积"
Height = 180
Index = 9
Left = 165
TabIndex = 28
Top = 2115
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "居住面积"
Height = 180
Index = 7
Left = 2175
TabIndex = 27
Top = 1695
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "小区名称"
Height = 180
Index = 1
Left = 2190
TabIndex = 26
Top = 360
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "负责人"
Height = 180
Index = 3
Left = 165
TabIndex = 25
Top = 1260
Width = 540
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "竣工日期："
Height = 180
Left = 3090
TabIndex = 24
Top = 3420
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "建筑面积"
Height = 180
Index = 6
Left = 165
TabIndex = 23
Top = 1695
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "绿化面积"
Height = 180
Index = 8
Left = 4125
TabIndex = 22
Top = 1695
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "楼栋数"
Height = 180
Index = 4
Left = 2190
TabIndex = 21
Top = 1260
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "总户数"
Height = 180
Index = 5
Left = 4140
TabIndex = 20
Top = 1245
Width = 540
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = -105
Top = 2595
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame Frame3
Height = 750
Left = 3915
TabIndex = 1
Top = 3945
Width = 5460
Begin VB.CommandButton CmdExit
Caption = "返回"
Height = 350
Left = 4500
TabIndex = 5
Top = 240
Width = 900
End
Begin VB.CommandButton CmdDelete
Caption = "删除"
Height = 350
Left = 3615
TabIndex = 6
Top = 240
Width = 900
End
Begin VB.CommandButton CmdCancel
Caption = "取消"
Height = 350
Left = 2730
TabIndex = 4
Top = 240
Width = 900
End
Begin VB.CommandButton CmdUpdate
Caption = "修改"
Height = 350
Left = 1845
TabIndex = 40
Top = 240
Width = 900
End
Begin VB.CommandButton CmdSave
Caption = "保存"
Height = 350
Left = 960
TabIndex = 3
Top = 240
Width = 900
End
Begin VB.CommandButton CmdAdd
Caption = "添加"
Height = 350
Left = 75
TabIndex = 2
Top = 240
Width = 900
End
End
Begin VB.Frame Frame4
Height = 750
Left = 60
TabIndex = 0
Top = 3945
Width = 3885
Begin VB.CommandButton CmdMD
BackColor = &H00FFC0C0&
Caption = "第一个"
Height = 350
Index = 0
Left = 105
Picture = "Frm_xqinfo.frx":1C7A
TabIndex = 44
Top = 255
Width = 900
End
Begin VB.CommandButton CmdMD
BackColor = &H00FFC0C0&
Caption = "最后一个"
Height = 350
Index = 3
Left = 2775
Picture = "Frm_xqinfo.frx":32C4
TabIndex = 43
Top = 255
Width = 900
End
Begin VB.CommandButton CmdMD
BackColor = &H00FFC0C0&
Caption = "上一个"
Height = 350
Index = 1
Left = 990
Picture = "Frm_xqinfo.frx":4871
TabIndex = 42
Top = 255
Width = 900
End
Begin VB.CommandButton CmdMD
BackColor = &H00FFC0C0&
Caption = "下一个"
Height = 350
Index = 2
Left = 1875
Picture = "Frm_xqinfo.frx":5DA3
TabIndex = 41
Top = 255
Width = 900
End
End
End
Attribute VB_Name = "Frm_xqinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub view_data() '声明一个显示中数据的过程
On Error Resume Next
With Adodc1.Recordset
For i = 0 To 11
If .Fields(i) <> "" Then
Text1(i).Text = .Fields(i)
Else
Text1(i).Text = ""
End If
Next i
If .Fields("图片") <> "" Then
Lbllj.Caption = .Fields("图片")
If Dir(.Fields("图片")) <> "" Then
Image1.Picture = LoadPicture(.Fields("图片"))
Else
MsgBox "此图片路径错误，请更改！"
Image1.Picture = LoadPicture("")
End If
Else
Lbllj.Caption = ""
Image1.Picture = LoadPicture("")
End If
End With
End Sub
Private Sub CmdUpdate_Click() '修改
'设置控件状态
CmdUpdate.Enabled = False '设置修改按钮不可用
CmdAdd.Enabled = False '设置添加按钮不可用
CmdDelete.Enabled = False '设置删除按钮不可用
CmdCancel.Enabled = True '设置取消按钮可用
CmdSave.Enabled = True '设置保存按钮可用
For i = 0 To 3
CmdMD(i).Enabled = True
Next i
Text1(1).SetFocus '设置焦点
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -