?? frmdeptmanage.frm
字號:
VERSION 5.00
Object = "{3A6644DE-3402-11D9-9DE7-C33FAA87690A}#1.0#0"; "WinXPCEngine.ocx"
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
Begin WinXPC_Engine.WindowsXPC WinXPDeptManage
Left = 720
Top = 240
_ExtentX = 6588
_ExtentY = 1085
ColorScheme = 2
Common_Dialog = 0 'False
End
End
Attribute VB_Name = "FrmDeptManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
'Download by http://www.codefans.net
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 '//刪除記錄集數(shù)據(jù)
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 '//刪除記錄集數(shù)據(jù)
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 '//窗體加載時將記錄集中數(shù)據(jù)讀入文本框
End Sub
Private Sub CmdMoves_Click()
RsTitle.MoveNext '//記錄集向下移動
If RsTitle.EOF Then
RsTitle.MoveFirst '//記錄集移動到第一行
End If
TxtTitleName.Text = RsTitle.Fields(0).Value '//窗體加載時將記錄集中數(shù)據(jù)讀入文本框
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 "數(shù)據(jù)已保存", , "保存成功"
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 "數(shù)據(jù)已保存", , "保存成功"
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 '//記錄集狀態(tài)
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 '//記錄集狀態(tài)
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -