📄 a3.frm
字号:
Height = 255
Index = 0
Left = 120
TabIndex = 13
Top = 8700
Width = 735
End
Begin VB.Label Label2
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "班级:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 938
TabIndex = 12
Top = 1710
Width = 615
End
Begin VB.Label Label3
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "请假起始时间:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2858
TabIndex = 11
Top = 1710
Width = 1575
End
Begin VB.Label Label4
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "结束时间:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5978
TabIndex = 9
Top = 1710
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "学生请假登记表"
BeginProperty Font
Name = "华文行楷"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 3098
TabIndex = 0
Top = 720
Width = 3735
End
End
Attribute VB_Name = "a3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim n As Variant
Data1.Refresh
Data1.Recordset.MoveLast
n = Data1.Recordset.RecordCount
Label12.Caption = n
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Text5.Enabled = False
If P = True Then
Label10.Enabled = True
Label11.Enabled = True
Label13.Enabled = True
Label8.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
P = True
ElseIf P = False Then
Label10.Enabled = False
Label11.Enabled = False
Label13.Visible = False
Label8.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
End If
Dim Mpath As String
Dim t As Integer
Mpath = App.Path
If Right(Mpath, 1) <> "\" Then Mpath = Mpath + "\"
Data1.DatabaseName = Mpath + "管理系统数据库"
Data1.RecordSource = "请假登记表"
Data1.Refresh
Text1.DataField = "请假起始时间"
Text2.DataField = "请假结束时间"
Text3.DataField = "姓名"
Text4.DataField = "请假事由"
Text5.DataField = "审批意见"
Combo1.DataField = "班级"
Combo2.DataField = "请假天数"
Combo3.DataField = "请假类型"
Combo4.DataField = "销假标志"
End Sub
Private Sub Command1_Click()
On Error Resume Next
Dim n As Integer
If P = True Then
Command2.Enabled = Not Command2.Enabled
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled
Command5.Enabled = False
Command6.Enabled = False
If Command1.Caption = "新增" Then
Command1.Caption = "确认"
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Combo4.Enabled = True
Data1.Recordset.AddNew
Text1.Text = "????-??-??"
Text2.Text = "????-??-??"
Data1.Recordset.Update
Combo1.SetFocus
ElseIf Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Combo1.Text = "" Or Combo2.Text = "" Or Combo3.Text = "" Or Combo4.Text = "" Then
MsgBox "资料填写不完整，请填写完整资料！", 48
Combo1.SetFocus
Command2.Enabled = Not Command2.Enabled
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled
Else
Command1.Caption = "新增"
Data1.Recordset.Update
Data1.Recordset.MoveFirst
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Command5.Enabled = True
Command6.Enabled = True
Data1.Refresh
Data1.Recordset.MoveLast
n = Data1.Recordset.RecordCount
Label12.Caption = n
End If
P = True
ElseIf P = False Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = Not Command4.Enabled
Command5.Enabled = False
Command6.Enabled = False
If Command1.Caption = "新增" Then
Command1.Caption = "确认"
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True '本窗体的用户授权是经过无数次血泪实验的辉煌成果！！！
Text4.Enabled = True
Text5.Enabled = False
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Combo4.Enabled = False
Data1.Recordset.AddNew
Combo4.Text = "未销假" '血泪实验的成果！
Text1.Text = "????-??-??"
Text2.Text = "????-??-??"
Data1.Recordset.Update
Combo1.SetFocus
ElseIf Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Combo1.Text = "" Or Combo2.Text = "" Or Combo3.Text = "" Or Combo4.Text = "" Then
MsgBox "资料填写不完整，请填写完整资料！", 48
Combo1.SetFocus
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = Not Command4.Enabled
Else
Command1.Caption = "新增"
Data1.Recordset.Update
Data1.Recordset.MoveFirst
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Command5.Enabled = True
Command6.Enabled = True
Data1.Refresh
Data1.Recordset.MoveLast
n = Data1.Recordset.RecordCount
Label12.Caption = n
End If
End If
End Sub
Private Sub Command2_Click()
On Error Resume Next
Dim n As Integer
n = MsgBox("你确定删除该记录吗？", vbYesNo, "记录删除")
If n = 6 Then Data1.Recordset.Delete
If n = 7 Then
End If
If Data1.Recordset.AbsolutePosition = 0 Then
Data1.Recordset.MoveNext
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveFirst
End If
Data1.Recordset.MoveNext
Data1.Refresh
Data1.Recordset.MoveLast
n = Data1.Recordset.RecordCount
Label12.Caption = n
End Sub
Private Sub Command3_Click()
On Error Resume Next
'If P = 1 Then
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command4.Enabled = Not Command4.Enabled
Command5.Enabled = False
Command6.Enabled = False
If Command3.Caption = "修改" Then
Command3.Caption = "确认"
Data1.Recordset.Edit
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Combo4.Enabled = True
Combo1.SetFocus
ElseIf Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Combo1.Text = "" Or Combo2.Text = "" Or Combo3.Text = "" Or Combo4.Text = "" Then
MsgBox "资料填写不完整，请填写完整资料！", 48
Combo1.SetFocus
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command4.Enabled = Not Command4.Enabled
Else
Command3.Caption = "修改"
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Command5.Enabled = True
Command6.Enabled = True
Data1.Recordset.Update
End If
'ElseIf P = 0 Then
End Sub
Private Sub Command4_Click()
On Error Resume Next
If P = True Then
Command1.Caption = "新增"
Command3.Caption = "修改"
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = True
Command6.Enabled = True
Data1.Recordset.CancelUpdate
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Data1.Recordset.MoveLast
ElseIf P = 0 Then
Command1.Caption = "新增"
Command3.Caption = "修改"
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = True
Command6.Enabled = True
Data1.Recordset.CancelUpdate
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Data1.Recordset.MoveLast
End If
End Sub
Private Sub Command5_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
End Sub
Private Sub Command6_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
End Sub
Private Sub Command7_Click()
Unload Me
P = 0
main.Show
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > s1.Left And X < s1.Left + s1.Width And Y > s1.Top And Y < s1.Top + s1.Height Then
s1.Visible = True
Command1.BackColor = &HE0E0E0
Else:
s1.Visible = False
Command1.BackColor = &HFFC0C0
End If
If X > s2.Left And X < s2.Left + s2.Width And Y > s2.Top And Y < s2.Top + s2.Height Then
s2.Visible = True
Command2.BackColor = &HE0E0E0
Else:
s2.Visible = False
Command2.BackColor = &HFFC0C0
End If
If X > s3.Left And X < s3.Left + s3.Width And Y > s3.Top And Y < s3.Top + s3.Height Then
s3.Visible = True
Command3.BackColor = &HE0E0E0
Else:
s3.Visible = False
Command3.BackColor = &HFFC0C0
End If
If X > s4.Left And X < s4.Left + s4.Width And Y > s4.Top And Y < s4.Top + s4.Height Then
s4.Visible = True
Command4.BackColor = &HE0E0E0
Else:
s4.Visible = False
Command4.BackColor = &HFFC0C0
End If
If X > s5.Left And X < s5.Left + s5.Width And Y > s5.Top And Y < s5.Top + s5.Height Then
s5.Visible = True
Command5.BackColor = &HE0E0E0
Else:
s5.Visible = False
Command5.BackColor = &HFFC0C0
End If
If X > s6.Left And X < s6.Left + s6.Width And Y > s6.Top And Y < s6.Top + s6.Height Then
s6.Visible = True
Command6.BackColor = &HE0E0E0
Else:
s6.Visible = False
Command6.BackColor = &HFFC0C0
End If
If X > s7.Left And X < s7.Left + s7.Width And Y > s7.Top And Y < s7.Top + s7.Height Then
s7.Visible = True
Command7.BackColor = &HE0E0E0
Else:
s7.Visible = False
Command7.BackColor = &HFFC0C0
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -