📄 frmdeptmanage.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form FrmDeptManage
BorderStyle = 3 'Fixed Dialog
Caption = "部门管理"
ClientHeight = 3645
ClientLeft = 45
ClientTop = 330
ClientWidth = 5055
ControlBox = 0 'False
Icon = "FrmDeptManage.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 3645
ScaleWidth = 5055
ShowInTaskbar = 0 'False
Begin TabDlg.SSTab SSTDeptManage
Height = 3375
Left = 120
TabIndex = 0
Top = 120
Width = 4845
_ExtentX = 8546
_ExtentY = 5953
_Version = 393216
Tabs = 2
TabHeight = 520
TabCaption(0) = "部门编辑"
TabPicture(0) = "FrmDeptManage.frx":000C
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Picture1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "CmdReTurn"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "CmdDelete"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "CmdEdit"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "CmdAdd"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "CmdMove"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "CmdSave"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).ControlCount= 7
TabCaption(1) = "职务编辑"
TabPicture(1) = "FrmDeptManage.frx":0028
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "CmdAdds"
Tab(1).Control(1)= "CmdEdits"
Tab(1).Control(2)= "CmdDel"
Tab(1).Control(3)= "CmdSaves"
Tab(1).Control(4)= "CmdCancel"
Tab(1).Control(5)= "Picture2"
Tab(1).Control(6)= "CmdMoves"
Tab(1).ControlCount= 7
Begin VB.CommandButton CmdAdds
Caption = "添加(&N)"
Height = 375
Left = -71520
TabIndex = 15
Top = 840
Width = 1215
End
Begin VB.CommandButton CmdEdits
Caption = "编辑(&T)"
Height = 375
Left = -71520
TabIndex = 14
Top = 1320
Width = 1215
End
Begin VB.CommandButton CmdDel
Caption = "删除(&K)"
Height = 375
Left = -71520
TabIndex = 13
Top = 1800
Width = 1215
End
Begin VB.CommandButton CmdSaves
Caption = "保存(&V)"
Height = 375
Left = -71520
TabIndex = 12
Top = 2280
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton CmdCancel
Caption = "取消(&C)"
Height = 375
Left = -71520
TabIndex = 11
Top = 2760
Width = 1215
End
Begin VB.PictureBox Picture2
Height = 2415
Left = -74760
ScaleHeight = 2355
ScaleWidth = 2955
TabIndex = 10
Top = 720
Width = 3015
Begin VB.TextBox TxtTitleName
Enabled = 0 'False
Height = 270
Left = 1080
MaxLength = 20
TabIndex = 17
Top = 1035
Width = 1695
End
Begin VB.Label LblTitleName
AutoSize = -1 'True
Caption = "职务名称："
Height = 180
Left = 120
TabIndex = 16
Top = 1080
Width = 900
End
End
Begin VB.CommandButton CmdSave
Caption = "保存(&S)"
Height = 375
Left = 3480
TabIndex = 3
Top = 2280
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton CmdMove
Caption = "移动(&M)"
Height = 375
Left = 3480
TabIndex = 9
Top = 2280
Width = 1215
End
Begin VB.CommandButton CmdAdd
Caption = "添加(&A)"
Height = 375
Left = 3480
TabIndex = 6
Top = 840
Width = 1215
End
Begin VB.CommandButton CmdEdit
Caption = "编辑(&E)"
Height = 375
Left = 3480
TabIndex = 5
Top = 1320
Width = 1215
End
Begin VB.CommandButton CmdDelete
Caption = "删除(&D)"
Height = 375
Left = 3480
TabIndex = 4
Top = 1800
Width = 1215
End
Begin VB.CommandButton CmdReTurn
Caption = "返回(&R)"
Height = 375
Left = 3480
TabIndex = 2
Top = 2760
Width = 1215
End
Begin VB.PictureBox Picture1
Height = 2415
Left = 240
ScaleHeight = 2355
ScaleWidth = 2955
TabIndex = 1
Top = 720
Width = 3015
Begin VB.TextBox TxtDeptName
Enabled = 0 'False
Height = 270
Left = 1080
MaxLength = 20
TabIndex = 8
Top = 1035
Width = 1695
End
Begin VB.Label LblDeptName
AutoSize = -1 'True
Caption = "部门名称："
Height = 180
Left = 120
TabIndex = 7
Top = 1080
Width = 900
End
End
Begin VB.CommandButton CmdMoves
Caption = "移动(&Z)"
Height = 375
Left = -71520
TabIndex = 18
Top = 2280
Width = 1215
End
End
End
Attribute VB_Name = "FrmDeptManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmodState()
TxtTitleName.Enabled = True '//使之变成可用
CmdAdds.Visible = False '//将按钮隐藏
CmdEdits.Visible = False
CmdDel.Visible = False
CmdMoves.Visible = False
CmdSaves.Visible = True '//将按钮显示
CmdCancel.Enabled = False
End Sub
Private Sub CmdState()
TxtDeptName.Enabled = True '//使之变成可用
CmdAdd.Visible = False '//将按钮隐藏
CmdEdit.Visible = False
CmdDelete.Visible = False
CmdMove.Visible = False
CmdSave.Visible = True '//将按钮显示
CmdReTurn.Enabled = False
End Sub
Private Sub CmdAdd_Click()
RsDept.AddNew '//在记录集中添加一新行
TxtDeptName.Text = Empty '//清空文本框
Call CmdState
End Sub
Private Sub CmdAdds_Click()
RsTitle.AddNew '//在记录集中添加一新行
TxtTitleName.Text = Empty '//清空文本框
Call CmodState
End Sub
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub CmdDel_Click()
If MsgBox("确定要删除吗？", vbInformation + vbYesNo, "删除部门") = vbYes Then
On Error GoTo ERRDel '//错误捕捉
RsTitle.Delete '//删除记录集数据
Call CmdMoves_Click
End If
Exit Sub '//错误处理
ERRDel:
MsgBox "至少有一个职务", , "验证错误"
End Sub
Private Sub CmdDelete_Click()
If MsgBox("确定要删除吗？", vbInformation + vbYesNo, "删除部门") = vbYes Then
On Error GoTo ERRDel '//错误捕捉
RsDept.Delete '//删除记录集数据
Call CmdMove_Click
End If
Exit Sub '//错误处理
ERRDel:
MsgBox "至少有一个部门", , "验证错误"
End Sub
Private Sub CmdEdit_Click()
Call CmdState
End Sub
Private Sub CmdEdits_Click()
Call CmodState
End Sub
Private Sub CmdMove_Click()
RsDept.MoveNext '//记录集向下移动
If RsDept.EOF Then
RsDept.MoveFirst '//记录集移动到第一行
End If
TxtDeptName.Text = RsDept.Fields(0).Value '//窗体加载时将记录集中数据读入文本框
End Sub
Private Sub CmdMoves_Click()
RsTitle.MoveNext '//记录集向下移动
If RsTitle.EOF Then
RsTitle.MoveFirst '//记录集移动到第一行
End If
TxtTitleName.Text = RsTitle.Fields(0).Value '//窗体加载时将记录集中数据读入文本框
End Sub
Private Sub CmdReTurn_Click()
Unload Me
End Sub
Private Sub CmdSave_Click()
RsDept.Fields(0).Value = Trim(TxtDeptName.Text)
On Error GoTo ERRUp '//捕捉错误
RsDept.Update '//更新记录集
MsgBox "数据已保存", , "保存成功"
CmdAdd.Visible = True '//将按钮显示
CmdEdit.Visible = True
CmdDelete.Visible = True
CmdMove.Visible = True
CmdSave.Visible = False '//将按钮隐藏
CmdReTurn.Enabled = True
TxtDeptName.Enabled = False
Exit Sub '//错误处理
ERRUp:
MsgBox "部门不能为空", , "验证错误"
End Sub
Private Sub CmdSaves_Click()
RsTitle.Fields(0).Value = Trim(TxtTitleName.Text)
On Error GoTo ERRUp '//捕捉错误
RsTitle.Update '//更新记录集
MsgBox "数据已保存", , "保存成功"
CmdAdds.Visible = True '//将按钮显示
CmdEdits.Visible = True
CmdDel.Visible = True
CmdMoves.Visible = True
CmdSaves.Visible = False '//将按钮隐藏
CmdCancel.Enabled = True
Exit Sub '//错误处理
ERRUp:
MsgBox "职务不能为空", , "验证错误"
End Sub
Private Sub Form_Load()
WinXPDeptManage.InitSubClassing
Me.Left = Frmmdimain.Width / 4
Me.Top = Frmmdimain.Height / 6
If RsTitle.State = adStateClosed Then '//记录集状态
RsTitle.Open "员工职务", DBCON, adOpenKeyset, adLockPessimistic, adCmdTable
End If
If RsTitle.EOF = False Then '//判断记录集是否到尾
TxtTitleName.Text = RsTitle.Fields(0).Value
Else
TxtTitleName.Text = Empty
End If
If RsDept.State = adStateClosed Then '//记录集状态
RsDept.Open "部门管理", DBCON, adOpenKeyset, adLockPessimistic, adCmdTable
End If
If RsDept.EOF = False Then '//判断记录集是否到尾
TxtDeptName.Text = RsDept.Fields(0).Value
Else
TxtDeptName.Text = Empty
End If
End Sub
Private Sub SSTDeptManage_DblClick()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -