📄 frmcustomer.frm
字号:
VERSION 5.00
Begin VB.Form frmCustomer
Caption = "住户资料录入编辑"
ClientHeight = 7650
ClientLeft = 60
ClientTop = 345
ClientWidth = 8160
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7650
ScaleWidth = 8160
Begin VB.TextBox txtModifyName
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 1530
TabIndex = 19
Top = 2085
Width = 1692
End
Begin VB.TextBox txtModifyDate
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 5955
TabIndex = 18
Top = 2100
Width = 1692
End
Begin VB.TextBox TxtAddress
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 1785
TabIndex = 17
Top = 1365
Width = 5985
End
Begin VB.TextBox txtComment
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 1470
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 12
Top = 2970
Width = 6225
End
Begin VB.TextBox txtPhone
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 5820
TabIndex = 11
Top = 555
Width = 1692
End
Begin VB.TextBox txtName
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 1755
TabIndex = 10
Top = 600
Width = 1692
End
Begin VB.Frame Frame2
Caption = "查看住户信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1092
Left = 630
TabIndex = 5
Top = 4785
Width = 6972
Begin VB.CommandButton lastCommand
Caption = "最后一条记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 4920
TabIndex = 9
Top = 360
Width = 1692
End
Begin VB.CommandButton nextCommand
Caption = "下一条记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 3360
TabIndex = 8
Top = 360
Width = 1452
End
Begin VB.CommandButton previousCommand
Caption = "上一条记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 1800
TabIndex = 7
Top = 360
Width = 1452
End
Begin VB.CommandButton firstCommand
Caption = "第一条记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 240
TabIndex = 6
Top = 360
Width = 1452
End
End
Begin VB.Frame Frame3
Caption = "修改住户信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1092
Left = 615
TabIndex = 0
Top = 6135
Width = 6972
Begin VB.CommandButton deleteCommand
Caption = "删除记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 3465
TabIndex = 4
Top = 390
Width = 1455
End
Begin VB.CommandButton cancelCommand
Caption = "关闭退出"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 5085
TabIndex = 3
Top = 390
Width = 1605
End
Begin VB.CommandButton updateCommand
Caption = "保存记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 1830
TabIndex = 2
Top = 390
Width = 1500
End
Begin VB.CommandButton editCommand
Caption = "修改记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 270
TabIndex = 1
Top = 390
Width = 1440
End
End
Begin VB.Label Label8
Alignment = 2 'Center
Caption = "最近修改人员："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 15
TabIndex = 21
Top = 2175
Width = 1575
End
Begin VB.Label Label7
Alignment = 2 'Center
Caption = "最近修改日期："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3915
TabIndex = 20
Top = 2190
Width = 1725
End
Begin VB.Label Label9
Alignment = 2 'Center
Caption = "备注："
BeginProperty Font
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -