📄 mainfrm.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmMain
Caption = "通讯录"
ClientHeight = 4485
ClientLeft = 165
ClientTop = 450
ClientWidth = 6285
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4485
ScaleWidth = 6285
StartUpPosition = 2 '屏幕中心
Begin TabDlg.SSTab SSTab1
Height = 4455
Left = 0
TabIndex = 0
Top = 0
Width = 6255
_ExtentX = 11033
_ExtentY = 7858
_Version = 393216
Tabs = 4
TabsPerRow = 4
TabHeight = 520
TabCaption(0) = "基本资料"
TabPicture(0) = "Mainfrm.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label4"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label3"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label2"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label7"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label6"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label5"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label1"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Text1"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Text2"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Text3"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Text4"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Text5"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "Text6"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "Text7"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "Command1"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "Command2"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "Command3"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "Command4"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "Command5"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "Command6"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "Command7"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).ControlCount= 21
TabCaption(1) = "联络资料"
TabPicture(1) = "Mainfrm.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label17"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label13"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label11"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label9"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Label8"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Label10"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Label12"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Label15"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "Label16"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "Label14"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "Text8"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).Control(11)= "Text9"
Tab(1).Control(11).Enabled= 0 'False
Tab(1).Control(12)= "Text10"
Tab(1).Control(12).Enabled= 0 'False
Tab(1).Control(13)= "Text11"
Tab(1).Control(13).Enabled= 0 'False
Tab(1).Control(14)= "Text12"
Tab(1).Control(14).Enabled= 0 'False
Tab(1).Control(15)= "Text13"
Tab(1).Control(15).Enabled= 0 'False
Tab(1).Control(16)= "Text14"
Tab(1).Control(16).Enabled= 0 'False
Tab(1).Control(17)= "Text15"
Tab(1).Control(17).Enabled= 0 'False
Tab(1).Control(18)= "Text16"
Tab(1).Control(18).Enabled= 0 'False
Tab(1).ControlCount= 19
TabCaption(2) = "其他"
TabPicture(2) = "Mainfrm.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label18"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Text17"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).ControlCount= 2
TabCaption(3) = "总揽全局"
TabPicture(3) = "Mainfrm.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "MSFlexGrid1"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).ControlCount= 1
Begin VB.CommandButton Command7
Caption = "名片查询"
Height = 375
Left = 4440
TabIndex = 43
Top = 2280
Width = 1335
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Bindings = "Mainfrm.frx":0070
Height = 4215
Left = -75000
TabIndex = 42
Top = 360
Width = 6255
_ExtentX = 11033
_ExtentY = 7435
_Version = 393216
Cols = 16
FixedCols = 0
AllowUserResizing= 3
End
Begin VB.CommandButton Command6
Caption = "上一条"
Height = 375
Left = 4440
TabIndex = 41
Top = 3240
Width = 1335
End
Begin VB.CommandButton Command5
Caption = "下一条"
Height = 375
Left = 4440
TabIndex = 40
Top = 2760
Width = 1335
End
Begin VB.CommandButton Command4
Caption = "保存修改"
Height = 375
Left = 4440
TabIndex = 39
Top = 3720
Width = 1335
End
Begin VB.CommandButton Command3
Caption = "删除名片"
Height = 375
Left = 4440
TabIndex = 38
Top = 1800
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "名片修改"
Height = 375
Left = 4440
TabIndex = 37
Top = 1320
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "添加名片"
Height = 375
Left = 4440
TabIndex = 36
Top = 840
Width = 1335
End
Begin VB.TextBox Text17
DataField = "其 它"
DataSource = "Data1"
Height = 3735
Left = -74880
Locked = -1 'True
TabIndex = 35
Text = "Text17"
Top = 720
Width = 6015
End
Begin VB.TextBox Text16
BackColor = &H80000018&
DataField = "OICQ号"
DataSource = "Data1"
Height = 270
Left = -70680
Locked = -1 'True
TabIndex = 34
Text = "Text16"
Top = 1800
Width = 1695
End
Begin VB.TextBox Text15
BackColor = &H80000018&
DataField = "传呼号码"
DataSource = "Data1"
Height = 270
Left = -70680
Locked = -1 'True
TabIndex = 33
Text = "Text15"
Top = 1200
Width = 1695
End
Begin VB.TextBox Text14
BackColor = &H80000018&
DataField = "单位电话"
DataSource = "Data1"
Height = 270
Left = -70680
Locked = -1 'True
TabIndex = 32
Text = "Text14"
Top = 600
Width = 1695
End
Begin VB.TextBox Text13
BackColor = &H80000018&
DataField = "网 址"
DataSource = "Data1"
Height = 270
Left = -73560
Locked = -1 'True
TabIndex = 31
Text = "Text13"
Top = 3480
Width = 1455
End
Begin VB.TextBox Text12
BackColor = &H80000018&
DataField = "E-MAIL"
DataSource = "Data1"
Height = 270
Left = -73560
Locked = -1 'True
TabIndex = 30
Text = "Text12"
Top = 3000
Width = 1455
End
Begin VB.TextBox Text11
BackColor = &H80000018&
DataField = "家庭住址"
DataSource = "Data1"
Height = 270
Left = -73560
Locked = -1 'True
TabIndex = 29
Text = "Text11"
Top = 2400
Width = 1455
End
Begin VB.TextBox Text10
BackColor = &H80000018&
DataField = "传真号码"
DataSource = "Data1"
Height = 270
Left = -73560
Locked = -1 'True
TabIndex = 28
Text = "Text10"
Top = 1800
Width = 1455
End
Begin VB.TextBox Text9
BackColor = &H80000018&
DataField = "手机号码"
DataSource = "Data1"
Height = 270
Left = -73560
Locked = -1 'True
TabIndex = 27
Text = "Text9"
Top = 1200
Width = 1455
End
Begin VB.TextBox Text8
BackColor = &H80000018&
DataField = "住宅电话"
DataSource = "Data1"
Height = 270
Left = -73560
Locked = -1 'True
TabIndex = 26
Text = "Text8"
Top = 600
Width = 1455
End
Begin VB.TextBox Text7
BackColor = &H80000018&
DataField = "网 名"
DataSource = "Data1"
Height = 270
Left = 1440
Locked = -1 'True
TabIndex = 25
Text = "Text7"
Top = 3240
Width = 2415
End
Begin VB.TextBox Text6
BackColor = &H80000018&
DataField = "血 型"
DataSource = "Data1"
Height = 270
Left = 1440
Locked = -1 'True
MaxLength = 2
TabIndex = 24
Text = "Text6"
Top = 3720
Width = 2415
End
Begin VB.TextBox Text5
BackColor = &H80000018&
DataField = "民 族"
DataSource = "Data1"
Height = 270
Left = 1440
Locked = -1 'True
MaxLength = 5
TabIndex = 23
Text = "Text5"
Top = 2760
Width = 2415
End
Begin VB.TextBox Text4
BackColor = &H80000018&
DataField = "生 日"
DataSource = "Data1"
Height = 270
Left = 1440
Locked = -1 'True
MaxLength = 8
TabIndex = 22
Text = "Text4"
Top = 2280
Width = 2415
End
Begin VB.TextBox Text3
BackColor = &H80000018&
DataField = "年 龄"
DataSource = "Data1"
Height = 270
Left = 1440
Locked = -1 'True
MaxLength = 3
TabIndex = 21
Text = "Text3"
Top = 1800
Width = 2415
End
Begin VB.TextBox Text2
BackColor = &H80000018&
DataField = "性 别"
DataSource = "Data1"
Height = 270
Left = 1440
Locked = -1 'True
MaxLength = 1
TabIndex = 20
Text = "Text2"
Top = 1320
Width = 2415
End
Begin VB.TextBox Text1
BackColor = &H80000018&
DataField = "姓名"
DataSource = "Data1"
Height = 270
Left = 1440
Locked = -1 'True
MaxLength = 8
TabIndex = 19
Text = "Text1"
Top = 840
Width = 2415
End
Begin VB.Label Label14
Caption = "家庭住址"
Height = 255
Left = -74550
TabIndex = 18
Top = 2400
Width = 735
End
Begin VB.Label Label16
Caption = "网 址"
Height = 255
Left = -74550
TabIndex = 17
Top = 3600
Width = 735
End
Begin VB.Label Label15
Caption = "E_MAIL"
Height = 255
Left = -74550
TabIndex = 16
Top = 3000
Width = 735
End
Begin VB.Label Label12
Caption = "传真号码"
Height = 255
Left = -74550
TabIndex = 15
Top = 1800
Width = 735
End
Begin VB.Label Label10
Caption = "手机号码"
Height = 255
Left = -74550
TabIndex = 14
Top = 1200
Width = 735
End
Begin VB.Label Label8
Caption = "住宅电话"
Height = 255
Left = -74550
TabIndex = 13
Top = 600
Width = 735
End
Begin VB.Label Label18
Caption = " 备 注"
Height = 255
Left = -74880
TabIndex = 12
Top = 480
Width = 2055
End
Begin VB.Label Label1
Caption = "姓 名"
Height = 255
Left = 345
TabIndex = 11
Top = 840
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -