【VB开源代码栏目提醒】:网学会员--在 VB开源代码编辑为广大网友搜集整理了:frmeditperson.frm绩等信息,祝愿广大网友取得需要的信息,参考学习。
VERSION 5.00
Begin VB.Form frmeditperson
BorderStyle = 3 'Fixed Dialog
ClientHeight = 3180
ClientLeft = 45
ClientTop = 330
ClientWidth = 5250
Icon = "frmeditperson.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3180
ScaleWidth = 5250
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "退出(&E)"
Height = 525
Index = 2
Left = 3720
TabIndex = 14
Top = 2370
Width = 1245
End
Begin VB.CommandButton Command1
Caption = "取消(&C)"
Enabled = 0 'False
Height = 525
Index = 1
Left = 3720
TabIndex = 13
Top = 1680
Width = 1245
End
Begin VB.CommandButton Command1
Caption = "确定(&O)"
Default = -1 'True
Height = 525
Index = 0
Left = 3720
TabIndex = 12
Top = 990
Width = 1245
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
Height = 300
Index = 4
Left = 1500
TabIndex = 5
Top = 2580
Width = 1785
End
Begin VB.ComboBox Combo1
BackColor = &H00C0FFFF&
Height = 315
Left = 1500
TabIndex = 2
Top = 1200
Width = 1785
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
Height = 300
Index = 3
Left = 1500
TabIndex = 4
Top = 2130
Width = 1785
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
Height = 300
Index = 2
Left = 1500
TabIndex = 3
Top = 1650
Width = 1785
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
Height = 300
Index = 1
Left = 1500
TabIndex = 1
Top = 750
Width = 1785
End
Begin
VB.TextBox Text1
BackColor = &H00C0FFFF&
Height = 300
Index = 0
Left = 1500
TabIndex = 0
Top = 240
Width = 1785
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "定 额"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 5
Left = 420
TabIndex = 11
Top = 2610
Width = 690
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "补偿金"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 4
Left = 420
TabIndex = 10
Top = 2160
Width = 675
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "工 龄"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 3
Left = 420
TabIndex = 9
Top = 1680
Width = 690
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "性 别"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 2
Left = 420
TabIndex = 8
Top = 1230
Width = 690
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "姓 名"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 7
Top = 750
Width = 690
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "号 码"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 420
TabIndex = 6
Top = 270
Width = 690
End
End
Attribute VB_Name = "frmeditperson"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 '这里是确定的代码
Case 1 '这里是取消的代码
For i = 0 To 4
Text1(i).Text = ""
Next i
Combo1.Text = ""
Case 2 '这里是退出的代码
Unload Me
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "男"
Combo1.AddItem "女"
End Sub