📄 frminfo.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form FrmInfo
BorderStyle = 1 'Fixed Single
Caption = "个人信息浏览"
ClientHeight = 7680
ClientLeft = 2640
ClientTop = 2220
ClientWidth = 10665
Icon = "FrmInfo.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7680
ScaleWidth = 10665
Begin VB.Frame Frame1
Height = 960
Left = 90
TabIndex = 63
Top = 6615
Width = 2175
Begin VB.Label LblAll
Alignment = 2 'Center
Caption = "0"
ForeColor = &H000000FF&
Height = 195
Left = 720
TabIndex = 67
Top = 240
Width = 645
End
Begin VB.Label LblCur
Alignment = 2 'Center
Caption = "0"
ForeColor = &H000000FF&
Height = 195
Left = 900
TabIndex = 66
Top = 585
Width = 600
End
Begin VB.Label Label30
Alignment = 2 'Center
Caption = "当前是第 条记录"
Height = 195
Left = 135
TabIndex = 65
Top = 585
Width = 1950
End
Begin VB.Label Label17
Alignment = 2 'Center
Caption = "共有 条记录"
Height = 195
Left = 225
TabIndex = 64
Top = 240
Width = 1770
End
End
Begin VB.Frame Frame6
Caption = "要求对方"
Height = 3120
Left = 90
TabIndex = 44
Top = 3465
Width = 10500
Begin VB.TextBox Text26
DataField = "其他要求"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 1365
Left = 765
TabIndex = 62
Top = 1575
Width = 9465
End
Begin VB.TextBox Text25
DataField = "要求孩子"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 330
Left = 8325
TabIndex = 60
Top = 1035
Width = 1185
End
Begin VB.TextBox Text24
DataField = "要求职业"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 330
Left = 5715
TabIndex = 59
Top = 1035
Width = 960
End
Begin VB.TextBox Text23
DataField = "要求住房"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 330
Left = 3330
TabIndex = 58
Top = 1035
Width = 1230
End
Begin VB.TextBox Text22
DataField = "要求户口"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 330
Left = 810
TabIndex = 57
Top = 990
Width = 1320
End
Begin VB.TextBox Text21
DataField = "要求婚姻"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 330
Left = 8325
TabIndex = 56
Top = 405
Width = 1185
End
Begin VB.TextBox Text20
DataField = "要求学历"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 330
Left = 5715
TabIndex = 55
Top = 360
Width = 960
End
Begin VB.TextBox Text19
DataField = "要求身高"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 330
Left = 3330
TabIndex = 54
Top = 405
Width = 1230
End
Begin VB.TextBox Text17
DataField = "要求年龄"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 330
Left = 810
TabIndex = 53
Top = 405
Width = 1320
End
Begin VB.Label Label29
Alignment = 2 'Center
Caption = "其 他 要 求"
Height = 1320
Left = 315
TabIndex = 61
Top = 1620
Width = 240
End
Begin VB.Label Label28
Caption = "孩子"
Height = 195
Left = 7740
TabIndex = 52
Top = 1080
Width = 375
End
Begin VB.Label Label27
Caption = "职业"
Height = 195
Left = 5085
TabIndex = 51
Top = 1080
Width = 375
End
Begin VB.Label Label26
Caption = "住房"
Height = 195
Left = 2745
TabIndex = 50
Top = 1080
Width = 420
End
Begin VB.Label Label25
Caption = "户口"
Height = 240
Left = 315
TabIndex = 49
Top = 1035
Width = 465
End
Begin VB.Label Label24
Caption = "婚姻"
Height = 195
Left = 7740
TabIndex = 48
Top = 450
Width = 375
End
Begin VB.Label Label23
Caption = "学历"
Height = 240
Left = 5085
TabIndex = 47
Top = 450
Width = 375
End
Begin VB.Label Label18
Caption = "身高"
Height = 240
Left = 2745
TabIndex = 46
Top = 450
Width = 375
End
Begin VB.Label Label2
Caption = "年龄"
Height = 195
Left = 315
TabIndex = 45
Top = 450
Width = 375
End
End
Begin VB.Frame Frame5
Caption = "本人情况"
Height = 3345
Left = 90
TabIndex = 12
Top = 90
Width = 10500
Begin VB.TextBox Text13
DataField = "本人其他情况"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 1320
Left = 2925
MultiLine = -1 'True
TabIndex = 43
Top = 1845
Width = 7350
End
Begin VB.TextBox Text11
DataField = "孩子"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 8145
TabIndex = 40
Top = 1305
Width = 2130
End
Begin VB.TextBox Text10
DataField = "车"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 6300
TabIndex = 38
Top = 1305
Width = 1140
End
Begin VB.TextBox Text9
DataField = "住房"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 4275
TabIndex = 36
Top = 1305
Width = 1365
End
Begin VB.TextBox Text8
DataField = "收入"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 2925
TabIndex = 34
Top = 1305
Width = 870
End
Begin VB.TextBox Text7
DataField = "职业"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 9180
TabIndex = 32
Top = 810
Width = 1095
End
Begin VB.TextBox Text6
DataField = "婚姻"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 7290
TabIndex = 30
Top = 810
Width = 915
End
Begin VB.TextBox Text5
DataField = "户口"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 5625
TabIndex = 28
Top = 810
Width = 1095
End
Begin VB.TextBox Text15
DataField = "学历"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 4275
TabIndex = 26
Top = 765
Width = 735
End
Begin VB.TextBox Text16
DataField = "体重"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 2925
TabIndex = 24
Top = 765
Width = 555
End
Begin VB.TextBox Text3
DataField = "身高"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 9180
TabIndex = 22
Top = 225
Width = 825
End
Begin VB.TextBox Text14
DataField = "出生日期"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 7275
TabIndex = 20
Top = 225
Width = 1440
End
Begin VB.TextBox Text4
DataField = "属相"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 5625
TabIndex = 18
Top = 225
Width = 780
End
Begin VB.TextBox Text2
Alignment = 2 'Center
DataField = "年龄"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 4275
TabIndex = 16
Top = 225
Width = 735
End
Begin VB.TextBox Text1
Alignment = 2 'Center
DataField = "编号"
DataSource = "AdoQuery2"
Enabled = 0 'False
Height = 375
Left = 2925
TabIndex = 14
Top = 225
Width = 780
End
Begin VB.Label Label31
Caption = "斤"
Height = 195
Left = 3510
TabIndex = 69
Top = 855
Width = 195
End
Begin VB.Label Label7
Caption = "米"
Height = 195
Left = 10080
TabIndex = 68
Top = 315
Width = 195
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -