📄 frmadmin.frm
字号:
Top = 1320
Width = 2295
End
Begin MSAdodcLib.Adodc Adodc3
Height = 375
Left = -72000
Top = 4800
Visible = 0 'False
Width = 3015
_ExtentX = 5318
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=callcenter.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=callcenter.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "salaryhour"
Caption = "Adodc3"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin LVbuttons.LaVolpeButton cmdGenApptReport
Height = 375
Left = 3000
TabIndex = 72
Top = 7080
Width = 2775
_ExtentX = 4895
_ExtentY = 661
BTYPE = 3
TX = "Generate Appointment"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
BCOL = 13160660
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "frmAdmin.frx":0987
ALIGN = 1
IMGLST = "(None)"
IMGICON = "(None)"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
End
Begin VB.Frame Frame2
Caption = "Salary Details"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2415
Left = -74760
TabIndex = 68
Top = 2160
Width = 7935
Begin VB.TextBox Text9
DataField = "leavestaken"
DataSource = "Adodc3"
Height = 285
Left = 5160
TabIndex = 81
Top = 1800
Width = 1455
End
Begin VB.TextBox Text8
DataField = "leavesallowed"
DataSource = "Adodc3"
Height = 285
Left = 5160
TabIndex = 80
Top = 1440
Width = 1455
End
Begin VB.TextBox Text7
DataField = "monthto"
DataSource = "Adodc3"
Height = 285
Left = 1680
TabIndex = 79
Top = 1800
Width = 1455
End
Begin VB.TextBox Text6
DataField = "monthfrom"
DataSource = "Adodc3"
Height = 285
Left = 1680
TabIndex = 78
Top = 1440
Width = 1455
End
Begin VB.TextBox txtcurrentsal
DataField = "sal_manipulated"
DataSource = "Adodc3"
Height = 285
Left = 1800
TabIndex = 77
Top = 720
Width = 2655
End
Begin VB.TextBox txtorigsal
DataField = "sal_original"
DataSource = "Adodc3"
Height = 285
Left = 1800
TabIndex = 76
Top = 360
Width = 2655
End
Begin VB.Label Label30
Caption = "Leaves Taken :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000C&
Height = 255
Left = 3600
TabIndex = 75
Top = 1800
Width = 1575
End
Begin VB.Label Label29
Caption = "Leaves Allowed :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000C&
Height = 255
Left = 3600
TabIndex = 74
Top = 1440
Width = 1575
End
Begin VB.Label Label28
Caption = "Month to :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000C&
Height = 375
Left = 360
TabIndex = 73
Top = 1800
Width = 1815
End
Begin VB.Label Label27
Caption = "Month from :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000C&
Height = 375
Left = 360
TabIndex = 71
Top = 1440
Width = 1815
End
Begin VB.Label Label26
Caption = "Manipulated Salary :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000C&
Height = 495
Left = 360
TabIndex = 70
Top = 600
Width = 1335
End
Begin VB.Label Label23
Caption = "Salary :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000C&
Height = 255
Left = 360
TabIndex = 69
Top = 360
Width = 1335
End
End
Begin VB.ComboBox cboUserTypeS
DataField = "usertype"
DataSource = "Adodc3"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "frmAdmin.frx":09A3
Left = -73320
List = "frmAdmin.frx":09A5
Sorted = -1 'True
TabIndex = 65
Top = 1680
Width = 2295
End
Begin VB.TextBox txtUserIDS
DataField = "userid"
DataSource = "Adodc3"
Height = 285
Left = -73320
TabIndex = 64
Top = 960
Width = 2295
End
Begin LVbuttons.LaVolpeButton cmdUserReport
Height = 375
Left = -74400
TabIndex = 1
Top = 1440
Width = 1815
_ExtentX = 3201
_ExtentY = 661
BTYPE = 3
TX = "Appointment"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
BCOL = 13160660
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "frmAdmin.frx":09A7
ALIGN = 1
IMGLST = "(None)"
IMGICON = "(None)"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
End
Begin LVbuttons.LaVolpeButton cmdGenerateLog
Height = 375
Left = -74400
TabIndex = 63
Top = 840
Width = 1815
_ExtentX = 3201
_ExtentY = 661
BTYPE = 3
TX = "Login Report"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -