📄 frmcard.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 frmCard
BorderStyle = 1 'Fixed Single
Caption = "名片记录"
ClientHeight = 6330
ClientLeft = 45
ClientTop = 330
ClientWidth = 9450
Icon = "frmCard.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6330
ScaleWidth = 9450
Begin TabDlg.SSTab SSTab1
Height = 6375
Left = -90
TabIndex = 21
Top = 0
Width = 9585
_ExtentX = 16907
_ExtentY = 11245
_Version = 393216
Tab = 2
TabHeight = 520
ShowFocusRect = 0 'False
TabCaption(0) = "名片查询"
TabPicture(0) = "frmCard.frx":08CA
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Text1(16)"
Tab(0).Control(1)= "Text1(15)"
Tab(0).Control(2)= "Text1(14)"
Tab(0).Control(3)= "Cbo2"
Tab(0).Control(4)= "Command1"
Tab(0).Control(5)= "MSFlex1"
Tab(0).Control(6)= "Label1(18)"
Tab(0).Control(7)= "Label1(17)"
Tab(0).Control(8)= "Label1(16)"
Tab(0).Control(9)= "Label1(15)"
Tab(0).ControlCount= 10
TabCaption(1) = "名片记录"
TabPicture(1) = "frmCard.frx":08E6
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "CmdSave"
Tab(1).Control(1)= "CmdExit"
Tab(1).Control(2)= "CmdQry"
Tab(1).Control(3)= "CmdDel"
Tab(1).Control(4)= "CmdModi"
Tab(1).Control(5)= "CmdIns"
Tab(1).Control(6)= "MSFlex"
Tab(1).Control(7)= "Cbo1"
Tab(1).Control(8)= "Text1(13)"
Tab(1).Control(9)= "Text1(12)"
Tab(1).Control(10)= "Text1(11)"
Tab(1).Control(11)= "Text1(10)"
Tab(1).Control(12)= "Text1(9)"
Tab(1).Control(13)= "Text1(8)"
Tab(1).Control(14)= "Text1(7)"
Tab(1).Control(15)= "Text1(6)"
Tab(1).Control(16)= "Text1(5)"
Tab(1).Control(17)= "Text1(4)"
Tab(1).Control(18)= "Text1(3)"
Tab(1).Control(19)= "Text1(2)"
Tab(1).Control(20)= "Text1(1)"
Tab(1).Control(21)= "Text1(0)"
Tab(1).Control(22)= "Label1(13)"
Tab(1).Control(23)= "Label1(14)"
Tab(1).Control(24)= "Label1(12)"
Tab(1).Control(25)= "Label1(11)"
Tab(1).Control(26)= "Label1(10)"
Tab(1).Control(27)= "Label1(9)"
Tab(1).Control(28)= "Label1(8)"
Tab(1).Control(29)= "Label1(7)"
Tab(1).Control(30)= "Label1(6)"
Tab(1).Control(31)= "Label1(5)"
Tab(1).Control(32)= "Label1(4)"
Tab(1).Control(33)= "Label1(3)"
Tab(1).Control(34)= "Label1(2)"
Tab(1).Control(35)= "Label1(1)"
Tab(1).Control(36)= "Label1(0)"
Tab(1).ControlCount= 37
TabCaption(2) = "名片分类"
TabPicture(2) = "frmCard.frx":0902
Tab(2).ControlEnabled= -1 'True
Tab(2).ControlCount= 0
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 16
Left = -71160
MaxLength = 10
TabIndex = 43
Top = 840
Width = 3525
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 15
Left = -71160
MaxLength = 100
TabIndex = 41
Top = 450
Width = 3525
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 14
Left = -73470
MaxLength = 10
TabIndex = 40
Top = 450
Width = 1515
End
Begin VB.ComboBox Cbo2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = -73470
TabIndex = 42
Text = "Cbo1"
Top = 840
Width = 1515
End
Begin VB.CommandButton Command1
Caption = "查询"
Height = 375
Left = -67440
TabIndex = 45
Top = 570
Width = 1245
End
Begin VB.CommandButton CmdSave
Caption = "存盘"
Enabled = 0 'False
Height = 375
Left = -66870
TabIndex = 36
Top = 1500
Width = 1035
End
Begin VB.CommandButton CmdExit
Caption = "退出"
Height = 375
Left = -66870
TabIndex = 19
Top = 2940
Width = 1035
End
Begin VB.CommandButton CmdQry
Caption = "查询"
Height = 375
Left = -66870
TabIndex = 18
Top = 2460
Width = 1035
End
Begin VB.CommandButton CmdDel
Caption = "删除"
Height = 375
Left = -66870
TabIndex = 17
Top = 1980
Width = 1035
End
Begin VB.CommandButton CmdModi
Caption = "修改"
Height = 375
Left = -66870
TabIndex = 16
Top = 1020
Width = 1035
End
Begin VB.CommandButton CmdIns
Caption = "添加"
Height = 375
Left = -66870
TabIndex = 15
Top = 540
Width = 1035
End
Begin MSFlexGridLib.MSFlexGrid MSFlex
Height = 2775
Left = -74880
TabIndex = 20
Top = 3510
Width = 9375
_ExtentX = 16536
_ExtentY = 4895
_Version = 393216
SelectionMode = 1
AllowUserResizing= 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.ComboBox Cbo1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
ItemData = "frmCard.frx":091E
Left = -69240
List = "frmCard.frx":0920
TabIndex = 13
Text = "Cbo1"
Top = 2730
Width = 2115
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 13
Left = -73470
MaxLength = 50
TabIndex = 14
Top = 3120
Width = 6345
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 12
Left = -73470
MaxLength = 50
TabIndex = 12
Top = 2730
Width = 2985
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 11
Left = -69240
MaxLength = 10
TabIndex = 11
Top = 2340
Width = 2115
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 10
Left = -73470
MaxLength = 50
TabIndex = 10
Top = 2340
Width = 2985
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 9
Left = -69240
MaxLength = 10
TabIndex = 9
Top = 1950
Width = 2115
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 8
Left = -73470
MaxLength = 50
TabIndex = 8
Top = 1950
Width = 2985
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 7
Left = -69240
MaxLength = 50
TabIndex = 7
Top = 1560
Width = 2115
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 6
Left = -73470
MaxLength = 50
TabIndex = 6
Top = 1560
Width = 2985
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 5
Left = -69240
MaxLength = 50
TabIndex = 3
Top = 780
Width = 2115
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 4
Left = -73470
MaxLength = 50
TabIndex = 4
Top = 1170
Width = 2985
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -