📄 frm_otherkqchange.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form Frm_OtherKQChange
Caption = "修改其他考勤信息"
ClientHeight = 7335
ClientLeft = 60
ClientTop = 345
ClientWidth = 10320
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7335
ScaleWidth = 10320
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame4
Caption = "出差信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1995
Left = 90
TabIndex = 10
Top = 5100
Width = 10095
Begin MSFlexGridLib.MSFlexGrid Grid3
Height = 1635
Left = 180
TabIndex = 11
Top = 240
Width = 9735
_ExtentX = 17171
_ExtentY = 2884
_Version = 393216
Cols = 4
FixedCols = 0
AllowUserResizing= 1
Appearance = 0
End
End
Begin VB.Frame Frame3
Caption = "加班信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1995
Left = 90
TabIndex = 8
Top = 3090
Width = 10095
Begin MSFlexGridLib.MSFlexGrid Grid2
Height = 1605
Left = 180
TabIndex = 9
Top = 270
Width = 9735
_ExtentX = 17171
_ExtentY = 2831
_Version = 393216
Cols = 4
FixedCols = 0
AllowUserResizing= 1
Appearance = 0
End
End
Begin VB.Frame Frame1
Height = 1035
Left = 90
TabIndex = 2
Top = 0
Width = 10095
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1500
TabIndex = 5
Top = 360
Width = 1965
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4890
TabIndex = 4
Top = 360
Width = 2325
End
Begin VB.CommandButton Cmd_OK
Caption = " 查 询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 8250
TabIndex = 3
Top = 300
Width = 1455
End
Begin VB.Label Label1
Caption = "选择查询字段"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 0
Left = 180
TabIndex = 7
Top = 420
Width = 1335
End
Begin VB.Label Label1
Caption = "选择查询内容"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 1
Left = 3570
TabIndex = 6
Top = 420
Width = 1335
End
End
Begin VB.Frame Frame2
Caption = "请假信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1995
Left = 90
TabIndex = 0
Top = 1080
Width = 10095
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 1635
Left = 180
TabIndex = 1
Top = 270
Width = 9735
_ExtentX = 17171
_ExtentY = 2884
_Version = 393216
Cols = 4
FixedCols = 0
AllowUserResizing= 1
Appearance = 0
End
End
End
Attribute VB_Name = "Frm_OtherKQChange"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m_LFieldName As String
Dim m_OFieldName As String
Dim m_EFieldName As String
Private Sub Cmd_OK_Click()
Dim m_Rs As New ADODB.Recordset
Dim strSql As String
Dim i As Integer
'''''''显示请假信息''''''''''''''''''''''''''''''
If (Combo1.Text = "") And (Text1.Text = "") Then
strSql = "SELECT * FROM LeaveInfo Order By LID"
Else
strSql = "SELECT * FROM LeaveInfo WHERE " & Trim(m_LFieldName) & " like '%" & Trim(Text1.Text) & "%'"
End If
''''MsgBox strSql
Set m_Rs = ExecuteSQL(strSql, "Person.mdb")
If m_Rs.RecordCount <> 0 Then
'''''''初始化表格行数''''''''''''
Grid1.Rows = 2
For i = 1 To Grid1.Cols - 1
Grid1.TextMatrix(1, i) = ""
Next
'''''''''''''''''''''''''''''''''''
i = 1
Do While Not m_Rs.EOF
Grid1.Rows = i + 2
Grid1.TextMatrix(i, 0) = m_Rs("LStuffID")
Grid1.TextMatrix(i, 1) = m_Rs("LFromDay")
Grid1.TextMatrix(i, 2) = m_Rs("LIll")
Grid1.TextMatrix(i, 3) = m_Rs("LPrivate")
m_Rs.MoveNext
i = i + 1
Loop
End If
'''''''显示加班信息''''''''''''''''''''''''''''''
If (Combo1.Text = "") And (Text1.Text = "") Then
strSql = "SELECT * FROM OverTimeInfo Order By OID"
Else
strSql = "SELECT * FROM OverTimeInfo WHERE " & Trim(m_OFieldName) & " like '%" & Trim(Text1.Text) & "%'"
End If
''''MsgBox strSql
Set m_Rs = ExecuteSQL(strSql, "Person.mdb")
If m_Rs.RecordCount <> 0 Then
'''''''初始化表格行数''''''''''''
Grid2.Rows = 2
For i = 1 To Grid2.Cols - 1
Grid2.TextMatrix(1, i) = ""
Next
'''''''''''''''''''''''''''''''''''
i = 1
Do While Not m_Rs.EOF
Grid2.Rows = i + 2
Grid2.TextMatrix(i, 0) = m_Rs("OStuffID")
Grid2.TextMatrix(i, 1) = m_Rs("OFromDay")
Grid2.TextMatrix(i, 2) = m_Rs("OSll")
Grid2.TextMatrix(i, 3) = m_Rs("OSpeciality")
m_Rs.MoveNext
i = i + 1
Loop
End If
'''''''显示出差信息''''''''''''''''''''''''''''''
If (Combo1.Text = "") And (Text1.Text = "") Then
strSql = "SELECT * FROM ErrandInfo Order By EID"
Else
strSql = "SELECT * FROM ErrandInfo WHERE " & Trim(m_EFieldName) & " like '%" & Trim(Text1.Text) & "%'"
End If
''''MsgBox strSql
Set m_Rs = ExecuteSQL(strSql, "Person.mdb")
If m_Rs.RecordCount <> 0 Then
'''''''初始化表格行数''''''''''''
Grid3.Rows = 2
For i = 1 To Grid3.Cols - 1
Grid3.TextMatrix(1, i) = ""
Next
'''''''''''''''''''''''''''''''''''
i = 1
Do While Not m_Rs.EOF
Grid3.Rows = i + 2
Grid3.TextMatrix(i, 0) = m_Rs("EStuffID")
Grid3.TextMatrix(i, 1) = m_Rs("EFromDay")
Grid3.TextMatrix(i, 2) = m_Rs("EErrandDays")
Grid3.TextMatrix(i, 3) = m_Rs("EPurpose")
m_Rs.MoveNext
i = i + 1
Loop
End If
End Sub
Private Sub Combo1_Click()
Select Case Trim(Combo1.Text)
Case "职工编号"
m_LFieldName = "LStuffID"
m_OFieldName = "OStuffID"
m_EFieldName = "EStuffID"
End Select
End Sub
Private Sub Form_Load()
'''''''添加字段名称''''''''''
Combo1.AddItem "职工编号"
''''''添加标题'''''''''''''''''
Grid1.FormatString = " 职工编号 |^ 假期开始日期 |^ 病假天数 |^ 事假天数 "
Grid2.FormatString = " 职工编号 |^ 加班日期 |^ 特殊加班天数 |^ 正常加班天数 "
Grid3.FormatString = " 职工编号 |^ 出差开始日期 |^ 出差天数 |^ 出差目的地 "
End Sub
Private Sub Grid1_DblClick()
iOLFlag = 1
iTableType = 1 ''''代表表单是请假信息表'''''''''
Dim i As Integer
For i = 0 To Grid1.Cols - 1
sOLData(i) = Grid1.TextMatrix(Grid1.Row, i)
Next
Frm_AddOtherKQ.Show 1
End Sub
Private Sub Grid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
PopupMenu Frm_PopMenu.Lpopmenu
End If
End Sub
Private Sub Grid2_DblClick()
iOOFlag = 1
iTableType = 2 ''''''代表表单是加班信息表'''''''''''''''
Dim i As Integer
For i = 0 To Grid2.Cols - 1
sOOData(i) = Grid2.TextMatrix(Grid2.Row, i)
Next
Frm_AddOtherKQ.Show 1
End Sub
Private Sub Grid2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
PopupMenu Frm_PopMenu.Opopmenu
End If
End Sub
Private Sub Grid3_DblClick()
iOEFlag = 1
iTableType = 3 ''''''''代表表单是出差信息表''''''''''''''
Dim i As Integer
For i = 0 To Grid3.Cols - 1
sOEData(i) = Grid3.TextMatrix(Grid3.Row, i)
Next
Frm_AddOtherKQ.Show 1
End Sub
Private Sub Grid3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
PopupMenu Frm_PopMenu.Epopmenu
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -