📄 restric.frm
字号:
_ExtentX = 741
_ExtentY = 741
_Version = 348160
PrintFileLinesPerPage= 60
End
Begin LVbuttons.LaVolpeButton elan
Height = 615
Left = 9000
TabIndex = 86
Top = 10440
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 = "RESTRIC.frx":F63B
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 = 87
Top = 10440
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 = "RESTRIC.frx":F657
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 = 88
Top = 10440
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 = "RESTRIC.frx":F673
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 = 4320
TabIndex = 89
Top = 3240
Width = 1815
End
Begin VB.TextBox date2s
Height = 615
Left = 4200
TabIndex = 90
Top = 3840
Width = 1815
End
Begin VB.TextBox Text6
Height = 375
Left = 3600
TabIndex = 99
Top = 4560
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
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1920
TabIndex = 101
Top = 4560
Width = 3375
End
Begin VB.Frame Frame10
Caption = "PARA SA BRANCH"
Height = 1575
Left = 9480
TabIndex = 81
Top = 360
Width = 4575
Begin VB.TextBox Text13
Height = 615
Left = 2280
TabIndex = 85
Text = "Text13"
Top = 360
Width = 615
End
Begin VB.TextBox Text12
Height = 615
Left = 1680
TabIndex = 84
Text = "Text12"
Top = 360
Width = 615
End
Begin VB.TextBox Text11
Height = 615
Left = 960
TabIndex = 83
Text = "Text11"
Top = 360
Width = 735
End
Begin VB.TextBox Text10
Height = 615
Left = 240
TabIndex = 82
Text = "Text10"
Top = 360
Width = 735
End
End
Begin VB.Image Image1
Height = 2940
Left = 3720
Picture = "RESTRIC.frx":F68F
Stretch = -1 'True
Top = 120
Width = 3165
End
End
Attribute VB_Name = "RESTRICT"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Dim RS1 As ADODB.Recordset
Dim DAY1, rot1, rdot1, shot1, lhot1, late1, cola1, ADMIN, colarate1 As Double
Dim e1, e2, e3, e4, e5, e6 As Double
Dim Comb As String
Private Sub AUTO_Timer()
On Error GoTo b
txttotal = txtdays * DAY1 + txtrot * rot1 + txtrdot * rdot1 + txtshot * shot1 + txtlhot * lhot1 + txtlate * -late1
'TXTCOLAS = cola1 * txtcola
'''''''''''''''''''''''''''''''''''''
txtcola = cola1 * txtlate
'TXTCOLAS = txtcola - colarate1
Text8 = Text7 * colarate1
TXTCOLAS = Text8 - txtcola
''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''view total '''''''''''''''
e1 = Val(edays)
e2 = Val(erot)
e3 = Val(erdot)
e4 = Val(eshot)
e5 = Val(elhot)
e6 = Val(elate)
etot = Val(edays) + (erot) + (erdot) + (eshot) + (elhot) + (elate)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
b:
End Sub
Private Sub AUTOS_Change()
Text5 = AUTOS
CLER
End Sub
Private Sub AUTOS_Click()
CLER
End Sub
Private Sub CMDCLOSE_Click()
'txttotal = txtdays * DAY1 + txtrot * rot1 + txtrdot * rdot1 + txtshot * shot1 + txtlhot * lhot1 + txtlate * late1 + cola1 / 8 * txtcola
Unload Me
Mainmenu.Show
End Sub
Private Sub CMDPOST_Click()
If Combo1 = "" Then
MsgBox "PEASE SELECT PAY PERIOD", vbInformation, "PRINT"
Else
'On Error GoTo B
'Select Case Combo1.Text
' Case "Audit Trail"
With CrystalReport1
.DataFiles(0) = App.Path & "\PAYROLL.mdb "
.ReportFileName = App.Path & "\JRSMANILAREPORT.rpt"
.Password = "acg" & Chr(10) & "acg"
' With CrystalReport1
' .DataFiles(0) = App.Path & "\LibDbase.mdb"
' .ReportFileName = App.Path & "\JRSMANILAREPORT.rpt"
' .Password = "acg" & Chr(10) & "acg"
If CD.Text = "All" Then
' .ReportTitle = " From " & Format$(DTPicker1.Value, "mmmm/dd/yyyy") & "-" & Format$(DTPicker2.Value, "mmmm/dd/yyyy")
.ReplaceSelectionFormula ("{jrstblbilling.payperiods}=''")
Else
.ReplaceSelectionFormula ("{jrstblbilling.payperiods}='" & Combo1.Text & "' AND {jrstblbilling.compsect}='" & CD.Text & "' ")
' .ReportTitle = " From " & Format$(DTPicker1.Value, "mmmm/dd/yyyy") & "-" & Format$(DTPicker2.Value, "mmmm/dd/yyyy")
End If
'.WindowState = crptMaximized
'.ReportTitle = "From " & DTPicker1.Value & " To " & DTPicker2.Value
'.Action = 1
End With
CrystalReport1.WindowShowPrintSetupBtn = True
CrystalReport1.WindowState = crptMaximized
'CrystalReport1.ReportTitle = Combo2.Text
CrystalReport1.Action = 1
'
'
'B:
'End With
End If
End Sub
Private Sub CMDPOSTED_Click()
'Dim RS1 As New ADODB.Recordset
If C1 = "JRS MANILA" Then
Set rs = db.Execute("SELECT * FROM tblbilling ORDER BY [COMPSECT]")
Else
Set rs = db.Execute("SELECT * FROM tblbilling where [COMPSECT]='" & C1.Text & "'ORDER BY [Position]")
End If
While Not rs.EOF
Set rs1 = db.Execute("select * from POSTEDJRStblbilling where COMP='" & rs!NOS & "'")
If rs1.RecordCount <= 0 Then
db.Execute ("INSERT INTO POSTEDJRStblbilling VALUES('" & Replace(rs!NOS, "'", "''") & "','" & rs!COMP & "','" & rs!Name & "','" & rs!mName & "','" & rs!LName & "','" & rs!Position & "','" & rs!client & "','" & rs!DEPT & "','" & rs!nodays & "','" & rs!ROT & "','" & rs!RDOT & "','" & rs!shot & "','" & rs!lhot & "','" & rs!late & "','" & rs!COLA & _
"','" & rs!total & "','" & rs!ADMINFEE & "','" & rs!PAYPERIODS & "','" & rs!compsect & "','" & rs!AF & "','" & rs!COLAS & "','" & rs!TOTCOLA & "','" & rs!TOTAM & "','" & rs!TOTAF & "','" & rs!RATES & "','" & rs!ROTS & "','" & rs!RDOTS & "','" & rs!SHOTS & "','" & rs!LHOTS & "','" & rs!LATES & "','" & rs!COLASS & "','" & rs!ADMINFEES & "','" & rs!edays & "','" & rs!erot & "','" & rs!erdot & "','" & rs!eshot & "','" & rs!elhot & "','" & rs!elate & "' )")
' Call auditTrail(tmpUname, tmpUserLevel, "Archive Employee")
db.Execute "DELETE FROM JRStblbilling"
End If
rs.MoveNext
Wend
MsgBox "TRANSFERING RECORD successful", vbInformation, "Archive"
Unload Me
Me.Show
End Sub
Private Sub CMDPOSTED1_Click()
'Dim RS1 As New ADODB.Recordset
If C2 = "JRS PROVINCIAL" Then
Set rs = db.Execute("SELECT * FROM PROVJRS ORDER BY [COMPSECT]")
Else
Set rs = db.Execute("SELECT * FROM PROVJRS where [COMPSECT]='" & C2.Text & "'ORDER BY [Position]")
End If
While Not rs.EOF
Set rs1 = db.Execute("select * from POSTEDPROVJRS where COMP='" & rs!NOS & "'")
If rs1.RecordCount <= 0 Then
db.Execute ("INSERT INTO POSTEDPROVJRS VALUES('" & Replace(rs!NOS, "'", "''") & "','" & rs!COMP & "','" & rs!Name & "','" & rs!mName & "','" & rs!LName & "','" & rs!Position & "','" & rs!client & "','" & rs!DEPT & "','" & rs!nodays & "','" & rs!ROT & "','" & rs!RDOT & "','" & rs!shot & "','" & rs!lhot & "','" & rs!late & "','" & rs!COLA & _
"','" & rs!total & "','" & rs!ADMINFEE & "','" & rs!PAYPERIODS & "','" & rs!compsect & "','" & rs!AF & "','" & rs!COLAS & "','" & rs!TOTCOLA & "','" & rs!TOTAM & "','" & rs!TOTAF & "','" & rs!RATES & "','" & rs!ROTS & "','" & rs!RDOTS & "','" & rs!SHOTS & "','" & rs!LHOTS & "','" & rs!LATES & "','" & rs!COLASS & "','" & rs!ADMINFEES & "','" & rs!edays & "','" & rs!erot & "','" & rs!erdot & "','" & rs!eshot & "','" & rs!elhot & "','" & rs!elate & "')")
' Call auditTrail(tmpUname, tmpUserLevel, "Archive Employee")
db.Execute "DELETE FROM PROVJRS"
End If
rs.MoveNext
Wend
MsgBox "TRANSFERING RECORD successful", vbInformation, "Archive"
Unload Me
Me.Show
End Sub
Private Sub CMDPOSTED2_Click()
If C3 = "MACRO MANILA" Then
Set rs = db.Execute("SELECT * FROM MACROtblbilling ORDER BY [COMPSECT]")
Else
Set rs = db.Execute("SELECT * FROM MACROtblbilling where [COMPSECT]='" & C3.Text & "'ORDER BY [Position]")
End If
While Not rs.EOF
Set rs1 = db.Execute("select * from POSTEDMACROBILLING where COMP='" & rs!NOS & "'")
If rs1.R⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -