📄 samplecode.frm
字号:
VERSION 5.00
Object = "{899348F9-A53A-4D9E-9438-F97F0E81E2DB}#1.0#0"; "LVbuttons.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form PAYPERIOD
Caption = "Form1"
ClientHeight = 4740
ClientLeft = 4260
ClientTop = 3930
ClientWidth = 7320
ForeColor = &H8000000F&
LinkTopic = "Form1"
ScaleHeight = 4740
ScaleWidth = 7320
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 360
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 140
ImageHeight = 135
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SAMPLECODE.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SAMPLECODE.frx":235C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SAMPLECODE.frx":27AE
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SAMPLECODE.frx":2C00
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SAMPLECODE.frx":6635
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SAMPLECODE.frx":73A0
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SAMPLECODE.frx":A821
Key = ""
EndProperty
EndProperty
End
Begin VB.Timer TAGABILANG
Interval = 100
Left = 5280
Top = 120
End
Begin LVbuttons.LaVolpeButton CMDADD
Height = 615
Left = 5640
TabIndex = 1
Top = 1200
Width = 1575
_ExtentX = 2778
_ExtentY = 1085
BTYPE = 3
TX = "SAVE"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
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 = "SAMPLECODE.frx":F603
ALIGN = 1
IMGLST = "ImageList1"
IMGICON = "1"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 4
SHOWF = -1 'True
BSTYLE = 0
End
Begin VB.TextBox TXTPAYS
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 0
Top = 1200
Width = 5295
End
Begin LVbuttons.LaVolpeButton CMDEDIT
Height = 615
Left = 5640
TabIndex = 2
Top = 1800
Width = 1575
_ExtentX = 2778
_ExtentY = 1085
BTYPE = 3
TX = "UPDATE"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
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 = "SAMPLECODE.frx":F61F
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 = 5640
TabIndex = 3
Top = 3960
Width = 1575
_ExtentX = 2778
_ExtentY = 1085
BTYPE = 3
TX = "CLOSE"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
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 = "SAMPLECODE.frx":F63B
ALIGN = 1
IMGLST = "ImageList1"
IMGICON = "3"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 4
SHOWF = -1 'True
BSTYLE = 0
End
Begin LVbuttons.LaVolpeButton CMDDEL
Height = 615
Left = 5640
TabIndex = 4
Top = 2400
Width = 1575
_ExtentX = 2778
_ExtentY = 1085
BTYPE = 3
TX = "DELETE"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
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 = "SAMPLECODE.frx":F657
ALIGN = 1
IMGLST = "ImageList1"
IMGICON = "5"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 4
SHOWF = -1 'True
BSTYLE = 0
End
Begin LVbuttons.LaVolpeButton CMDCANCEL
Height = 975
Left = 5640
TabIndex = 5
Top = 3000
Width = 1575
_ExtentX = 2778
_ExtentY = 1720
BTYPE = 3
TX = "CANCEL"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
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 = "SAMPLECODE.frx":F673
ALIGN = 1
IMGLST = "ImageList1"
IMGICON = "(None)"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 4
SHOWF = -1 'True
BSTYLE = 0
End
Begin MSComctlLib.ListView ListView1
Height = 2655
Left = 240
TabIndex = 6
Top = 1920
Width = 5295
_ExtentX = 9340
_ExtentY = 4683
View = 3
Sorted = -1 'True
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = 16777215
Appearance = 1
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
NumItems = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "PAY PERIOD SCHEDULE"
Object.Width = 9701
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Object.Width = 2
EndProperty
End
Begin VB.TextBox AUTOS
Height = 375
Left = 6480
TabIndex = 7
Top = 1320
Width = 615
End
Begin VB.TextBox Text1
Height = 375
Left = 6000
TabIndex = 8
Top = 1320
Width = 735
End
Begin VB.Image Image1
Height = 2100
Left = 240
Picture = "SAMPLECODE.frx":F68F
Stretch = -1 'True
Top = -360
Width = 4965
End
End
Attribute VB_Name = "PAYPERIOD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CMDADD_Click()
On Error GoTo BB
If TXTPAYS = "" Then
MsgBox "INPUT THE INFORMATION"
Else
db.Execute "Insert INTO PAYPERIOD VALUES('" & AUTOS & "','" & TXTPAYS & "')"
MsgBox " RECORD SAVE"
Unload Me
Me.Show
End If
BB:
End Sub
Private Sub CMDCANCEL_Click()
TXTPAYS = ""
End Sub
Private Sub CMDCLOSE_Click()
Unload Me
Mainmenu.Show
End Sub
Private Sub CMDDEL_Click()
If TXTPAYS = "" Then
MsgBox "SELECT THE INFORMATION", vbInformation + vbQuestion, "DELETE"
Else
db.Execute "DELETE FROM PAYPERIOD WHERE [NOS]='" & Text1.Text & "'"
Unload Me
Me.Show
End If
End Sub
Private Sub CMDEDIT_Click()
If TXTPAYS = "" Then
MsgBox "COMPLETE THE INFORMATION", vbInformation + vbQuestion, "DELETE"
Else
db.Execute "UPDATE PAYPERIOD SET [NOS]='" & Text1 & "',[PAYPERIODS]='" & TXTPAYS & "' WHERE [NOS]='" & Text1.Text & "'"
MsgBox "Record Edited"
Unload Me
Me.Show
End If
End Sub
Private Sub Form_Load()
sqlArc = "SELECT * FROM PAYPERIOD"
viewemp
Set rs = db.Execute("SELECT DISTINCT [NOS] FROM PAYPERIOD WHERE NOS LIKE '" & Replace(AUTOS.Text, "'", "''") & "%' ")
' List1.Clear
While Not rs.EOF
AUTOS.Text = rs![NOS]
rs.MoveNext
Wend
End Sub
Sub viewemp()
Static a
Set rs1 = db.Execute(sqlArc)
With ListView1
.ListItems.Clear
While Not rs1.EOF
a = a + 1
.ListItems.Add , , rs1!PAYPERIODS
.ListItems(a).ListSubItems.Add , , rs1!NOS
rs1.MoveNext
Wend
a = 0
End With
End Sub
Private Sub LaVolpeButton5_Click()
End Sub
Private Sub ListView1_Click()
Dim rs As ADODB.Recordset
If Me.ListView1.ListItems.Count <> 0 Then
Set rs = New ADODB.Recordset
rs.Open "Select * From PAYPERIOD Where PAYPERIODS = '" & ListView1.ListItems.Item(ListView1.SelectedItem.Index).Text & "'", db, adOpenStatic, adLockReadOnly
End If
With rs
On Error Resume Next
Text1 = !NOS
TXTPAYS = !PAYPERIODS
End With
End Sub
Private Sub TAGABILANG_Timer()
If AUTOS = "" Then
AUTOS = 0 + 1
TAGABILANG.Interval = 0
Else
AUTOS = AUTOS + 1
TAGABILANG.Interval = 0
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -