📄 elans.frm
字号:
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 33
Top = 7800
Width = 1095
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "RDOT"
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 32
Top = 7200
Width = 1095
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "ROT"
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 31
Top = 6600
Width = 1095
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "No of Days"
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 30
Top = 6000
Width = 1095
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Department"
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 29
Top = 5160
Width = 1455
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "Position"
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 28
Top = 4680
Width = 1095
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "Client"
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 27
Top = 4200
Width = 735
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Surname"
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 26
Top = 3600
Width = 1095
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "First Name"
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 25
Top = 3000
Width = 1095
End
End
Begin VB.CommandButton Command1
Appearance = 0 'Flat
Height = 615
Left = 7080
TabIndex = 59
Top = 3480
Visible = 0 'False
Width = 1095
End
Begin VB.Frame Frame4
Caption = "SAMPLE"
Height = 1815
Left = 7200
TabIndex = 60
Top = 2160
Visible = 0 'False
Width = 855
Begin VB.TextBox txtd
Height = 375
Left = 120
TabIndex = 67
Top = 360
Width = 855
End
Begin VB.TextBox txtr
Height = 375
Left = 120
TabIndex = 66
Top = 720
Width = 855
End
Begin VB.TextBox txtrd
Height = 375
Left = 120
TabIndex = 65
Top = 1080
Width = 855
End
Begin VB.TextBox txts
Height = 375
Left = 120
TabIndex = 64
Top = 1440
Width = 855
End
Begin VB.TextBox txtl
Height = 375
Left = 120
TabIndex = 63
Top = 1800
Width = 855
End
Begin VB.TextBox txtlt
Height = 375
Left = 120
TabIndex = 62
Top = 2160
Width = 855
End
Begin VB.TextBox txtc
Height = 375
Left = 120
TabIndex = 61
Top = 2520
Width = 855
End
End
Begin LVbuttons.LaVolpeButton elan
Height = 615
Left = 9000
TabIndex = 14
Top = 10200
Width = 1815
_ExtentX = 3201
_ExtentY = 1085
BTYPE = 3
TX = "POST"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
BCOL = 14215660
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "ELANS.frx":F61F
ALIGN = 1
IMGLST = "ImageList1"
IMGICON = "1"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 4
SHOWF = -1 'True
BSTYLE = 0
End
Begin LVbuttons.LaVolpeButton CMDUPDATE
Height = 615
Left = 10800
TabIndex = 15
Top = 10200
Width = 1935
_ExtentX = 3413
_ExtentY = 1085
BTYPE = 3
TX = "UPDATE"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
BCOL = 14215660
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "ELANS.frx":F63B
ALIGN = 1
IMGLST = "ImageList1"
IMGICON = "4"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 4
SHOWF = -1 'True
BSTYLE = 0
End
Begin LVbuttons.LaVolpeButton CMDCLOSE
Height = 615
Left = 12720
TabIndex = 16
Top = 10200
Width = 2055
_ExtentX = 3625
_ExtentY = 1085
BTYPE = 3
TX = "CLOSE"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
BCOL = 14215660
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "ELANS.frx":F657
ALIGN = 1
IMGLST = "ImageList1"
IMGICON = "3"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 4
SHOWF = -1 'True
BSTYLE = 0
End
Begin VB.TextBox date1s
Height = 615
Left = 5880
TabIndex = 72
Top = 3000
Width = 1815
End
Begin VB.TextBox date2s
Height = 615
Left = 5880
TabIndex = 73
Top = 3600
Width = 1815
End
Begin VB.TextBox Text6
Height = 375
Left = 6480
TabIndex = 74
Top = 2520
Width = 615
End
Begin VB.TextBox Text5
BackColor = &H8000000F&
BorderStyle = 0 'None
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -