📄 frmleave.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.Form FrmLeave
BorderStyle = 3 'Fixed Dialog
Caption = "请假窗口"
ClientHeight = 6705
ClientLeft = 150
ClientTop = 720
ClientWidth = 9375
Icon = "FrmLeave.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6705
ScaleWidth = 9375
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text1
Height = 270
Index = 3
Left = 5640
MaxLength = 10
TabIndex = 6
Top = 1560
Visible = 0 'False
Width = 1455
End
Begin VB.Frame Frame1
Caption = "请假表"
Height = 5895
Left = 3000
TabIndex = 1
Top = 360
Width = 6135
Begin VB.TextBox Text1
Height = 2535
Index = 6
Left = 1200
MaxLength = 10
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 14
Top = 3120
Width = 4575
End
Begin VB.TextBox Text1
Height = 270
Index = 5
Left = 1200
MaxLength = 10
TabIndex = 12
Top = 2160
Width = 2895
End
Begin VB.TextBox Text1
Height = 270
Index = 4
Left = 1200
MaxLength = 10
TabIndex = 11
Top = 1680
Width = 2895
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "FrmLeave.frx":08CA
Left = 1200
List = "FrmLeave.frx":08D4
TabIndex = 8
Text = "事假"
Top = 1200
Width = 1215
End
Begin VB.TextBox Text1
Height = 270
Index = 2
Left = 1200
Locked = -1 'True
MaxLength = 10
TabIndex = 5
Top = 720
Width = 2895
End
Begin VB.TextBox Text1
Height = 270
Index = 1
Left = 1200
MaxLength = 10
TabIndex = 4
Top = 360
Width = 2895
End
Begin VB.Label Label3
Caption = "结束时间："
Height = 255
Index = 1
Left = 240
TabIndex = 13
Top = 2160
Width = 1095
End
Begin VB.Label Label2
Caption = "备 注："
Height = 255
Index = 19
Left = 240
TabIndex = 10
Top = 2760
Width = 975
End
Begin VB.Label Label3
Caption = "开始时间："
Height = 255
Index = 0
Left = 240
TabIndex = 9
Top = 1680
Width = 1095
End
Begin VB.Label Label1
Caption = "假期类型："
Height = 255
Left = 240
TabIndex = 7
Top = 1200
Width = 975
End
Begin VB.Label Label2
Caption = "姓 名："
Height = 255
Index = 1
Left = 240
TabIndex = 3
Top = 720
Width = 975
End
Begin VB.Label Label2
Caption = "编 号："
Height = 255
Index = 0
Left = 240
TabIndex = 2
Top = 360
Width = 975
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 4320
Top = 3120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmLeave.frx":08E4
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmLeave.frx":11BE
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView TreeView1
Height = 5895
Left = 240
TabIndex = 0
Top = 360
Width = 2655
_ExtentX = 4683
_ExtentY = 10398
_Version = 393217
Style = 7
ImageList = "ImageList1"
Appearance = 1
End
Begin VB.Menu MemFile
Caption = "文件"
Begin VB.Menu MemBak
Caption = "返回"
End
End
Begin VB.Menu MemData
Caption = "记录"
Begin VB.Menu MemAdd
Caption = "添加记录"
End
Begin VB.Menu MemEdit
Caption = "修改记录"
End
Begin VB.Menu MemDel
Caption = "删除记录"
End
Begin VB.Menu MemSave
Caption = "保存记录"
Enabled = 0 'False
End
Begin VB.Menu MemCancel
Caption = "取消操作"
Enabled = 0 'False
End
End
End
Attribute VB_Name = "FrmLeave"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Leave_DB As Database
Dim Leave_RS As Recordset
Dim nodex1, nodex2 As Node
Dim TEdit As Boolean
Private Sub Form_Load()
Renovate
End Sub
Private Sub Pic_Change()
Image1.Picture = LoadPicture(Pic.Text)
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MemSave.Enabled Then
MsgBox "记录曾未进行保存,请注意保存后返回", 0, "错误提示"
Cancel = 1
Else
Me.Hide
FrmMain.Show
End If
End Sub
Private Sub MemAdd_Click()
TEdit = True
For x = 1 To 6
Text1(x).Enabled = True
Text1(x).Text = ""
Next x
Combo1.Enabled = True
MemAdd.Enabled = False
MemEdit.Enabled = False
MemSave.Enabled = True
MemDel.Enabled = False
MemCancel.Enabled = True
End Sub
Private Sub MemBak_Click()
If MemSave.Enabled Then
MsgBox "记录曾未进行保存,请注意保存后返回", 0, "错误提示"
Else
Me.Hide
FrmMain.Show
End If
End Sub
Private Sub MemCancel_Click()
Leave_DB.Close
MemAdd.Enabled = True
MemEdit.Enabled = True
MemSave.Enabled = False
MemDel.Enabled = True
MemCancel.Enabled = False
Renovate
End Sub
Private Sub MemDel_Click()
For x = 1 To 6
Text1(x).Enabled = False
Next x
Combo1.Enabled = False
Leave_RS.Delete
Leave_DB.Close
MemAdd.Enabled = True
MemEdit.Enabled = True
MemSave.Enabled = False
MemDel.Enabled = True
MemCancel.Enabled = False
Renovate
End Sub
Private Sub MemEdit_Click()
TEdit = False
For x = 1 To 6
Text1(x).Enabled = True
Next x
Combo1.Enabled = True
MemAdd.Enabled = False
MemEdit.Enabled = False
MemSave.Enabled = True
MemDel.Enabled = False
MemCancel.Enabled = True
Text1(1).SetFocus
End Sub
Private Sub MemSave_Click()
Dim Temp As String
Dim s As Integer
If Text1(2).Enabled Then
MsgBox "您输入编号无效！请重试", 16, "错误提示"
Text1(1).SetFocus
Exit Sub
End If
Text1(3).Text = Combo1.Text
If TEdit Then
Leave_RS.AddNew
Else
Leave_RS.Edit
End If
For x = 1 To 6
If Text1(x).Text = "" Then Text1(x).Text = "-"
Leave_RS.Fields(x - 1) = Text1(x).Text
Next x
For x = 1 To 6
Text1(x).Enabled = False
Next x
Combo1.Enabled = False
Leave_RS.Update
Leave_DB.Close
MemAdd.Enabled = True
MemEdit.Enabled = True
MemSave.Enabled = False
MemDel.Enabled = True
MemCancel.Enabled = False
Renovate
End Sub
Private Sub Text1_LostFocus(Index As Integer)
If Index = 1 Then
Set Basic_DB = OpenDatabase(App.Path + "\Basic.mdb")
Set Basic_RS = Basic_DB.OpenRecordset("基本信息")
Basic_RS.MoveFirst
Do While Basic_RS.EOF = False
If Basic_RS.Fields(1) = Text1(1).Text Then
Text1(2).Text = Basic_RS.Fields(2)
Text1(2).Enabled = False
Exit Sub
End If
Basic_RS.MoveNext
Loop
MsgBox "您输入编号无效！请重试", 16, "错误提示"
'Text1(1).SetFocus
End If
End Sub
Private Sub TreeView1_Click()
On Error Resume Next
Dim Temp As String
Temp = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)
If Temp = "无记录" Or Temp = "事假" Or Temp = "病假" Then Exit Sub
Leave_RS.MoveFirst
Do While Leave_RS.EOF = False
If Temp = Leave_RS.Fields(1) Then
Exit Do
End If
Leave_RS.MoveNext
Loop
ListData
End Sub
Private Sub Renovate()
For x = 1 To 6
Text1(x).Text = ""
Text1(x).Enabled = False
Next x
Combo1.Enabled = False
TreeView1.Nodes.Clear
TreeView1.LineStyle = tvwRootLines
Set Leave_DB = OpenDatabase(App.Path + "\data\Leave.mdb")
Set Leave_RS = Leave_DB.OpenRecordset("请假表")
If Leave_RS.EOF Then
Set nodex1 = TreeView1.Nodes.Add(, , "MyF", "无记录", 1)
Exit Sub
End If
Leave_RS.MoveFirst
Set nodex1 = TreeView1.Nodes.Add(, , "Job", "事假", 1)
Set nodex1 = TreeView1.Nodes.Add(, , "Ill", "病假", 1)
Do While Leave_RS.EOF = False
If Leave_RS.Fields(2) = "事假" Then
Set nodex2 = TreeView1.Nodes.Add("Job", tvwChild, , Leave_RS.Fields(1), 2)
Else
Set nodex2 = TreeView1.Nodes.Add("Ill", tvwChild, , Leave_RS.Fields(1), 2)
End If
Leave_RS.MoveNext
Loop
nodex2.EnsureVisible
Leave_RS.MoveFirst
ListData
End Sub
Private Sub ListData()
For x = 1 To 6
If Leave_RS.Fields(x - 1) = "-" Then
Text1(x) = ""
Else
Text1(x) = Leave_RS.Fields(x - 1)
End If
Next x
Combo1.Text = Text1(3).Text
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -