?? frmprint.frm
字號:
Left = 720
Top = 3000
Visible = 0 'False
Width = 2415
_ExtentX = 4260
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DateGRL
Bindings = "frmPrint.frx":0442
Height = 3495
Left = 80
TabIndex = 4
Top = 2400
Width = 10845
_ExtentX = 19129
_ExtentY = 6165
_Version = 393216
AllowUpdate = 0 'False
BackColor = 12648447
ForeColor = 16711680
HeadLines = 1
RowHeight = 16
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "隸書"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "查 詢 結 果"
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.Frame fraXuanXiang
BackColor = &H00FF8080&
BeginProperty Font
Name = "隸書"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 360
TabIndex = 0
Width = 2415
Begin VB.OptionButton OptBaoBiao
BackColor = &H00FF8080&
Caption = "月 度 報 表"
Height = 255
Left = 480
TabIndex = 3
Top = 240
Width = 1695
End
Begin VB.OptionButton OptKaoQin
BackColor = &H00FF8080&
Caption = "考勤信息查詢"
Height = 255
Left = 480
TabIndex = 2
Top = 600
Width = 1815
End
Begin VB.OptionButton OptSource
BackColor = &H00FF8080&
Caption = "原始記錄查詢"
Height = 255
Left = 480
TabIndex = 1
Top = 960
Width = 1815
End
Begin VB.Label Label2
BackColor = &H00FF8080&
Caption = "查詢內容"
BeginProperty Font
Name = "隸書"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 960
Left = 120
TabIndex = 21
Top = 240
Width = 225
End
End
Begin VB.CommandButton cmdMOdify
Caption = " 手動修改"
Height = 375
Left = 9480
TabIndex = 36
Top = 1920
Width = 1455
End
Begin VB.Label Label16
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "現在時間"
Height = 240
Left = 8520
TabIndex = 29
Top = 240
Width = 960
End
Begin VB.Label Label15
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "今天日期"
Height = 240
Left = 0
TabIndex = 27
Top = 240
Width = 960
End
Begin VB.Label Label14
BackColor = &H00800000&
Height = 3495
Left = 10575
TabIndex = 26
Top = 2355
Width = 375
End
Begin VB.Label Label13
BackColor = &H00800000&
Height = 495
Left = 105
TabIndex = 25
Top = 2355
Width = 10815
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "考 勤 信 息 查 詢 打 印"
BeginProperty Font
Name = "隸書"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2760
TabIndex = 8
Top = 0
Width = 5415
End
End
Attribute VB_Name = "frmPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sCardID As String
Dim ISID As String
Private Sub chkChu_Click()
If chkChu.Value = 1 Then
cmdChu.Enabled = True
Else
cmdChu.Enabled = False
End If
End Sub
Private Sub chkKaoQinDate_Click()
If chkKaoQinDate.Value = 1 Then
DTKaoQinStart.Enabled = True
DTKaoQinEnd.Enabled = True
Else
DTKaoQinStart.Enabled = False
DTKaoQinEnd.Enabled = False
End If
End Sub
Private Sub chkKaoQinName_Click()
If chkKaoQinName.Value = 1 Then
cobKaoQinName.Enabled = True
cobKaoQinName.BackColor = &HFFFFC0
Else
cobKaoQinName.Enabled = False
cobKaoQinName.BackColor = &H80000004
End If
End Sub
Private Sub chkKaoQinType_Click()
If chkKaoQinType.Value = 1 Then
cobKaoQinType.Enabled = True
cobKaoQinType.BackColor = &HFFFFC0
Else
cobKaoQinType.Enabled = False
cobKaoQinType.BackColor = &H80000004
End If
End Sub
Private Sub ChkModify_Click()
If ChkModify.Value = 1 And OptKaoQin.Value = True And lNum = 2 Then
cmdModify.Enabled = True
Else
Frame2.Visible = False
cmdModify.Enabled = False
End If
End Sub
Private Sub cmdAdd_Click()
Dim SS As String
Set adoRs = adoCon.Execute("select CardID from Worker where Name='" & Trim(txtmoName.Text) & "'")
If adoRs.EOF Then
MsgBox "姓名不存在，請核實！", vbOKOnly + vbExclamation, "系統提示"
Exit Sub
End If
SS = Trim(txtMoType.Text)
If SS = "" Then
ElseIf SS <> "請假" Then
ElseIf SS <> "請假半天" Then
ElseIf SS <> "加班" Then
ElseIf SS <> "曠勤" Then
ElseIf SS <> "節日加班" Then
ElseIf SS <> "曠勤半天" Then
ElseIf SS <> "遲到" Then
ElseIf SS <> "早退" Then
ElseIf SS <> "出差" Then
MsgBox "類別填寫有誤，請核實！", vbOKOnly + vbExclamation, "系統提示"
Exit Sub
End If
adoCon.Execute ("insert into KaoQin values('" & Trim(adoRs!CardID) & "','" & Trim(DTMo.Value) & "','0','0','0','" & Trim(SS) & "')")
MsgBox "添加成功！", vbOKOnly, "系統提示"
cmdFind_Click
End Sub
Private Sub cmdCancel_Click()
Frame2.Enabled = False
Frame2.Visible = False
ChkModify.Value = 0
cmdModify.Visible = False
End Sub
Private Sub cmdchu_Click()
If ChuShi = True Then
Call setChushi
MsgBox "初始化完畢！"
Else
MsgBox "已經初始過了！", vbOKOnly, "系統提示"
ChuShi = False
End If
ChuShi = False
End Sub
Private Sub cmdDel_Click()
If ISID <> "" Then
If MsgBox("是否要刪除此條記錄？", vbYesNo, "刪除提示") = vbYes Then
adoCon.Execute ("delete kaoqin where kaoqinID='" & Trim(ISID) & "'")
MsgBox "刪除成功", vbOKOnly, "系統提示"
cmdFind_Click
End If
End If
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdFind_Click()
Dim SQL, SqlPrint, Whstr, SName, sType, PaiXu, sDate As String
Dim adoCard, adoTemp As New ADODB.Recordset
Dim StarDay, EndDay As Date
Dim Chi, Zao, Jia, JieRi, Qing, QingBan, Kuang, KuangBan, Chu As String
Dim J, K As Integer
On Error GoTo ErrMsg
If OptBaoBiao.Value = True Then
If DTKaoQinStart.Value >= DTKaoQinEnd.Value Then
MsgBox "統計時間有誤，請核實！", vbOKOnly + vbExclamation, "系統提示"
Exit Sub
End If
adoCon.Execute ("delete from count_table")
J = DTKaoQinEnd.Value - DTKaoQinStart.Value + 1
Set adoRs = adoCon.Execute("select count(distinct Starday) from GongXiu where StarDay between '" & Trim(DTKaoQinStart.Value) & "'and '" & Trim(DTKaoQinEnd.Value) & "'")
K = adoRs(0)
adoCon.Execute ("delete KaoQin where Date in (select StarDay from GongXiu) and Type <>'節日加班'")
adoCon.Execute ("update KaoQin set Type='加班' where Date not in (select StarDay from GongXiu) and Type='節日加班'")
Set adoCard = adoCon.Execute("exec Card_proc")
Do While Not adoCard.EOF
Chi = "0"
Zao = "0"
Jia = "0"
JieRi = "0"
Qing = "0"
QingBan = "0"
Kuang = "0"
KuangBan = "0"
Chu = "0"
Set adoRs = adoCon.Execute("exec count_proc '" & Trim(adoCard!CardID) & "','" & Trim(DTKaoQinStart.Value) & "','" & Trim(DTKaoQinEnd.Value) & "'")
Do While Not adoRs.EOF
Select Case Trim(adoRs!Type)
Case "遲到"
Chi = Trim(adoRs!countstr)
Case "加班"
Jia = Trim(adoRs!countstr)
Case "節日加班"
JieRi = Trim(adoRs!countstr)
Case "曠勤"
Kuang = Trim(adoRs!countstr)
Case "曠勤半天"
KuangBan = Trim(adoRs!countstr)
Case "早退"
Zao = Trim(adoRs!countstr)
Case "請假"
Qing = Trim(adoRs!countstr)
Case "請假半天"
QingBan = Trim(adoRs!countstr)
Case "出差"
Chu = Trim(adoRs!countstr)
End Select
adoRs.MoveNext
Loop
SSTR = "exec insertcount_proc '"
SSTR = SSTR + Trim(adoCard!Name) + "','"
SSTR = SSTR + Trim(Chi) + "','" + Trim(Zao) + "','"
SSTR = SSTR + Trim(Jia) + "','" + Trim(JieRi) + "','"
SSTR = SSTR + Trim(Qing) + "','" + Trim(QingBan) + "','"
SSTR = SSTR + Trim(Kuang) + "','" + Trim(KuangBan) + "','"
SSTR = SSTR + Trim(Chu) + "','" + Trim(DTKaoQinStart.Value) + "','"
SSTR = SSTR + Trim(DTKaoQinEnd.Value) + "','" + CStr(J) + "','"
SSTR = SSTR + CStr(K) + "','" + CStr(J - K) + "'"
adoCon.Execute (SSTR)
adoCard.MoveNext
Loop
With AdoFind
.ConnectionString = RtnStr
.RecordSource = "exec showcount_proc"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -